IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

bind msgm - slm* msg_slm*
bind msgm - nbr* msg_nbr*
bind msgm - msn* msg_msn*
bind msgm - nerden* msg_nerden*
bind msgm - selam* msg_selam*
bind msgm - naber* msg_naber*
bind msgm - alo* msg_alo*
bind msgm - ordamisin* msg_ordamisin*
bind msgm - seviyorum* msg_seviyorum*
bind msgm - oh* msg_bosal*
bind msgm - ahh* msg_biseyyok*
bind msgm - yermisin* msg_tokum*
bind msgm - root* msg_x*
bind msgm - mrb* msg_mrb*
bind msgm - gelsene* msg_gelsene*
bind msgm - asl* msg_asl*
bind msgm - baksana* msg_baksana*
bind msgm - msnen* msg_msnen*
bind msgm - bitanem* msg_bitanem*
proc msg_slm* { nick uhost handle text } {
putserv "PRIVMSG $nick : slm"
}
proc msg_selam* { nick uhost handle text } {
putserv "PRIVMSG $nick : slm"
}
proc msg_nbr* { nick uhost handle text } {
putserv "PRIVMSG $nick : iim cnm saol sen?."
}
proc msg_naber* { nick uhost handle text } {
putserv "PRIVMSG $nick : iim cnm senden?."
}
proc msg_nerden* { nick uhost handle text } {
putserv "PRIVMSG $nick : izmir ama daha yeni geldik sen?."
}
proc msg_msn* { nick uhost handle text } {
putserv "PRIVMSG $nick : Msn'im daha yeni calindi ya kusura bakma"
}
proc msg_ordamisin* { nick uhost handle text } {
putserv "PRIVMSG $nick : Burdayim sen nerdesin!"
}
proc msg_alo* { nick uhost handle text } {
putserv "PRIVMSG $nick : Ne be ne alla alla Telefondamisin?!"
}
proc msg_seviyorum* { nick uhost handle text } {
putserv "PRIVMSG $nick : Cokmu seviyorsun?!"
}
proc msg_bosal* { nick uhost handle text } {
putserv "PRIVMSG $nick : Niye ohladin? hosuna mi gitti yoksa? "
}
proc msg_biseyyok* { nick uhost handle text } {
putserv "PRIVMSG $nick : Ah canim biseyin yok dimi?"
}
proc msg_tokum* { nick uhost handle text } {
putserv "PRIVMSG $nick : Ben daha yenii yedim sagol"
}
proc msg_marashal* { nick uhost handle text } {
putserv "PRIVMSG $nick : Buranin tek Root Admini "MaRaShaL" Dır."
}
proc benimle_konuscakmısın* { nick uhost handle text } {
putserv "PRIVMSG $nick : tmm ya bekle biraz!"
}
proc msnen_varmı* { nick uhost handle text } {
putserv "PRIVMSG $nick : var ama hemen vermem öle"
}
proc gelsene* { nick uhost handle text } {
putserv "PRIVMSG $nick : ben heryere gitmem öle"
}
proc baksana* { nick uhost handle text } {
putserv "PRIVMSG $nick : evet ne oldu gene"
}
proc asl* { nick uhost handle text } {
putserv "PRIVMSG $nick : 23f cokmu onemli"
}
proc konuşsana* { nick uhost handle text } {
putserv "PRIVMSG $nick : sen konuş ben dinliyorum:)"
}
proc mrb* { nick uhost handle text } {
putserv "PRIVMSG $nick : mrblar"
}
proc bitanem* { nick uhost handle text } {
putserv "PRIVMSG $nick : efendim canim"
}

ben bunu kullanmıştım bi ara konusma.tcl işine yararmı bilmem
Genelde de konuşmasını istiyorsan

# Set this as reply channel. The bot will reply people ONLY in channels listed here. Eventhou-
# the words are same with what you sets below. You can set channelnames here as many as you-
# wish, but carefull you might make your bot getting lagged coz it has too many channels to-
# greet for ;p
set repchan {
"#sohbet"
}
# Ok fill this one with your words. Let me explain a little bit about HOW to set this variable.
# The one on the left side of the ":" sign is the trigger words. And words on the right side-
# of the ":" sign is what your bot will reply following the left one.
# Example: you set "hi :hello hello". Your bot will reply "hello hello" to people who said "hi"-
# in channel or to it.
# As my auto-greet does, you might set "%nick" here as replacement of the real nick the bot-
# will reply to. Example: there's a nick called "TheLamer" in channel, and you set-
# "hello :hi %nick". Then your bot will reply with words "hi TheLamer" when TheLamer guy said "hello"-
# in channel or to it.
# set this carefully and you might set this as many as you wish.
set repwords {
"s.a:%nick, aleyküm selam hoş geldin"
"selam:selam hoş geldin %nick.."
"nasılsınız:teşekurler sen nasılsın %nick"
"nasılsın:teşekurler bomba gibiyiz sen nasılsın %nick"
"mrb:%nick: hoş geldin?"
"naber:iyidir senden naber %nick"
"bye:%nick: yine gelme seni özlemiycez =P"
"lan:%nick: lan kelimesini kullanmayınız lütfen'"
"selamun aleykum:aleykum selam hoşgeldin %nick"
"bahar:efendim %nick"
"bot:%nick: benmi?"
"helal:Sağol Abi"
"askım:canımın içi"
"enbuyuk:BEŞİKTAŞŞŞŞŞŞŞ"
"sevgilim:seni cok özledim %nick"
"siyahhh:BEYAZZZZZZZZZ"
"by:Selametle %nick"
"fener:hadicanım sende Her zaman her yerde en büyük KARTAL"
"ordamısın:evet burdayım"
"eee:ne eesi konuşun canım sıkılıyo atarım bak:D"
"selamun aleykum:aleykum selam %nick hoş geldin"
"s.a:%nick, aleyküm selam hoş geldin"
"selam:selam hoş geldin %nick.."
"nasılsınız:teşekurler sen nasılsın %nick"
"nasılsın:teşekurler bomba gibiyim sen nasılsın %nick"
"mrb:%nick: hoş geldin?"
"bye:hoşçakal %nick"
"harika:%kim bu harika ya sorup duruyon"
"lan:%nick: lan kelimesini kullanmayınız lütfen'"
"selamun aleykum:aleykum selam hoşgeldin %nick"
"anlayacaksın.:seni kimse anlamaz PpP %nick"
"bot:%nick: benmi?"
"canım:birtanem"
"gelecem:gelmesende olur ama neyse gel bare::D"
"bebegim:sevgilim"
"sevgilim:seni cok özledim %nick"
"hayatım:bi tanem bi bi bi"
"istiyorum:bende admin olmak istiyorum ama nerde %nick"
"cıkkkktım:bi cımakadın ha %nick"
"acıktı:boşalda semerimi ye daha az önce yemeğe gittin"
"fb:0,4C* 8,12Fenerbahçe 12,8Cumhuriyeti0,4C* "
"hoşçakalın:hoşçakal canım"
"göruşürüz:görüşürüz canım kendine iyi bak %nick"
"gorusuruz:görüşürüz canım kendine iyi bak %nick"
"ben geldim:hoş geldin"
"anlat:Ben Anlatmayı Değil Anlatılanı Dinlemeyi Severim"
"sade:hemen canımın içi"
"BuLLdozer:efendim abi"
"geveze:sen geveze değilsin sanki"
"asl:19 aslında ama 20 yaşımdaim"
"nerdesiniz:körmüsün burdayız ya"
"nickimi:./ns register şifren mailin %nick"
"cevap:kusura bakma özellerim dolu sohbet ediyorum
"banlamayın:sende rahat dur bi"
"aloo:I m soryy canım.. kusura bakmıyorsun dimi.. ben bi okey oynuyup geliyom"
"kahve:hemen getiriyorum nasıl olsun %nick"
"hadi bana bye:nereye karpuz kesicez daha %nick"
"bjk:0,4 C*1,0Canımız 0,1Kara Kartalımız 1,0 Beşiktaşımız 0,4 C*"
"kaçtım:kaçma ALLAH'ın emri iler git %nick"
"selamın aleykum:aleykum selam %nick hoş geldin"
"eee:esi oyle iste hehe"
"evlenelim:hehe ne evlenmesi tamam sen yakışıklımısın bare :)"
"gelim:valla gelmessen üzülürsün zaten "
"gelmem:Gelmessen zorlamam güzel ve hızla gelişen bir kanal neyse baii canım"
"gidicem:tamam ama gitmeden önce bye demeyi unutma"
"hayır:hımm demek öyle tamam pek hoşlanmam bana hayır denmesinden ona göre "
"hosgeldin:Hoşbulduk Ne güzel yer burası :P"
"kabul: su an online degilim sonra acıcam"
"ne:dediklerimden anlamıyorsun galiba frekanslar ayrı"
"komik:hehe cem ozer"
"nerden:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
color=red>[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] canım:)"
"merhaba:merhabalar"
"nasılsın:bomba gibi sen nasılsın"
"off:ne olduya sıkıldınmı"
"of:ne olduya sıkıldınmı"
"ya:Ne Yağı Bebek Yağımı :Pp"
"yaş:20 büyükmüyüm"
"cep:hadiya ama genede vereyim 0535 243 ..."
"adınney:arzu"
"adın:arzu"
"isim:arzu"
"arzu:efendim"
"ismin:arzu"
"isminiz:arzu"
}
# Set this as maximum trigger or lines before your bot consider the line of words as a flood.
# By setting this to "5:10", means if someone sent more than 5 lines within 10 seconds, the bot-
# will consider this as flood and will auto-ignore the person without giving any answers.
# So don't set this too low ;pp
set maxmsgrep 5:10
# Set this as messages which your bot will send to a user that just considered flooding.
# Set this as many as you wish, but remember, the key like %nick, etc. is NOT avalable in this-
# variable. I'm too lazy to convert those key in this variable, and will only get this script-
# work too hard ;pp hehe
set msgfloodm {
"you're performing MSG which considered as FLOOD..."
}
# Set this as your bot auto-ignore time. Set this one in Minute(s) format.
set msgrepignore 1
# This is for your benefit hehe , you can either set your own LOGO here, your logo will appear-
# when the bot notice you, or when it makes msgs/notices/kicks or scripts loading. So keep smiling-
# and set this variable as you wish , you can either set this to "" to leave it blank.
set utlarlg "\[J-C\]:"
######### Please do not edit anything below unless you know what you are doing #########
proc replyuser {nick uhost hand rest} {
global botnick repwords msgcount maxmsgrep msgfloodm msgrepignore utlarlg
if {[string match "#*" [lindex $rest 0]]} {set repto [lindex $rest 0] ; set rest [lrange $rest 1 end]} else {set repto $nick}
set repperf 0
foreach repwrd $repwords {
set rquestion [lindex [split $repwrd :] 0]
set ranswer [string trim [lrange [split $repwrd :] 1 end] "{}"]
if {[string match [string tolower $rquestion]* [string tolower $rest]]} {
regsub -all "%nick" $ranswer "$nick" ranswer
set repperf 1 ; putquick "PRIVMSG $repto :$ranswer" ; return 0
}
}
if {!$repperf && $repto != $nick} {return 0}
set repperf 0 ; set n [string tolower *!*@[lindex [split $uhost @] 1]]
if {[info exists msgcount($n)]} {
set msgcount{$n} [incr msgcount($n)] ; set currmsgcount $msgcount($n) ; set maxmsgreprecv [lindex [split $maxmsgrep :] 0]
if {$currmsgcount >= $maxmsgreprecv} {
set msgingrep [lindex $msgfloodm [rand [llength $msgfloodm]]]
foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {killutimer [lindex $msgreptimer 2]}}
if {$repto == $nick} {putquick "NOTICE $nick :$utlarlg $msgingrep. Ignored for: $msgrepignore min(s)."}
newignore *!*@[lindex [split $uhost @] 1] $botnick "MSG flood" $msgrepignore
putlog "$utlarlg MSG flood ($msgcount($n)), received from $nick. Message replies will be stopped for $msgrepignore min(s)." ; unset msgcount($n) ; return 1
} else {
foreach msgreptimer [utimers] {if {[string match "unset msgcount($n)" [lindex $msgreptimer 1]]} {return 1}}
utimer [lindex [split $maxmsgrep :] 1] "unset msgcount($n)"
}
} else {set msgcount($n) 1}
}
proc replychan {nick uhost hand chan rest} {
global botnick repchan
foreach targchan $repchan {if {[string match *[string tolower $targchan]* [string tolower $chan]]} {append reps "$chan $rest" ; replyuser $nick $uhost $hand $reps ; return 0}}
}
bind msgm - * replyuser
bind pubm - * replychan
putlog "*** ${utlarlg} Entertainment, Entertainment, MSG Auto Reply + Query Flood Protection. Loaded."
# End of - Entertainment, Message Auto-Reply. (ent_areply.tcl)

Bu tcl ler tamamen alıntıdır.