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

Code

 

with

Code

 
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 }

Comments

Sign in to comment.
napa182   -  Dec 07, 2008
Yeah when they changed hawkee.com it turned the chr's it used to use into (?????0??X?) for some reason. it used to be (X§Ç®îÞt0®§X)

lol i forgot all about this code. I may update it soon.
 Respond  
bybib   -  Dec 06, 2008
Love it. the server I use requres a change in the vop/sop/hop/aop commands and I might remove the (?????0??X?) from the kick message but I love this
 Respond  
Gringle   -  Jul 13, 2008
damn, that\'s one nice dialog there
 Respond  
napa182   -  Sep 29, 2007
oops ok fixed
 Respond  
Olliegod   -  Sep 29, 2007
In the on nick event you should check to see if the person who changed their name is on %chan9.
 Respond  
napa182   -  Sep 28, 2007
added auto update on nick changes
il add the rest later
 Respond  
napa182   -  Sep 28, 2007
damn lazy people lmao to lazy to click the refresh button jk
 Respond  
Saeed   -  Sep 28, 2007
In you on join event and future events you should include an if ($dialog(Chan)) so that you don\'t receive an error.
 Respond  
Gummo   -  Sep 28, 2007
You\'d then need on nick as well, to keep an updated list..
 Respond  
Olliegod   -  Sep 28, 2007
You\'ll also want to add the following:
on part
on quit
on kick
to make sure you won\'t encounter any errors.
 Respond  
napa182   -  Sep 28, 2007
true added auto update on join
 Respond  
Olliegod   -  Sep 28, 2007
Or you could make it even better and have it automatically update whenever someone joins/leaves the channel.
 Respond  
Akishoot   -  Sep 27, 2007
Nice. =)
 Respond  
napa182   -  Sep 27, 2007
ok i added a refresh button
 Respond  
Akishoot   -  Sep 27, 2007
Everything seems to be working here. Nice job. =) You should add a \'Refresh\' button near the drop menu. If not you have to close the dialog and reopen it every time someone new joins. Aagin, nice job. =)
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.