/*
İki Alias var, build ve buildyedek
Eger ilk guvenlik kodunu cozerlerse, "build $nick" yazan yere buildyedek $nick yazilacak.
Giriş Kod'umuz Başlıyor By AzRaiL.
*/
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;GLOBAL KANAL GIRIS GUVENLIK KODU;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#giris off
on *:snotice:*:{
  if (*matches filter '^(.+!.+@.+:.+)$': [NICK:* iswm $1-) {
    if (%glogiris == ON && $gettok($2,1,33) == $remove($gettok($7,1,33),')) { 
      os raw sajoin $gettok($2,1,33) #0,0 
      .timer 1 3 os raw svsjoin $gettok($2,1,33) #giris 
    }
  }
}
#giris end
on !*:join:#giris:{ 
  ;if $regex($address($nick,2),/(oper|network|admin|root)/i) { return }
  if (%glogiris == ON) {
    buildyedek $nick
  } 
}
On *:text:!giri? &:,#muhabbet,#sohbet,#opers:{
  if ($1 == !giris && $2 == on) {
    if (($chan != #opers && $nick isop #) || $regex($address($nick,2),/(oper|network|admin|root)/i)) {
      onotice # GlobaL Kanallar icin GIRIS GUVENLIK KODU Aktif Edilmistir.
      onotice # #Giris Kanalinda bulunmaniz gerekmektedir.
      .msg #operlog [SYSTEMLOG GLOBAL] Global Kanallar icin GIRIS GUVENLIK KODU $nick Tarafindan AKTIF Edildi.
      giris_on
      set %glogiris ON
    }
    if ($chan == #opers) {
      .msg #operlog [SYSTEMLOG OPERS] GLOBAL KANALLARDA GIRIS GUVENLIK KODU AKTIF EDILMISTIR.
      set %glogiris ON
      giris_on
    }
  }
  if ($1 == !giris && $2 == off) {
    if (($chan != #opers && $nick isop #) || $regex($address($nick,2),/(oper|network|admin|root)/i)) {
      onotice # GlobaL Kanallar icin GIRIS GUVENLIK KODU Kapatilmistir. 
      .msg #operlog [SYSTEMLOG GLOBAL] Global Kanallar icin GIRIS GUVENLIK KODU $nick Tarafindan IPTAL Edildi.
      giris_off
      set %glogiris OFF
    }
    if ($chan == #opers) {
      .msg # > GLOBAL KANALLARDA "!Giris on/off" KOMUT KULLANIMI IPTAL EDILMISTIR.
      set %glogiris OFF
      giris_off
      unset %girisdeneme*
    }
  }
}
alias glkanal return #oyun,#radyo,#muhabbet,#sohbet,#felsefe,#istanbul
alias giris_on { 
  .enable #giris
  cs set #felsefe mlock +lL 1 #Giris
  cs set #sohbet mlock +lL 1 #Giris
  cs set #muhabbet mlock +lL 1 #Giris
  cs set #oyun mlock +lL 1 #Giris
  cs set #radyo mlock +lL 1 #Giris
  mode #sohbet +b ~T:block:*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*
  mode #muhabbet +b ~T:block:*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*
  mode #felsefe +b ~T:block:*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*
}
alias giris_off {
  .disable #giris
  cs set #sohbet mlock -lL 1 #Giris
  cs set #muhabbet mlock -lL 1 #Giris
  cs set #oyun mlock -lL 1 #Giris
  cs set #radyo mlock -lL 1 #Giris
  cs set #felsefe mlock -lL 1 #Giris
  mode #sohbet -b ~T:block:*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*
  mode #muhabbet -b ~T:block:*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*
  mode #felsefe -b ~T:block:*_*_*_*_*_*_*_*_*_*_*_*_*_*_*_*
}
on *:text:*:#giris:{
  if (%glogiris == ON) {
    if $hfind(giris,$strip($1)) {
      os raw notice $nick Guvenlik kodunu dogru girdiniz, sohbet kanallarina yonlendiriliyorsunuz.Hos sohbetler..
      os raw sapart $nick $chan
      os raw sajoin $nick $glkanal
      hdel giris $strip($1)
    }
    else { 
      inc $+(%,girisdeneme-,$nick)
      if ($eval($+(%,girisdeneme-,$nick),2) == 3) {
        .kick # $nick 5GUVENLIK KODUNU YAZMAK ICIN SIZE AYRILAN DENEME HAKKINIZ BITMISTIR.
        os raw sajoin $nick #karantina
        .mode # +b $address($nick,2)
        unset $+(%,girisdeneme-,$nick)
        return 
      }
      .notice $nick -
      .notice $nick #########################################################################
      .notice $nick 4>YAZMIS OLDUGUNUZ GUVENLIK KODU DOGRU DEGIL.KALAN DENEME HAKKINIZ $+ >4 $calc(3 - $eval($+(%,girisdeneme-,$nick),2))  $+ <
      .notice $nick #########################################################################
      .notice $nick -
      .build $nick
    }
  }
}
alias build {
  var %gondn = $1
  if (!$hget(giris)) { 
    .hmake giris 500
  }
  var %m = $+($r(1,9),$r(A,N),$r(1,9),$r(1,9)) 
  hadd -u60 giris %m
  .notice %gondn -
  .notice %gondn 2GUVENLIK KODU:4 %m
  .notice %gondn -
  .notice %gondn 2YUKARIDA GORMUS OLDUGUNUZ GUVENLIK KODUNU KANALA YAZINIZ.
}
alias buildyedek {
  var %gond = $1
  var %n_color = 2.3.4.5.6.10.12 
  var %hane = $r(3,5), %i = 1 
  while (%i <= %hane) {
    var %n = $+($r(a,z),_object)
    var %c_sum = %c_sum $+($,%n,(%l))
    inc %i 
  } 
  var %m = $remove(%c_sum,object,$,_,(%l),$chr(32))
  if (!$hget(giris)) { 
    .hmake giris 500
  }
  hadd -u60 giris %m
  var %1 = $gettok(%n_color,$r(1,7),46)
  var %2 = $gettok(%n_color,$r(1,7),46)
  var %3 = $gettok(%n_color,$r(1,7),46)
  var %4 = $gettok(%n_color,$r(1,7),46)
  var %5 = $gettok(%n_color,$r(1,7),46)
  var %l = 1
  .notice %gond  -
  while (%l <= 7) {
    tokenize 32 $eval(%c_sum,2)
    .notice %gond $replace($1,4,%1) $+ $replace($2,4,%2) $+ $replace($3,4,%3) $+ $replace($4,4,%4) $+ $replace($5,4,%5)
    inc %l 
  } 
  .notice %gond  -
  .notice %gond  YUKARIDA GORMUS OLDUGUNUZ GUVENLIK KODUNU KANALA YAZINIZ.
  .notice %gond  -
}
alias -l a_object {
  var %w = 0,0###4###0,0#### $&
    0,0##4##0,0#4##0,0### $&
    0,0#4##0,0###4##0,0## $&
    4,0##0,0#####4##0,0# $&
    4,0#########0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# 
return $gettok(%w,$1,32) }
alias -l b_object {
  var %w = 4,0########0,0## $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0########0,0## $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0########0,0##
return $gettok(%w,$1,32) }
alias -l b_reverse_object {
  var %w = 0,0#4,0########0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    0,0#4,0########0,00# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    0,0#4,0########0,0#
return $gettok(%w,$1,32) }
alias -l c_object {
  var %w = 0,0#4,0#######0,0## $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0######## $&
    4,0##0,0######## $&
    4,0##0,0######## $&
    4,0##0,0#####4,0##0,0# $&
    0,0#4,0########0,0#
return $gettok(%w,$1,32) }
alias -l d_object {
  var %w = 4,0#######0,0### $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0#######0,0###
return $gettok(%w,$1,32) }
alias -l e_object {
  var %w = 4,0########0,0# $&
    4,0##0,0######0,0# $&
    4,0##0,0######0,0# $&
    4,0#####0,0#### $&
    4,0##0,0######0,0# $&
    4,0##0,0######0,0# $&
    4,0########0,0#
return $gettok(%w,$1,32) }
alias -l f_object {
  var %w = 4,0#########0,0# $&
    4,0##0,0######## $&
    4,0##0,0######## $&
    4,0######0,0#### $&
    4,0##0,0######## $&
    4,0##0,0######## $&
    4,0##0,0########
return $gettok(%w,$1,32) }
alias -l f_reverse_object {
  var %w = 4,0#########0,0# $&
    0,0#######4,0##0,0# $&
    0,0#######4,0##0,0# $&
    0,0###4,0######0,0# $&
    0,0#######4,0##0,0# $&
    0,0#######4,0##0,0# $&
    0,0#######4,0##0,0#
return $gettok(%w,$1,32) }
alias -l g_object {
  var %w = 0,0#4,0######0,0### $&
    4,0##0,0####4,0##0,0## $&
    4,0##0,0######## $&
    4,0##0,0##4,0#####0,0# $&
    4,0##0,0####4,0##0,0## $&
    4,0##0,0####4,0##0,0## $&
    0,0#4,0######0,0###
return $gettok(%w,$1,32) }
alias -l g_reverse_object {
  var %w = 0,0##4,0######0,0## $&
    0,0#4,0##0,0####4,0##0,0# $&
    0,0#######4,0##0,0# $&
    4,0#####0,0##4,0##0,0# $&
    0,0#4,0##0,0####4,0##0,0# $&
    0,0#4,0##0,0####4,0##0,0# $&
    0,0##4,0######0,0##
return $gettok(%w,$1,32) }
alias -l h_object {
  var %w = 4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0#########0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0#
return $gettok(%w,$1,32) }
alias -l i_object {
  var %w = 4,0####0,0# $&
    0,0#4,0##0,0## $&
    0,0#4,0##0,0## $&
    0,0#4,0##0,0## $&
    0,0#4,0##0,0## $&
    0,0#4,0##0,0## $&
    4,0####0,0#
return $gettok(%w,$1,32) }
alias -l j_object {
  var %w = 0,0######4,0##0,0# $&
    0,0######4,0##0,0# $&
    0,0######4,0##0,0# $&
    0,0######4,0##0,0# $&
    4,0##0,0####4,0##0,0# $&
    4,0##0,0####4,0##0,0# $&
    0,0#4,0#####0,0###
return $gettok(%w,$1,32) }
alias -l k_object {
  var %w = 4,0##0,0####4,0##0,0# $&
    4,0##0,0###4,0##0,0## $&
    4,0##0,0##4,0##0,0### $&
    4,0#####0,0#### $&
    4,0##0,0##4,0##0,0### $&
    4,0##0,0###4,0##0,0## $&
    4,0##0,0####4,0##0,0#
return $gettok(%w,$1,32) }
alias -l k_reverse_object {
  var %w = 4,0##0,0####4,0##0,0# $&
    0,0#4,0##0,0###4,0##0,0# $&
    0,0##4,0##0,0##4,0##0,0# $&
    0,0###4,0#####0,0# $&
    0,0##4,0##0,0##4,0##0,0# $&
    0,0#4,0##0,0###4,0##0,0# $&
    4,0##0,0####4,0##0,0#
return $gettok(%w,$1,32) }
alias -l l_object {
  var %w = 4,0##0,0####### $&
    4,0##0,0####### $&
    4,0##0,0####### $&
    4,0##0,0####### $&
    4,0##0,0####### $&
    4,0##0,0####### $&
    4,0########0,0#
return $gettok(%w,$1,32) }
alias -l l_reverse_object {
  var %w = 0,0######4,0##0,0# $&
    0,0######4,0##0,0# $&
    0,0######4,0##0,0# $&
    0,0######4,0##0,0# $&
    0,0######4,0##0,0# $&
    0,0######4,0##0,0# $&
    4,0########0,0#
return $gettok(%w,$1,32) }
alias -l m_object {
  var %w = 4,0##0,0#####4,0##0,0# $&
    4,0###0,0###4,0###0,0# $&
    4,0####0,0#4,0####0,0# $&
    4,0##0,0#4,0###0,0#4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0#
return $gettok(%w,$1,32) }
alias -l n_object {
  var %w = 4,0##0,0####4,0##0,0# $&
    4,0###0,0###4,0##0,0# $&
    4,0####0,0##4,0##0,0# $&
    4,0##0,0#4,0##0,0#4,0##0,0# $&
    4,0##0,0##4,0####0,0# $&
    4,0##0,0###4,0###0,0# $&
    4,0##0,0####4,0##0,0#
return $gettok(%w,$1,32) }
alias -l n_reverse_object {
  var %w = 4,0##0,0####4,0##0,0# $&
    4,0##0,0###4,0###0,0# $&
    4,0##0,0##4,0####0,0# $&
    4,0##0,0#4,0##0,0#4,0##0,0# $&
    4,0####0,0##4,0##0,0# $&
    4,0###0,0###4,0##0,0# $&
    4,0##0,0####4,0##0,0#
return $gettok(%w,$1,32) }
alias -l o_object {
  var %w = 0,0#4,0#######0,0## $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    0,0#4,0#######0,0##
return $gettok(%w,$1,32) }
alias -l p_object {
  var %w = 4,0########0,0## $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0########0,0## $&
    4,0##0,0######## $&
    4,0##0,0######## $&
    4,0##0,0########
return $gettok(%w,$1,32) }
alias -l p_reverse_object {
  var %w = 0,0#4,0########0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    0,0#4,0########0,0# $&
    0,0#######4,0##0,0# $&
    0,0#######4,0##0,0# $&
    0,0#######4,0##0,0#
return $gettok(%w,$1,32) }
alias -l r_object {
  var %w = 4,0########0,0## $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0########0,0## $&
    4,0##0,0###4,0##0,0### $&
    4,0##0,0####4,0##0,0## $&
    4,0##0,0#####4,0##0,0#
return $gettok(%w,$1,32) }
alias -l r_reverse_object {
  var %w = 0,0#4,0########0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    0,0#4,0########0,0# $& 
    0,0##4,0##0,0###4,0##0,0# $&
    0,0#4,0##0,0####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# 
return $gettok(%w,$1,32) }
alias -l s_object {
  var %w = 0,0#4,0######0,0## $&
    4,0##0,0####4,0##0,0# $&
    4,0##0,0####### $&
    0,0#4,0######0,0## $&
    0,0######4,0##0,0# $&
    4,0##0,0####4,0##0,0# $&
    0,0#4,0######0,0##
return $gettok(%w,$1,32) }
alias -l s_reverse_object {
  var %w = 0,0#4,0######0,0## $&
    4,0##0,0####4,0##0,0# $&
    0,0######4,0##0,0# $&
    0,0#4,0######0,0## $&
    4,0##0,0####### $&
    4,0##0,0####4,0##0,0# $&
    0,0#4,0######0,0##
return $gettok(%w,$1,32) }
alias -l t_object {
  var %w = 4,0########0,0# $&
    0,0###4,0##0,0#### $&
    0,0###4,0##0,0#### $&
    0,0###4,0##0,0#### $&
    0,0###4,0##0,0#### $&
    0,0###4,0##0,0#### $&
    0,0###4,0##0,0####
return $gettok(%w,$1,32) }
alias -l u_object {
  var %w = 4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    0,0#4,0#######0,0##
return $gettok(%w,$1,32) }
alias -l v_object {
  var %w = 4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    0,0#4,0##0,0###4,0##0,0## $&
    0,0##4,0##0,0#4,0##0,0### $&
    0,0###4,0###0,0####
return $gettok(%w,$1,32) }
alias -l y_object {
  var %w = 4,0##0,0####4,0##0,0# $&
    0,0#4,0##0,0##4,0##0,0## $&
    0,0##4,0####0,0### $&
    0,0###4,0##0,0#### $&
    0,0###4,0##0,0#### $&
    0,0###4,0##0,0#### $&
    0,0###4,0##0,0#### 
return $gettok(%w,$1,32) }
alias -l z_object { 
  var %w = 4,0########0,0# $&
    0,0#####4,0##0,0## $&
    0,0####4,0##0,0### $&
    0,0###4,0##0,0#### $&
    0,0##4,0##0,0##### $&
    0,0#4,0##0,0###### $&
    4,0########0,0#
return $gettok(%w,$1,32) }
alias -l x_object {
  var %w = 4,0##0,0#####4,0##0,0# $&
    0,0#4,0##0,0###4,0##0,0## $&
    0,0##4,0##0,0#4,0##0,0### $&
    0,0###4,0###0,0#### $&
    0,0##4,0##0,0#4,0##0,0### $&
    0,0#4,0##0,0###4,0##0,0## $&
    4,0##0,0#####4,0##0,0#
return $gettok(%w,$1,32) }
alias -l w_object {
  var %w = 4,0##0,0######4,0##0,0# $&
    4,0##0,0##4,0##0,0##4,0##0,0# $&
    4,0##0,0##4,0##0,0##4,0##0,0# $&
    4,0##0,0##4,0##0,0##4,0##0,0# $&
    4,0##0,0##4,0##0,0##4,0##0,0# $&
    4,0##0,0##4,0##0,0##4,0##0,0# $&
    0,0#4,0###0,0##4,0###0,0##
return $gettok(%w,$1,32) }
alias -l q_object {
  var %w = 0,0#4,0#######0,0## $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0#####4,0##0,0# $&
    4,0##0,0##4,0##0,0#4,0##0,0# $&
    4,0##0,0####4,0##0,0## $&
    0,0#4,0#####0,0#4,0##0,0#
return $gettok(%w,$1,32) }