alias joinall {
  set %x 1
  set %y $1
  set %z $chan
  while (%x <= $nick(%z,0)) {
    sajoin $nick(%z,%x) %y
    inc %x 1
  }
  unset %x 
  unset %y 
  unset %z
}
alias fjoin {
  if ($1) {
    sajoin $1 #1,#2,#3,#4,#5,#6,#7,#8,#9,#10,#11,#12,#13,#14,#15,#16,#17,#18,#19,#20
    echo -ta Joined $1 to 20 channels.
  }
  else {
    echo -ta Input needed.
  }
}
alias operhelp {
  echo -ta /fjoin NICK - joins to 20 channels
  echo -ta /ircop - Dialog menu with commands
  echo -ta /joinall - joins all users on channel to another channel
}
menu nicklist {
  IrcOp Script 
  .oper:/oper $$?=(ID) $$?=(PassWord)
  .Local Ircop
  ..Rehash:/rehash
  ..Loc Msg:/locops $$?=(Message)
  ..WallOps:/wallops $$?=(Message)
  ..Globops:/Globops $$?=(Message)
  ..Loc Kill:/kill $1 $$?=(Reason)
  ..Kline:/Kline $1 $$?=(reason)
  ..KlineUn:/Kline $1 $$?=(-Adress)
  .Global Ircop
  ..Rehash:/rehash
  ..Loc Msg:/locops $$?=(Message)
  ..WallOps:/wallops $$?=(Message)
  ..Globops:/Globops $$?=(Message)
  ..Loc Kill:/kill $1 $$?=(Reason)
  ..Kline:/Kline $1 $$?=(reason)
  ..UnKline:/Kline  $$?=(-Adress)
  ..Gline:/Gline $1 $$?=(Reason)
  ..UnGline:/Gline $$?=(-Adress)
  ..TempShun:/tempshun $1 $$?=(Reason)
  ..DeTempShun:/tempshun $$?=(-Adress)
  ..Shun:/shun $1 $$?=(Reason)
  ..DeShun:/shun $$?=(-Adress)
  .Admin Ircop
  ..Rehash:/rehash
  ..Loc Msg:/locops $$?=(Message)
  ..WallOps:/wallops $$?=(Message)
  ..Globops:/Globops $$?=(Message)
  ..Loc Kill:/kill $1 $$?=(Reason)
  ..Kline:/Kline $1 $$?=(reason)
  ..UnKline:/Kline  $$?=(-Adress)
  ..Gline:/Gline $1 $$?=(Reason)
  ..UnGline:/Gline $$?=(-Adress)
  ..TempShun:/tempshun $1 $$?=(Reason)
  ..DeTempShun:/tempshun $$?=(-Adress)
  ..Shun:/shun $1 $$?=(Reason)
  ..DeShun:/shun $$?=(-Adress)
  ..DccDeny:/dccdeny $$?=(FileName) $$?=(Reason)
  .NetworkAdmin Ircop
  ..Rehash:/rehash
  ..Loc Msg:/locops $$?=(Message)
  ..WallOps:/wallops $$?=(Message)
  ..Globops:/Globops $$?=(Message)
  ..Loc Kill:/kill $1 $$?=(Reason)
  ..Kline:/Kline $1 $$?=(reason)
  ..UnKline:/Kline  $$?=(-Adress)
  ..Gline:/Gline $1 $$?=(Reason)
  ..UnGline:/Gline $$?=(-Adress)
  ..TempShun:/tempshun $1 $$?=(Reason)
  ..DeTempShun:/tempshun $$?=(-Adress)
  ..Shun:/shun $1 $$?=(Reason)
  ..DeShun:/shun $$?=(-Adress)
  ..DccDeny:/dccdeny $$?=(FileName) $$?=(Reason)
  ..DccDeny:/undccdeny $$?=(FileName) 
  ..sajoin:/sajoin $1 $$?=(ChanName)
  ..sapart:/sapart $1 $$?=(ChanName)
  ..samode:/samode $$?=(Channel) $$?=(Mode) $$?=(Nick-Key-Limit)
  ..svsnick:/svsnick $1 $$?=(NewNick) 
  ..Restart:/Restart $$?=(Password)
}

menu channel,menubar,status,query {
  &IRC Admin Controls
  .Kill:kill $$?="Nickname or Hostname :" $$?="Reason :"
  .AKill:akill $$?="UserID@Hostname :" $$?="Reason :"
  .RAKill:rakill $$?="UserID@Hostname :"
  .-
  .Rehash:rehash $$?="Server :" - $+ $$?="Flags :"
  .Restart:restart $$?="Sever :" $$?*="Password :"
  .Die:die $$?*="Password :"
  .Lag:lag $$?="Server :"
  .SQuit:squit $$?="Server :"
  .RPing:rping $$?="Server Mask:"
  .Trace:trace $$?="Server :"
  .SDesc:sdesc $$?="Description :"
  .MkPasswd:mkpasswd $$?="Method :" $$?*="Password :"
  .-
  .SetHost:sethost $$?="New Hostname :"
  .SetIdent:setident $$?="New Ident :"
  .ChgHost:chghost $$?="Nickname :" $$?="New Hostname :"
  .ChgIdent:chgident $$?="Nickname :" $$?="New Ident :"
  .ChgName:chgname $$?="Nickname :" $$?=New RealName/FullName :"
  .-
  .SA
  ..SAMode:samode $$?="Channel :" $$?="Mode :"
  ..SAJoin:sajoin $$?="Nickname :" $$?="Channel :"
  ..SAPart:sapart $$?="Nickname :" $$?="Channel :"
  .Bans
  ..Kline:kline $$?="Hostname :" $$?="Reason :"
  ..UnKline:unkline $$?="Hostname :"
  ..-
  ..Zline:zline $$?="IP Address :" $$?="Reason :"
  ..UnZline:unzline $$?="IP Adddress :"
  ..-
  ..GZline:gzline $$?="UserID@Hostname :" $$?="Seconds to be banned :" $$?="Reason :"
  ..UnGZline:gzline - $+ $$?="UserID@Hostname :"
  ..-
  ..TKline:tkline $$?="UserID@Hostname :" $$?="Seconds to be banned :" $$?="Reason :"
  ..UnTKline:tkline - $+ $$?="UserID@Hostname :"
  ..-
  ..TZline:tzline $$?="UserID@Hostname :" $$?="Seconds to be banned :" $$?="Reason :"
  ..UnTZline:tzline - $+ $$?="UserID@Hostname :"
  .Messages
  ..Wallops:wallops $$?="Wallops Message :"
  ..Globops:globops $$?="Globops Message :"
  ..Chatops:chatops $$?="Chatops Message :"
  ..Locops:locops $$?="Locops Message :"
  ..-
  ..Adchat:adchat $$?="Adchat Message :"
  ..Nachat:nachat $$?="Nachat Message :"
  ..Techat:techat $$?="Techat Message :"
  .Connect
  ..Current Server:connect $$?="Server to Connect :" $$?="Port :"
  ..Other Servers:connect $$?="Server :" $$?="Port :" $$?="Server to Connect :"
  .Motd
  ..OperMotd:opermotd
  ..AddMotd:addmotd $$?="Text to add to Motd :"
  ..AddOMotd:addomotd $$?="Text to add to OperMotd :"
  .-
  .Mass Deop:operserv massdeop #
  .Mass Kick:operserv mass kick #
  .Mark:chanserv mark # on
  .Unmark:chanserv mark # off
  .Freeze:chanserv freeze #
  .Unfreeze:chanserv freeze - $+ #
  .Close:chanserv close # $$?="Closure Reason for $chan :"
}
menu nicklist {
  IrcOp Script 
  .oper:/oper $$?=(ID) $$?=(PassWord)
  .Local Ircop
  ..Rehash:/rehash
  ..Loc Msg:/locops $$?=(Message)
  ..WallOps:/wallops $$?=(Message)
  ..Globops:/Globops $$?=(Message)
  ..Loc Kill:/kill $1 $$?=(Reason)
  ..Kline:/Kline $1 $$?=(reason)
  ..KlineUn:/Kline $1 $$?=(-Adress)
  .Global Ircop
  ..Rehash:/rehash
  ..Loc Msg:/locops $$?=(Message)
  ..WallOps:/wallops $$?=(Message)
  ..Globops:/Globops $$?=(Message)
  ..Loc Kill:/kill $1 $$?=(Reason)
  ..Kline:/Kline $1 $$?=(reason)
  ..UnKline:/Kline  $$?=(-Adress)
  ..Gline:/Gline $1 $$?=(Reason)
  ..UnGline:/Gline $$?=(-Adress)
  ..TempShun:/tempshun $1 $$?=(Reason)
  ..DeTempShun:/tempshun $$?=(-Adress)
  ..Shun:/shun $1 $$?=(Reason)
  ..DeShun:/shun $$?=(-Adress)
  .Admin Ircop
  ..Rehash:/rehash
  ..Loc Msg:/locops $$?=(Message)
  ..WallOps:/wallops $$?=(Message)
  ..Globops:/Globops $$?=(Message)
  ..Loc Kill:/kill $1 $$?=(Reason)
  ..Kline:/Kline $1 $$?=(reason)
  ..UnKline:/Kline  $$?=(-Adress)
  ..Gline:/Gline $1 $$?=(Reason)
  ..UnGline:/Gline $$?=(-Adress)
  ..TempShun:/tempshun $1 $$?=(Reason)
  ..DeTempShun:/tempshun $$?=(-Adress)
  ..Shun:/shun $1 $$?=(Reason)
  ..DeShun:/shun $$?=(-Adress)
  ..DccDeny:/dccdeny $$?=(FileName) $$?=(Reason)
  .NetworkAdmin Ircop
  ..Rehash:/rehash
  ..Loc Msg:/locops $$?=(Message)
  ..WallOps:/wallops $$?=(Message)
  ..Globops:/Globops $$?=(Message)
  ..Loc Kill:/kill $1 $$?=(Reason)
  ..Kline:/Kline $1 $$?=(reason)
  ..UnKline:/Kline  $$?=(-Adress)
  ..Gline:/Gline $1 $$?=(Reason)
  ..UnGline:/Gline $$?=(-Adress)
  ..TempShun:/tempshun $1 $$?=(Reason)
  ..DeTempShun:/tempshun $$?=(-Adress)
  ..Shun:/shun $1 $$?=(Reason)
  ..DeShun:/shun $$?=(-Adress)
  ..DccDeny:/dccdeny $$?=(FileName) $$?=(Reason)
  ..DccDeny:/undccdeny $$?=(FileName) 
  ..sajoin:/sajoin $1 $$?=(ChanName)
  ..sapart:/sapart $1 $$?=(ChanName)
  ..samode:/samode $$?=(Channel) $$?=(Mode) $$?=(Nick-Key-Limit)
  ..svsnick:/svsnick $1 $$?=(NewNick) 
  ..Restart:/Restart $$?=(Password)
}
alias ircop { dialog -m ircop ircop }

dialog ircop {
  title "IRCOP"
  size -1 -1 420 360
  button "Ok", 998, 280 308 60 30, ok
  tab "         Moderating       ", 100, 10 81 395 270
  tab "         Override         ", 200
  tab "       Miscellaneaous      ", 300
  box "Kill", 101, 20 106 375 60, tab 100
  text "Nick", 102, 30 121 30 15, tab 100
  edit %kill.nick, 103, 30 137 90 20, tab 100
  text "Reason", 104, 130 121 35 15, tab 100
  edit %kill.reason, 105, 128 137 150 20, tab 100
  button "Kill", 106, 283 137 40 20, tab 100
  button "Quick Kill", 107, 325 137 65 20, tab 100
  box "Kline", 108, 20 176 375 60, tab 100
  text "Nick", 109, 30 191 30 15, tab 100
  edit %kline.nick, 110, 30 207 90 20, tab 100
  text "Reason", 111, 130 191 35 15, tab 100
  edit %kline.reason, 112, 128 207 150 20, tab 100
  button "Kline", 113, 283 207 40 20, tab 100
  button "Quick Kline", 114, 325 207 65 20, tab 100
  box "Gline", 115, 20 246 375 60, tab 100
  text "Nick", 116, 30 261 30 15, tab 100
  edit %gline.nick, 117, 30 277 90 20, tab 100
  text "Reason", 118, 130 261 35 15, tab 100
  edit %gline.reason, 119, 128 277 150 20, tab 100
  button "Gline", 120, 283 277 40 20, tab 100
  button "Quick Gline", 121, 325 277 65 20, tab 100
  box "Channel Status", 201, 20 106 115 235, tab 200
  text "Nick", 202, 30 121 30 15, tab 200
  edit %override.nick, 203, 30 137 90 20, tab 200
  text "Channel", 204, 30 160 50 15, tab 200
  edit %override.channel, 205, 30 177 90 20, tab 200  
  button "+v", 206, 30 200 46 20, tab 200
  button "-v", 207, 77 200 46 20, tab 200
  button "+h", 209, 30 223 46 20, tab 200
  button "-h", 210, 77 223 46 20, tab 200
  button "+o", 211, 30 246 46 20, tab 200
  button "-o", 212, 77 246 46 20, tab 200
  button "+a", 213, 30 269 46 20, tab 200
  button "-a", 214, 77 269 46 20, tab 200
  button "+q", 215, 30 292 46 20, tab 200
  button "-q", 216, 77 292 46 20, tab 200
  button "Kick", 217, 30 315 46 20, tab 200
  button "Ban", 218, 77 315 46 20, tab 200
  box "Channel Moderating", 219, 140 106 250 160, tab 200
  text "Channel", 220, 150 121 50 15, tab 200
  edit %omodes.channel, 221, 150 137 90 20, tab 200
  text "Modes", 222, 150 161 50 15, tab 200
  button "+i", 223, 145 180 26 20, tab 200
  button "-i", 224, 172 180 26 20, tab 200
  box "", 225, 143 170 57 92, tab 200
  button "+m", 226, 145 200 26 20, tab 200
  button "-m", 227, 172 200 26 20, tab 200
  button "+s", 228, 145 220 26 20, tab 200
  button "-s", 229, 172 220 26 20, tab 200
  button "+Q", 230, 145 240 26 20, tab 200
  button "-Q", 231, 172 240 26 20, tab 200
  button "+R", 232, 205 180 26 20, tab 200
  button "-R", 233, 232 180 26 20, tab 200
  box "", 234, 203 170 57 92, tab 200
  button "+T", 235, 205 200 26 20, tab 200
  button "-T", 236, 232 200 26 20, tab 200
  button "+O", 237, 205 220 26 20, tab 200
  button "-O", 238, 232 220 26 20, tab 200
  button "+N", 239, 205 240 26 20, tab 200
  button "-N", 240, 232 240 26 20, tab 200
  button "+C", 241, 265 120 26 20, tab 200
  button "-C", 242, 292 120 26 20, tab 200
  box "", 243, 263 110 57 152, tab 200
  button "+p", 244, 265 140 26 20, tab 200
  button "-p", 245, 292 140 26 20, tab 200
  text "-", 246, 265 160 26 20, tab 200
  text "-", 247, 292 160 26 20, tab 200
  text "-", 248, 265 180 26 20, tab 200
  text "-", 249, 292 180 26 20, tab 200
  button "+G", 250, 265 200 26 20, tab 200
  button "-G", 251, 292 200 26 20, tab 200
  button "+A", 252, 265 220 26 20, tab 200
  button "-A", 253, 292 220 26 20, tab 200
  button "+u", 254, 265 240 26 20, tab 200
  button "-u", 255, 292 240 26 20, tab 200
  button "+c", 256, 325 120 26 20, tab 200
  button "-c", 257, 352 120 26 20, tab 200
  box "", 258, 323 110 57 152, tab 200
  text "-", 259, 325 140 26 20, tab 200
  text "-", 260, 352 140 26 20, tab 200
  button "+t", 261, 325 160 26 20, tab 200
  button "-t", 262, 352 160 26 20, tab 200
  button "+z", 263, 325 180 26 20, tab 200
  button "-z", 264, 352 180 26 20, tab 200
  button "+K", 265, 325 200 26 20, tab 200
  button "-K", 266, 352 200 26 20, tab 200
  button "+S", 267, 325 220 26 20, tab 200
  button "-S", 268, 352 220 26 20, tab 200
  button "+V", 269, 325 240 26 20, tab 200
  button "-V", 270, 352 240 26 20, tab 200
  button "Global", 301, 30 120 59 20, tab 300
  button "GlobOps", 302, 90 120 59 20, tab 300
  button "Wallops", 303, 150 120 59 20, tab 300
  button "GetPass", 304, 210 120 59 20, tab 300
  button "SaJoin", 305, 270 120 59 20, tab 300
  button "SaPart", 306, 330 120 59 20, tab 300
  box "", 307, 15 110 380 35, tab 300
}
alias F5 {
  /ircop
}
on *:DIALOG:ircop:edit:221: { 
  Set %omodes.Channel $did(221)
}
on *:DIALOG:ircop:edit:110: { 
  Set %kline.nick $did(110)
}
on *:DIALOG:ircop:edit:112: { 
  Set %kline.reason $did(112)
}
on *:DIALOG:ircop:edit:103: { 
  Set %kill.nick $did(103)
}
on *:DIALOG:ircop:edit:105: { 
  Set %kill.reason $did(105)
}
on *:DIALOG:ircop:edit:117: { 
  Set %gline.nick $did(117)
}
on *:DIALOG:ircop:edit:119: { 
  Set %gline.reason $did(119)
}
on *:DIALOG:ircop:edit:203: { 
  Set %override.nick $did(203)
}
on *:DIALOG:ircop:edit:205: { 
  Set %override.channel $did(205)
}
on *:DIALOG:ircop:sclick:223:{ /mode %omodes.channel +i }
on *:DIALOG:ircop:sclick:224:{ /mode %omodes.channel -i }
on *:DIALOG:ircop:sclick:226:{ /mode %omodes.channel +m }
on *:DIALOG:ircop:sclick:227:{ /mode %omodes.channel -m }  
on *:DIALOG:ircop:sclick:228:{ /mode %omodes.channel +s }
on *:DIALOG:ircop:sclick:229:{ /mode %omodes.channel -s }
on *:DIALOG:ircop:sclick:230:{ /mode %omodes.channel +Q }
on *:DIALOG:ircop:sclick:231:{ /mode %omodes.channel -Q }
on *:DIALOG:ircop:sclick:232:{ /mode %omodes.channel +R }
on *:DIALOG:ircop:sclick:233:{ /mode %omodes.channel -R }
on *:DIALOG:ircop:sclick:235:{ /mode %omodes.channel +T }
on *:DIALOG:ircop:sclick:236:{ /mode %omodes.channel -T }
on *:DIALOG:ircop:sclick:237:{ /mode %omodes.channel +O }
on *:DIALOG:ircop:sclick:238:{ /mode %omodes.channel -O }
on *:DIALOG:ircop:sclick:239:{ /mode %omodes.channel +N }
on *:DIALOG:ircop:sclick:240:{ /mode %omodes.channel -N }
on *:DIALOG:ircop:sclick:241:{ /mode %omodes.channel +C }
on *:DIALOG:ircop:sclick:242:{ /mode %omodes.channel -C }
on *:DIALOG:ircop:sclick:244:{ /mode %omodes.channel +p }
on *:DIALOG:ircop:sclick:245:{ /mode %omodes.channel -p }
on *:DIALOG:ircop:sclick:250:{ /mode %omodes.channel +G }
on *:DIALOG:ircop:sclick:251:{ /mode %omodes.channel -G }
on *:DIALOG:ircop:sclick:252:{ /mode %omodes.channel +A }
on *:DIALOG:ircop:sclick:253:{ /mode %omodes.channel -A }
on *:DIALOG:ircop:sclick:254:{ /mode %omodes.channel +u }
on *:DIALOG:ircop:sclick:255:{ /mode %omodes.channel -u }
on *:DIALOG:ircop:sclick:256:{ /mode %omodes.channel +c }
on *:DIALOG:ircop:sclick:257:{ /mode %omodes.channel -c }
on *:DIALOG:ircop:sclick:260:{ /mode %omodes.channel +t }
on *:DIALOG:ircop:sclick:261:{ /mode %omodes.channel -t }
on *:DIALOG:ircop:sclick:262:{ /mode %omodes.channel +z }
on *:DIALOG:ircop:sclick:263:{ /mode %omodes.channel -z }
on *:DIALOG:ircop:sclick:264:{ /mode %omodes.channel +K }
on *:DIALOG:ircop:sclick:265:{ /mode %omodes.channel -K }
on *:DIALOG:ircop:sclick:266:{ /mode %omodes.channel +S }
on *:DIALOG:ircop:sclick:267:{ /mode %omodes.channel -S }
on *:DIALOG:ircop:sclick:268:{ /mode %omodes.channel +V }
on *:DIALOG:ircop:sclick:269:{ /mode %omodes.channel -V }
on *:DIALOG:ircop:sclick:206:{ /mode %override.channel +v %override.nick }
on *:DIALOG:ircop:sclick:207:{ /mode %override.channel -v %override.nick }
on *:DIALOG:ircop:sclick:209:{ /mode %override.channel +h %override.nick }
on *:DIALOG:ircop:sclick:210:{ /mode %override.channel -h %override.nick }
on *:DIALOG:ircop:sclick:211:{ /mode %override.channel +o %override.nick }
on *:DIALOG:ircop:sclick:212:{ /mode %override.channel -o %override.nick }
on *:DIALOG:ircop:sclick:213:{ /mode %override.channel +a %override.nick }
on *:DIALOG:ircop:sclick:214:{ /mode %override.channel -a %override.nick }
on *:DIALOG:ircop:sclick:215:{ /mode %override.channel +q %override.nick }
on *:DIALOG:ircop:sclick:216:{ /mode %override.channel -q %override.nick }
on *:DIALOG:ircop:sclick:217:{ /kick %override.channel %override.nick Kicked! }
on *:DIALOG:ircop:sclick:218:{ /ban -k %override.channel %override.nick Kicked and Banned! }
on *:DIALOG:ircop:sclick:301:{ /os global $$?="Enter text to Global here" }
on *:DIALOG:ircop:sclick:302:{ /globops $$?="Enter text to send in GlobOps here" }
on *:DIALOG:ircop:sclick:303:{ /wallops $$?="Enter text to Wallops here" }
on *:DIALOG:ircop:sclick:304:{ /cs getpass $$?="Enter Channel to GetPass" }
on *:DIALOG:ircop:sclick:305:{ /sajoin $$?="Nick" $$?="Channel" }
on *:DIALOG:ircop:sclick:306:{ /sapart $$?="Nick" $$?="Channel" }
on *:DIALOG:ircop:sclick:106:{ /kill %kill.nick %kill.reason }
on *:DIALOG:ircop:sclick:107:{ /kill %kill.nick You did something wrong. }
on *:DIALOG:ircop:sclick:113:{ /kline %kline.nick %kline.reason }
on *:DIALOG:ircop:sclick:114:{ /kline %kline.nick You did something wrong. }
on *:DIALOG:ircop:sclick:120:{ /gline %gline.nick %gline.reason }
on *:DIALOG:ircop:sclick:121:{ /gline %gline.nick You did something wrong. }