PHP- Kodu:
; /grouplist tool
; by ch1zra
; ch1zra@gmail.com
; http://uptheirons.co.sr/
; #Scripters @ irc.krstarica.com
; Copyright © Up The Irons ! inc. Scripting Team
;
; <———————– $Comments ———————–>
; made for scripters, aka developers ;]
; just a handy tool for checking #group status
; and a option to enable/disable selected group.
; enjoy ;]
alias grouplist {
if ($dialog(grouplist)) {
dialog -ve grouplist grouplist
}
else dialog -mdro grouplist grouplist
}
dialog grouplist {
title \\"/grouplist manager v1.1 by ch1zra \\"
size -1 -1 150 85
option dbu
list 1, 5 5 70 75, size
text \\"Kapa yada aç \\", 2, 80 25 65 8
radio \\"Aç\\", 3, 80 35 20 10
radio \\"Kapa\\", 4, 102 35 20 10
text \\"Dosya ad? :\\", 5, 80 45 65 8
edit \\"\\", 6, 80 55 65 10, disable
text \\"Kontrol paneli :]\\", 7, 80 5 65 15
button \\"Tamam\\", 8, 80 70 30 10, flat
button \\"Kapat\\", 9, 115 70 30 10, flat ok
}
on *:dialog:grouplist:init:*: {
var %i 1
while (%i <= $group(0)) {
did -a $dname 1 $group(%i).name
inc %i
}
}
on *:dialog:grouplist:sclick:*: {
if ($did == 1) {
if ($did(1).seltext == $null) {
did -u $dname 3,4
}
else {
if ($group($did(1).seltext).status == on) { did -c $dname 3 | did -u $dname 4 }
else { did -c $dname 4 | did -u $dname 3 }
did -ra $dname 6 $nopath($group($did(1).seltext).fname)
did -ra $dname 2 Status for $group($did(1).seltext).name
}
}
if ($did == 3) {
.enable $did(1).seltext
}
if ($did == 4) {
.disable $did(1).seltext
}
if ($did == 8) {
dialog -i grouplist
if ($input(/grouplist tool $crlf $crlf by ch1zra $crlf $crlf ch1zra@gmail.com $&
$crlf http://uptheirons.co.sr/ $crlf #Scripters @ irc.krstarica.com $&
,oi,About /grouplist)) {
dialog -e grouplist
}
}
}
menu menubar,channel,status,query {
Grouplist:grouplist
}