http://www.youtube.com/watch?v=hBp3j_Uah8w
Code: Select all
:main
#set y
#set x
:loop
#set a
#set north y -- north
#set ney y -- ney
#set nex x ++ nex
#set nwy y -- nwy
#set nwx x -- nwx
#set south y ++ south
#set sey y ++ sey
#set sex x ++ sex
#set swy y ++ swy
#set swx x -- swx
#set east x ++ east
#set west x -- west
#ifa y x solid
#ifa ney nex solid ++ a
#ifa nwy nwx solid ++ a
#ifa sey sex solid ++ a
#ifa swy swx solid ++ a
#ifa north x solid ++ a
#ifa south x solid ++ a
#ifa y west solid ++ a
#ifa y east solid ++ a
#if a gt 1
#if a lt 4 #put alt y x solid
#endif
#ifa not y x solid
#ifa ney nex solid ++ a
#ifa nwy nwx solid ++ a
#ifa sey sex solid ++ a
#ifa swy swx solid ++ a
#ifa north x solid ++ a
#ifa south x solid ++ a
#ifa y west solid ++ a
#ifa y east solid ++ a
#if a eq 3 #put alt y x solid
#endif
#++ x
#if x eq 60
#set x 0 ++ y
#endif
#if y eq 25 pend
#loop
:pend
#altswap
#idle main