on *:TEXT:!tagged*:#: {
  msg $chan 4 %tp. [ $+ [ $chan ] ] 7is currently itIt.
}

on *:TEXT:!starttag*:#: {
  set tp. [ $+ [ $chan ] ] $nick
  msg $chan 4 $nick 7has restarted the game.4 $nick 7is now it.
}


on *:TEXT:!tag *:#: {
  if (%tp. [ $+ [ $chan ] ] != $nick) halt
  if ($2 != $nick) && ($2 ison $chan) {
    set %tp. [ $+ [ $chan ] ] $2
    msg $chan 4 $nick 7has tagged4 $2 $+ !
    notice $2 7You're it! Type 4!tag nick 7to tag someone else.
  }
}