#!/usr/bin/perl
# I have not been getting much sleep. 
!sleep
# Today I just wanted to wander
and do { ($x, $y) = (int rand $roomx, int rand $roomy) }
# into a corner
until ( (!$x||$x==$roomx-1) and (!$y||$y==$roomy-1) )
# and die
and die
[download]

LAI
:eof