01 Şubat 2015, 23:47
|
#1
|
Üyelik tarihi: 01 Şubat 2015
Bulunduğu yer: istanbul
Mesajlar: 50
WEB Sitesi: www.hobichat.net
IRC Sunucusu:
İlgi Alanı: Unreal
Alınan Beğeni: 21
|
Konusan Bot Cimcime
# greet for ;p set repchan { "#Sohbet" } # asagidaki kelimeleri isteginize gore turete bilirsiniz 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 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 seni özlemiycez" "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" "melek:efendim" "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" "mail:ciciceren@hotmail.com" "msn:ciciceren@hotmail.com" "msnen:ciciceren@hotmail.com" "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" }
# So don't set this too low ;pp set maxmsgrep 5:10
# 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 # set utlarlg "\[J-*C*\]:" # 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."
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_zorbey* 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_aspawa* { nick uhost handle text } { putserv "PRIVMSG $nick : Buranin tek Root Admini "WorD" Dir." } proc benimle_konuscakmısın* { nick uhost handle text } { putserv "PRIVMSG $nick : tmm ya bekle biraz!" } # End of - Entertainment, Message Auto-Reply. (ent_areply.tcl)
|
|
Alıntı
|