( Rewritten by Alynna )
$include $lib/alynna
lvar param
: main
param !
param @ "Arrive" smatch if
 ( Eliminating the possibility of an endless loop, hopefully )
 loc @ #278 dbcmp if exit then  
 ( Cancel if validated  )
 me @ location "/@rp/validated?" envprop swap pop not me @ mlevel 5 <= and if 
 ( Tell everyone here )
  { "^BLUE^<^YELLOW^OOC^BLUE^>^ ^ " me @ " was returned to the OOC Nexus because this location is not open!" }cat loc @ #-1 rot ansi_notify_except
  ( Kick them to the curb )
  me @ #278 moveto
  ( Tell them what we think )
  "^YELLOW^>> ^RED^The location you attempted to go to was not open! You have been returned to the OOC nexus, type IC to go to the grid. ^YELLOW^<<" me @ swap ansi_notify
  exit
 then
 me @ "/@rp/validated?" getpropval if exit then 
 ( Cancel if in an OOC room )
 loc @ location parents_array "$env/ooc" match array_findval if exit then
 ( Tell everyone here )
 { "^BLUE^<^YELLOW^OOC^BLUE^>^ ^ " me @ " was returned to the OOC Nexus because they were not valid!" }cat loc @ #-1 rot ansi_notify_except
 ( Kick them to the curb )
 me @ #278 moveto
 ( Tell them what we think )
 "^YELLOW^>> ^RED^You are not allowed to leave the designated OOC area unless you are validated! ^YELLOW^<<" me @ swap ansi_notify
 ( Tell the wizcore )
 #21 "wi " me @ name strcat " was returned to the OOC Nexus because they were not valid!" strcat force
then
param @ "Connect" smatch if
 ( Awaken the sleeper cells )
 1 sleep
 loc @ #459 dbcmp if me @ #278 moveto then
then
param @ "Disconnect" smatch if
 ( Destroy the active cells )
 loc @ #278 dbcmp if me @ #459 moveto then
then
;