IRCForumu.Net | Türkiye'nin IRCd ve mIRC Forumu   Reklam Alanı


  IRCForumu.Net | Türkiye'nin IRCd ve mIRC Forumu IF - Unreal, Services ve Eggdroplar Eggdrop ve BNC TCL Scriptler

Bizim mekan Reklam alanı

Yeni Konu   Cevap Yaz

 
LinkBack Seçenekler Arama Stil
Alt 29 Haziran 2016, 17:41   #1
Gelme, burası çok derin.
 
Üyelik tarihi: 07 Mayıs 2016
Bulunduğu yer: Ankara
Mesajlar: 581
WEB Sitesi: www.Sohbetsin.Com
IRC Sunucusu: irc.FixSohbet.Net
İlgi Alanı: Domain
Kan Grubu: A RH (+)
Alınan Beğeni: 86
Post 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 [email protected] 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
 }
}





 immortaL isimli Üye şimdilik offline konumundadır   Alıntı

Yeni Konu   Cevap Yaz

Etiketler
helper, tcl

Seçenekler Arama
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık



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


Powered by vBulletin® Version 3.8.9 Beta 1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.6.0
IRCForumu - Sohbet - Bizim mekan
Copyright ©2005 - 2016 IRCForumu.Net | Tüm Hakları Saklıdır.