IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - !sop !op !halfop !voice !sil opekle.tcl (https://www.ircforumlari.net/tcl-scriptler/46581-sop-op-halfop-voice-sil-opekletcl.html)

!sop !op !halfop !voice !sil opekle.tcl

canım sıkılıyordu şöyle bir tcl yapayim dedim umarim işinize yarar.

!sop nick
!op nick
!halfop nick
!voice nick
!sil nick

Kod:

# ircservices'lere gore duzenlenmiştir..
 # 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size="2"># opekle.tcl 
 # Düzenleyen : GhostLy 
 ##### Kullanimi ###
 # !sop nick 
 # !op nick 
 # !halfop nick 
 # !voice nick 
 # !sil nick 

 
 #### admin kanalı..###
 set ops_chan "#ops"
 bind pub - !sop sopekle
 bind pub - !op opekle
 bind pub - !halfop halfopekle
 bind pub - !voice voiceekle
 bind pub - !sil silme
 proc sopekle {nick uhost handle chan hings } {
 global ops_chan

if {$nick != "GhostLy"} {return 0} 
 if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
 putserv "cs access #sohbet add $hings 100"
 putserv "cs protect #sohbet $hings"
 putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #Sohbet Kanalına 100 Seviyesinden eklendiniz."
 putserv "PRIVMSG $chan :$hings 'nickine 100 Seviyesinden Access Eklenmistir. iyi çalişmalar"
 return 1
 }
 return 1
 }
 proc opekle {nick uhost handle chan hings } {
 global ops_chan

if {$nick != "GhostLy"} {return 0} 
 if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
 putserv "cs access #sohbet add $hings 50"
 putserv "cs op #sohbet $hings"
 putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #Sohbet Kanalına 50 Seviyesinden eklendiniz."
 putserv "PRIVMSG $chan :$hings 'nickine 50 Seviyesinden Access Eklenmistir. iyi çalişmalar"
 return 1
 }
 return 1
 }
 proc halfopekle {nick uhost handle chan hings } {
 global ops_chan

if {$nick != "GhostLy"} {return 0} 
 if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
 putserv "cs access #sohbet add $hings 45"
 putserv "cs halfop #sohbet $hings"
 putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #Sohbet Kanalına 45 Seviyesinden eklendiniz."
 putserv "PRIVMSG $chan :$hings 'nickine 45 Seviyesinden Access Eklenmistir. iyi çalişmalar"
 return 1
 }
 return 1
 }
 proc voiceekle {nick uhost handle chan hings } {
 global ops_chan

if {$nick != "GhostLy"} {return 0} 
 if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
 putserv "cs access #sohbet add $hings 30"
 putserv "cs voice #sohbet $hings"
 putserv "PRIVMSG $hings :Merhaba $hings , Gun boyu Konuşmanizi Dilerim :) $nick Tarafindan #Sohbet Kanalına 30 Seviyesinden eklendiniz."
 putserv "PRIVMSG $chan :$hings 'nickine 30 Seviyesinden Access Eklenmistir. iyi çalişmalar"
 return 1
 }
 return 1
 }
 proc silme {nick uhost handle chan hings } {
 global ops_chan

if {$nick != "GhostLy"} {return 0} 
 if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
 putserv "cs access #sohbet del $hings"
 putserv "cs deprotect #sohbet $hings"
 putserv "cs deop #sohbet $hings"
 putserv "cs dehalfop #sohbet $hings"
 putserv "PRIVMSG $hings :Merhaba $hings , Vermiş olduğunuz Emeklerden Dolayı teşekkür ederiz. $nick Tarafindan #Sohbet Kanalından Silindiniz."
 putserv "PRIVMSG $chan :$hings 'nicki'in access'i Silinmistir iyi çalişmalar"
 return 1
 }
 return 1
 }
 putlog "opekle.tcl by GhostLy"

Buraki Yazan GhostLy nickini Kendinize gore duzenleyiniz.

Kod:

if {$nick != "GhostLy"} {return 0}

Bazi yerlerde CiKo arkadaşimiz yardimci olmustur Teşşekürlerimi Sunuyorum :)

Cevap: !sop !op !halfop !voice !sil opekle.tcl

eline saglık

ekbilgi
anope fantasy komutları acık server-kanallar icin editlemeden kullanmayınız

Cevap: !sop !op !halfop !voice !sil opekle.tcl

Anope Serviceslerine Gore Duzenlenmiştir. iyi çalişmalar.

Kod:

# Anope Serviceslere Gore Düzenlenmiştir.
 # 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
size="2"># opekle.tcl 
 # Düzenleyen : GhostLy 
 ##### Kullanimi ###
 # !sop nick 
 # !op nick 
 # !halfop nick 
 # !voice nick 
 # !sil nick 

 
 #### admin kanalı..###
 set ops_chan "#ops"
 bind pub - !sop sopekle
 bind pub - !op opekle
 bind pub - !halfop halfopekle
 bind pub - !voice voiceekle
 bind pub - !sil silme
 proc sopekle {nick uhost handle chan hings } {
 global ops_chan

if {$nick != "GhostLy"} {return 0} 
 if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
 putserv "cs sop #sohbet add $hings"
 putserv "cs protect #sohbet $hings"
 putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #Sohbet Kanalına SOP Seviyesinden eklendiniz."
 putserv "PRIVMSG $chan :$hings 'nickine SOP Seviyesi Eklenmistir. iyi çalişmalar"
 return 1
 }
 return 1
 }
 proc opekle {nick uhost handle chan hings } {
 global ops_chan

if {$nick != "GhostLy"} {return 0} 
 if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
 putserv "cs aop #sohbet add $hings"
 putserv "cs op #sohbet $hings"
 putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #Sohbet Kanalına AOP Seviyesinden eklendiniz."
 putserv "PRIVMSG $chan :$hings 'nickine AOP Seviyesi Eklenmistir. iyi çalişmalar"
 return 1
 }
 return 1
 }
 proc halfopekle {nick uhost handle chan hings } {
 global ops_chan

if {$nick != "GhostLy"} {return 0} 
 if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
 putserv "cs hop #sohbet add $hings"
 putserv "cs halfop #sohbet $hings"
 putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #Sohbet Kanalına HALFOP Seviyesinden eklendiniz."
 putserv "PRIVMSG $chan :$hings 'nickine HALFOP Seviyesi Eklenmistir. iyi çalişmalar"
 return 1
 }
 return 1
 }
 proc voiceekle {nick uhost handle chan hings } {
 global ops_chan

if {$nick != "GhostLy"} {return 0} 
 if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
 putserv "cs vop #sohbet add $hings 30"
 putserv "cs voice #sohbet $hings"
 putserv "PRIVMSG $hings :Merhaba $hings , Gun boyu Konuşmanizi Dilerim :) $nick Tarafindan #Sohbet Kanalına VOP Seviyesinden eklendiniz."
 putserv "PRIVMSG $chan :$hings 'nickine VOP Seyisinden Access Eklenmistir. iyi çalişmalar"
 return 1
 }
 return 1
 }
 proc silme {nick uhost handle chan hings } {
 global ops_chan

if {$nick != "GhostLy"} {return 0} 
 if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
 putserv "cs sop #sohbet del $hings"
 putserv "cs aop #sohbet del $hings"
 putserv "cs hop #sohbet del $hings"
 putserv "cs vop #sohbet del $hings"
 putserv "cs deprotect #sohbet $hings"
 putserv "cs deop #sohbet $hings"
 putserv "cs dehalfop #sohbet $hings"
 putserv "PRIVMSG $hings :Merhaba $hings , Vermiş olduğunuz Emeklerden Dolayı teşekkür ederiz. $nick Tarafindan #Sohbet Kanalından Silindiniz."
 putserv "PRIVMSG $chan :$hings 'nicki'in access'i Silinmistir iyi çalişmalar"
 return 1
 }
 return 1
 }
 putlog "opekle.tcl by GhostLy"

bu yazan yeri kendinize gore duzenleyiniz. bot sadece sizi tanımıs oLacaktir. tşk BuCaLı :)

Kod:

if {$nick != "GhostLy"} {return 0}

Cevap: !sop !op !halfop !voice !sil opekle.tcl

klavyene saglık kardeşim güzel bi iş çıkarmışsın.. lazım olacagından eminim pek çok arkadaşa..

Yanıt: !sop !op !halfop !voice !sil opekle.tcl

Kullanıcak arkadaşlar için kolaylık olmuş, ekledikleri gibi kolay bi şekilde silebilecekler. Ellerine sağlık güzel düşünmüşsün.

İyi çalışmalar ;)

Cevap: !sop !op !halfop !voice !sil opekle.tcl

Ellerine Sağlık Kardeşim

Cevap: !sop !op !halfop !voice !sil opekle.tcl

Helal Bu Yollar Sana

Cevap: !sop !op !halfop !voice !sil opekle.tcl

Şuan Çok iyi çalişiyor ;)

Cevap: !sop !op !halfop !voice !sil opekle.tcl

ghostly ben onu kastetmemıstım

fantasy komutlarında
!op nick

bs tarafından kısıye +o modesını verir kanalda
ama bu sekılde kullanılır ise eggdrop ta aop ekleyecektir
!opekle
seklınde hazırlanır ise daha kullanıslı olur