Venom ControlSystem3

By blackvenomm666 on Nov 27, 2010

ok i made this with both chatspace and ircd commands although i don't know all the ircd commands so if there are some missin then that means i dont know them i don't use ircd much. it auto detects what kind of server it is when you click on the server in the server window and adjusts controls accordingly ok updates i added a notice keeper on it if its open it adds the notices you get to a list if its closed it writes them to a txt doc for you to pull up and read later also used punktureds idea to keep the raw's from going off unless its open thanks to napa punktured typo and grim for all the help and thanks to punktured for the small suggestions on how to make it better after testin it updated fixed a bug with regging nicks. and now it shows user modes in the nicklist ok for chatspace users i added the .services list command to bring up the list of room aop/sop and room passwords. shows up in the dialog. ok if you are room owner while your looking at the list of mods/owners if you double click on a nick in that list it will remove that person from your mod/sop list

Image

dialog with color
Image

Menu Menubar,Nicklist,Channel {
  Venom Controlsystem3
  .Venomcontrol3sys: dialog $iif($dialog(Control3.System),-v,-md Control3.System) Control3.System
}
Dialog Control3.System {
  Title "Controlsystem3"
  Size -1 -1 150 179
  Option dbu
  text "server list", 1, 05 0 37 8
  text "chan list", 2, 55 0 37 8
  text "nick list", 6, 115 0 37 8
  list 3, 0 10 49 60, hsbar vsbar
  list 4, 50 10 49 60, hsbar vsbar
  list 5, 100 10 49 60, hsbar vsbar
  button "whois ",7, 0 72 37 12 , flat 
  button "ignore ",8, 37 72 37 12 , flat 
  button "unignore ",9, 74 72 37 12 , flat
  button "regnick ",10, 111 72 37 12 , flat
  button "dregnick ",11, 0 84 37 12 , flat
  button "ghostnick ",12, 37 84 37 12 , flat
  text "General Users Commands", 13, 43 64 77 8
  button "kick ",14, 0 72 37 12 , hide
  button "bankick ",15, 37 72 37 12 , hide
  button "timeban ",16, 74 72 37 12 , hide
  button "op ",17, 111 72 37 12 , hide
  button "deop ",18, 0 84 37 12 , hide
  button "voice ",19, 37 84 37 12 , hide
  button "devoice ",20, 74 84 37 12 , hide
  button "quiet ",59, 111 84 37 12 , hide
  button "unquiet ",60, 0 96 37 12 ,  hide
  text "Mod Commands", 21, 43 64 77 8, hide
  button "addaop ",22, 0 72 37 12 , hide
  button "delaop ",23, 37 72 37 12 , hide
  button "addsop ",24, 74 72 37 12 , hide
  button "delsop ",25, 111 72 37 12 , hide
  button "soppass ",26, 0 84 37 12 , hide
  button "aoppass ",27, 37 84 37 12 , hide
  text "Owner Commands", 28, 43 64 77 8, hide
  button "secret ",29, 0 72 37 12 , hide
  button "de secret ",30, 37 72 37 12 , hide
  button "inviteonly ",31, 74 72 37 12 , hide
  button "deinvite ",32, 111 72 37 12 , hide
  button "memonly ",33, 0 84 37 12 , hide
  button "demem ",34, 37 84 37 12 , hide
  button "passroom ",35, 74 84 37 12 , hide 
  button "depass ",36, 111 84 37 12 , hide
  button "moderated ",37, 0 96 37 12 , hide 
  button "demoderate ",38, 37 96 37 12 , hide
  text "channel modes", 39, 43 64 77 8, hide
  button "kill ",40, 0 72 37 12 , hide
  button "kline ",41, 37 72 37 12 , hide
  button "akill",42, 74 72 37 12 , hide
  button "shun ",43, 111 72 37 12 , hide
  button "unshun",44, 0 84 37 12 , hide
  button "admim ",45, 37 84 37 12 , hide
  button "deadmin ",46, 74 84 37 12 , hide 
  button "oper ",47, 111 84 37 12 , hide
  button "deoper ",48, 0 96 37 12 , hide
  text "Admin Commands", 49, 43 64 77 8, hide
  button "mod cmds ",50, 37 112 37 12 , flat
  button "ownercmds ",51, 74 112 37 12 , flat
  button "regusercmds ",52, 0 112 37 12 , disable
  button "modes ",53, 111 112 37 12 , flat
  button "admincmds ",54, 0 124 37 12 , flat
  button "ok ",57, 37 112 37 15 , hide
  list 55, 0 10 148 100, hsbar vsbar hide
  button "whois ",70, 0 72 37 12 , hide 
  button "regnick",71, 0 84 37 12 , hide
  button "unregnick ",72, 37 84 37 12 , hide
  button "regchan ",73, 111 72 37 12 , hide
  text "General Users Commands", 74, 43 64 77 8, hide
  button "kick ",78, 0 72 37 12 , hide
  button "halfop ",79, 37 72 37 12 , hide
  button "dehalfop ",80, 74 72 37 12 , hide
  button "op ",81, 111 72 37 12 , hide
  button "deop ",82, 0 84 37 12 , hide
  button "voice ",83, 37 84 37 12 , hide
  button "devoice ",84, 74 84 37 12 , hide
  button "quiet ",85, 111 84 37 12 , hide
  button "unquiet ",86, 0 96 37 12 ,  hide
  text "mod/hop/aop commands", 87, 43 64 77 8, hide
  button "ok ",77, 37 112 37 12 , hide
  button "addvop ",89, 0 72 37 12 , hide
  button "delvop ",90, 37 72 37 12 , hide
  button "addhop ",91, 74 72 37 12 , hide
  button "delhop ",92, 111 72 37 12 , hide
  button "addaop ",93, 0 84 37 12 , hide
  button "delaop ",94, 37 84 37 12 , hide
  button "addsop ",95, 74 84 37 12 , hide
  button "delsop ",96, 111 84 37 12 , hide
  text "room owner commands", 97, 43 64 77 8, hide
  button "mod cmds ",98, 37 112 37 12 , hide
  button "ownercmds ",99, 74 112 37 12 , hide
  button "regusercmds ",100, 0 112 37 12 , disable
  button "list ",101, 111 96 37 12
  list 200, 0 137 111 42, hsbar vsbar
  button "read ",201, 113 137 37 12
  button "del ",202, 113 152 37 12 
  button "Clear ",203, 113 167 37 12 

}
raw 311 :*: { if ($dialog(Control3.System)) {  .timer 1 1 did -az control3.system 55 $$2-  
  }
  else { halt
  }
}
raw 319 :*: { if ($dialog(Control3.System)) {  .timer 1 1 did -az control3.system 55 $$2- 
  }
  else { halt
  }
}
raw 312 :*: { if ($dialog(Control3.System)) {  .timer 1 1 did -az control3.system 55 $$2-  
  }
  else { halt
  }
}
raw 313 :*: { if ($dialog(Control3.System)) {  .timer 1 1 did -az control3.system 55 $$2- 
  }
  else { halt
  }
}
raw 318 :*: { if ($dialog(Control3.System)) {  .timer 1 1 did -az control3.system 55 $$2- 
  }
  else { halt
  } 
}
on 1:TEXT:*:?: { if ( $nick == SERVICES ) {  .timer 1 1 did -az control3.system 55 $$1- 
    .timer 1 2 window -c services
  }
}
on *:Dialog:Control3.System:sclick:50: { 
  did -h control3.system 7-13,22-28,29-39,40-49
  did -v control3.system 14-21,59,60
  did -b control3.system 50
  did -e control3.system 51-54
}
on *:Dialog:Control3.System:sclick:51: { 
  did -h control3.system 7-13,14-21,29-39,40-49,59,60
  did -v control3.system 22-28
  did -b control3.system 51
  did -e control3.system 50,52-54
}
on *:Dialog:Control3.System:sclick:52: { 
  did -h control3.system 14-21,22-28,29-39,40-49,59,60
  did -v control3.system 7-13
  did -b control3.system 52
  did -e control3.system 50,51,53,54
}
on *:Dialog:Control3.System:sclick:53: { 
  did -h control3.system 7-13,14-21,22-28,40-49,59,60
  did -v control3.system 29-39
  did -b control3.system 53
  did -e control3.system 50-52,54
}
on *:Dialog:Control3.System:sclick:54: { 
  did -h control3.system 7-13,14-21,22-28,29-39,59,60
  did -v control3.system 40-49
  did -b control3.system 54
  did -e control3.system 50-53
}

on *:Dialog:Control3.System:sclick:98: { 
  did -h control3.system 8,9,70-74,89-97
  did -v control3.system 78-87
  did -b control3.system 98
  did -e control3.system 99,100
}
on *:Dialog:Control3.System:sclick:99: { 
  did -h control3.system 8,9,70-74,78-87
  did -v control3.system 89-97
  did -b control3.system 99
  did -e control3.system 98,100
}
on *:Dialog:Control3.System:sclick:100: { 
  did -h control3.system 78-87,89-97
  did -v control3.system 8,9,70-74
  did -b control3.system 100
  did -e control3.system 98,99
}
on *:Dialog:Control3.System:init:*: { 
  nets

}

On *:Connect:{ if ($dialog(Control3.System)) {
    nets
  }
}
on *:DISCONNECT: { if ($dialog(Control3.System)) {
    .timer 1 1 nets
  }
}
on *:join:#:{ if ($dialog(Control3.System)) {
    if ($nick != $me) { nickz }
    else { .timer 1 1 chanz
    }
  }
}
on *:part:#:{ if ($dialog(Control3.System)) {
    if ($nick != $me) { .timer 1 1 nickz }
    else { .timer 1 1 chanz
      did -r control3.system 5
    }
  }
}
on *:dialog:Control3.System:dclick:3: {
  .set %controlserver $did(Control3.System,3).seltext
  $scon($did(3).sel).chanz
  did -r Control3.System 5
  $scon($did(3).sel).checkversion
}
on *:dialog:Control3.System:dclick:5: {
  $scon($did(3).sel).queryn
}
on *:dialog:Control3.System:sclick:7: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Whois,uwo,Error!) } | else {  
    did -h control3.system 1-54,101
    did -v control3.system 55,57
    $scon($did(3).sel).whoisn
  }
}
on *:dialog:Control3.System:sclick:8: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Ignore,uwo,Error!) } | else {  
    $scon($did(3).sel).ignorn
  }
}
on *:dialog:Control3.System:sclick:9: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Unignore,uwo,Error!) } | else {  
    $scon($did(3).sel).unignorn
  }
}
on *:dialog:Control3.System:sclick:10: {
  $scon($did(3).sel).regeryn $me 
}
on *:dialog:Control3.System:sclick:11: {
  $scon($did(3).sel).droperyn 
}
on *:dialog:Control3.System:sclick:12: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Ghost,uwo,Error!) } | else {  
    $scon($did(3).sel).ghostn
  }
}
on *:dialog:Control3.System:sclick:14: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Kick,uwo,Error!) } | else {  
    $scon($did(3).sel).kickyn
  }
}
on *:dialog:Control3.System:sclick:15: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Ban,uwo,Error!) } | else {  
    $scon($did(3).sel).bankickyn
  }
}
on *:dialog:Control3.System:sclick:16: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Ban,uwo,Error!) } | else {  
    $scon($did(3).sel).timedbankickyn
  }
}
on *:dialog:Control3.System:sclick:17: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Mod,uwo,Error!) } | else {  
    $scon($did(3).sel).opyn
  }
}
on *:dialog:Control3.System:sclick:18: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Demod,uwo,Error!) } | else {  
    $scon($did(3).sel).deopyn
  }
}
on *:dialog:Control3.System:sclick:19: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Voice,uwo,Error!) } | else {  
    $scon($did(3).sel).voiceyn
  }
}
on *:dialog:Control3.System:sclick:20: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Devoice,uwo,Error!) } | else {  
    $scon($did(3).sel).devoiceyn
  }
}
on *:dialog:Control3.System:sclick:22: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Add To Mod List,uwo,Error!) } | else {  
    $scon($did(3).sel).aopyn
  }
}
on *:dialog:Control3.System:sclick:23: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Delete From Mod List,uwo,Error!) } | else {  
    $scon($did(3).sel).deaopyn
  }
}
on *:dialog:Control3.System:sclick:24: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Add To Owner List,uwo,Error!) } | else {  
    $scon($did(3).sel).sopyn
  }
}
on *:dialog:Control3.System:sclick:25: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Delete From Owner List,uwo,Error!) } | else {  
    $scon($did(3).sel).desopyn
  }
}
on *:dialog:Control3.System:sclick:26: {
  if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Add An Owner Pass To,uwo,Error!) } | else {  
    $scon($did(3).sel).soppasyn
  }
}
on *:dialog:Control3.System:sclick:27: {
  if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Add An Mod Pass To,uwo,Error!) } | else {  
    $scon($did(3).sel).aoppasyn
  }
}
on *:dialog:Control3.System:sclick:29: {
  if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Set As Secret,uwo,Error!) } | else {
    $scon($did(3).sel).secretyn
  }
}
on *:dialog:Control3.System:sclick:30: {
  if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Unset As Secret,uwo,Error!) } | else {
    $scon($did(3).sel).desecretyn
  }
}
on *:dialog:Control3.System:sclick:31: {
  if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Set As Invite Only,uwo,Error!) } | else {
    $scon($did(3).sel).inviteyn
  }
}
on *:dialog:Control3.System:sclick:32: {
  if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Unset As Invite Only,uwo,Error!) } | else {
    $scon($did(3).sel).deinviteyn
  }
}
on *:dialog:Control3.System:sclick:33: {
  if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Set As Member Only,uwo,Error!) } | else {
    $scon($did(3).sel).memberyn
  }
}
on *:dialog:Control3.System:sclick:34: {
  if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Unset As Member Only,uwo,Error!) } | else {
    $scon($did(3).sel).dememberyn
  }
}
on *:dialog:Control3.System:sclick:35: {
  if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Set A Room Pass For,uwo,Error!) } | else {
    $scon($did(3).sel).passyn
  }
}
on *:dialog:Control3.System:sclick:36: {
  if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Unset A Room Pass From,uwo,Error!) } | else {
    $scon($did(3).sel).depassyn
  }
}
on *:dialog:Control3.System:sclick:37: {
  if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Set As Moderated "Only Voiced Users Can Speak",uwo,Error!) } | else {
    $scon($did(3).sel).moderateyn
  }
}
on *:dialog:Control3.System:sclick:38: {
  if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Unset From Moderated "Anyone In The Room Can Speak",uwo,Error!) } | else {
    $scon($did(3).sel).demoderateyn
  }
}
on *:dialog:Control3.System:sclick:40: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Kill,uwo,Error!) } | else {  
    $scon($did(3).sel).killyn
  }
}
on *:dialog:Control3.System:sclick:41: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Kline,uwo,Error!) } | else {  
    $scon($did(3).sel).klineyn
  }
}
on *:dialog:Control3.System:sclick:42: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Akill,uwo,Error!) } | else {  
    $scon($did(3).sel).akillyn
  }
}
on *:dialog:Control3.System:sclick:43: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Shun,uwo,Error!) } | else {  
    $scon($did(3).sel).shunyn
  }
}
on *:dialog:Control3.System:sclick:44: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Unshun,uwo,Error!) } | else {  
    $scon($did(3).sel).unshunyn
  }
}
on *:dialog:Control3.System:sclick:45: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Admin,uwo,Error!) } | else {  
    $scon($did(3).sel).adminyn
  }
}
on *:dialog:Control3.System:sclick:46: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Deadmin,uwo,Error!) } | else {  
    $scon($did(3).sel).deadminyn
  }
}
on *:dialog:Control3.System:sclick:47: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Oper,uwo,Error!) } | else {  
    $scon($did(3).sel).operyn
  }
}
on *:dialog:Control3.System:sclick:48: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Deoper,uwo,Error!) } | else {  
    $scon($did(3).sel).deoperyn
  }
}
on *:dialog:Control3.System:sclick:59: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Quiet,uwo,Error!) } | else {  
    $scon($did(3).sel).Quietyn
  }
}
on *:dialog:Control3.System:sclick:60: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Unquiet,uwo,Error!) } | else {  
    $scon($did(3).sel).Unquietyn
  }
}

on *:dialog:Control3.System:sclick:57: {
  did -h control3.system 55,57
  did -v control3.system 1-13,50-54
}
on *:dialog:Control3.System:sclick:70: {
  if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Whois,uwo,Error!) } | else {  
    .timer 1 1 did -h control3.system 1-54,57,70-74,98-100
    .timer 1 2 did -v control3.system 55,77
    .timer 1 3 $scon($did(3).sel).whoisn
  }
}
on *:dialog:Control3.System:sclick:71: {
  $scon($did(3).sel).nickregyn
}
on *:dialog:Control3.System:sclick:72: {
  $scon($did(3).sel).nickderegyn
}
on *:dialog:Control3.System:sclick:73: {
  if (!$did(4).sel) { noop $input(Please Highlite The Chan In The Chan List Box you Want To Register,uwo,Error!) } | else {  
    $scon($did(3).sel).regroomyn   
  }
}
on *:dialog:Control3.System:sclick:77: {
  did -h control3.system 1-7,10-54,55,77
  .timer 1 1 did -v control3.system 3-5,8,9,70-74,98-100
}
on *:dialog:Control3.System:sclick:78: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Kick,uwo,Error!) } | else {  
    $scon($did(3).sel).cskikyn   
  }
}
on *:dialog:Control3.System:sclick:79: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Half Op,uwo,Error!) } | else {  
    $scon($did(3).sel).halfopyn   
  }
}
on *:dialog:Control3.System:sclick:80: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To DeHalf Op,uwo,Error!) } | else {  
    $scon($did(3).sel).dehalfopyn   
  }
}
on *:dialog:Control3.System:sclick:81: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Op,uwo,Error!) } | else {  
    $scon($did(3).sel).oopyn   
  }
}
on *:dialog:Control3.System:sclick:82: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To DeOp,uwo,Error!) } | else {  
    $scon($did(3).sel).deoopyn   
  }
}
on *:dialog:Control3.System:sclick:83: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Voice,uwo,Error!) } | else {  
    $scon($did(3).sel).vooiceyn   
  }
}
on *:dialog:Control3.System:sclick:84: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To DeVoice,uwo,Error!) } | else {  
    $scon($did(3).sel).devooiceyn   
  }
}
on *:dialog:Control3.System:sclick:85: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To quiet,uwo,Error!) } | else {  
    $scon($did(3).sel).quieetyn   
  }
}
on *:dialog:Control3.System:sclick:86: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Half Op,uwo,Error!) } | else {  
    $scon($did(3).sel).dequieetyn   
  }
}
on *:dialog:Control3.System:sclick:89: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Add Vop For,uwo,Error!) } | else {  
    $scon($did(3).sel).addvoppyn   
  }
}
on *:dialog:Control3.System:sclick:90: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Del Vop For,uwo,Error!) } | else {  
    $scon($did(3).sel).delvoppyn  
  }
}
on *:dialog:Control3.System:sclick:91: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Add Hop For,uwo,Error!) } | else {  
    $scon($did(3).sel).addhoppyn 
  }
}
on *:dialog:Control3.System:sclick:92: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Del Hop For,uwo,Error!) } | else {  
    $scon($did(3).sel).delhoppyn  
  }
}
on *:dialog:Control3.System:sclick:93: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Add Aop For,uwo,Error!) } | else {  
    $scon($did(3).sel).addaoppyn
  }
}
on *:dialog:Control3.System:sclick:94: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Del Aop For,uwo,Error!) } | else {  
    $scon($did(3).sel).deaoppyn  
  }
}
on *:dialog:Control3.System:sclick:95: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Add Sop For,uwo,Error!) } | else {  
    $scon($did(3).sel).soppyn  
  }
}
on *:dialog:Control3.System:sclick:96: {
  if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Del Sop For,uwo,Error!) } | else {  
    $scon($did(3).sel).desoppyn  
  }
}

on *:dialog:Control3.System:dclick:4: {
  $scon($did(3).sel).nickz
  .set %controlroom $did(Control3.System,4).seltext 
}
on *:dialog:Control3.System:sclick:101: {
on *:dialog:Control3.System:sclick:101: {
  if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Check Room List,uwo,Error!) } | else {  
    did -h control3.system 1-54,101
    did -v control3.system 55,57
    did -r control3.system 55   
    $scon($did(3).sel).listyn
  }
}
on *:dialog:Control3.System:dclick:55: { $scon($did(3).sel).listage1 }

alias listage1 { if (aop isin $did(Control3.System,55).seltext ) {
    .services aop $did(Control3.System,4).seltext del $remove($did(Control3.System,55).seltext,aop) 
    .timer 1 1 $scon($did(3).sel).listyn
    .timer 1 1 did -r control3.system 55
    .timer 1 2 listyn
  } 
  elseif (sop isin $did(Control3.System,55).seltext ) { 
    .services sop $did(Control3.System,4).seltext del $remove($did(Control3.System,55).seltext,sop)  
    .timer 1 1 did -r control3.system 55
    .timer 1 2 listyn
  }
}
alias listyn { .services info $did(Control3.System,4).seltext }
alias queryn { query $remove($did(Control3.System,5).seltext,~,&,@,%,+) } 
alias kickyn { .mode %controlroom -o $remove($did(Control3.System,5).seltext,~,&,@,%,+) | kick %controlroom $did(Control3.System,5).seltext | nickz }
alias whoisn { did -r control3.system 55
whois $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias ignorn { .ignore $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3  }
alias unignorn { .ignore -r $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3  } 
alias ghostn { .services ghost $remove($did(Control3.System,5).seltext,~,&,@,%,+) $$?"whats the pass?" }
alias bankickyn { .mode %controlroom -o $remove($did(Control3.System,5).seltext,~,&,@,%,+) | ban -k %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | nickz }
alias timedbankickyn { .mode %controlroom -o $did(Control3.System,5).seltext | ban -ku $+ $calc($+($$?"How many minutes? ex 5 6 7 8") * 60) %controlroom $did(Control3.System,5).seltext 3 | nickz }
alias opyn { mode %controlroom +o $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias deopyn { mode %controlroom -o $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz } 
alias voiceyn { mode %controlroom +v $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias devoiceyn { mode %controlroom -v $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias aopyn { services aop %controlroom add $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias deaopyn { services aop %controlroom del $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias sopyn { services sop %controlroom add $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias desopyn { services sop %controlroom del $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias soppasyn { .services set %controlroom Soppass $$?"enter a pass" }
alias aoppasyn { .services set %controlroom Aoppass $$?"enter a pass" }
alias secretyn { .mode %controlroom +s }
alias desecretyn { .mode %controlroom -s }
alias inviteyn { .mode %controlroom +i }
alias deinviteyn { .mode %controlroom -i }
alias memberyn { .mode %controlroom +j }
alias dememberyn { .mode %controlroom -j }
alias passyn { .mode %controlroom +k $$?"enter a pass" }
alias depassyn { .mode %controlroom -k $$?"whats the room pass" }
alias moderateyn { .mode %controlroom +ml }
alias demoderateyn { .mode %controlroom -m }
alias killyn { .kill $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz }
alias klineyn { .Kline $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz }
alias akillyn { .Akill $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz }
alias shunyn { .shun $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz }
alias unshunyn { .shun -r $+ $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz }
alias adminyn { .setoper $remove($did(Control3.System,5).seltext,~,&,@,%,+) +admin | .timer 1 1 nickz }
alias deadminyn { .setoper $remove($did(Control3.System,5).seltext,~,&,@,%,+) -admin | .timer 1 1 nickz }
alias operyn { .setoper $remove($did(Control3.System,5).seltext,~,&,@,%,+) +oper | .timer 1 1 nickz }
alias deoperyn { .setoper $remove($did(Control3.System,5).seltext,~,&,@,%,+) -oper | .timer 1 1 nickz }
alias Quietyn { .mode %controlroom +q $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz } 
alias Unquietyn { .mode %controlroom -q $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz }
alias regroomyn { .msg chanserv register %controlroom $did(Control3.System,4).seltext $$?"pass then description" }
alias nickregyn { .msg nickserv register $$?"enter password and email" }
alias nickderegyn { .msg nickserv drop $me }
alias cskikyn { .msg chanserv kick %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias halfopyn { .msg chanserv halfop %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias dehalfopyn { .msg chanserv dehalfop %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias oopyn { .msg chanserv op %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias deoopyn { .msg chanserv deop %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias vooiceyn { .msg chanserv voice %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias devooiceyn { .msg chanserv devoice %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias quieetyn { .mode %controlroom +q $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias dequieetyn { .mode %controlroom -q $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias addvoppyn  { .msg chanserv vop %controlroom add $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias delvoppyn { .msg chanserv vop %controlroom del $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias addhoppyn { .msg chanserv hop %controlroom add $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias delhoppyn { .msg chanserv hop %controlroom del $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias addaoppyn { .msg chanserv aop %controlroom add $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias deaoppyn  { .msg chanserv aop %controlroom del $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias soppyn { .msg chanserv sop %controlroom add $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias desoppyn { .msg chanserv sop %controlroom del $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias regeryn { .services register $me $$?="enter a pass" }
alias droperyn { .services drop $me  }

alias nets {
  did -r Control3.System 3
  var %tot = $scon(0), %curr = 1
  while (%curr <= %tot) {
    did -az Control3.System 3 $scon(%curr).server 
    inc %curr
  }
}
alias chanz {
  var %chans $chan(0), %curr 1
  did -r Control3.System 4
  while (%curr <= %chans) { 
    did -az Control3.System 4 $chan(%curr)
    inc %curr
  }
}
alias  nickz {
  var -s %curr 1, %nick $nick($did(control3.system,4).seltext,0)
  did -r Control3.System 5
  while (%curr <= %nick) { 
    did -az Control3.System 5 $nick($did(control3.system,4).seltext,%curr).pnick
    inc %curr
  }
}
alias  checkversion {
  version
}
Raw 351 :*: { if ($dialog(Control3.System)) {
    if (Unreal isin $$1- ) {
      did -h control3.system 7,10-55,57,59,60,101 
    did -v control3.system 8,9,70-74,98-100 } 
    elseif (ircd isin $$1- ) {
      did -h control3.system 7,10-55.57,59,60,101 
    .timer 1 1 did -v control3.system 8,8,70-74,98-100 } 
    elseif (cs isin $$1- ) {
      did -h control3.system 70-74,78-87,89-100
      did -v control3.system 7-13,50-54,101
    }
  }
}
on *:NOTICE:*:?: { if ($dialog(Control3.System)) { 
    did -az control3.system 200 $nick noticed you at $asctime(hh:nn:ss:tt) and said $1-
  }
  elseif (!$dialog(Control3.System)) { write mynotices.txt $nick noticed you at $asctime(hh:nn:ss:tt) and said $1-
  }
}
on *:dialog:Control3.System:sclick:201: {
  did -r control3.system 200
  .timer 1 1 myntce
}
on *:dialog:Control3.System:sclick:202: {
  if (!$did(200).sel) { noop $input(Please Highlite A Notice In Notice List Box To Delete,uwo,Error!) } | else { write -dl $+ $did(200).sel mynotices.txt
    did -r control3.system 200
    .timer 1 3 myntce
  }
}
on *:dialog:Control3.System:sclick:203: {
  did -r control3.system 200
}
alias myntce {
  var %a = 0, %b = $lines(mynotices.txt)
  while (%a <= %b) {
    did -az  Control3.System 200 $read(mynotices.txt)
    inc %a
  }
}

Comments

Sign in to comment.
Sorasyn   -  Dec 03, 2010

extra code? Lol it's like 10 bytes max if you make an alias for it. I use an icon folder for organization, cause I hate having scattered files, it bugs me lol XD

 Respond  
BigSteve   -  Dec 03, 2010

I use $findfile() to locate icons on my custom toolbar.
you dont need to if the icon file is within the script file it will work as I have tested this to see if it did work so I prefer putting the file into the actual folder then you dont need the extra code of $findfile(icon "venom.ico")

just personal preference :D

 Respond  
Phil_FW   -  Dec 03, 2010

very good job on this blackvenomm666

 Respond  
Sorasyn   -  Dec 03, 2010

I use $findfile() to locate icons on my custom toolbar.

 Respond  
BigSteve   -  Dec 03, 2010

make sure the venom.ico is within the same folder as the script :D

 Respond  
BigSteve   -  Dec 03, 2010

quick update for you...

 Menu Menubar,Nicklist,Channel {
  Venom Controlsystem3
  .Venomcontrol3sys: dialog $iif($dialog(Control3.System),-v,-md Control3.System) Control3.System
}
Dialog Control3.System {
  Title "Controlsystem3"
  Size -1 -1 150 179
  icon "venom.ico"
  Option dbu
 Respond  
blackvenomm666   -  Dec 02, 2010

umm the ones meant for ircd work on ircd

 Respond  
Dark|   -  Dec 02, 2010

these all work with IRCD?
correct?

 Respond  
H3xable   -  Dec 01, 2010

nice Script 8/10

 Respond  
blackvenomm666   -  Nov 27, 2010

yea i didnt want tabs on this one i unno why i did tabs on my last control sys i wanted to do something diff and i tried grouping them together but it just screwed up and the posted script here has no dll the one in my mirc uses mdxx

 Respond  
Sorasyn   -  Nov 27, 2010

This uses MDX.dll?

EDIT: If it interests you; you could probably make tabs for each segment. Whois & nick management in one tab, memo tab, channel control tab etc. I'm fairly sure I've already said something like this but you could also string together your dialog events. Anyways nice script :)

 Respond  
blackvenomm666   -  Nov 27, 2010

updated and fixed a few bugs

 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.