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