Çevrimdışı

HELPER TCL

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 : 4Merhaba1 $nick"
putserv "PRIVMSG $nick : 12AnaMenu'ye Hoş Geldiniz"
putserv "PRIVMSG $nick : 12Ben Size Yardim Etmek Üzere4 CroAtoN12 Tarafindan Özel Olarak Tasarlanmış Robotum!"
putserv "PRIVMSG $nick : "
putserv "PRIVMSG $nick : 1Servisler Hakkında Yardım Almak için 12!Menu14 Yaziniz."
putserv "PRIVMSG $nick : 1Helper Alimlari Hakkında Bilgi Edinmek için 4!Helper1 Yazınız."
putserv "PRIVMSG $nick : "
putserv "PRIVMSG $nick : 1Benim Hakkımda Bilgi Almak için 4!Version14 Yazınız."
putserv "PRIVMSG $nick : 1Seçmiş Oldugunuz 4!Yardim1 Tamamlanmıştır.."
}
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
# ChanServ Başlangıç #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
bind msg - !chanmenu chanM
proc chanM {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 12ChanServ14 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 : 14ChanServ ile ilgili Yardımım Yeterli Gelmezse Sorularınızı Kanal Yetkililerine Bildiriniz..""
putserv "PRIVMSG $nick : 14Seçmiş Oldugunuz 12!ChanMenu14 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 : 12NickServ14 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 Yetkililerine Bildiriniz.."
putserv "PRIVMSG $nick : 14Seçmiş Oldugunuz 12!NickMenu14 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 : 12MemoServ14 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 Yetkililerine Bildiriniz.."
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"
}
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
# Operserv Başlangıç #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
#
#
#
#
#
#
#
#
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
# 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 Menüsünü 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!anamenu14 yazınız."
putserv "PRIVMSG $nick : 14Seçmiş oldugunuz 12!menu14 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!Menu14 Yaziniz."
putserv "PRIVMSG $nick : 14Helper Olamak istiyorsanız 12!Helper14 Yaziniz."
putserv "PRIVMSG $nick : 14Lütfen Seçiminizi Yapınız."
putserv "PRIVMSG $nick : 14Seçmiş oldugunuz 12!AnaMenu14 Tamamlanmıştır.."
}
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
# Bilgi Başlangıç #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
bind msg - !helper bil
proc bil {nick uhost hand stuff} {
global colornum botnick
putserv "PRIVMSG $nick : 14"
putserv "PRIVMSG $nick : 14"
putserv "PRIVMSG $nick : 4HELPER Alımı Yoktur.."
putserv "PRIVMSG $nick : 14"
putserv "PRIVMSG $nick : 14"
putserv "PRIVMSG $nick : 14Seçmiş Oldugunuz 12!Bilgi14 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: 23.12.2007"
putserv "PRIVMSG $nick : 12Version Türü 14: mhhlp-v.2.0"
putserv "PRIVMSG $nick : 4Yapımcı 1: CroAtoN"
putserv "PRIVMSG $nick : 12Download 14: CroAtoN"
}
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
# Giriş Başlangıç #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
bind join - * helpchannel
proc helpchannel {nick uhost hand chan} {
global colornum botnick
if {$nick == $botnick} {return 0}
putserv "NOTICE $nick : 9,1 #Yardim15 Kanalına Hoş Geldiniz9 $nick. 15Kanalda Bulunan9 Global Op15 'lar Serverin Resmi Helperleridir.7 Size Voice4 (9+v4)15 Verilene Kadar Bekleyiniz.7 Voice 4(9+v4)15 Aldıktan Sonra Sorunuzu Kısa ve Anlaşılır Şekilde Sorunuz. "
putserv "NOTICE $nick : 15,1 Sorununuz Cözüldükten Sonra Kanaldan Ayrılınız4.15 Kanalda Uzun Süre Beklemeniz Banlanmanıza Neden Olacaktır4 ! 15 Eğer Kanalda9 Op15 yoksa ve4/15veya9 Online15 Degil ise4, 9/Msg HeLPeR !Yardim15 Yazarak Yardim Alabilirsiniz4. "

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
}
}