First of all, screenshot.



I started this because I have to wait for my other calc to be returned and I was bored.
This is the pure TI-BASIC rpg game (maybe I might use xcopy later)
So far I made the inn, walking, and bit of status stuff.

lol
The talking engine will change later to one that looks like the intro scene.

Ooh, that would be cool, but I do like how simple it is now

Like DJ mentioned, the tilemapping seems a bit slow. Blakpilar and I played around with tilemappers awhile back and here's what we managed to get.


I can't speak for blak, but I'm willing to help if you want to make it faster

@DJ
Looks nice Yeong

I always forget to close parenthesizes in english

Ok, what I usually do personally for collision detection is make sure in the game there is only one or two tile you can walk on (for example, stairs and blank tiles). Then make sure every event tile is solid. If the character tries to walk on a solid tile, it either exits the entire walking loop or launch a sub-program (preferably the former) to check what kind of tile you just hit. If it's not an event, then it goes back in the walking loop, otherwise it checks what event needs to be launched. In any case, anything involving solid tiles occurs outside the walking loop. That speeds walking up considering, but only as long as you don't have like 5-6 tiles you can walk on. I did something similar in Reuben Quest and Illusiat 13. The only downside is that when you try to walk on a solid tile, there's a small delay before you can move again.

Quote from: aeTIos on February 17, 2012, 03:47:24 am

@DJ
Looks nice Yeong

I always forget to close parenthesizes in english

Too much TI-BASIC programming?
Anyways, I always love seeing new TI-BASIC projects pop up because it is a great language, if you use it correctly.

::"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

::"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

::" 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?