;Michelin Man ver 3. (contains a centre finding algorithm) ;Created in 2000 by Robert Wallhead aka Michelin Man ;This robot just dumps it mines in a circle and waits to be found ;This robot is not locked ;This robot may not be made publically availiable #config scanner=0 #config engine=2 #config weapon=0 #config armor=5 #config mines=5 #config shield=0 #config heatsinks=0 #msg Bombs away! #def mines #def dir mov ex, 500 ;ex=500 mov fx, 500 ;fx=500 int 7, ax ;current direction=ax in 3, dir ;direction to ex,fx sub ax dir ;ax=ax-dir out 14, ax ;turn ax degrees out 11, 100 ;full speed ahead del 500 ;wait for 500 !loop out 11, 100 ;full speed ahead! del 25 ;wait 25 out 14, 12 ;turn 12 degrees in 22, mines ;how many mines? cmp mines, 0 ;any left? je !loop ;none, goto !loop out 22, 15 ;lay mine ja !loop ;goto !loop