User Control dialog
Platform: mIRC
Published Sep 27, 2007
Updated Jan 24, 2008
this is a user control dialog cpoy/paste in a new remote and right click in a the channel you want it to work on and click UserControl to open..
if you want it to use a scroll menu for the nicks instead of the dropdown menu just replace
with
dialog COper {
title "EzzyChat Control"
size -1 -1 120 92
option dbu
combo 1, 15 10 45 9, drop
button "Gag", 2, 4 23 22 10
button "UnGag", 3, 4 38 22 10
button "Kick", 4, 4 52 22 10
button "Ban", 5, 4 66 22 10
button "UnBan", 6, 4 80 22 10
box "EzzyChat «×X§Ç®îÞt0®§X×»", 7, 1 1 118 90
button "Kill", 8, 36 23 22 10
button "Akill", 9, 36 38 22 10
button "Gline", 10, 36 52 22 10
button "+/- h", 11, 36 66 22 10
button "+/- o", 12, 36 80 22 10
button "+/- v", 13, 67 23 22 10
button "AOP", 14, 67 38 22 10
button "DAOP", 15, 67 52 22 10
button "SOP", 16, 67 66 22 10
button "DSOP", 17, 67 80 22 10
button "R", 18, 4 10 10 11
edit "", 19, 63 10 30 9, read
button "Hop", 20, 95 10 22 10
button "DeHop", 21, 95 23 22 10
button "Vop", 22, 95 38 22 10
button "DeVop", 23, 95 52 22 10
button "NoNick", 24, 95 66 22 10
button "UnNick", 25, 95 80 22 10
}
menu channel {
.-=OperControl=- { set %chan9 $chan | COper }
}
alias COper {
dialog $iif($dialog(COper),-v,-md) COper COper
}
on *:load: {
echo 12 -a You Have Just Loaded Napa182's UserControl.
echo 12 -a A Script0rs Inc. Production
echo -a 14,1(14,1¯15,1¯0,1¯0,1º «×X§Ç®îÞt0®§X×» º0,1¯15,1¯14,1¯)™
}
on *:DIALOG:COper:init:0:{
did -a COper 19 %chan9
var %ah = $nick(%chan9,0), %oh = 1
while ( %oh <= %ah ) {
did -i COper 1 %oh $nick(%chan9,%oh)
inc %oh
}
}
on *:DIALOG:COper:sclick:*: {
if (($did == 2) && (!$did(1).seltext)) { return }
if (($did == 2) && ($did(1).seltext ison %chan9)) { mode %chan9 +b-aohv ~q: $+ $address($did(1).seltext,2) $str($did(1).seltext $chr(32),4) | msg %chan9 12,1 $did(1).seltext 0,1You have been 12,1Gagged 0,1Enjoy }
if (($did == 3) && ($did(1).seltext ison %chan9)) { mode %chan9 -b ~q: $+ $address($did(1).seltext,2) | msg %chan9 12,1 $did(1).seltext 0,1You Can Now 12,1Talk }
if (($did == 24) && (!$did(1).seltext)) { return }
if (($did == 24) && ($did(1).seltext ison %chan9)) { mode %chan9 +b-aohv ~n: $+ $address($did(1).seltext,2) $str($did(1).seltext $chr(32),4) | msg %chan9 12,1 $did(1).seltext 0,1You Can NOT 12,1Change Nick's 0,1Enjoy }
if (($did == 25) && ($did(1).seltext ison %chan9)) { mode %chan9 -b ~n: $+ $address($did(1).seltext,2) | msg %chan9 12,1 $did(1).seltext 0,1You Can Now 12,1Change Nick's }
if ($did == 4) { kick %chan9 $did(1).seltext «×X§Ç®îÞt0®§X×» }
if (($did == 5) && ($did(1).seltext ison %chan9)) { var %reassson $$?"Reason Here" | mode %chan9 +b-ov $address($did(1).seltext,4) $str($did(1).seltext $chr(32),2) | kick %chan9 $did(1).seltext %chan9 $did(1).seltext Is Banned Reason: %reassson «×X§Ç®îÞt0®§X×» }
if ($did == 6) { mode %chan9 -b $address($did(1).seltext,4) }
if ($did == 8) { kill $did(1).seltext cya }
if ($did == 9) { akill $address($did(1).seltext,4) No Access }
if ($did == 10) { gline $$?="Enter IP To Gline" No Access }
if ($did == 11) {
if ($did(1).seltext ishop %chan9) {
mode %chan9 -h $did(1).seltext
}
elseif ($did(1).seltext !ishop %chan9) {
mode %chan9 +h $did(1).seltext
}
}
if ($did == 12) {
if ($did(1).seltext isop %chan9) {
mode %chan9 -o $did(1).seltext
}
elseif ($did(1).seltext !isop %chan9) {
mode %chan9 +o $did(1).seltext
}
}
if ($did == 13) {
if ($did(1).seltext isvoice %chan9) {
mode %chan9 -v $did(1).seltext
}
elseif ($did(1).seltext !isvoice %chan9) {
mode %chan9 +v $did(1).seltext
}
}
if ($did == 14) { msg chanserv aop %chan9 add $did(1).seltext }
if ($did == 15) { msg chanserv aop %chan9 del $did(1).seltext }
if ($did == 16) { msg chanserv sop %chan9 add $did(1).seltext }
if ($did == 17) { msg chanserv sop %chan9 del $did(1).seltext }
if ($did == 20) { msg chanserv hop %chan9 add $did(1).seltext }
if ($did == 21) { msg chanserv hop %chan9 del $did(1).seltext }
if ($did == 22) { msg chanserv vop %chan9 add $did(1).seltext }
if ($did == 23) { msg chanserv vop %chan9 del $did(1).seltext }
if ($did == 18) {
did -r COper 1
var %ah = $nick(%chan9,0), %oh = 1
while ( %oh <= %ah ) {
did -i COper 1 %oh $nick(%chan9,%oh)
inc %oh
}
}
}
on *:join:%chan9:{
if ($dialog(Coper)) {
did -r COper 1
var %ah = $nick(%chan9,0), %oh = 1
while ( %oh <= %ah ) {
did -i COper 1 %oh $nick(%chan9,%oh)
inc %oh
}
}
}
on *:nick: {
if ($dialog(COper)) && ($newnick ison %chan9) {
did -r COper 1
var %ah = $nick(%chan9,0), %oh = 1
while ( %oh <= %ah ) {
did -i COper 1 %oh $nick(%chan9,%oh)
inc %oh
}
}
}
on *:part:%chan9:{
if ($dialog(COper)) {
.timer 1 1 eek
}
}
alias eek {
did -r COper 1
var %ah = $nick(%chan9,0), %oh = 1
while ( %oh <= %ah ) {
did -i COper 1 %oh $nick(%chan9,%oh)
inc %oh
}
}
on *:quit:{
if ($dialog(COper)) {
.timer 1 1 eed
}
}
alias eed {
did -r COper 1
var %ah = $nick(%chan9,0), %oh = 1
while ( %oh <= %ah ) {
did -i COper 1 %oh $nick(%chan9,%oh)
inc %oh
}
}
on *:kick:%chan9:{
if ($dialog(COper)) {
.timer 1 1 eel
}
}
alias eel {
did -r COper 1
var %ah = $nick(%chan9,0), %oh = 1
while ( %oh <= %ah ) {
did -i COper 1 %oh $nick(%chan9,%oh)
inc %oh
}
}
on *:DIALOG:COper:Close:*:{ unset %chan9 }