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: Kodu kopyalamak için üzerine çift tıklayın!
# #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..."