[immortaL]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

;Botun Nicki 
alias botnick return JoinServ

;Botun Nick Sifresi
alias nickpass return brusk

;Botun Operi ve Sifresi
alias opers return Sistem brusk

;Botun Girecegi Sunucu ve Portu
alias sunucu return irc.FixSohbet.Net 6667

;Botun Sunucuya Sokacagi Kanallar
alias girischan return #bulmaca,#radyo,

;Botun Bekletme Suresi
alias beklemesure return 7

;Botun Giriste Uygulatacagi Parametreler -- 
;Join Parametresi - Giriste 7 Saniye Statuste Bekletip  Sonra Kanallara Alinir , ve Komut Kullanimi Bekletme suresi kadar yasaklanilir.
;Privmsg Parametresi - Giriste Join Yaparak Kanallara Alinip - Kanallarda Konusma Yasaklatilir. ve komut kullanamaz.

;alias girissistem return join
alias girissistem return join

alias bagla {
  sockclose $botnick
  sockopen $botnick $sunucu
}
alias kopar {
  sockclose $botnick
}
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}
on *:SOCKOPEN:$($botnick): {
  sw $sockname nick Guard $+ $r(0,99)
  sw $sockname USER JoinServ " " : $+ $+([,,$botnick,,]) (System v1 * by JoinServ)
}

on *:sockread:$($botnick): {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $2 == 005 {
    sw $sockname oper $opers
    sw $sockname join 0,
    sw $sockname nick $botnick
    sw $sockname identify $nickpass
  }
  if $1 == PING {
    sw $sockname PONG $2
  }
  if ($2 == 352) {
    sw $sockname shun -*@ $+ $6
  }
  if ($2 == notice) {
    if (connecting isin $1-) { 
      if ($girissistem == join) {
        sw $sockname shun $12 $+(+,$calc($beklemesure - 1)) $botnick JOIN Sistem!
        sw $sockname notice $12  ~~~~~~~~~~~~~~ $botnick Socket Sistem Giris Teknolojiy v1 * By JoinServ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        sw $sockname notice $12 -
        sw $sockname notice $12 1Merhaba5 $12 ,1Sunucu Korumalarindan Geciyorsunuz Lutfen Bekleyiniz..
        sw $sockname notice $12 -
        sw $sockname notice $12 1Kanallara Alinma Sureniz 5 $beklemesure 1 Saniyedir..
        $+(.timer,$12) 1 $beklemesure sw $sockname notice $12 1Sureniz Tamamlanmistor , Kanallara Aliniyorsunuz. $(|) sw $sockname who +I $12 $(|) sw $sockname os raw svsjoin $12 $girischan 
      }
      if ($girissistem == privmsg) {
        sw $sockname shun $12 $+(+,$calc($beklemesure + 1)) $botnick PRIVMSG Sistem!
        sw $sockname os raw svsjoin $12 $girischan
        sw $sockname privmsg $12 4~~~~~~~~~~~~~~~1 $botnick Socket Sistem Giris Teknolojiy v1  * By JoinServ 4~~~~~~~~~~~~~~~~~~~~~~~
        sw $sockname privmsg $12 -
        sw $sockname privmsg $12 1Merhaba5 $12 ,1Sunucu Korumalari Konusma Yasagi ve Komut Kullanimi Yasagi Konulmustur.
        sw $sockname privmsg $12 -
        sw $sockname privmsg $12 1Yasaklarinizin Kalkma Suresi 5 $beklemesure 1 Saniyedir..
        $+(.timer,$12) 1 $beklemesure sw $sockname privmsg $12 1Sureniz Tamamlanmistor , Artik Konusmama Engeliniz Kalkmistir , Hos Sohbetler..
      }
    }
  }
}