Basic Anticheat (FORTH) (NO SYNTAX)

: Vector3 ( x y z -- v )  create , , ;
: Vector3_length ( v -- len )  3 cells + @ * swap @ * + swap @ * + sqrt ;

variable player-pos
variable player-vel

: update-anticheat
  player-pos @ player-vel @  Vector3_length  max-vel @ >  if
    player-vel ! ( Vector3 ) 0 0 0 Vector3  player-vel !
    "Cheat detected! Your velocity has been reset." player-send-message
  then
;