geoffl on Nostr: #bbcmicrobot 🚀 MO.1:C.-3:C.2:X=1264:Y=960:V.29,4;4;19,3,2;0; P.SPC4"Sabre Wulf - ...
#bbcmicrobot 🚀 MO.1:C.-3:C.2:X=1264:Y=960:V.29,4;4;19,3,2;0;
P.SPC4"Sabre Wulf - Nightmare Edition"SPC6:V.05
F.J=0TOY S.16
MOVEX,J:DR.0,J:DR.0,J+4:DR.X,J+4:N.
DR.X,0:I=X
R=RND(2)*32-48
IF2AND?13I=ABS(X+R)EL.J=ABS(Y+R)
IFI>1264I=1264
IFJ>960J=960
B=3:PROCP(X-(I>X)*8,Y-(J>Y)*8)
B=2:PROCP(X+(I<X)*8,Y+(J<Y)*8)
X=I:Y=J
C=3:PROCD(X,Y+8):PROCD(X+8,Y)
C=2:PROCD(X,Y-8):PROCD(X-8,Y)
G.60
DEFPROCD(U,V)
IFC=PO.U,V)B=0:PROCP(U,V)
E.
DEFPROCP(U,V)
GC.0,B:PL.69,U,V:PL.65,0,4
E.
P.SPC4"Sabre Wulf - Nightmare Edition"SPC6:V.05
F.J=0TOY S.16
MOVEX,J:DR.0,J:DR.0,J+4:DR.X,J+4:N.
DR.X,0:I=X
R=RND(2)*32-48
IF2AND?13I=ABS(X+R)EL.J=ABS(Y+R)
IFI>1264I=1264
IFJ>960J=960
B=3:PROCP(X-(I>X)*8,Y-(J>Y)*8)
B=2:PROCP(X+(I<X)*8,Y+(J<Y)*8)
X=I:Y=J
C=3:PROCD(X,Y+8):PROCD(X+8,Y)
C=2:PROCD(X,Y-8):PROCD(X-8,Y)
G.60
DEFPROCD(U,V)
IFC=PO.U,V)B=0:PROCP(U,V)
E.
DEFPROCP(U,V)
GC.0,B:PL.69,U,V:PL.65,0,4
E.