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

sabahın bu erken saatleri itibariyle herhalde bir 5 dakikada yazdığım ,
ve tekrar tekrar belirttiğim gibi "oper" yetki isteyen hiçbir kodu deneme kullanma ihtimal/olasılığım olmadığından "deneyenler" buraya işe yarayıp yaramadığını,varsa hatalarını iletmeliler,,

ki bizde "gereğine" bakarız... bi ara!...

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

[ şurdaki ->> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] konuya hitafen yapılmış/denenmiştir..{birde tabi uykusuzluk+can sıkıntısından} ]

Kod:

# #gold kanalında +v olan kullanıcılar

# tüm global kanallarda otomatik olarak +h modunu alsın 

# ve hostları Gold.domain.com

# flaglarına da +W flagı eklensin istiyorum.

# 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kanalınızın adı:

set gold(knl) "#gold"
 

;# özel kanalınızda kullanıcı hangi flaga sahip olduğunda işlem olacak:

set gold(knlmod) "+v"
 

;# işlem yapılacak global kanallarınız:

set gold(globknl) "#globA #globB #globC"
 

;# kullanıcının alacağı nick mode:

set gold(modes) "+W"
 

;# kullanıcıya verilmesi istenen vhost:

set gold(host) "Gold.domain.com"
 

;# kullanıcın global kanallarda alacağı falg:

set gold(globknlmod) "+h"
 

;# botunuz oper yetkide olmalı (1 = evet | 0 = hayır)

set gold(botoper) "1"
 

;#############ayarlar bitti############################################################
 

bind mode - * gold:knl:mod
 

proc gold:knl:mod {nick uhost hand chan mc {victim ""}} {

   if {$victim != ""} {append mc " $victim"}

   elseif {[string match -nocase $::botnick $victim] || [$::botnick $::gold(botoper) != "1"]} { return 0;}

   elseif {[onchan $victim $::gold(knl)] || [string equal $::gold(knlmod) $mc] || [onchan $victim $::gold(globknl)] && [isvoice $victim $::gold(knl)]} {

     foreach knl [split $::gold(globknl)] {

   putserv "chghost $victim $::gold(host)"

   putserv "svsmode $victim $::gold(modes)"

   puthelp "privmsg operserv :mode $knl $::gold(globknlmod) $victim"

     return 0

     }

  }

}  

   

 putlog "ok..."