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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

GhostLy

06 Ocak 2008 22:55

!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 :)

ysfm	06 Ocak 2008 23:08

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

eline saglık

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

GhostLy

06 Ocak 2008 23:31

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}

CONSTANTiN

06 Ocak 2008 23:50

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

LiKaBLe_

07 Ocak 2008 00:07

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 ;)

PauL	07 Ocak 2008 00:12

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

Ellerine Sağlık Kardeşim

PatrOnas

07 Ocak 2008 00:44

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

Helal Bu Yollar Sana

GhostLy

07 Ocak 2008 20:59

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

Şuan Çok iyi çalişiyor ;)

PauL	07 Ocak 2008 21:40

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

Gayet guzeL :)

ysfm	09 Ocak 2008 22:53

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

GhostLy

16 Ocak 2008 10:21

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

Alıntı:

ApSiS Nickli Üyeden Alıntı (Mesaj 320442)

zaten soyle cod'lar konulmus. Bu Komutu sadece Kanal founder'i kullana bilsin ve ops kanalında kullanila bilsin.

1 : set ops_chan "#ops"
2 : if {$nick != "GhostLy"} {return 0}
3 : if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {

ve dediğiniz şekilde duzenleme yapmak isteyenler bu satirlari. su şekilde değişebilirler.
bind pub - !eklesop sopekle
bind pub - !ekleop opekle
bind pub - !eklehalfop halfopekle
bind pub - !eklevoice voiceekle
bind pub - !sil silme

gibi

adiGes

04 Şubat 2008 19:51

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

# Anope Serviceslere Gore Düzenlenmiştir.
# [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# opekle.tcl
# Düzenleyen : GhostLy
##### Kullanimi ###
# !sop nick
# !aop nick
# !hop nick
# !vop nick
# !sil nick

#### admin kanalı..###
set ops_chan "#Opers"
bind pub - !sop sopekle
bind pub - !aop opekle
bind pub - !hop halfopekle
bind pub - !vop voiceekle
bind pub - !sil silme
proc sopekle {nick uhost handle chan hings } {
global ops_chan
if {$nick != "adiGes"} {return 0}
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs sop #Kafkasya add $hings"
putserv "cs protect #Kafkasya $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #Kafkasya 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 != "adiGes"} {return 0}
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs aop #Kafkasya add $hings"
putserv "cs op #Kafkasya $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #Kafkasya 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 != "adiGes"} {return 0}
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs hop #Kafkasya add $hings"
putserv "cs halfop #Kafkasya $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #Kafkasya 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 != "adiGes"} {return 0}
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs vop #Kafkasya add $hings 30"
putserv "cs voice #Kafkasya $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Gun boyu Konuşmanizi Dilerim :) $nick Tarafindan #Kafkasya 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 != "adiGes"} {return 0}
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs sop #Kafkasya del $hings"
putserv "cs aop #Kafkasya del $hings"
putserv "cs hop #Kafkasya del $hings"
putserv "cs vop #Kafkasya del $hings"
putserv "cs deprotect #Kafkasya $hings"
putserv "cs deop #Kafkasya $hings"
putserv "cs dehalfop #Kafkasya $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Vermiş olduğunuz Emeklerden Dolayı teşekkür ederiz. $nick Tarafindan #Kafkasya Kanalından Silindiniz."
putserv "PRIVMSG $chan :$hings 'nicki'in access'i Silinmistir iyi çalişmalar"
return 1
}
return 1
}
putlog "opekle.tcl by GhostLy"

[19:14] <04adiGes> !vop Ghuajhable
[19:14] <05Kafkasya> Ghuajhable 'nickine VOP Seyisinden Access Eklenmistir. iyi çalişmalar

Diyor ama Eklemiyor Chanserv'da . Neden olabilirki ?

GhostLy

04 Şubat 2008 20:55

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

Botunuz Kanal'da En az & olmasi lazım..

GeCeLer_PRenSi

10 Şubat 2009 08:50

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

güzeL pasyLasım SaqoLasın

Hayat

10 Şubat 2009 21:26

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

Merhaba ScanX2 ye yükledim tcl yi fakat bir sorunum var. komutları bs kullandığım için değiştirdim. Access ekleme kanalını #opers yaptım kendin nickimide tanıttım botum da tüm kanallarda sop bende founderim !sil diyince siliyor ama ekleme yapamıyorum hiç bir şekilde. Acaba komut farklılığımı var bende /cs aop #kanal add nick şeklinde ekleme yapıyorum normalde.

GhostLy

10 Şubat 2009 21:37

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

çalişiyor hiçbir problem yok :s

Hayat

10 Şubat 2009 23:24

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

çalışmıyor..

Siber55

11 Şubat 2009 12:37

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

Alıntı:

Hayat Nickli Üyeden Alıntı (Mesaj 637293)

Tam olarak TCL yazılım üzerinde nasıl bir değişiklik yaptığınızı belirtir misiniz?

Hayat

11 Şubat 2009 21:28

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

# Anope Serviceslere Gore Düzenlenmiştir.
# [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
# opekle.tcl
# Düzenleyen : GhostLy
##### Kullanimi ###
# !sop nick
# !op nick
# !halfop nick
# !voice nick
# !sil nick

#### admin kanalı..###
set ops_chan "#Opers"
bind pub - !eklesop sopekle
bind pub - !ekleop opekle
bind pub - !eklehalfop halfopekle
bind pub - !eklevoice voiceekle
bind pub - !sil silme
proc sopekle {nick uhost handle chan hings } {
global ops_chan
if {$nick != "Hayat"} {return 0}
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs sop #diyalog add $hings"
putserv "cs protect #diyalog $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #diyalog 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 != "Hayat"} {return 0}
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs aop #diyalog add $hings"
putserv "cs op #diyalog $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #diyalog 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 != "Hayat"} {return 0}
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs hop #diyalog add $hings"
putserv "cs halfop #diyalog $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Gorevinizde Başarilar Dilerim $nick Tarafindan #diyalog 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 != "Hayat"} {return 0}
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs vop #diyalog add $hings 30"
putserv "cs voice #diyalog $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Gun boyu Konuşmanizi Dilerim :) $nick Tarafindan #diyalog 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 != "Hayat"} {return 0}
if {[isop $nick $chan] || [onchan $nick $ops_chan]==0} {
putserv "cs sop #diyalog del $hings"
putserv "cs aop #diyalog del $hings"
putserv "cs hop #diyalog del $hings"
putserv "cs vop #diyalog del $hings"
putserv "cs deprotect #diyalog $hings"
putserv "cs deop #diyalog $hings"
putserv "cs dehalfop #diyalog $hings"
putserv "PRIVMSG $hings :Merhaba $hings , Vermiş olduğunuz Emeklerden Dolayı teşekkür ederiz. $nick Tarafindan #diyalog Kanalından Silindiniz."
putserv "PRIVMSG $chan :$hings 'nicki'in access'i Silinmistir iyi çalişmalar"
return 1
}
return 1
}
putlog "opekle.tcl by GhostLy"

[21:14] -ChanServ- #Diyalog kanali SOP listesi:
-
[21:14] -ChanServ- Num Nick
-
[21:14] -ChanServ- 9 Security
-

[21:15] -ChanServ- #opers kanali SOP listesi:
-
[21:15] -ChanServ- Num Nick
-
[21:15] -ChanServ- 3 Security
-

Komut verme yetkisi Hayat nickine ait yetki verilecek kanal #diyalog yetkinin yazılabileceği kanal #opers. Buyurun kodlarda üstte bir önceki konuda bahsettiğim gibi sorun devam etmekte.

GemLik

11 Şubat 2009 21:52

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

botunuzun acc ekleme yetkisi olacak sanırım ve tcl editlerken satır kaydırıp kaydırmadığınıza dikkat edin yoksa tcl de bir sorun yok gibi gözüküyor

GhostLy

11 Şubat 2009 22:13

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

Kod:

bind pub - !opekle opsekle

set ops_c "#ops"

 

proc opsekle {n uh h c t } {

   global ops_c

if {$n != "Hayat"} {return 0} 

if {[isop $n $] || [onchan $n $ops_c]==0} { 

     putquick "cs aop #sohbet add $t"

     putquick "cs op #sohbet $t"

  } 

}

Bu şekilde deneyiniz.

rX	19 Şubat 2009 19:36

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

Güzel Bir Tcl. Başarılarının Devamını Dilerim ...

Adanalee

02 Mayıs 2009 19:13

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

kanaldaki tüm banları nasıl sildiri örnek !silban yazınca kanaldaki banları açık

GhostLy

04 Mayıs 2009 00:38

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

Elimde BucaLı in yapmış olduğu guzel bir tcl kod'u banları temizlemek için işini görür :)

Kod:



bind pub - !bantemizle bantemizle

proc bantemizle { n u h c a } {

foreach ban [chanbans $c] {

append bans "[lindex $ban 0] "

}

putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 0 11]"

putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 12 23]"

putquick "MODE $c -bbbbbbbbbbbb [lrange $bans 24 end]"

putquick "privmsg $c $c Kanalındaki Tüm Banlar Temizlendi."

}

erd200

13 Mayıs 2009 04:09

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

Arkadaşlar bu tcl ile ilgili bir sorum olacak.

!at #kanalismi nick

#op kanalında oparatör olan bir görevlimiz bu komutu vererek Botumuza ilgili nicki attırabilirmiyiz.

!at #kanalismi nick bu komutu verince botumuz ilgili kişiyi kanaldan atacak. Ama komut sadece op kanalında çalışması lazım. Botumuz hem op kanalında hemde atılacak kişinin kanalında bulunuyor zaten.

erd200

13 Mayıs 2009 04:23

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

Teşekkürler arkadaşlar ilgili sorumu aşağıdaki linkten buldum.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Nurullahoruc

17 Mayıs 2009 19:00

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

ßu ircservices de oluyor mu !op dicen aop yetkisi olan qisi op yetikisi olmayan qisiye op veriyormu onerk !op Nick aop yazmak deqil yani ..

GemLik

17 Mayıs 2009 19:05

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

bu tcl op vermeye değil access eklemeye yarayan bir tcldir yani sadece Nurallah Nicki belirtilen kanalda !sop nick yazınca sop ekliyor !op nick yazınca op ekliyor gibi kanalları ve komudu kullanıcak nicki tcl de belirtiyorsunuz.

Nurullahoruc

18 Mayıs 2009 14:34

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

anlasıldıda usta bana !op diyince @ verecek bir tcl lazım !sop diyince !sop verecek yani accessi baska komutla uygulamak istiyorum ona benzer br tcl var dimi

toXic

18 Mayıs 2009 15:22

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

Kod:

################################################################################

# opal.tcl 1.0 - 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bu tcl nin amaci helperlarin ihticayi olduklari kanalda op almalarini sagla #

# maktir. Mynet myops botu ornek alinarak yapilmistir. Bot bulundugu kanaldan #

# verilen "opver #kanal" komutuna karsilik komutu veren kullaniciyi kanalda op #

# yapar. Dikkat edilmesi gereken kotu, botu normal kullanicilarin erisemiyecek #

# leri bir kanalda bulundurmaktir.! #

######################################################################Stonkeep##

 

# Botun giriste ircop olmasi icin gerekli ircop nicki
 set inick "X"
 # Buda gerekli olan sifre
 set ipass "11111"

 

 

 

 

 

 
 # Ayarlar Bu kadar.! DOKUNMAYIN!!!

#gerekli bindler
 bind pub - opver opver

bind evnt - init-server baglan_yap

proc baglan_yap {type} {

global inick ipass

putserv "OPER $inick $ipass"
 putserv "WALLOPS :Basari ile Login Oldum :)"
 putserv "sajoin #OpS"
 putserv "samode #Ops +o botnick"
 putserv "umode +c"
 }
 proc opver {n u h c a} {

global gnick

set gnick $n

set kanal [lindex $a 0]
 putserv "FJOIN $kanal $n"
 putserv "samode $kanal +o $n"
 
 }

Böyle birşey vardı Bunu kullanın

kaptan6

26 Mart 2010 00:28

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

bunu nasıl kullanabiliriz yardımcı olurmusunuz.

BerKay06

31 Mart 2010 05:56

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

arkadaşlar bunu nasıl telnete kuruyoruz.bilen arkadaşlar anlatabilirmi rica etsem.İlginize şimdiden teşekkürler.

dEathLeSs

30 Aralık 2010 12:14

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

Güzel bir çalışma olmuş

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