CTCP  *:version:*:{
  ctcpreply $nick VERSION   Sock Bot v2.0 Coded ßy nick (" Teqnic ")
  echo -a  10Size Version çekildi. 12Çeken Nick: 4 $+ $nick 
  inc -u10 %version. [ $+ [ $nick ] ]
  if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt } 
  if ( %version. [ $+ [ $nick ] ] == 3 ) { kill $nick Özele Flood Yapmayiniz Lütfen!  | .msg %operkanali [BILGI][Nick: $nick ][Ozel Version Flood]
  }
}

CTCP ^*:finger:*:{
  ctcpreply $nick  FINGER  Sock Bot v2.0 Coded Nick (" Teqnic ")
  echo -a  10Size Finger çekildi. 12Çeken Nick: 4 $+ $nick 
  inc -u10 %finger [ $+ [ $nick ] ]
  if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global)/i)) { halt } 
  if ( %finger [ $+ [ $nick ] ] == 3 ) { kill $nick Özele Flood Yapmayiniz Lütfen!  | .msg %operkanali [BILGI][Nick: $nick ][Ozel Finger Flood]
  }
}

#version on


on *:ctcpreply:* {
  if ($read(version.txt,w,$2-)) {
    .veban $nick | .msg %operkanali [BILGI][Nick : $nick ][Version : $2- ][Yasak Version Zline] 
    halt
  }
  if (version isin $1-) {
    .sapart $nick #guvenlik 
    .unset %version [ $+ [ $address($nick,2) ] ] 
    .msg $nick 4Guvenlik Sistemini Gectiniz!1 Hos Sohbetler Dileriz. 4[Yonetim] 
    .remini version.ini $nick
    .timer $+ $nick off 
    .whois $nick 
  }
}



on *:join:#: {
  if ($chan == #guvenlik) {
    if ($regex($address($nick,2),/(helper|admin|ircop|services|dj.|tech|global|Network)/i)) { halt }
    if ($read(admin.txt,w,$nick)) { halt }
    if ($level($nick) == muafnlist) { halt }
    if ($nick !== %botnick) {  
      .ctcp $nick version 
      .set -u120 %version [ $+ [ $address($nick,2) ] ] $+($rand(0,9),$rand(a,z),$rand(0,9))
      .msg $nick 4Merhaba $nick , Suan Bot Olarak Algilaniyorsunuz ; 
      .msg $nick 5Eger 1 Dakika Içinde Siz Verilen Kodu Girmezseniz Sunucudan Uzaklastirilacaksiniz!   
      .msg $nick 4Lutfen Bot/Reklamci Olmadiginizi Belirtmek Icin1 !nobot %version [ $+ [ $address($nick,2) ] ] 4Komutunu Özelime Yaziniz04! 
      .userip $nick
    }
  }
  if ($chan == %operkanali) {
    if ($nick == %botnick) {
      sajoin $me #guvenlik | .mode #guvenlik +msi | set %vsifre Acik | topic #guvenlik 10,1 $server  - Sunucu Güvenligi Acisindan 4#güvenlik 10,1 Kanalina Yönlendirildiniz. 4 %botnick  10,1 Botunun Size Vermis Oldugu Kodu 4( !nobot KOD ) 10,1 Bir Dakika Icerisinde 4 %botnick 10,1 Botun Özeline 4 !nobot KOD 10,1 Seklinde Tanitiniz, Aksi Taktirde Sunucudan Uzaklastirilacaksiniz..' | halt 
    }
  }
}
alias veban { gzline $$1 +3800 Lütfen %web Adresinden sunucumuzun Mirc/Script programini indirip tekrar giris yapiniz! $date $time $+([,%botnick,]) }


raw 340:*: {
  .timer $+ $remove($gettok($2-,1,61),*)  1 60 /veban *@ [ $+ [ $gettok($2-,2,64) ] ] 
}



on *:quit: {
  .timer $+ $readini(version.ini,$nick,ip) off
  .remini version.ini $nick
  .timer $+ $nick off
  .timer $+ $address($nick,2) off    
  .timer $+ $address($nick,3) off    
  .close -m $nick
}

raw 378:* {
  ipsil $4
}

alias ipsil { if $1 { if !$read(xpips.txt,w,$1-) { halt } | else { write $+(-dl,$readn) xpips.txt }  } }


on *:text:*:?: {
  if ($1 == !nobot) { 
    if ( %version [ $+ [ $address($nick,2) ] ] == $null ) { 
      .msg $nick 4Sizin Guvenlik Sifreniz Bulunmamaktadir!1 #Guvenlik Kanalindan Cikabilirsiniz. 4[Yonetim] 
      .timer $+ $address($nick,1) off
      .unset %version [ $+ [ $address($nick,2) ] ]
      .sapart $nick #guvenlik 
      halt
    }
    if ($2 == $null) { .msg $nick 4Kodu Yazmayi Unuttunuz!1 !nobot KODUNUZ Seklinde Yazicaksiniz4!  | halt } 
    if ( $2 == %version [ $+ [ $address($nick,2) ] ] ) { 
      .msg $nick 4Sifreyi Dogru Girdiniz #Guvenlik Kanalindan Cikarildiniz!1 Hos Sohbetler Dilerim. 4[Yonetim] 
      .remini version.ini $nick
      .timer $+ $nick off
      .unset %version [ $+ [ $address($nick,2) ] ]
      .sapart $nick #guvenlik
      .whois $nick
      .timer $+ $address($nick,2) off 
      halt
    } 
    else {
      .msg $nick 4Yanlis Kod Girdiniz!1 Lütfen Kodu Duzgun Giriniz! 
      .msg $nick 1Size Verilen Kod :4 %version [ $+ [ $address($nick,2) ] ] 
      .msg $nick 1Ozelime Yazmaniz Gereken Komut :4 !nobot %version [ $+ [ $address($nick,2) ] ] 
      .msg $nick 1Lütfen Kodu Düzgün Giriniz! 
      .ctcp $nick version
    }
  }
}

#version  end