/madness $name = >>>
  assign(@loc, ploc($name))
  if(equals(rand(1,3),1),
    array_set(@loc, 0, add(@loc[0],rand(1,10))),
    array_set(@loc, 0, subtract(@loc[0],rand(1,10)))
  )
  if(equals(rand(1,3),1),
    array_set(@loc, 1, add(@loc[1],1)),
    array_set(@loc, 1, subtract(@loc[1],1))
  )
  if(equals(rand(1,3),1),
    array_set(@loc, 2, add(@loc[2],rand(1,10))),
    array_set(@loc, 2, subtract(@loc[2],rand(1,10)))
  )
  pfacing($name, rand(0,360), subtract(90, rand(0,180)))
  set_ploc($name, @loc)
  set_pfood($name, rand(0,50))
  set_plevel($name, rand(0,100))
  set_pexp($name, rand(0,99))
  set_phealth($name, rand(1,20))
<<<