do you have a playable portion?

and next time, don't scare me like that, I though you lost the whole project. 

Sorry to hear, I hope the project won't die, though

now I don't know what to vote for...

Yeah backups are essential for such project development, else we end up with surprises and getting discouraged

Oh nooooooooo this makes me sad

It's been a while since I posted here...

Anyway, would anyone be willing to help me optimize Nostalgia? If so, I'll post up some of the code.

On a story related update (probably the last new character):

Leo

A lone mercenary protecting a village in the Shadowed Dimension. He keeps his past to himself, and with good reason.
He is Arc's son, but refuses to acknowledge that, stating his father is dead.

Yeah. I've just been working on Pokemon, so this has been on hold for a little.

Attached is a zip containing the menu program in its current state. The subroutines are separate in prgmNOSSUBS. Send all the appvars to the RAM. Archive NosMenus.


Here's the code for the menu with the subroutines as part of the program:
WARNING! Large chunk of code is large. VERY large.
:.NOSMENU
:.[Pic1]→Pic1
:.[Pic3]→Pic2
:.[Pic2]→Pic3
:.[Pic6]→Pic4
:.[Pic5]→Pic5
:[10A040A00000000060F0909000000000F09090600000000000A040A000000000→Pic1I
:"vNOSBUFF"→Str1D
:"IRON SWORD*"→Str1E
:"STEEL SWORD*"→Str2E
:"ARBITER'S BLADE*"→Str3E
:"IRON ARMOR*"→Str1A
:"STEEL ARMOR*"→Str2A
:"GUARDIAN MAIL*"→Str3A
:"IRON SHIELD*"→Str1S
:"STEEL SHIELD*"→Str2S
:"ROUND SHIELD*"→Str3S
:DiagnosticOff
:0→r1
:GetCalc(Str1D,768)→J
:DeltaList(8,20,42,60,48,99)→GDB1E
:DeltaList(12,23,33,50,60)→GDB1A
:DeltaList(6,10,15,26,39)→GDB2A
:DeltaList(5,25,125,625,0)→GDB1EX
:GetCalc("vNosStats")→K
:GetCalc("vNosPorts")→I
:GetCalc("vNosMenus",Y1)
:ClrDrawr
:DrawInv r
:Full
:For(θ,0,767
:{Y1+1536+θ} and {L3+θ}→{L3+θ}
:End
:Lbl MS
:If r1=‾1 or (getKey(48)
:0→r1
:Return
:End
:Full
:conj(Y1,L6,768
:For(θ,0,1
:If {θ+70+K}=1
:sub(TX,63,θ*15+4,"ROLAND*"
:sub(DN,{K+38}r,76,θ*15+9,2
:sub(DN,{K+40},76,θ*15+14,1
:End
:If {θ+70+K}=2
:sub(TX,63,θ*15+4,"ARIA*"
:sub(DN,{K}r,76,θ*15+9,2
:sub(DN,{K+2},76,θ*15+14,1
:End
:If {θ+70+K}
:sub(TX,63,θ*15+9,"HP*"
:sub(TX,63,θ*15+14,"MP*"
:End
:End
:conj(L6,J,768
:Lbl MM
:ClrDraw
:conj(J,L6,768
:Normal
:For(θ,0,10
:DispGraphr
:End
:sub(BMG,3,30,7,3,6)
:r1→θ
:If r1=‾1 or θ>15
:DelVar Str1D
:ClrHome
:Goto EXT
:End
:If θ≤15
:Goto CS
:End
:Lbl EXT
:DelVar Str1D
:ClrHome
:Return
:
:.Item Screen
:Lbl IT
:Full
:conj(Y1+768,L6,768
:For(θ,0,7
:!If {θ+58+K}
:ref(4,θ*5+10,81,5
:rref(4,θ*5+10,81,5
:Else
:sub(DN,{θ+58+K},82,θ*5+11,1
:End
:End
:DispGraph
:Normal
:Pause 200
:0→S
:Repeat r1=‾1 or (S≠0) or (r1=‾3
:sub(BM,10,74,8,3,6,1)
:r1/5→S
:{S+58+K}→S
:End
:If r1=‾1
:Goto MM
:End
:If r1≥0
:sub(ITM,r1/5
:End
:If r1>200
:conj(Y1+4608,L6,768
:DispGraph
:Pause 200
:0→r1
:sub(BM,10,74,2,3,6,2)
:If r1≠65534 or (r1=‾1
:0→r1
:Goto MM
:End
:Goto IT
:End
:Goto MS
:
:.Character Select
:Lbl CS
:θ→V
:For(θ,0,10
:DispGraphr
:End
:0→r1
:If V≠15 and ({K+71}≠0
:sub(BMG,3,31,2,62,16
:End
:If r1=‾1
:Goto MM
:End
:If V=5
:0→r6
:If {r1/15+70+K}=1
:38→r6
:End
:Goto ST
:End
:If V=0
:0→V
:If {r1/15+70+K}=1
:32→V
:End
:Goto EQ
:End
:If V=10
:0→V
:If {r1/15+70+K}=1
:38→V
:End
:Goto IT
:End
:If V=15 and ({K+71}≠0
:expr(K+70,K+71,1
:Goto MS
:End
:Goto MM
:
:.Status Screen
:Lbl ST
:conj(Y1+3072,L6,768
:If r6=38
:Fix 9
:Tangent(4,4,I)
:Fix 8
:ref(37,4,33,10
:rref(37,4,33,10
:sub(TX,37,4,"ROLAND*"
:sub(TX,37,9,"THIEF*"
:End
:sub(DN,{K+r6}r,49,15,2
:sub(DN,{r6+3+K}r,68,15,2
:sub(DN,{K+r6+2},49,20,1
:sub(DN,{K+r6+5},63,20,1
:sub(LN,{31*(r6=38)+23+K}r
:sub(DN,{31*(r6=38)+23+K}r,57,26,Y
:sub(LN,{31*(r6=38)+25+K}r
:sub(DN,{31*(r6=38)+25+K}r,57,31,Y
:sub(DN,{K+r6+6},21,38,1
:sub(DN,100-{K+r6+7},74,38,1
:sub(DN,{K+r6+8},21,43,1
:sub(DN,{K+r6+9},74,43,1
:sub(DN,{K+r6+10},21,48,1
:sub(DN,{K+r6+11},21,53,1
:sub(DN,{K+r6+12},74,48,1
:sub(LN,{29*(r6=38)+37+K}
:sub(DN,{29*(r6=38)+37+K},84,4,Y
:sub(LN,{{32*(r6=38)+19+K}-13+GDB1E}
:sub(DN,{{32*(r6=38)+19+K}-13+GDB1E},44,38,Y
:{{32*(r6=38)+20+K}-27+GDB1A}→V
:{{32*(r6=38)+21+K}-32+GDB2A}+V→A
:sub(LN,A
:sub(DN,A,44,48,Y
:DispGraph
:Pause 200
:Repeat getKey(48) or getKey(1)
:End
:If getKey(1)
:conj(Y1+4272,L6+432,336
:Pxl-Off(8,40
:For(θ,0,2
:sub(DN,{9*(r6=38)+74+θ+K},26,θ*8+39,0
:End
:sub(LN,{{9*(r6=38)+74+K}-1+GDB1EX}-{9*(r6=38)+77+K}r
:sub(DN,{{9*(r6=38)+74+K}-1+GDB1EX}-{9*(r6=38)+77+K}r,54,39,Y
:sub(LN,{{9*(r6=38)+75+K}-1+GDB1EX}-{9*(r6=38)+79+K}r
:sub(DN,{{9*(r6=38)+75+K}-1+GDB1EX}-{9*(r6=38)+79+K}r,54,47,Y
:sub(LN,{{9*(r6=38)+76+K}-1+GDB1EX}-{8*(r6=38)+81+K}r
:sub(DN,{{9*(r6=38)+76+K}-1+GDB1EX}-{8*(r6=38)+81+K}r,54,55,Y
:DispGraph
:Pause 200
:Repeat getKey(48) or getKey(4)
:End
:If getKey(4)
:Goto ST
:End
:End
:Goto MM
:
:.Equip Screen
:Lbl EQ
:conj(Y1+2304,L6,768
:ref(62,4,20,5
:rref(62,4,20,5
:If V=32
:GetCalc("vNosPorts")→I
:Fix 8
:Tangent(4,4,I
:Fix 9
:ref(36,4,8,32
:rref(36,4,8,32
:sub(TX,37,4,"ROLAND*"
:sub(TX,37,9,"THIEF*"
:Else
:sub(TX,37,4,"ARIA*"
:sub(TX,37,9,"KNIGHT*"
:End
:sub(TX,72,4,"LV*"
:sub(LN,{29*(V=32)+37+K}
:sub(DN,{29*(V=32)+37+K},84,4,Y
:ref(87,37,5,25
:rref(87,37,5,25
:ref(4,37,83,24
:rref(4,37,83,24
:If {K+V+19}=13
:sub(TX,37,15,Str1E
:End
:If {K+V+19}=14
:sub(TX,37,15,Str2E
:End
:If {K+V+19}=15
:sub(TX,37,15,Str3E
:End
:If {K+V+20}=27
:sub(TX,37,20,Str1A
:End
:If {K+V+20}=28
:sub(TX,37,20,Str2A
:End
:If {K+V+20}=29
:sub(TX,37,20,Str3A
:End
:If {K+V+21}=32
:sub(TX,37,25,Str1S
:End
:If {K+V+21}=33
:sub(TX,37,25,Str2S
:End
:If {K+V+21}=34
:sub(TX,37,25,Str3S
:End
:sub(TX,37,30,"BACK*"
:DispGraph
:Pause 200
:sub(BM,14,56,4,36,6,0)
:If r1=15
:Goto MM
:End
:If r1=‾1
:Goto MM
:End
:r1→θ
:If θ=0
:If {K+13}
:Pt-On(4,37,Pic1I
:sub(TX,9,37,Str1E
:Pt-On(83,37,Pic1I+24
:sub(DN,{K+13},87,37,0
:End
:If {K+14}
:Pt-On(4,42,Pic1I
:sub(TX,9,42,Str2E
:Pt-On(83,42,Pic1I+24
:sub(DN,{K+14},87,42,0
:End
:If {K+15}
:Pt-On(4,47,Pic1I
:sub(TX,9,47,Str3E
:Pt-On(83,47,Pic1I+24
:sub(DN,{K+15},87,47,0
:End
:13→U
:19→S
:End
:If θ=5
:If {K+27}
:Pt-On(4,37,Pic1I+8
:sub(TX,9,37,Str1A
:Pt-On(83,37,Pic1I+24
:sub(DN,{K+27},87,37,0
:End
:If {K+28}
:Pt-On(4,42,Pic1I+8
:sub(TX,9,42,Str2A
:Pt-On(83,42,Pic1I+24
:sub(DN,{K+28},87,42,0
:End
:If {K+29}
:Pt-On(4,47,Pic1I+8
:sub(TX,9,47,Str3A
:Pt-On(83,47,Pic1I+24
:sub(DN,{K+29},87,47,0
:End
:27→U
:20→S
:End
:If θ=10
:If {K+32}
:Pt-On(4,37,Pic1I+16
:sub(TX,9,37,Str1S
:Pt-On(83,37,Pic1I+24
:sub(DN,{K+32},87,37,0
:End
:If {K+33}
:Pt-On(4,42,Pic1I+16
:sub(TX,9,42,Str2S
:Pt-On(83,42,Pic1I+24
:sub(DN,{K+33},87,42,0
:End
:If {K+34}
:Pt-On(4,47,Pic1I+16
:sub(TX,9,47,Str3S
:Pt-On(83,47,Pic1I+24
:sub(DN,{K+34},87,47,0
:End
:32→U
:21→S
:End
:Pause 200
:Repeat r1=‾1
:0→r1
:sub(BM,36,79,5,3,6,0)
:If r1=‾1
:Goto EQ
:End
:If pxl-Test(4,r1+38) or (pxl-Test(4,r1+40
:{{V+S+K}+K}+1→{{V+S+K}+K}
:r1/5+U→{V+S+K}
:{r1/5+U+K}-1→{r1/5+U+K}
:‾1→r1
:End
:End
:Goto EQ
:Return
:Lbl BM
:r6→F
:r5→θ
:r4→r5
:r3-1*(θ-1)+r1→r3
:r1→r4
:Repeat getKey(54) or (getKey(48)) or (r1=‾3) or (r1=‾2)
:rref(r5,r1,r2,θ
:DispGraph
:rref(r5,r1,r2,θ
:Repeat getKey
:End
:If getKey(3) and (F≠0
:‾3→r1
:End
:If getKey(2) and (F=2
:‾2→r1
:End
:If getKey(4) and (r1≠r4
:For(r6,1,θ-1
:rref(r5,r1,r2,θ
:DispGraph
:Pause 20
:rref(r5,r1,r2,θ
:r1-1→r1
:End
:End
:If getKey(1) and (r1≠r3
:For(r6,1,θ-1
:rref(r5,r1,r2,θ
:DispGraph
:Pause 20
:rref(r5,r1,r2,θ
:r1+1→r1
:End
:End
:End
:If r1<<0
:Return
:End
:r1-r4→r1
:If getKey(48)
:‾1→r1
:End
:While getKey(0)
:End
:Return
:
:.Menu - Grey
:Lbl BMG
:r5→θ
:r4→r5
:r3-1*(θ-1)+r1→r3
:r1→r4
:Repeat getKey(54) or (getKey(48)
:rref(r5,r1,r2,θ
:Normal
:Repeat getKey
:DispGraphr
:End
:Full
:rref(r5,r1,r2,θ
:If getKey(4) and (r1≠r4
:For(r6,1,θ-1
:rref(r5,r1,r2,θ
:Normal
:For(Z,0,2
:DispGraphr
:End
:Full
:rref(r5,r1,r2,θ
:r1-1→r1
:End
:End
:If getKey(1) and (r1≠r3
:For(r6,1,θ-1
:rref(r5,r1,r2,θ
:Normal
:For(Z,0,2
:DispGraphr
:End
:Full
:rref(r5,r1,r2,θ
:r1+1→r1
:End
:End
:End
:r1-r4→r1
:If getKey(48)
:‾1→r1
:End
:Normal
:While getKey(0)
:DispGraphr
:End
:Return
:
:.Text
:Lbl TX
:[6050709000000000E0605070000000006080906000000000E05050B0000000006080C0E000000000F0406040000000007080B07000000000C878484800000000E04040F000000000F028A06000000000D060505800000000C040507000000000D0A8A8A8000000008060909000000000609090E000000000E0507040000000006090B06800000000E05060D000000000E0C060E00000000070A02020000000009890906000000000989050200000000088A8A85800000000502050D0000000009070202000000000F01060F00000000040C040E000000000709060F000000000609030F00000000020A0F02000000000E08060E0000000006080E0E000000000F09020200000000070F090F000000000E0E020C000000000E09090700000000000000080000000000000C04000000000604000800000000060A0004000000000C040000000000000A0A00000000000000000F8000000000020404080000000000000000000000000→Str1
:r1→X→F
:r2→Y→G
:0→C
:r3→S
:Repeat getKey(15) or ({S+C}=42
:If {S+C}=41
:Y+5→Y
:F→X
:C+1→C
:End
:If {S+C}=43
:Repeat getKey(54)
:End
:conj(L3,L6,756
:F→X:G→Y
:C+1→C
:End
:While {S+C}=32
:X+2→X
:C+1→C
:End
:If {S+C}=42
:Goto RT
:End
:If {S+C}=41
:Y+5→Y
:F→X
:C+1→C
:End
:{S+C}→D
:D-65→B
:If D<65
:(D-48)+25→B
:If D=48
:35→B
:End
:If D=46
:36→B
:End
:If D=44
:37→B
:End
:End
:5→A
:If (D=72) or (D=74) or (D=75) or (D=77) or (D=81) or (D=85) or (D=86) or (D=87
:6→A
:End
:If (D=69) or (D=83) or (D=49) or (D=53) or (D=54) or (D=57) or (D=33
:4→A
:End
:If D=33
:38→B
:End
:If D=39
:40→B
:3→A
:End
:Pt-On(X,Y,8*B+Str1
:X+A→X
:C+1→C
:End
:Lbl RT
:Return
:
:.Draw Numbers
:Lbl DN
:[E09090700000000040C040E000000000709060F000000000609030F00000000020A0F02000000000E08060E0000000006080E0E000000000F09020200000000070F090F000000000E0E020C000000000→Str1N
:DeltaList(5,4,5,5,5,4,4,5,5,4)→GDB3
:For(X,0,2
:0→{L1+X}
:5→{L5+X}
:End
:r1→Z
:r4→X
:While Z
:sub(CN,Z^10)
:Z/10→Z
:End
:sub(DRN)
:Return
:
:.Calculate Numbers
:Lbl CN
:{GDB3+r1}→{L5+X}
:r1→{L1+X}
:X-1→X
:Return
:
:.Draw Numbers
:Lbl DRN
:r2→Y
:For(X,0,r4)
:Pt-On(Y,r3,8*{L1+X}+Str1N
:Y+{L5+X}→Y
:End
:Return
:
:.Length of Numbers
:Lbl LN
:0→Y
:If r1>9
:1→Y
:End
:If r1>99
:2→Y
:End
:If r1>999
:3→Y
:End
:If r1>9999
:4→Y
:End
:Return
:
:.Item Usage
:Lbl ITM
:If r1=0 and ({K+V}r≠0) and ({K+V}r≠{V+3+K}r) and ({K+58}≠0
:{K+V}r+100→{K+V}r
:If {K+V}r≥{V+3+K}r
:{V+3+K}r→{K+V}r
:End
:{K+58}-1→{K+58}
:End
:If r1=3 and ({V+2+K}≠0) and ({V+2+K}≠{V+5+K}) and ({K+61}≠0
:{V+2+K}+10→{V+2+K}
:If {V+2+K}≥{V+5+K}
:{V+5+K}→{V+2+K}
:End
:{K+61}-1→{K+61}
:End
:If r1=6 and ({K+V}r=0) and ({K+61}≠0
:1→{K+V}r
:{V+5+K}→{V+2+K}
:{K+61}-1→{K+61}
:End

Ok. I did comment out some stuff that got replaced with data from the appvars or was from an older version, just in case you're wondering why I commented out grabbing 5 pictures at the beginning of the program.