Petit Computer LTTP code

LOAD"SPU0:LINKTEST", FALSE
load"spu1:LINKSUD", false
LOAD"COL1:LINK", FALSE
SPSET 1, 0, 0, 0, 0, 0, 16, 32
SPOFS 1, 128, 64, 5
REM THE BELOW VALUES EFFECT LINK ALOT
CANMOVE=TRUE
SPX=128 'LINKS X SCREEN VALUE
SPY=64  'LINKS Y SCREEN VALUE
MOVING=1  'WHAT DIRECTION TO MOVE LINK
LINKSPEED=8 'HOW MANY PIXELS HE CAN MOVE
ADDEDTIME=10 'TIME THATS PASSED
ANIMTIME=20  'TIME BEFORE WE
' MOVE HIM AGAIN
MOVEMENTINTERVAL=4 'AMOUNT
'OF TIME IN TICKS BEFORE
' HE GETS MOVED AGAIN
facing=0

@MAIN
CLS
PRINT "ANIMTIME";ANIMTIME
REM TIMER DEBUG DISPLAY
PRINT "ADDEDTIME";ADDEDTIME
REM TIMER DEBUG DISPLAY

IF BGMCHK(0)==0 THEN BGMPLAY 128 'LOOP MUSIC


IF BUTTON(0)==1 THEN MOVING=1 REM UP LINK
IF BUTTON(0)==2 THEN MOVING=2 REM DOWN LINK
IF BUTTON(0)==4 THEN MOVING=3 REM LEFT LINK
if button(0)==8 then moving=4 rem right link
if button(0)==16 then swinging=true

IF MOVING==1 THEN GOSUB @MOVEUP
IF MOVING==2 THEN GOSUB @MOVEDOWN
IF MOVING==3 THEN GOSUB @MOVELEFT
if moving==4 then gosub @moveright
if swinging==true then gosub @linkswings
if moving==2 then facing=2 rem link is facing down he can swing his sword






IF ADDEDTIME>ANIMTIME THEN CANANIMATE=TRUE
IF ADDEDTIME>ANIMTIME THEN ANIMTIME=ADDEDTIME+MOVEMENTINTERVAL
ADDEDTIME=ADDEDTIME+1
CANMOVE=FALSE
IF CANANIMATE==TRUE THEN CANMOVE=TRUE


MOVING=FALSE REM IF LEFT TRUE
REM LINK SKATES AROUND
WAIT 1

GOTO @MAIN

@MOVEUP
IF CANMOVE==FALSE THEN RETURN
SPY=SPY-LINKSPEED
SPSET 1,0,0,0,0,0,16,32
SPOFS 1, SPX, SPY+LINKSPEED, 0
SPOFS 1, SPX, SPY, 5
SPANIM 1, 8, 1, 1
CANANIMATE=FALSE
RETURN

@MOVEDOWN
IF CANMOVE==FALSE THEN RETURN
SPY=SPY+LINKSPEED

SPSET 1,32,0,0,0,0,16,32
SPOFS 1, SPX, SPY-LINKSPEED, 0
SPOFS 1, SPX, SPY, 5
SPANIM 1, 8, 1, 1
CANANIMATE=FALSE
RETURN

@MOVELEFT
IF CANMOVE==FALSE THEN RETURN
SPSET 1,16 , 0, 0, 0, 0, 16, 32
SPX=SPX-LINKSPEED
SPOFS 1,SPX+LINKSPEED, SPY, 0
SPOFS 1, SPX, SPY, 5
SPANIM 1, 6, 1, 1
CANANIMATE=FALSE
RETURN

@moveright
if canmove==false then return
spset 1, 48, 0, 0, 0, 0, 16, 32
spx=spx+linkspeed
spofs 1, spx-linkspeed, spy, 0
spofs 1, spx, spy, 5
spanim 1, 6, 1, 1
cananimate=false
return


@linkswings

if facing==0 then return rem dont do this links not facing the right way
if cananimate==false the return
spofs 1, spx, spy, 0
spset 1, 0, 1, 0, 0, 0, 32, 32
spanim 1, 6, 1, 1
cananimate=false
return