set colornum 0
set reklamknum 1
set reklamunum 0
bind msg - !yardim helpme
proc helpme {nick uhost hand stuff} {
global colornum botnick
if {!([matchattr $hand o] || [matchattr $hand m])} { set cchoice [lindex $stuff 0] }
set cchoice [lindex $stuff 0]
putserv "PRIVMSG $nick : 14Merhaba 12 $nick"
putserv "PRIVMSG $nick : 14Anamenu'ye hoþgeldiniz"
putserv "PRIVMSG $nick : 14Ben size yardim etmek üzere özel olarak tasarlanmýþ Robotum!"
putserv "PRIVMSG $nick : "
putserv "PRIVMSG $nick : 14Servisler hakkýnda yardým almak için 12!menu 14 yaziniz."
putserv "PRIVMSG $nick : 14Helper alimlari hakkýnda bilgi edinmek için 12!helper 14 yazýnýz."
putserv "PRIVMSG $nick : "
putserv "PRIVMSG $nick : 14Benim hakkýmda bilgi almak için 12!version 14 yazýnýz."
putserv "PRIVMSG $nick : 14Seçmiþ oldugunuz 12!yardim 14 tamamlanmýþtýr.."
}
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
# ChanServ Baþlangýç #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
bind msg - !chanmenu chanM
proc chanM {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 12ChanServ 14 menüsüne hoþ geldiniz;"
putserv "PRIVMSG $nick : 4!register 4!identify 4!access 4!akick "
putserv "PRIVMSG $nick : 4!info 4!mlock 4!op 4!mode "
putserv "PRIVMSG $nick : 14Size gerekli yardým vermebilmem için lütfen seçiminizi yapýnýz."
putserv "PRIVMSG $nick : 14Menüde yazanlar hakkýnda açýklama isterseniz 6!chanacikla yazmanýz yeterlidir."
putserv "PRIVMSG $nick : 12ChanServ 14 ile ilgili yardýmým yeterli gelmezse sorularýnýzý kanal @ larýna sorunuz .."
putserv "PRIVMSG $nick : 14Seçmiþ oldugunuz 12!chanmenu 14 tamamlanmýþtýr.."
}
bind msg - !chanacikla Cacik
proc Cacik {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Kanal kayýt etmek istiyorsanýz 4!register "
putserv "PRIVMSG $nick : 14Kanalýnýz Chanserv e tanýtmak için 4!identify "
putserv "PRIVMSG $nick : 14Kanalýnýzda bir kullanýcýya access (aop,sop) eklemek için 4!access "
putserv "PRIVMSG $nick : 14Kanalýnýzda istemediginiz bir kullanýcýyý kanala alamamak için 4!akick "
putserv "PRIVMSG $nick : 14Kanal hakkýnda bilgi almak için 4!info "
putserv "PRIVMSG $nick : 14Kanal modelerini ChanServden deðiþtirmek için 4!mlock "
putserv "PRIVMSG $nick : 14Kanal modlarý hakkýnda bilgi almak için 4!mode "
putserv "PRIVMSG $nick : 14Aciklama menüsü bitti þimdi ilgilendiginiz bölümü seçiniz"
}
bind msg - !register Ckayit
proc Ckayit {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : /msg chanserv register #kanal þifre açýklama "
putserv "PRIVMSG $nick : Kanal ýnýzý kaydetmek için bu komutu kullanabilirsiniz."
}
bind msg - !identify Ciden
proc Ciden {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : Ayni nickte oldugu gibi chanserv'in sizi tanimasi ve kanalda ilgili en yüksek Kisi olmaniz için bu yapmaniz gerekli"
putserv "PRIVMSG $nick : /msg chanserv identify #kanal sifre"
}
bind msg - !access Cacc
proc Cacc {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : /msg chanserv access #kanal add nick seviye"
putserv "PRIVMSG $nick : Kanalda VOP Eklemek için Seviye: 30"
putserv "PRIVMSG $nick : Kanalda HALFOP Eklemek için Seviye: 40"
putserv "PRIVMSG $nick : Kanalda AOP Eklemek için Seviye: 50"
putserv "PRIVMSG $nick : Kanalda SOP Eklemek için Seviye: 999"
}
bind msg - !akick Cakick
proc Cakick {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : /msg chanserv akick #kanal add nick!ident@ip Sebeb"
putserv "PRIVMSG $nick : Bu Sizin kanala girmesini istemediginiz kisileri kanala sokamazlar. Yani Bir Nevi yasak gibi.. Add (ekle), del (sil), List (Liste)."
}
bind msg - !info Cinfo
proc Cinfo {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : Bir kanalin kimin ait oldugunu ve diger bilgilerinide gösterir."
putserv "PRIVMSG $nick : /msg chanserv info #kanal"
}
bind msg - !mlock Cmlock
proc Cmlock {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : Kanalin bir çok ayari bu komutla kilitlenir. Herhangi bir opun kanalin ayarlari ile oynayamamasi için kullanilir. En ideal sekli +ntr-ispklmR olmasidir."
putserv "PRIVMSG $nick : /msg chanserv set #kanal mlock +ntr-ispklmR"
}
bind msg - !op Cop
proc Cop {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : /msg chanserv aop #kanal add nick"
putserv "PRIVMSG $nick : Kanalýnýza aop eklemek için bu komutu kullanabilirsiniz. Silmek için add yerine del yazmalýnýz."
putserv "PRIVMSG $nick : "
putserv "PRIVMSG $nick : /msg chanserv sop #kanal add nick"
putserv "PRIVMSG $nick : Kanalýnýza sop eklemek için bu komutu kullanabilirsiniz. Unulmamalýdýr ki her sop aop ekleyebilir."
}
bind msg - !mode Cmode
proc Cmode {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : Kanal Modelari Bolumu"
putserv "PRIVMSG $nick : +m: Kanalda sadece op ve voiceler konusabilir."
putserv "PRIVMSG $nick : +M: Kanalda sadece nicki kayitli kullanicilar konusabilir."
putserv "PRIVMSG $nick : +R: Kanala sadece nicki kayitli kullanicilar girebilir."
putserv "PRIVMSG $nick : +i: Kanala sadece davet edilen kullanicilar girebilir."
putserv "PRIVMSG $nick : +l: Kanala kullanici sayisi limit koyar."
putserv "PRIVMSG $nick : +p: Kanalin whois ve list 'de cikmasini engeller."
putserv "PRIVMSG $nick : +s: Kanalin sadece whois de cikmasini engeller."
putserv "PRIVMSG $nick : +k: Kanala sifre koyar."
putserv "PRIVMSG $nick : +G: Sunucu tarafindan yasaklanmis kelimelerin kullanilmasini engeller."
putserv "PRIVMSG $nick : +t: Topici sadece oplarin degistirebilmesini saglar."
putserv "PRIVMSG $nick : +n: Kanala disaridan mesaj yollanmasini engeller."
}
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
# NickServ Baþlangýç #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
bind msg - !nickmenu nickM
proc nickM {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 12NickServ 14 menüsüne hoþ geldiniz;"
putserv "PRIVMSG $nick : 4!regnick 4!idenick 4!password 4!kill "
putserv "PRIVMSG $nick : 4!ghost 4!release 4!url-icq "
putserv "PRIVMSG $nick : 14Size gerekli yardým vermebilmem için lütfen seçiminizi yapýnýz."
putserv "PRIVMSG $nick : 14Menüde yazanlar hakkýnda açýklama isterseniz 6!nickacikla yazmanýz yeterlidir."
putserv "PRIVMSG $nick : 14NickServ ile ilgili yardýmým yeterli gelmezse sorularýnýzý kanal @ larýna sorunuz .."
putserv "PRIVMSG $nick : 14Seçmiþ oldugunuz 12!nickmenu 14 tamamlanmýþtýr.."
}
bind msg - !nickacikla Nacik
proc Nacik {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Kullandýgýnýz Nickinizi kayýt etmek istiyorsanýz 4!regnick "
putserv "PRIVMSG $nick : 14Nickinizi NickServ e tanýtmak için 4!idenick "
putserv "PRIVMSG $nick : 14Nickinizin þifresini deðiþtirmek için 4!password "
putserv "PRIVMSG $nick : 14Nickinize bir koruma eklemek için 4!kill "
putserv "PRIVMSG $nick : 14Asýlý kalan Nick inizi düþürmek için 4!ghost "
putserv "PRIVMSG $nick : 14Nickiniz baþkasý tarafýndan kullanýlýyor ise 4!release "
putserv "PRIVMSG $nick : 14Nickinizin infosuna url veya icq no eklemek 4!url-icq "
}
bind msg - !regnick Nreg
proc Nreg {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Nickinizi kayit edebilmenizi saðlar"
putserv "PRIVMSG $nick : 12/msg nickserv register sifre e-mail"
}
bind msg - !idenick Niden
proc Niden {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Kayýtlý nickinizi NickServ e her baglandýgýnýzda tanýtmanýz gerekir."
putserv "PRIVMSG $nick : 12/msg nickserv identify sifre"
}
bind msg - !password Npas
proc Npas {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Nickinizin þifresini deðistirmek için kullanýlýr. Komutu kullanmak için nickinizi identify edilmiþ olmasý gerekir."
putserv "PRIVMSG $nick : 12/nickserv set password yenisifre"
}
bind msg - !kill Nkill
proc Nkill {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Bu komut siz yokken nickinizin kullanýlmasýný engeller."
putserv "PRIVMSG $nick : 14Nickinizin sifresini 1 dakika içinde yazmassanýz veya 3"
putserv "PRIVMSG $nick : 14tane yanlýþ þifre girerseniz serverdan killeneceksiniz."
putserv "PRIVMSG $nick : 12/msg nickserv set kill on"
}
bind msg - !ghost Ngho
proc Ngho {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Serverdan düþtünüz ama nickiniz aslý kaldý. Nickinizi kurtarmak için."
putserv "PRIVMSG $nick : 12/msg nickserv ghost nick sifre"
}
bind msg - !release Nrel
proc Nrel {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Nickiniz kullaniliyorsa onu serverdan düsürürsünüz."
putserv "PRIVMSG $nick : 12/msg nickserv release nick þifre"
}
bind msg - !url-icq Nui
proc Nui {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Nickinize info çeken kisinin sizin e-mail, icq veya web adresinize ulasmasini saglayan komut."
putserv "PRIVMSG $nick : 14Komutu kullanmak için nickinizi identify etmis olmalisiniz."
putserv "PRIVMSG $nick : 12/msg nickserv set url adres"
putserv "PRIVMSG $nick : 12/msg nickserv set icq icqno"
}
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
# Memoserv Baþlangýç #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
bind msg - !memomenu memoM
proc memoM {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 12MemoServ 14 menüsüne hoþ geldiniz;"
putserv "PRIVMSG $nick : 4!memosend 4!memolist 4!memoread 4!memodel "
putserv "PRIVMSG $nick : 14Size gerekli yardým vermebilmem için lütfen seçiminizi yapýnýz."
putserv "PRIVMSG $nick : 14Menüde yazanlar hakkýnda açýklama isterseniz 6!memoacikla yazmanýz yeterlidir."
putserv "PRIVMSG $nick : 14MemoServ ile ilgili yardýmým yeterli gelmezse sorularýnýzý kanal @ larýna sorunuz .."
putserv "PRIVMSG $nick : 14Seçmiþ oldugunuz 12!memomenu 14tamamlanmýþtýr.."
}
bind msg - !memoacikla Macik
proc Macik {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Bir memo göndermek için 4!memosend "
putserv "PRIVMSG $nick : 14Memo listenizi görmek için 4!memolist "
putserv "PRIVMSG $nick : 14Size gelen bir memo yu okumak için 4!memoread "
putserv "PRIVMSG $nick : 14Memolarýnýz silmek için 4!memodel "
}
bind msg - !memosend Msend
proc Msend {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Herhangi bir kiþiye memo mesaj yollamanýzý saðlayan komuttur."
putserv "PRIVMSG $nick : 12/msg memoserv send nick"
}
bind msg - !memolist Mlist
proc Mlist {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Size gelen memo mesajlarý listelemenizi saðlayan komuttur."
putserv "PRIVMSG $nick : 12/msg memoserv list"
}
bind msg - !memoread Mread
proc Mread {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Size gelen memo mesajlarý okumanýzý saðlayan komuttur."
putserv "PRIVMSG $nick : 12/msg memoserv read numara"
}
bind msg - !memodel Mdel
proc Mdel {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Size gelen memo mesajlardan birini silmenizi saðlayan komuttur."
putserv "PRIVMSG $nick : 12/msg memoserv del numara"
putserv "PRIVMSG $nick : 14Size gelen memolarýn tamamýný bir seferde silmenizi saglayan komut"
putserv "PRIVMSG $nick : 12/msg memoserv del all"
}
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
# Menu Baþlangýç #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
bind msg - !menu Menu
proc Menu {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Servisler menüsüne hoþ geldiniz;"
putserv "PRIVMSG $nick : 14Lütfen yardým istediginiz servis menusunu seçiniz."
putserv "PRIVMSG $nick : "
putserv "PRIVMSG $nick : 14NickServ için 12!nickmenu "
putserv "PRIVMSG $nick : 14Chanserv için 12!chanmenu "
putserv "PRIVMSG $nick : 14Memoserv için 12!memomenu "
putserv "PRIVMSG $nick : 14Kanal Modelari için 12!mode "
putserv "PRIVMSG $nick : "
putserv "PRIVMSG $nick : 14Ana munuye dönmek için 12!anamenu 14 yazýnýz."
putserv "PRIVMSG $nick : 14Seçmiþ oldugunuz 12!menu 14 tamamlanmýþtýr.."
}
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
# Anamenu Baþlangýç #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
bind msg - !anamenu Amenu
proc Amenu {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14Servisler hakkýnda yardým almak için 12!menu 14 yaziniz."
putserv "PRIVMSG $nick : 14Helper olamak istiyorsanýz 12!helper 14 yazýnýz."
putserv "PRIVMSG $nick : 14Lütfen seçiminizi yapýnýz."
putserv "PRIVMSG $nick : 14Seçmiþ oldugunuz 12!anamunu 14 tamamlanmýþtýr.."
}
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
# Bilgi Baþlangýç #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
bind msg - !helper bil
proc bil {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 12Irc.Aksunucu.CoM Server'ýnda HELPER olabilmek için,"
putserv "PRIVMSG $nick : 14Yapýlacak helper sýnavlarýna katýlmalýsýnýz. Sýnav zamanlarý önceden belirtilecektir."
putserv "PRIVMSG $nick : 14Tüm Userlere açýk olan bu sýnavda;"
putserv "PRIVMSG $nick : 14Chanserv, Nickserv, Memoserv Servislerine ait Konulardan secilecek 3 Soru Sorulacak Olup,"
putserv "PRIVMSG $nick : 14Üç Sorununda bilinmesi mecburidir.."
putserv "PRIVMSG $nick : 14Seçmiþ oldugunuz 12!bilgi 14 tamamlanmýþtýr.."
}
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
# version Baþlangýç #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
bind msg - !version ver
proc ver {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 12Guncelleme Tarihi 14: Ekim.01.2006"
putserv "PRIVMSG $nick : 12Version Türü 14: powerhelp-v.2.0"
putserv "PRIVMSG $nick : 12Yapýmcý 14: PowerUser"
putserv "PRIVMSG $nick : 12Download 14: www.ulusalchat.net/forum"
}
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
# Giriþ Baþlangýç #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
bind join - * helpchannel
proc helpchannel {nick uhost hand chan} {
global colornum botnick
if {$nick == $botnick} {return 0}
putserv "NOTICE $nick : 4yardim 12 Kanalýna Hoþgeldiniz $nick. Kanalda bulunan oplar serverin resmi helperleridir. Size voice verilene kadar bekleyiniz. Voice aldýktan sonra sorunuzu kýsa ve anlaþýlýr þekilde sorunuz."
putserv "NOTICE $nick : 12Sorununuz Cözüldükten Sonra Kanaldan Ayrýlýnýz. Kanalda Uzun Süre Bekelemeniz Banlanmanýza Neden Olacaktýr! "
putserv "NOTICE $nick : 12Eðer kanalda op yoksa, 4/msg BotNick !yardim 12 yazarak benden yardim alabilirsiniz."
if {$colornum == 0} {return 0}
if {$colornum == 1} {
if {[matchattr $hand o] || [matchattr $hand m]} {
}
return 0
}
if {$colornum == 2} {
if {[matchattr $hand o] || [matchattr $hand m]} {
}
return 0
}
}
tcl bu
