[immortaL]

Merhaba arkadaslar. Arsivimde bulunan işinize yarayacak bir tcl dosyasıdır. Belirtilen kanalda Sajoin sapart yaptırabilirsiniz.

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

###################################
### 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"
###