Karşılama TCL

[code]proc join_greet {nick uhost handle channel } { 
putserv "privmsg $nick :4M2erhaba 3 $nick "
putserv "privmsg $nick :14irc.Sunucu.Com 4s2ohbet 4s2unucusuna 4h2oşgeldiniz."
putserv "privmsg $nick :4S2unucu 4k2urallarına4 v2e 4g2örev 4d2ağılımına 14/motd 4y2azarak 4u2laşabilirsiniz."
putserv "privmsg $nick :4S2unucu4 y2ardım 4k2analımız14: 7#Help 14~&~ 4G2enel 4s2ohbet 4k2analımız14: 7#Sohbet 14~&~ 4O2yun 4k2analımız14: 7#Oyun 14~&~ 4R2adyo 4k2analımız14: 7#Radyo

Rus Ruleti Oyun TCL

[code]###Rus Ruleti TCL
#istek ve önerileriniz için açığım. TCL Hakkında herhangi bir fikriniz var ise benimle irtibata geçiniz. DESTEK@LAMERLER.COM


#list lucky comments
set pull {
    "hizlica tetigi ceker..."
    "titreyerek elini tetige goturur ve silayi yavasca sakagina dayar...."
    "tetigi cekerken, yuzunde soguk ve sakin gulumseme belirir...."
    "tabancayi agzina sokar...."
    "tabancayi kaslarinin arasina yerlestirir ve sessizce dua eder..."

!Spamekle - !Blockekle Tcl




KULLANIM KOMUTLARI




!spamekle kelime



!spamsil kelime


!blockekle kelime



!blocksil kelime








[color=#008E

Küfür koruma.tcl

[code]#Kick yada oper ise kill mesaji
set bansebebi "Kufur Ettiginiz icin Banlandiniz..!"

# Eger bot oper olup reklam yapanlara gline aticaksa
# bu ayari 1 yapin, aksi takdirde dokunmayin..
set botoper "0"

## Bot oper olucaksa oper username ve sifre
## Dikkat, conf dosyanizda baska bir init-server olmadigindan emin olun
set onick "opernick"

set opass "operpass"

# Kufurler - Eklemek istediginiz kufur varsa asagidan
# ekliyebilirsin

Oto global atma tcl'si.
OTO GLOBAL KANALLARİNİZA MESAJ ATMA TCLSİDİR
[code]#Text icin verilen 30dk
set botdakika "30"

set loginnick "OperNick"
set loginpass "Sifre"
set nicksifre "Sifre"

bind evnt - init-server server
set mesajayari {
"Global atılacak 1. text."
"Global atılacak 2. text."
"Global atılacak 3. text."
"Global atılacak 4. text."
"Global atılacak 5. text."
}

if {![string match "*globalhazirla*" [timers]]} {
timer $botdak

Guestlerin nickini oto değiştiren tcl
guestnickleri oto degişir tcl icindeki nickleri siz belirliyebilirsiniz .


[code]## Nick Değiştirme
set Gnick {
"Guest"
}


set arg.v "Guest Nicki Değiştirme"

bind join - * Detected_Gnick

proc Detected_Gnick {nick uhost hand chan} {
global Gnick botnick ynick
if {(![matchattr $hand b]) && ($nick != $botnick)} {
foreach guestnick [string tolower $Gnick] {
if {[string match

BADNİCK TCL
Kötü Nick Koruması  nickleri siz düzenliyebilirsiniz oto atar
[code]## Badnick scans(kafanıza göre editleyin)
set badnicks {
"penis"
"fuck"
"bitch"
"asshole"
"kontol"
"contol"
"pepek"
"vevek"
"ngentot"
"kentot"
"jembut"
"zembut"
"pantat"
"totong"
"tetek"
"vagina"
"pukimak"
"bujanginam"
"cibai"
"c1b41"
"lanciau"
"gigolo"
"peler"
"anjing"
"4nj1ng"
"4njing"
"anj1ng"
"bangsat"
"b4ngs4t"
"b4ngsat"
"