| immortaL | 29 Haziran 2016 17:53 |
Sajoin Sapart tcl
Merhaba arkadaslar. Arsivimde bulunan işinize yarayacak bir tcl dosyasıdır. Belirtilen kanalda Sajoin sapart yaptırabilirsiniz. Kod:
###################################
### SAJOIN / SAPART TCL by Raw ###
### senali [ @ ] live.com ###
###################################
#Oper Kanalı Giriniz
set sjp(kanal) "#Opers"
#Sajoin Komutunu Giriniz
set sjp(sajoin) "!cek"
#Sapart Komutu Giriniz
set sjp(sapart) "!cikart"
#####
# Ayarlar Bitti, TCL yazalım şimdi ;d#####
bind pub - $sjp(sajoin) sj
bind pub - $sjp(sapart) sp
proc sj {nick uhost hand chan text} {
global botnick sjp
set sjnick [lindex $text 0]
set sjkanal [lindex $text 1]
if {![string match -nocase $sjp(kanal) $chan] || $botnick = $sjnick} {return 0}
if {$sjnick == ""} {
putquick "privmsg $sjp(kanal) *** Nick belirtmediniz."
putquick "privmsg $sjp(kanal) *** Kullanimi: < $sjp(sajoin) nick #kanal > şeklinde olmalıdır."
return 0
}
if {$sjkanal == ""} {
putquick "privmsg $sjp(kanal) *** Kanal belirtmediniz."
putquick "privmsg $sjp(kanal) *** Kullanimi: < $sjp(sajoin) nick #kanal > şeklinde olmalıdır."
return 0
}
putquick "privmsg irc sajoin $snick $skanal"
putquick "privmsg $sjp(kanal) ***\002 $nick \002, $sjp(sajoin) komutu ile\002 $sjnick \002kişisini\002 $sjkanal \002odasına çekdi."
}
proc sp {nick uhost hand chan text} {
global botnick sjp
set spnick [lindex $text 0]
set spkanal [lindex $text 1]
if {![string match -nocase $sjp(kanal) $chan] || $botnick = $spnick} {return 0}
if {$spnick == ""} {
putquick "privmsg $sjp(kanal) *** Nick belirtmediniz."
putquick "privmsg $sjp(kanal) *** Kullanimi: < $sjp(sapart) nick #kanal > şeklinde olmalıdır."
return 0
}
if {$spkanal == ""} {
putquick "privmsg $sjp(kanal) *** Kanal belirtmediniz."
putquick "privmsg $sjp(kanal) *** Kullanimi: < $sjp(sapart) nick #kanal > şeklinde olmalıdır."
return 0
}
putquick "privmsg irc sapart $spnick $spkanal"
putquick "privmsg $sjp(kanal) ***\002 $nick \002, $sjp(sapart) komutu ile\002 $spnick \002kişisini\002 $spkanal \002odasından çıkardı."
}
###
putlog "SAJOIN / SAPART TCL yuklendi - coded by Raw"
###
| 