2883
« on: September 20, 2011, 09:28:52 am »
OK so I tried and failed. Is something wrong here?
:.θCUR // Main File
:[80003C383C2E0400→Pic1
:[8078844222413A04
:[801C3E7E7D3A3408
:[B80C8C98FC6E0703
:[90381C2E170E1C08
:GetCalc("varA")→P
:GetCalc("varB")→Q
:GetCalc("varC")→R
:GetCalc("varD")→S
:GetCalc("varF")→U
:GetCalc("uZ")→Y
:float{P}→A
:float{Q}→B
:float{R}→C
:float{S}→D
:float{U}→F
:float{Y}→Z
:0→E
:prgmAAAAA
:Repeat getKey(54)
:ClrDraw
:"PROBLEM HERE?"
:Copy(Z*768+Y1,L6,768)
:Pt-Change(A,B,Pic1+E)
:If getKey(48) and (F=1)
:32→E
:4→C
:End
:If getKey(35)
:24→E
:3→C
:End
:If getKey(18)
:16→E
:2→C
:End
:If getKey(26)
:8→E
:1→C
:End
:If getKey(34)
:0→E
:0→C
:End
:If getKey(32)
:8→C
:End
:If getKey(56)
:7→C
:End
:If getKey(2)
:A-1→A
:End
:If getKey(3)
:A+1→A
:End
:If getKey(4)
:B-1→B
:End
:If getKey(1)
:B+1→B
:End
:If A>95
:95→A
:End
:If A<1
:1→A
:End
:If B<1
:1→B
:End
:If B>63
:63→B
:End
:If getKey(55)
:9→C
:End
:DispGraph
:End
:A→float{P}
:B→float{Q}
:C→float{R}
:.A //Storing appvar
:[Pic1]→Str1
:[Pic2]→Str2
:GetCalc("appvS201",1536)→A
:Copy(Str1,A,768)
:Copy(Str2,A+768,768
:..BB // Accessing appvar
:"appvS200"→Str0
:D^10*256+(D/10)+E3030→{Str0+2}r
:GetCalc(Str0,Y1)
Show Posts
Zoma from Dragon Warrior.