Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- :.0:
- :4→X →Y//COOR
- :0→F//SPR OFST
- :0→O//MAP NUM
- :10→A'//TXT SPD
- :42→B'//TB POS
- :.T1
- :solve(0,"ERR01","VR1
- :solve(0,"UROLT1","VT
- :solve(0,"URMAP01","VM
- :solve(0,"URS1","VSP
- :Repeat getKey=15
- :prgmLbl "TILE
- :prgmLbl "SIDE
- :prgmLBL "DSPR
- :DispGraph
- :If X=9 *Y=6
- :Goto Lbl "TEXT1
- :If X=1 *Y=3
- :Goto Lbl "TEXT2
- :X
- :If 1>=(M+F'-1)
- :-getKey=2
- :If 1>=(M+F'+1)
- :+getKey=3
- :If >9
- :X
- :→X
- :If 1>=(M+F'-12) +4=(M+F'-12)
- :-getKey=4
- :If 1>=(M+F'+12) +4=(M+F'+12)
- :+getKey=1
- :If >7
- :Y
- :→Y
- :F
- :If getKey=1
- :0
- :If getKey=4
- :1
- :If getKey=2
- :2
- :If getKey=3
- :3
- :→F
- :B'
- :0
- :If X<=3
- :42
- :→B'
- :End
- :Goto Lbl "Stop
- :.TEXT1
- :"LEKENS:→A
- :"WHAT!!!???→B
- :"UNBELIEVABLE!→C
- :prgmLBL "TEXT
- :"LEKENS FOUND→A
- :"THE LUCKY PENNY.→B
- :":P→C
- :prgmLBL "TEXT
- :Y+1→Y
- :0→F
- :Goto Lbl "T1
- :.TEXT2
- :"INNKEEPER:→A
- :"SORRY.→B
- :"INN IS CLOSED.→C
- :prgmLbl "TEXT
- :"INNKEEPER:→A
- :"IT'S NOT LIKE YOU→B
- :"NEED IT.→C
- :prgmLbl "TEXT
- :Y+1→Y
- :0→F
- :Goto Lbl "T1
- :.Stop
- :Stop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement