| Difuzyon | 20 Kasım 2008 13:54 |
Cevap: Koda ek Yapabilir miyiz
Kod:
on *:NICK:{
if ($level($newnick) == openrguest) {
if (%rgShun == on) { shun $newnick +1d %rglogo }
if (%rgkill == on) { kill $newnick %rglogo }
if (%rgakill == on) { os killclones $newnick }
if (%rgK-Line == on) { kline $newnick +1d %rglogo }
var %Cnk = 1
while $comchan($newnick,%Cnk) {
var %e = $v1
if $me isop %e {
if (%rgkick == on) { kick %e $newnick %rglogo }
if (%rgban == on) { ban %e $newnick 2 }
if (%rgSamode == on) { samode %e +b $newnick }
}
inc %Cnk
}
}
}
on @openrguest:join:#:{
if (%rgkick == on) { kick # $nick %rglogo }
if (%rgban == on) { ban # $nick 2 }
if (%rgShun == on) { shun $nick +1d %rglogo }
if (%rgSamode == on) { samode # +b $nick }
if (%rgakill == on) { os killclones $nick }
if (%rgkill == on) { kill $nick %rglogo }
if (%rgK-Line == on) { kline $nick +1d %rglogo }
}
dialog rguest {
title "...."
size -1 -1 151 82
option dbu
box "Nick, idnt(*!xcx@*) Gir", 1, 86 2 64 79
combo 2, 89 10 57 53, size
button "Ekle", 3, 89 69 25 9
button "Sil", 4, 122 69 25 9
box "", 6, 88 65 28 15
check " K-Line ", 8, 56 37 27 10
check " KiLL", 9, 56 27 21 10
edit "", 10, 9936 30 23 12, disable
text "Saniye", 11, 562 32 21 8, disable
box "Ayir", 12, 3 2 82 18
box "Küfür Ceza", 112, 2 20 83 40
check "@plar", 13, 5 8 34 10
check "+v", 14, 47 8 30 10
check " AKiLL", 7, 56 47 27 10
check " Kick", 15, 5 37 21 10
check " Ban", 16, 5 27 21 10
check " Shun", 17, 29 36 26 10
check "Samode +b", 18, 5 47 40 10
box "", 5, 121 65 28 15
icon 19, 3 65 80 14, usr\avatar\WeiL.jpg, 0
box "", 20, 2 59 83 22
}
alias rguest { .dialog -m rguest rguest }
on *:dialog:rguest:init:*:{
if %rg@plar == on { did -c $dname 13 }
if %rg+v == on { did -c $dname 14 }
if %rgK-Line == on { did -c $dname 8 }
if %rgkill == on { did -c $dname 9 }
if %rgakill == on { did -c $dname 7 }
if %rgShun == on { did -c $dname 17 }
if %rgban == on { did -c $dname 16 }
if %rgKick == on { did -c $dname 15 }
if %rgSamode == on { did -c $dname 18 }
did -a $dname 10 %banvaxt
if ($ulist(*,openrguest,0) != $null) { var %i = 1 | while $ulist(*,openrguest,%i) { did -a $dname 2 $v1 | inc %i } }
}
on *:dialog:rguest:sclick:*:{
if $istok(7 8 9 13 14 15 16 17 18,$did,32) { $iif($did($did).state == 1,set %rg $+ $gettok($did($did).text,1,32) on,.set %rg $+ $gettok($did($did).text,1,32) off) }
if ($did == 3) { if ($did(2) != $null) { did -a $dname 2 $did(2) | .auser openrguest $did(2) } }
if ($did == 4) { if $did(2).seltext { .ruser openrguest $did(2).seltext | did -d $dname 2 $did(2).sel } }
}
on *:dialog:rguest:edit:*:{
%banvaxt = $did(10)
}
Nick değişimlerinde bu şekilde dizayn oldu.Hangisini açık(on) görürse ona göre işlem yapacaktır.Kolay gelsin... |
