Show Posts
1
TI-BASIC / Optimisation help request
« on: July 26, 2018, 01:26:24 pm »
This is a thing I did yesterday in an hour or so, and I was wondering if anyone had the time and knowledge to help me get some speed out of this thing, if possible. Sorry if the code is bad. The .8xp is also attached.
The "game" uses CelticIII.
Copied from TokenIDE's .txt file for x.8xp:
The "game" uses CelticIII.
Copied from TokenIDE's .txt file for x.8xp:
Code: [Select]
"C082031818400101→Str1
"0140481200200400→Str2
"0000000000000000→Str3
identity(8,Str2,0,0,0,0
While 1
real(8→|N
X→W:Y→Z
X-(|N=2)+(|N=3)→X
Y-(|N=4)+(|N=1)→Y
If |N=7
Then
X-1→X
Y-1→Y
End
If |N=8
Then
X+1→X
Y-1→Y
End
If |N=6
Then
X+1→X
Y+1→Y
End
If |N=5
Then
X-1→X
Y+1→Y
End
If X≤0:0→X
If Y≤0:0→Y
If X≥88:88→X
If Y≥48:48→Y
If W≠X or Y≠Z
identity(8,Str2,0,0,0,0
If |N=54
Then
identity(5,"0040FC40",X+8,Y+8,1,4,2,0,1
1→θ
End
If |N≠54 and θ
identity(5,"0040FC40",X+8,Y+8,1,4,3,0,1
identity(5,"FFFFF1EBE1E3FFE1E1D3D3D3818181FF",X,Y,1,16,1,0,0
identity(5,"3F7F71EBE1E2FEE1E1D25252818181FF",X,Y,1,16,2,0,0
det(19
End