This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Messages - FinaleTI
Pages: 1 ... 81 82 [83] 84 85 ... 126
1231
« on: October 27, 2010, 12:56:05 pm »
That's pretty odd. I just tried and had the same problem....
I tried to save it using the TI Program Editor, but it doesn't want to save it because it supposedly has an incorrect syntax.
In response to your edit, I end up using the on-calc editor because it's always accessible to me.
Edit: Just tried it with Merthsoft's Tokens program and I changed the name in the Axe header, sent it to Wabbit, compiled and it worked perfectly.
1232
« on: October 27, 2010, 11:42:27 am »
Ok. Here's the code. And it's still pretty 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 ‾1sub(R1) or (getKey(48)
:0→r1
:Return
:End
:Full
:conj(Y1,L6,768
:For(θ,0,1
:If {θ+K+70}=1
:sub(TX,63,θ*15+4,"ROLAND*"
:sub(DN,{38sub(K)}r,76,θ*15+9,2
:sub(DN,{40sub(K)},76,θ*15+14,1
:End
:If {θ+K+70}=2
:sub(TX,63,θ*15+4,"ARIA*"
:sub(DN,{0sub(K)}r,76,θ*15+9,2
:sub(DN,{2sub(K)},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 ‾1sub(R1) 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 ‾1sub(R1) or (S≠0) or (‾3sub(R1)
:sub(BM,10,74,8,3,6,1)
:r1/5→S
:{S+58+K}→S
:End
:If ‾1sub(R1)
: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 (‾1sub(R1)
: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 ({71sub(K)}≠0
:sub(BMG,3,31,2,62,16
:End
:If ‾1sub(R1)
: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 ({71sub(K)}≠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,{r6sub(K)}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(36,4,52,10
:rref(36,4,52,10
: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 {sub(KV)+19}=13
:sub(TX,37,15,Str1E
:End
:If {sub(KV)+19}=14
:sub(TX,37,15,Str2E
:End
:If {sub(KV)+19}=15
:sub(TX,37,15,Str3E
:End
:If {sub(KV)+20}=27
:sub(TX,37,20,Str1A
:End
:If {sub(KV)+20}=28
:sub(TX,37,20,Str2A
:End
:If {sub(KV)+20}=29
:sub(TX,37,20,Str3A
:End
:If {sub(KV)+21}=32
:sub(TX,37,25,Str1S
:End
:If {sub(KV)+21}=33
:sub(TX,37,25,Str2S
:End
:If {sub(KV)+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 15sub(R1)
:Goto MM
:End
:If ‾1sub(R1)
:Goto MM
:End
:r1→θ
:If θ=0
:If {13sub(K)}
:Pt-On(4,37,Pic1I
:sub(TX,9,37,Str1E
:Pt-On(83,37,Pic1I+24
:sub(DN,{13sub(K)},87,37,0
:End
:If {14sub(K)}
:Pt-On(4,42,Pic1I
:sub(TX,9,42,Str2E
:Pt-On(83,42,Pic1I+24
:sub(DN,{14sub(K)},87,42,0
:End
:If {15sub(K)}
:Pt-On(4,47,Pic1I
:sub(TX,9,47,Str3E
:Pt-On(83,47,Pic1I+24
:sub(DN,{15sub(K)},87,47,0
:End
:13→U
:19→S
:End
:If θ=5
:If {27sub(K)}
:Pt-On(4,37,Pic1I+8
:sub(TX,9,37,Str1A
:Pt-On(83,37,Pic1I+24
:sub(DN,{27sub(K)},87,37,0
:End
:If {28sub(K)}
:Pt-On(4,42,Pic1I+8
:sub(TX,9,42,Str2A
:Pt-On(83,42,Pic1I+24
:sub(DN,{28sub(K)},87,42,0
:End
:If {29sub(K)}
:Pt-On(4,47,Pic1I+8
:sub(TX,9,47,Str3A
:Pt-On(83,47,Pic1I+24
:sub(DN,{29sub(K)},87,47,0
:End
:27→U
:20→S
:End
:If θ=10
:If {32sub(K)}
:Pt-On(4,37,Pic1I+16
:sub(TX,9,37,Str1S
:Pt-On(83,37,Pic1I+24
:sub(DN,{32sub(K)},87,37,0
:End
:If {33sub(K)}
:Pt-On(4,42,Pic1I+16
:sub(TX,9,42,Str2S
:Pt-On(83,42,Pic1I+24
:sub(DN,{33sub(K)},87,42,0
:End
:If {34sub(K)}
:Pt-On(4,47,Pic1I+16
:sub(TX,9,47,Str3S
:Pt-On(83,47,Pic1I+24
:sub(DN,{34sub(K)},87,47,0
:End
:32→U
:21→S
:End
:Pause 200
:Repeat ‾1sub(R1)
:0→r1
:sub(BM,36,79,5,3,6,0)
:If ‾1sub(R1)
:Goto EQ
:End
:If pxl-Test(4,r1+38) or (pxl-Test(4,r1+40
:{{sub(KV)+S}sub(K)}+1→{{sub(KV)+S}sub(K)}
:r1/5+U→{sub(KV)+S}
:{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 (‾3sub(R1)) or (‾2sub(R1)
: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
:If inString(D,DeltaList(72,74,75,77,81,85,86,87,0))
:6→A
:End
:.If (D=69) or (D=83) or (D=49) or (D=53) or (D=54) or (D=57) or (D=33
:If inString(D,DeltaList(69,83,49,53,54,57,33,0))
: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+(r1≥10)+(r1≥100)+(r1≥1000)+(r1≥10000)→Y
:Return
:
:.Item Usage
:Lbl ITM
:If 0sub(R1) and ({sub(KV)}r≠0) and ({sub(KV)}r≠{sub(KV)+3}r) and ({58sub(K)}≠0
:{sub(KV)}r+100→{sub(KV)}r
:If {sub(KV)}r≥{sub(KV)+3}r
:{sub(KV)+3}r→{sub(KV)}r
:End
:{58sub(K)}-1→{58sub(K)}
:End
:If 3sub(R1) and ({sub(KV)+2}≠0) and ({sub(KV)+2}≠{sub(KV)+5}) and ({61sub(K)}≠0
:{sub(KV)+2}+10→{sub(KV)+2}
:If {sub(KV)+2}≥{sub(KV)+5}
:{sub(KV)+5}→{sub(KV)+2}
:End
:{61sub(K)}-1→{61sub(K)}
:End
:If 6sub(R1) and ({sub(KV)}r=0) and ({61sub(K)}≠0
:1→{sub(KV)}r
:{sub(KV)+5}→{sub(KV)+2}
:{61sub(K)}-1→{61sub(K)}
:End
:Return
:
:Lbl R1
:(=r1)Return
:
:Lbl KV
:ReturnK+V
:
:Lbl K
:(+K)Return
Attached is the .8xp source and the appvars you need to run the program. If you want to test, appvNosMenus needs to be archived, and appvNosPorts and appvNosStats need to be in the RAM.
Edit: Oops, I forgot to disable smileys, which messed up the posted source.
Edit 2: Sorry. The quote was really tall, so I switched to code tags.
1233
« on: October 27, 2010, 11:18:22 am »
I tried the first one and it looks like it's missing DJ's song 'The Last Time You'll Rock'. Was this fixed in the newer versions, or did I just miss something?
1234
« on: October 27, 2010, 11:00:39 am »
Yeah, it's an app. I don't think it would be possible for me to make it in a program, even if it was for Mirage or DCS, just because I need all the code space I can.
I did shave off a few more bytes last night, though. The menu now sits at 9883 bytes. I believe I can still 'sub-routinize' more code, so that should be helpful. Plus, with a little modification to some of my picture data, I can cut back on the number of rectangles I use to erase stuff.
1235
« on: October 27, 2010, 10:47:38 am »
Congratulations Nemo! Recoil was truly a good game.  I enjoyed facing a worthy opponent such as yourself.
1236
« on: October 26, 2010, 09:33:03 pm »
Keep in mind this is just the menu, but if I could, that would be awesome. I did get it down to 9883 now, though. Only about 1000 bytes to go. 
1237
« on: October 26, 2010, 07:31:26 pm »
-Have 50 posts ✔
-Have been active posting for at least one month ✔
-Have a good forum/IRC behaviour during that period and no past ban/suspensions longer than 7 days (including the old board). ✔
-Be involved in at least one of the following:
*TI game programming ✔
*TI game development tools (on calc or on the computer)
-Have a related project which was updated less than a month ago. ✔
-The language used to program doesn't matter, same for the TI calculator model.
I would try to join, but I'm swamped with Pre-Cal class. I get copious amounts of homework each night, from that class alone. Once I had 2.5-3 hours of homework from that class. The worst part? It was like the 2nd or 3rd homework assignment for the entire class. Thankfully, it hasn't been that bad since, but one never knows...
1238
« on: October 26, 2010, 07:27:02 pm »
Optimization is going smoothly. I managed to cut the size from 10416 bytes to 9910! That's 506 bytes saved! And I'm pretty sure there are still several things I can optimize. 
1239
« on: October 26, 2010, 06:09:48 pm »
Hm, I was just about to ask if you can delete external variables, then just before I posted I decided to check the docu just in case even though I was 99% sure you couldn't...and then I found out you can  . This will make things much easier (ie creating temp appvars for extra storage and then deleting them.)
I'll think about changing the limit: there'll be plenty of cushion time to decide since the only data in the save file following item data are quest flags (which I can use bits for if I want to lol)
Yeah, creating temp appvars really helps. I actually use 3-4 different buffers in Nostalgia's battle engine (L6 and two appvars, plus the occasional use of L3).
1240
« on: October 26, 2010, 05:07:42 pm »
Awesome! Will KOS have some sort of built-in language kinda like TI-BASIC (except much better obviously)? If so, I'll definitely give some serious thought to putting it on my TI-84+ SE a lot sooner.
1241
« on: October 26, 2010, 04:49:29 pm »
I'd possibly move it onto my TI-84+ after I get used to it. It's just that I have Axe on it and use it for developing all my projects.
1242
« on: October 26, 2010, 04:47:20 pm »
I like this OS SO much!
First I didnt realize that it was a real OS, but it is! going to install this when it is finished!
Sweet! My one concern about this is that people will look at it and say how cool it is, or how much they like it, but no one will actually install and use it.
That's why I'm glad have a TI-83+ and a TI-84+ SE. I'll probably put it on my 83+ and keep TI-OS 2.43 on my 84+ SE for now.
1243
« on: October 26, 2010, 04:37:31 pm »
I checked, but he never specified what was wrong with it. I just implemented it according to Quigibo's examples and it seems to work perfectly for me. But to be on the safe side, I only commented out the old Ifs. Edit: I just checked, and the two lines I changed shaved off about 206 more bytes.
1244
« on: October 26, 2010, 04:00:42 pm »
Kay. I'll most likely be adding an easier difficulty, which will probably slow it down a little and make the tunnel bigger. Plus, if I do add multiplayer, it'll probably end up being slower, just cause it needs to swap variables.
1245
« on: October 26, 2010, 03:18:36 pm »
Yeah, I don't plan on rewriting the code right now, unless there's a way to do something in a much smaller size.
I just noticed another good optimization, too. Hurrah for inData()!
Pages: 1 ... 81 82 [83] 84 85 ... 126
|
Show Posts