IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum (https://www.ircforumu.net/)
-   TCL Scriptler (https://www.ircforumu.net/tcl-scriptler/)
-   -   Helper TCL (https://www.ircforumu.net/tcl-scriptler/2621-helper-tcl.html)

immortaL 29 Haziran 2016 17:41

Helper TCL
 
Kod:

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 : 14Merhaba12 $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!menu14 yaziniz."
  putserv "PRIVMSG $nick : 14Helper alimlari hakkında bilgi edinmek için 12!helper14 yazınız."
  putserv "PRIVMSG $nick : "
  putserv "PRIVMSG $nick : 14Benim hakkımda bilgi almak için 12!version14 yazınız."
  putserv "PRIVMSG $nick : 14Seçmiş oldugunuz 12!yardim14 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 : 12ChanServ14 ile ilgili yardımım yeterli gelmezse sorularınızı kanal @ larına sorunuz .."
 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 @ larına sorunuz .."
 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 @ 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"
}

#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
#                                        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 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!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 yazınız."
  putserv "PRIVMSG $nick : 14Lütfen seçiminizi yapınız."
  putserv "PRIVMSG $nick : 14Seçmiş oldugunuz 12!anamunu14 tamamlanmıştır.."
}

#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
#                                        Bilgi Başlangıç                                                        #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#

bind msg - !helper bil
proc bil {nick uhost hand stuff} {
 global colornum botnick
 putserv "PRIVMSG $nick : 12Irc.Server.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!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: 10.07.2015"
 putserv "PRIVMSG $nick : 12Version Türü      14: mhhlp-v.2.0"
 putserv "PRIVMSG $nick : 12Yapımcı            14: Che"
 putserv "PRIVMSG $nick : 12Download          14: www.Sohbettur.com"
}
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#
#                                        Giriş Başlangıç                                                                #
#+-+-+-+-+-+-+-+-+-+--+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+#

bind join - * helpchannel

proc helpchannel {nick uhost hand chan} {
 global colornum botnick
 if {$nick == $botnick} {return 0}

 putserv "NOTICE $nick : 4#HELP12 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 MisisHelp !yardim12 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
 }
}



Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 13:51.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
Copyright ©2005 - 2023 IRCForumu.Net - Tüm Hakları Saklıdır.