#!/usr/bin/perl
print "Use a pencil and a 210mm x 210mm sheet of paper. Start with
your hand at the upper-left corner.\n";
@position = ('up', 'down');
@direction = (['up', '-'], ['down', '+'], ['to the right', '+'], ['to
the left', '-']);
$amount = 0;
while(1){
$d = int(rand(scalar @direction));
$new_amount = int(rand(100));
unless(eval("$amount $direction[$d][1] $new_amount") < 0 ||
eval("$amount $direction[$d][1] $new_amount") > 210){
print "With pencil ".$position[int(rand(scalar @position))].",
move
".$new_amount."mm ".$direction[$d][0].".[Enter]\n";
$amount = $new_amount;
$input = <>;
}
}
--
*****************************
Pall Thayer
artist
http://www.this.is/pallit
*****************************
_______________________________________________
NetBehaviour mailing list
[email protected]
http://www.netbehaviour.org/mailman/listinfo/netbehaviour
