on *:text:!on:#heart: {
  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 ($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: {
  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 ($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
}