![[-]](https://lamerler.com/images/collapse.png "[-]")
MultiJOIN 7 Saniyeli Sistem
Kod:
;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.lamerler.com 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..
}
}
}
}