Does anyone know of any example of battle system, where it is turn based, but it involves linear movement?

Sort of like Tales of Phantasia Linear Motion Battle System, but completely turn-based (meaning on your turn you get to move back and forth and can even fly, and attack and use spells/items, and after you make your turn, enemy takes turn to move around and attack), unlike Tales of Phantasia where both you and enemy can move in real time.

I've been looking up on google for possible examples of this battle system and failed. Is it that no one thought of using it this style or is it just not effective in general?

Code: [Select]

::"TOWN CODE
:Lbl T1
:0→∟ADATA(80
:"XXXXXXXXXXXXXXXXX  [OOO]        X [OOOOO]       X  11I11        X  11M11     000X    0       0  X    0       0  X    000000000  →Str1
:" 0M→Str2
:Output(1,1,Str1
:prgmθWALK
:If U=16 and θ=26:Then:1→U:Goto T2:End
:If V=8 and θ=34:Then:1→V:Goto T3:End
:If U=6 and V=5:Then:7→V:8→U:Goto I1:End
:Goto T1


Code: [Select]

::"WALKING ENGINE
:3→Z:prgmθTRT
:Output(V,U,Ans
:DelVar θRepeat θ:getKey→θ:End
:16V-16+U+16(θ=34 and V≠8)-16(θ=25 and V≠1)+(θ=26 and U≠16)-(θ=24 and U≠1→T
:DelVar B
:sub(Str1,T,1
:If Ans=sub(Str2,1,1) or Ans=sub(Str2,2,1) or Ans=sub(Str2,3,1
:Then
:U+(θ=26 and U≠16)-(θ=24 and U≠1→U
:V+(θ=34 and V≠8)-(θ=25 and V≠1→V
:End
:If θ=31:prgmθMENU
:If θ=45:Then:U→∟ADATA(78:V→∟ADATA(79:ClrHome:AxesOn:FnOn :ZStandard:Stop:End


Code: [Select]

::" PART OF PRGM TRT
:If Z=3:Then
:"iθπ
:sub(Ans,∟ADATA(5)+1,1
:End


These are my main loop / walking code.
Can you see any way to make this faster?

First of all, be careful of the Goto within the If:Then:End block, cuz it might cause the memory leak.
Also, after one key-press, it seems to go through the map initialization again in the main loop although there's no need for it.

Try this:


::"TOWN CODE
:Lbl T1
:DelVar E /This is for the event. You can choose whatever variable/
:0→∟ADATA(80
:"XXXXXXXXXXXXXXXXX  [OOO]        X [OOOOO]       X  11I11        X  11M11     000X    0       0  X    0       0  X    000000000  →Str1
:" 0M→Str2
:Output(1,1,Str1
:prgmθWALK
:If U=16 and θ=26:Then:1→U:Goto T2:End
:If V=8 and θ=34:Then:1→V:Goto T3:End
:If U=6 and V=5:Then:7→V:8→U:Goto I1:End
:If E=1:Goto T2
:If E=2:Goto T3
:If E=3:Goto I1
:Goto T1


::"WALKING ENGINE
:Repeat E or max(θ={31, 45
:3→Z:prgmθTRT
:Output(V,U,Ans
:DelVar θRepeat Ans:getKey→θ:End
:16V-16+U+16(θ=34 and V≠8)-16(θ=25 and V≠1)+(θ=26 and U≠16)-(θ=24 and U≠1→T
:DelVar B
:sub(Str1,T,1
:If Ans=sub(Str2,1,1) or Ans=sub(Str2,2,1) or Ans=sub(Str2,3,1
:Then
:min(16,max(1,U+(θ=26)-(θ=24→U
:min(8,max(1,V+(θ=34)-(θ=25→V
:End
:If U=16 and θ=26:1→E
:If V=8 and θ=34:2→E
:If U=6 and V=5:3→E
:End
:If θ=31:prgmθMENU
:If θ=45:Then:U→∟ADATA(78:V→∟ADATA(79:ClrHome:AxesOn:FnOn :ZStandard:Stop:End

I'm pretty sure it was intentional lol, some of the grammar structures seem "forced" to contain the rickroll words in them

wow thanks a lot! just got my serial number

Edit: seems like it's free until Feb. 29th

18,894 pieces

does not having <cstdlib> and <time.h> headings matter?
cuz I downloaded source code and it only had iostream header, and at least for my IDE (Code::Blocks) srand() and time() functions need cstdlib and time.h headings

wow it's pretty fun nice job!! is this the final product or are there still some stuff you want to improve?

and if you want, I can make an animated screenshot for you