User Control dialog

Please Register to submit score.

Average Score	9.4
Scores Submitted	5
Date Added	Sep 27, 2007
Last Updated	Jan 24, 2008
Tags	ban control dialog gag kick mode user

Introduction

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:

combo 1, 15 10 45 9, drop

with

Code:

list 1, 15 10 45 9, size

Grab the 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

(12) RSS

Go to Bottom

Akishoot

Comments: 134

mIRC Snippet: User Control dialog
Posted on Sep 27, 2007 5:27 am

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. =)

napa182

Comments: 743

mIRC Snippet: User Control dialog
Posted on Sep 27, 2007 2:19 pm

ok i added a refresh button

Akishoot

Comments: 134

mIRC Snippet: User Control dialog
Posted on Sep 27, 2007 2:59 pm

Nice. =)

Olliegod

Comments: 77

mIRC Snippet: User Control dialog
Posted on Sep 28, 2007 1:01 am

Or you could make it even better and have it automatically update whenever someone joins/leaves the channel.

napa182

Comments: 743

mIRC Snippet: User Control dialog
Posted on Sep 28, 2007 3:41 am

true added auto update on join

Olliegod

Comments: 77

mIRC Snippet: User Control dialog
Posted on Sep 28, 2007 5:26 am

You'll also want to add the following:
on part
on quit
on kick
to make sure you won't encounter any errors.

Gummo

Comments: 100

mIRC Snippet: User Control dialog
Posted on Sep 28, 2007 5:59 am

You'd then need on nick as well, to keep an updated list..

Saeed

Comments: 31

mIRC Snippet: User Control dialog
Posted on Sep 28, 2007 1:43 pm

In you on join event and future events you should include an if ($dialog(Chan)) so that you don't receive an error.

napa182

Comments: 743

mIRC Snippet: User Control dialog
Posted on Sep 28, 2007 3:26 pm

damn lazy people lmao to lazy to click the refresh button jk

napa182

Comments: 743

mIRC Snippet: User Control dialog
Posted on Sep 28, 2007 7:15 pm

added auto update on nick changes
il add the rest later

Olliegod

Comments: 77

mIRC Snippet: User Control dialog
Posted on Sep 29, 2007 1:53 am

In the on nick event you should check to see if the person who changed their name is on %chan9.

napa182

Comments: 743

mIRC Snippet: User Control dialog
Posted on Sep 29, 2007 2:44 am

oops ok fixed

User Control dialog

Introduction

Grab the Code

Comments

napa182

My Snippet Tags

Contact

Friends (29)

Sponsors

		Head Admin For irc.EzzyChat.com California ÎÇ ×Ç ÑÎ KÅ
Last seen: Jul 09, 2008 Profile \| Website Friends (29) Snippets (40) Images (1) Comments Received (345) Comments Submitted (743) Forum Posts (135)