seçkin düz, unreal ircd, eggdrop, kişisel blog,
Pazar , 21 Ocak 2018
Sajoin Sapart tcl

Sajoin Sapart tcl

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

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

Tcl Yapımcısı : Raw

seckinduz

Hakkında Seçkin Düz

1990 yılında Kastamonu'da doğdu. İnternet ve bilişim sektörüne 2007-2008 yıllarında tanıştı. IRCd (Internet Relay Chat) kendini geliştirerek bir çok sohbet platformlarında görev aldı. Daha sonra 2010 yıllarında Hosting firması olarak SeckinShell.Com'u faaliyete geçirdi. Hayatı ile ilgili önemli kararlar alması sebebi ile IRCd alemini bıraktı. Şu an ise Bilim ve Teknoloji üzerine ilgilenmektedir.

Cevapla

E-posta adresiniz yayınlanmayacak. Required fields are marked *

*

IRCdHosting, Web Hosting, Radyo Hosting
Free WordPress Themes - Download High-quality Templates