Özel KabuL sisteMi
PHP Kodu:
alias pv {
dialog -m antipv antipv
}
dialog antipv {
title "Anti/pv By CaRtOs"
size -1 -1 87 86
option dbu
box "Anti Pv", 1, 3 1 82 70
text "[-Ozel Geldiyinde-]", 2, 8 9 110 8
check "Ozeli Kapat", 3, 8 17 50 10
check "Mesaj Gonder", 4, 8 26 67 10
text "[-Gonderilecek Mesaj-]", 5, 8 37 110 8
edit %antipvmsg, 6, 8 47 71 10, autohs
radio "Aktiflestir", 7, 8 59 30 10
radio "DésAktiflestir", 8, 44 59 33 10
button "[-OK-]", 9, 3 73 81 10, multi ok
}
on *:dialog:antipv:sclick:9:{ set %antipv $did(6) }
on *:dialog:antipv:*:*:{
if ($devent == sclick) && ($did(3).state == 1) { set %antipvclose on }
if ($devent == sclick) && ($did(3).state == 0) { set %antipvclose off }
if ($devent == sclick) && ($did(7).state == 1) { .enable #antipv }
if ($devent == sclick) && ($did(8).state == 1) { .disable #antipv }
if ($devent == sclick) && ($did(4).state == 1) { .set %antipvmess on }
if ($devent == sclick) && ($did(4).state == 0) { .set %antipvmess off }
if ($devent == init) && ($group(#antipv) == on) { did -c antipv 7 }
if ($devent == init) && ($group(#antipv) == off) { did -c antipv 8 }
if ($devent == init) && (%antipvmess == on) { did -c antipv 4 }
if ($devent == init) && (%antipv != $null) { did -ra antipv 6 %antipv }
if ($devent == init) && (%antipvclose == on) { did -c antipv 3 }
}
#antipv on
On 1:OPEN:?:{
if (%antipvclose == on) { close -m $nick }
if (%antipvmess == on) { msg $nick %antipv }
halt
}
#antipv end
|
08-09-2007, 16:54
Linear Mode
