prgmAT: Tilemap Testing

:.0:
:solve(0,"EAR01","VR1
:Get("VR1
:Get("UROL3Data→Theta
:int(theta+67,10
:int(Theta+71,1
:int(Theta+72,1
:Lbl "TILE→A
:Lbl "MOVE→B
:Lbl "TEXT→C
:10→A'
:
:.M1
:Lbl "M1S→Z'
:solve(0,"URS1","VS
:Get("VS→S
:solve(0,"URMAP2","VM",1680
:Get("VM→M
:solve(0,"URS2","VT",40
:Get("VT→T
:0→F'
:30→W'
:56→H'
:48→Y'
:10→X'
:5→X →Y
:"EARTH PALACE→R'
:.M1S
:Repeat getKey=15 +T'=1665
:prgmA
:If T'=134 *getKey=54
:Goto Lbl "E1
:If getKey=48
:prgmLbl "MENU
:prgmB
:End
:prgmLbl "Stop
:
:.M2
:Lbl "M2S→Z'
:solve(0,"URMAP2","VM",1280,1776
:Get("VM→M
:solve(0,"URS2","VT",40,160
:Get("VT→T
:0→F'
:80→W'
:16→H'
:8→Y'
:70→X'
:6→X →Y
:"DAEMON VALLEY→R'
:.M2S
:Repeat getKey=15
:Get("VT→T
:prgmA
:If getKey=48
:prgmLbl "MENU
:If Y=7 *68≤X'
:Goto Lbl "Stop
:If !X' *!X
:Goto Lbl "Stop
:prgmB
:End
:Goto Lbl "Stop
:.DelVar
:DelVar "VM
:DelVar "VT
:End
:.E1
:"LEKENS:→N
:"LET'S TOUCH THIS→O
:"CRYSTAL...→P
:prgmC
:prgmLbl "DelVar
:Goto Lbl "M2
:.Stop
:Stop
:.MENU
:solve(0,"EAR02","VT-1
:Get("VT-1
:prgmLbl "MD
:End