Menu channel,Menubar {
-
Mas Komandat:/set %tchan # | /set %rchan $chan | /dialog -m script script
}
dialog script {
title "Mas Komandat By LIHI"
size 200 150 300 180
button "&Mshile",1,230 100 50 25, ok
button "&Topiku",11,230 30 50 20
button "&MassOp",2,20 60 80 25
button "&MassVoice",3,20 85 80 25
button "&MassKick",4,20 110 80 25
button "&MassDeop",5,120 60 80 25
button "&MassDevoice",6,120 85 80 25
button "&Version",8,230 75 50 25
button "&MassKickBan",7,120 110 80 25
text "Ndrohe Topikun :",9,75 10 150 20
edit "",10,20 30 180 20,autohs
text "Site :",13,60 150 30 20
link "
www.lihi.tk",12,90 150 150 20
}
alias mass komandat { .timer01 1 0 msg %tchan 4Mass Komandat 7]- created by -[ 4LIHI 1]- }
on *:dialog:script:init:0: { did -a script 10 %topic }
on *:dialog:script:sclick:11:{ set %topic $did(10) | topic %tchan %topic | unset %topic }
on *:dialog:script:sclick:8:/version
on *:dialog:script:sclick:2:/massop
on *:dialog:script:sclick:5:/massdeop
on *:dialog:script:sclick:3:/massvoice
on *:dialog:script:sclick:4:/masskick
on *:dialog:script:sclick:6:/massdevoice
on *:dialog:script:sclick:7:/masskb
on *:dialog:script:sclick:12:/run
www.lihi.tk alias massop {
set %mass.op 0
:loop
mode %rchan +ooo $nopnick(%rchan,$calc(1 + %mass.op)) $nopnick(%rchan,$calc(%mass.op + 2)) $nopnick(%rchan,$calc(%mass.op + 3))
inc %mass.op 3
if ($calc($nopnick(%rchan,0) + 3) < %mass.op) { unset %mass.op | halt }
goto loop
}
alias massdeop {
set %mass.deop 0
:loop
:meloop
if ($opnick(%rchan,$calc(%mass.deop + 1)) == $me) { inc %mass.deop | goto meloop }
if ($opnick(%rchan,$calc(%mass.deop + 2)) == $me) { inc %mass.deop | goto meloop }
if ($opnick(%rchan,$calc(%mass.deop + 3)) == $me) { inc %mass.deop | goto meloop }
mode %rchan -ooo $opnick(%rchan,$calc(1 + %mass.deop)) $opnick(%rchan,$calc(%mass.deop + 2)) $opnick(%rchan,$calc(%mass.deop + 3))
inc %mass.deop 3
if ($calc($opnick(%rchan,0) + 3) < %mass.deop) { unset %mass.deop | halt }
goto loop
}
alias massvoice {
set %mass.voice 0
:loop
mode %rchan +vvv $nick(%rchan,$calc(1 + %mass.voice)) $nick(%rchan,$calc(%mass.voice + 2)) $nick(%rchan,$calc(%mass.voice + 3))
inc %mass.voice 3
if ($calc($nick(%rchan,0) + 3) < %mass.voice) { unset %mass.voice | halt }
goto loop
}
alias massdevoice {
set %mass.devoice 0
:loop
mode %rchan -vvv $vnick(%rchan,$calc(1 + %mass.devoice)) $vnick(%rchan,$calc(%mass.devoice + 2)) $vnick(%rchan,$calc(%mass.devoice + 3))
inc %mass.devoice 3
if ($calc($vnick(%rchan,0) + 3) < %mass.devoice) { unset %mass.devoice | halt }
goto loop
}
alias masskick {
unset %mass.kick
:loop
inc %mass.kick 1
if ($nick(%rchan,0) < %mass.kick) {
unset %mass.kick
halt
}
if ($nick(%rchan,%mass.kick) != $me) { kick %rchan $nick(%rchan,%mass.kick) }
goto loop
}
alias masskb {
unset %mass.kb
:loop
inc %mass.kb 1
if ($nick(%rchan,0) < %mass.kb) {
unset %mass.kb
halt
}
if ($nick(%rchan,%mass.kb) != $me) { mode %rchan +b-o $nick(%rchan,%mass.kb) | kick %rchan $nick(%rchan,%mass.kb) }
goto loop
}