Miscellany

on *:text:!on:#heart: {
  if ( anna^ !ison $chan) {
    if ($nick !isreg $chan) {
      if ($hget(active,$nick) == $null) { hadd active $nick $nick  | notice $nick you have been added to active staff list. | halt
      }
      else notice $nick you are already on my active staff list. | halt
    }
  }
}
on *:TEXT:!off:#heart: {
  if ( anna^ !ison $chan) {
    if ($nick !isreg $chan) {
      if ($hget(active,$nick) == $null) { notice $nick you are not set to change a world, so I can't take him off the active staff list! | halt
      }
      else hdel active $nick $nick | notice $nick you have been taken off the active staff list. | halt
    }
  }
}

on *:TEXT:!active:#heart: {
  if ( anna^ !ison $chan) {
    var %i = 0
    var %t = $hget(active,0).item
    while (%i < %t) {
      inc %i
      var %list = $addtok(%list,$hget(active,%i).item,32)
      var %clist = $addtok(%clist,$hget(changing,%i).item,32)
    }
    if (%list != $null) { notice $nick the active staff is/are: $addtok(%list,$hget(active,%i).item,32)
    }
    else notice $nick there is no one active to set a world right now Sorry.
  }
}
on *:TEXT:!takeoff *:heart: { 
  if ( anna^ !ison $chan) {
    if ($nick !isreg $chan) { 
      if ($hget(active,$2) != $null) {
        hdel active $2 $2 | notice $nick $2 has been taken off the active staff list.
      }
    }
  }
}
alias changeing {
  hmake active 5
  if ($isfile(active.htb)) hload active active.htb
  echo 3 -ea active script has been started
}
on *:start: {
  hmake active 5
  if ($isfile(active.htb)) hload active active.htb
  echo 3 -ea active script has been started
}