11.08Clone uyarisi
Verdigim code Clone uyarisi ve ceza vermenizi saglar 3 clone girdiginde karsiniza @Clone isminde bir pencere acilir ve pencerede K-Ban Gline yazar bunlardan her hangi birini tikladiginizda tikladiginiz secenekdeki eylemi gerceklestirir guzel bir yani ise, k-ban’i tikladiginizda operator oldugunuz tüm kanallareda bu eylemi gerceklestirir.
on *:join:*: {
%clones = $ialchan($wildsite,#,0)
if ( %clones > 2 ) {
var %count = 1
set %clone.nicks –>
while (%count <= %clones) {
%clone.nicks = %clone.nicks $ial($wildsite,%count).nick
inc %count
}
c.yaz 4 Clone Tespiti2 %clones 2tane 4 Kanal:2 # 4 Nickler:3 $remove(%clone.nicks,–>) 4 Ceza:7 K-Ban14 Gline }
}
alias C.yaz { if !$window(@clone) { window @clone } | aline @clone $1- }
on ^*:HOTLINK:*GLine*:@clone: return
on ^*:HOTLINK:*K-Ban*:@clone: return
on *:HOTLINK:*:@clone: {
if ($1 == K-Ban) {
tokenize 32 $hotline
var %~ = $4
ban $7 $gettok($gettok($10-,1,67),1,32) 2
while %~ { kick $7 $gettok($gettok($10-,1,67),%~,32) Clone %~ | dec %~ }
}
if ($1 == Gline) {
tokenize 32 $hotline
gline $gettok($gettok($10-,1,67),1,32) 14Trojen/Inviter/Clone/Proxy. }
}
Yorum yap