Teacher: "You can't do spaces in HTML. If you see spaces on web pages, then they must be using java to override basic HTML. Java saved the Internet, because it removes limitations of HTML, but it's beyond the scope of this course to show you how to do it."

While working on a programming project in highschool with a friend, I mentioned to him that if he really wants to name his variables things like x, xx, and xx2, he should at least put comments saying what they're used for.

The next time I looked over his shoulder, I saw this:

int x; // x is an int

At my previous job, we were porting a UNIX system to Windows NT using Microsoft VC++. A colleague of mine, that was in the process of porting his portion of the code, came to me, looking really upset.

    * Colleague: "Hey! I hate these Microsoft guys! What a rotten compiler! It only accepts 16,384 local variables in a function!"

Oh noes!

What do you mean by that? The contest release of Blur already had four different ships.

I'm reworking the GUI right now, as well as considering adding another ship or two.

Remember that part where I actually finish a chapter?
Yeah...
Done.

Or when I update the Flashbook?

Cuz that's done too.


Edit: Fixed Chapter 10

The secret is that there isn't collision detection yet.

I should really finish Blur...

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