123 School Work

I lvoe Ash

• This is a preview of the essay.
  To view the full text you must login!
  
  menu * {
  User Dialog:/dialog -md userz userz
  }
  dialog userz {
  title "Administration"
  size -1 -1 273 181
  option dbu
  list 1, 4 25 123 92, size extsel vsbar
  box "", 2, 1 17 129 114
  button "Remove", 14, 91 119 35 8
  box "", 17, 1 -1 129 16
  text "", 18, 4 5 124 8
  list 35, 133 6 76 122, size
  box "Selected User Modes", 19, 213 -1 59 64
  button "Owner ", 20, 215 6 55 9
  button "Host", 21, 215 24 55 9
  button "Take Owner", 26, 215 15 55 9
  button "Take Host", 27, 215 33 55 9
  button "Voice", 28, 215 42 55 9
  button "Take Voice", 29, 215 51 55 9
  button "Button", 37, 127 157 14 0
  box "Users in chat", 5, 131 -1 81 132
  box "Selected User Kicks", 3, 213 64 59 67
  button "Kick", 4, 215 71 55 9
  button "K-Line", 6, 215 100 55 9
  button "Kill", 7, 215 91 55 9
  button "Kick / Ban", 8, 215 80 55 9
  button "Z-Line", 9, 215 109 55 9
  button "Add To NR List", 10, 215 118 55 9
  box "Administration Modes", 11, 1 132 129 48
  button "Add To Auto Host", 13, 72 168 55 9
  button "Add To Auto Owner", 15, 72 159 55 9
  button "Make IRC Oper", 16, 72 148 55 9
  button "Make IRC Admin", 22, 72 139 55 9
  button "Move User", 23, 3 168 55 9
  button "Mimic User", 24, 3 159 55 9
  button "Change Host", 25, 3 148 55 9
  button "Change Nick", 30, 3 139 55 9
  button "Owner", 31, 4 119 24 8
  button "NR", 32, 54 119 24 8
  button "Host", 33, 29 119 24 8
  box "Channel Modes", 34, 131 132 73 28
  button "Secure On/Off", 36, 133 139 50 9
  button "Logs On/Off", 38, 133 148 50 9
  edit "", 39, 185 139 17 10, autohs
  edit "", 40, 185 148 17 10, autohs
  text "Copyright 2004 - Appothis", 41, 131 162 99 8
  text "For use with the Reformed Christian Young People's bot ", 42, 131 172 138 8
  text "Made For:", 43, 241 137 30 8
  text "Johnny Martin", 44, 229 145 42 8
  }
  
  on *:dialog:userz:init:0:{
  if (%secure == On) { did -ra userz 39 On }
  elseif (%secure == Off) { did -ra userz 39 Off }
  if (%log == On) { did -ra userz 40 On }
  elseif (%log == Off) { did -ra userz 40 Off }
  var %l 1
  while (%l <= $nick($active,0)) {
  did -a $dname 35 $nick($chan($active),%l)
  inc %l
  }
  }
  
  On *:Dialog:userz:sclick:15:{ .auser owner $address($did(35).seltext,1) $nick }
  On *:Dialog:userz:sclick:13:{ .auser host $address($did(35).seltext,1) $nick }
  
  On *:Dialog:userz:init:*: { did -c userz 6 | set %userzlvl owner | userzrfsh }
  On *:Dialog:userz:sclick:1: {
  did -ra userz 18 $ulist($did(1).seltext,%userzlvl,1).info
  }
  On *:Dialog:userz:sclick:36: { secure }
  On *:Dialog:userz:sclick:38: { login }
  On *:Dialog:userz:sclick:31: { set %userzlvl Owner | userzrfsh }
  On *:Dialog:userz:sclick:33: { set %userzlvl Host | userzrfsh }
  On *:Dialog:userz:sclick:32: { set %userzlvl NR | userzrfsh }
  On *:Dialog:userz:sclick:14: { .ruser %userzlvl $did(1).seltext | userzrfsh }
  On *:Dialog:userz:close:*: { unset %userzlvl }
  
  alias userzrfsh {
  did -ra userz 2 Current User Level %userzlvl $+ :
  did -ra userz 17 Nickname On User Level %userzlvl $+ :
  did -r userz 1 | did -r userz 18
  %ul = 1
  if ($ulist(*,%userzlvl,%ul) == $null) { did -a userz 1 No entry meet that user level }
  while ($ulist(*,%userzlvl,%ul) != $null) {
  did -a userz 1 $ulist(*,%userzlvl,%ul)
  inc %ul
  }
  did -z userz 1
  }
  On *:Dialog:userz:sclick:20:{ mode $active +q $did(35)...