Thread:Berneyvonbean/@comment-26864186-20150807055211

@ENDLP SPOFS 0,X,Y,2 IF SIZE > 1 THEN SPOFS 99,X-2,Y-16,2 Y=Y+2 C=GSPOIT(X+6,Y+14) IF C==1 THEN GOTO @ENDCON WAIT 2 GOTO @ENDLP @ENDCON WAIT 20 Y = Y - 2 D=1 @REPTOAIR D=D+1 IF GSPOIT(X+6+D,Y+16)==1 AND D < 16 THEN GOTO @REPTOAIR X=X+D SPOFS 0,X,Y,2 IF SIZE > 1 THEN SPOFS 99,X-2,Y-16,2 SPCHR 0,11 IF SIZE > 1 THEN SPCHR 99,17 WAIT 30 X=X+8 SPOFS 0,X,Y,10 IF SIZE > 1 THEN SPOFS 99,X-2,Y-16,10 WAIT 10 D=2 @REPTOFLR WAIT 2 Y=Y+D IF D < 8 THEN D=D+2 SPOFS 0,X,Y,2 IF SIZE > 1 THEN SPOFS 99,X-2,Y-16,2 IF GSPOIT(X+6,Y+14) == 0 THEN GOTO @REPTOFLR Y = Y - (Y%16) SPOFS 0,X,Y,2 IF SIZE > 1 THEN SPOFS 99,X-2,Y-16,2 WAIT 20

SPCHR 0,2 SPANIM 0,4,10 SPOFS 0,280,Y,100 IF SIZE == 1 THEN GOTO @ENDRTR SPCHR 99,18 SPANIM 99, 4, 10 SPOFS 99,278,Y-16,100 @ENDRTR WAIT 350 GOTO @PTOE  