TI BASIC Game: Aperture

[unhuman]

Thank you!

[+adamantyr]

Argh... exactly what I did NOT WANT to happen...

 

One code bug... it doesn't consider electric lines for the platforms as traversable when falling. This breaks Level 12.

 

And Level 13 is missing a corridor necessary to finish it.

 

Now I have to revise two program versions and redo the level code for the disk version.

 

I'll update the zip on the submission thread tonight with the fixes.

 

Adamantyr

[+adamantyr]

Update done, should have levels 12 and 13 playable now. (Also fixed one thing that made level 13 a bit too easy.)

 

Adamantyr

[+arcadeshopper]

Ok, I looked and for the life of me can't figure out where the hell to download from for the contest thing..help! nevermind I found it 30 sec after I wrote this

 

Greg

 

Update done, should have levels 12 and 13 playable now. (Also fixed one thing that made level 13 a bit too easy.)

 

Adamantyr

Edited December 4, 2010 by arcadeshopper

[Opry99er]

Greg actually did a live ustream broadcast of Aperture today. =) It was running under Myarc XBII and looked fantastic. Running it in THAT environment, it actually looked like it was running in CPU overdrive in Classic99, but he was running it on his real TI. =) That was fun to watch.

[+adamantyr]

Greg actually did a live ustream broadcast of Aperture today. =) It was running under Myarc XBII and looked fantastic. Running it in THAT environment, it actually looked like it was running in CPU overdrive in Classic99, but he was running it on his real TI. =) That was fun to watch.

 

Got a link to it?

 

Adamantyr

[Opry99er]

http://www.ustream.tv/discovery/live/all?q=arcadeshopper

 

but it didn't record... he just broadcasted it live.

[+OLD CS1]

My regular keys do not work. I can use arrows, but the EXSD and O/B are not working for me. Using Classic99. Did I miss something? I think I downloaded the latest.

[+adamantyr]

My regular keys do not work. I can use arrows, but the EXSD and O/B are not working for me. Using Classic99. Did I miss something? I think I downloaded the latest.

 

Joystick required. Classic99 maps that to the PC arrow keys. O/B was an old version; you use the fire button (Q on keyboard) and it alternates between portals.

 

Adamantyr

[+OLD CS1]

My regular keys do not work. I can use arrows, but the EXSD and O/B are not working for me. Using Classic99. Did I miss something? I think I downloaded the latest.

 

Joystick required. Classic99 maps that to the PC arrow keys. O/B was an old version; you use the fire button (Q on keyboard) and it alternates between portals.

 

Adamantyr

 

Roger that. Now, WTH is the cube thing about? (No, I never played the "real" game)

[+adamantyr]

My regular keys do not work. I can use arrows, but the EXSD and O/B are not working for me. Using Classic99. Did I miss something? I think I downloaded the latest.

 

Joystick required. Classic99 maps that to the PC arrow keys. O/B was an old version; you use the fire button (Q on keyboard) and it alternates between portals.

 

Adamantyr

 

Roger that. Now, WTH is the cube thing about? (No, I never played the "real" game)

 

Cubes are used to activate buttons, and can be pushed around and used as a platform to jump a bit higher. They're basically part of the puzzle.

 

Adamantyr

[snume]

So, has anybody beaten 13 yet? I still can't figure out what to do with the emitters.

 

Okay, hold off on the question. Adam, I think the version in the zip file you posted on the submissions thread for Classic99 isn't the newest one. It doesn't seem to have the latest change you made to Level 12.

Edited December 5, 2010 by snume

[+adamantyr]

So, has anybody beaten 13 yet? I still can't figure out what to do with the emitters.

 

Okay, hold off on the question. Adam, I think the version in the zip file you posted on the submissions thread for Classic99 isn't the newest one. It doesn't seem to have the latest change you made to Level 12.

 

Damn it... AtariAge's stupid uploader wouldn't replace it, it just kept the same one. I deleted my entire archive of zips and made sure I put the FULLY updated one on the thread alone.

 

Adamantyr

[+retroclouds]

Just gave it a spin in classic99. Didn't get far yet, but this must be one of the coolest TI basic games I've ever seen.

[Opry99er]

Agreed.... Insanely cool..... I am looking forward to BASIC Rogue too.... That game looks ridiculous...

[snume]

I have to agree with the awesomeness of this game. The bar is set too damn high now.

 

But I am still not getting what to do on Level 13 with the emitters. I don't blame the level, I blame me and I will just wait till someone can give me a hint.

[InfernalKeith]

Seriously trying to think of a TI BASIC game I've ever seen that works this well and has action-type playability... 99'vaders comes to mind, maybe. I'd love to hear Bill Gaskill's thoughts on this one.

[+adamantyr]

Seriously trying to think of a TI BASIC game I've ever seen that works this well and has action-type playability... 99'vaders comes to mind, maybe. I'd love to hear Bill Gaskill's thoughts on this one.

 

The Flooraway series by R. Truman in the UK Collection come to mind. They're pretty comparable platform games.

 

Adamantyr

[+adamantyr]

I have to agree with the awesomeness of this game. The bar is set too damn high now.

 

But I am still not getting what to do on Level 13 with the emitters. I don't blame the level, I blame me and I will just wait till someone can give me a hint.

 

Hint: Energy balls that hit emitters will deactivate the prior emitter and fire from that emitter instead, in the direction it faces.

 

Adamantyr

[+arcadeshopper]

I'll record it for you if you like. will post when its done

 

Greg

 

Greg actually did a live ustream broadcast of Aperture today. =) It was running under Myarc XBII and looked fantastic. Running it in THAT environment, it actually looked like it was running in CPU overdrive in Classic99, but he was running it on his real TI. =) That was fun to watch.

 

Got a link to it?

 

Adamantyr

[+adamantyr]

Here's a complete listing of the program:

 

 

 

100 DIM DX(4),DY(4),AR(2),AC(2),DR(2),DC(2),DD(2),BL(4),OR(4),OC(4),ZT(4),ZR(4),ZC(4),ZL(4)
110 DX(0)=1
120 DX(1)=-1
130 DY(2)=1
140 DY(3)=-1
150 CALL CLEAR
160 FOR I=1 TO 31
170 READ C,C$
180 CALL CHAR(C,C$)
190 NEXT I
200 FOR I=9 TO 16
210 READ F,B
220 CALL COLOR(I,F,B)
230 NEXT I
240 PRINT TAB(10);"APERTURE": : : : : : : : : : : : : :
740 PRINT "   PRESS ANY KEY TO BEGIN"
750 CALL KEY(0,K,S)
760 IF S=0 THEN 750
770 L=1
780 SC=0
1000 GOSUB 5480
1001 D=0
1010 T=0
1020 AR(0)=0
1021 AR(1)=0
1030 CALL VCHAR(R,C,D+144)
1040 GOSUB 5000
1050 IF B=99 THEN 1120
1060 CALL GCHAR(R+1,C,G)
1070 IF(G=97)+(G=139)+(G=140)THEN 2720
1080 IF G=120 THEN 1780
1090 IF G=105 THEN 1660
1100 IF G=113 THEN 1680
1110 IF(G=100)+(G=101)THEN 1830
1120 CALL JOYST(1,X,Y)
1130 CALL KEY(1,K,S)
1140 IF K=18 THEN 1170
1141 IF K=6 THEN 1815
1150 IF(X<>0)+(Y<>0)THEN 1320
1160 GOTO 1040
1170 GOSUB 1390
1180 GOTO 1030
1190 CALL GCHAR(R+Y,C+X,G)
1200 IF(G=97)+(G=99)+(G=139)+(G=140)THEN 1270
1210 IF(G=104)+(G=105)THEN 1660
1220 IF(G=112)+(G=113)THEN 1680
1230 IF G=120 THEN 1780
1240 IF G=128 THEN 2100
1250 IF G=153 THEN 2700
1260 GOTO 1040
1270 CALL VCHAR(R,C,B)
1280 R=R+Y
1290 C=C+X
1300 B=G
1310 GOTO 1030
1320 Y=-Y/4
1330 X=X/4
1340 IF X=0 THEN 1360
1350 D=-(X=-1)
1360 IF Y=1 THEN 1370 ELSE 1190
1370 CALL GCHAR(R+1,C,G)
1380 IF(G=97)+(G=99)THEN 1190
1385 IF G=128 THEN 2100 ELSE 1120
1390 CALL JOYST(1,PX,PY)
1400 IF(PX=0)*(PY=0)THEN 1650
1410 PY=-PY/4
1420 PX=PX/4
1430 IF(PX<>0)*(PY<>0)THEN 1440 ELSE 1450
1440 PX=0
1450 PD=ABS((PX=0)*1+(PX=0)*(PY+1)+(PY=0)*(PX+1))
1460 CALL VCHAR(R,C,PD+146)
1470 CALL SOUND(-50,-1,4)
1480 PR=R+PY
1490 PC=C+PX
1500 CALL GCHAR(PR,PC,G)
1510 IF G=96 THEN 1560
1520 IF(G<>97)*(G<>99)*(G<>128)THEN 1650
1530 PR=PR+PY
1540 PC=PC+PX
1550 GOTO 1500
1560 IF AR(PO)=0 THEN 1580
1570 CALL VCHAR(AR(PO),AC(PO),96)
1580 AR(PO)=PR
1590 AC(PO)=PC
1600 DR(PO)=PR-PY
1610 DC(PO)=PC-PX
1615 DD(PO)=ABS((PX<>0)*(PX=1)+(PX=0)*2+(PY=1))
1620 CALL VCHAR(PR,PC,104+(PO*-(PY<>0))
1630 PO=ABS(PO=0)
1640 CALL SOUND(10,880+(PO*440),2)
1650 RETURN
1660 PD=1
1670 GOTO 1690
1680 PD=0
1690 IF(AR(PD)=0)THEN 1120
1700 CALL VCHAR(R,C,B)
1710 R=DR(PD)
1720 C=DC(PD)
1730 CALL GCHAR(R,C,B)
1731 CALL VCHAR(R,C,D+144)
1740 CALL JOYST(1,X,Y)
1750 IF(X=0)*(Y=0)THEN 1050
1751 X=X/4
1752 Y=0
1760 CALL GCHAR(R,C+X,G)
1761 IF(G<>97)*(G<>99)THEN 1050
1762 CALL VCHAR(R,C,B)
1763 C=C+X
1764 B=G
1765 D=ABS(X=0)
1766 CALL VCHAR(R,C,D+144)
1767 X=0
1770 GOTO 1050
1780 CALL SOUND(500,-6,2)
1790 CALL VCHAR(R,C,B)
1800 FOR I=1 TO 500
1810 NEXT I
1815 SC=SC+1
1820 GOTO 1000
1830 PR=R+1
1840 PC=C
1845 K=0
1850 IF G=100 THEN 1920
1860 PY=0
1870 PX=-1
1875 PG=140
1876 I=97
1880 CALL GCHAR(PR,PC-1,J)
1890 IF J=140 THEN 1970
1900 PX=1
1910 GOTO 1970
1920 PX=0
1930 PY=1
1931 PG=139
1932 I=139
1940 CALL GCHAR(PR+1,C,J)
1950 IF J=139 THEN 1970
1960 PY=-1
1965 K=-1
1970 CALL GCHAR(PR+PY+K,PC+PX,J)
1980 IF J<>PG THEN 2090
1990 CALL VCHAR(R,C,I)
2000 CALL VCHAR(PR,PC,PG)
2010 R=R+PY
2020 C=C+PX
2030 PR=PR+PY
2040 PC=PC+PX
2050 CALL VCHAR(R,C,D+144)
2060 CALL VCHAR(PR,PC,G)
2070 CALL SOUND(-20,-7,
2080 GOTO 1970
2090 GOTO 1120
2100 CR=R+Y
2110 CC=C+X
2120 CB=97
2130 CALL GCHAR(CR+Y,CC+X,CG)
2140 IF(CG=104)+(CG=105)THEN 2490
2150 IF(CG=112)+(CG=113)THEN 2510
2160 IF CG=97 THEN 2280
2170 I=R
2180 J=C
2190 K=B
2200 R=CR
2210 C=CC
2220 B=CB
2230 CR=I
2240 CC=J
2250 CB=K
2260 D=ABS(D=0)
2270 GOTO 2320
2280 CALL VCHAR(CR,CC,CB)
2290 CALL VCHAR(R,C,B)
2300 CC=CC+X
2310 C=C+X
2311 CR=CR+Y
2312 R=R+Y
2320 CALL VCHAR(CR,CC,128)
2330 CALL VCHAR(R,C,D+144)
2340 CALL GCHAR(CR+1,CC,CG)
2350 IF(CG=97)+(CG=99)THEN 2410
2360 IF CG=152 THEN 2620
2370 IF CG=120 THEN 2460
2380 IF CG=105 THEN 2490
2390 IF CG=113 THEN 2510
2400 GOTO 1120
2410 CALL VCHAR(CR,CC,CB)
2420 CR=CR+1
2430 CB=CG
2440 CALL VCHAR(CR,CC,128)
2450 GOTO 2340
2460 CALL VCHAR(CR,CC,97)
2470 CR=CC=0
2480 GOTO 1120
2490 CO=1
2500 GOTO 2520
2510 CO=0
2520 IF AR(CO)=0 THEN 1040
2530 CALL VCHAR(CR,CC,97)
2540 CALL VCHAR(R,C,B)
2550 B=97
2560 R=CR
2570 C=CC
2580 CR=DR(CO)
2590 CC=DC(CO)
2600 CALL GCHAR(CR,CC,CB)
2601 CALL VCHAR(CR,CC,128)
2602 CALL VCHAR(R,C,D+144)
2603 IF DD(CO)=3 THEN 1120
2610 GOTO 2340
2620 FOR I=0 TO 3
2630 IF BL(I)=CC THEN 2650
2640 NEXT I
2650 CALL SOUND(-100,880,
2660 CALL VCHAR(OR(I),OC(I),97)
2670 CALL VCHAR(CR,CC,97)
2680 CALL VCHAR(CR+1,CC,96)
2690 GOTO 1030
2700 L=L+1
2710 GOTO 1000
2720 CALL KEY(1,K,S)
2730 IF K=18 THEN 2890
2740 CALL GCHAR(R+1,C+X,G)
2750 IF G=120 THEN 1780
2760 IF(G=104)+(G=105)THEN 1660
2770 IF(G=112)+(G=113)THEN 1680
2780 IF(G=97)+(G=139)+(G=140)THEN 2790
2781 GOTO 2870
2790 CALL VCHAR(R,C,B)
2800 R=R+1
2820 C=C+X
2830 B=G
2840 CALL VCHAR(R,C,D+144)
2850 X=0
2860 GOTO 2720
2870 X=0
2880 GOTO 1040
2890 GOSUB 1390
2900 GOTO 2720
4226 PX=DX(DD(I))
4227 PY=DY(DD(I))
5000 IF EV=0 THEN 5030
5010 T=T+1
5020 IF T=16 THEN 5040
5030 RETURN
5040 T=0
5050 ON EV GOTO 5060,5280
5060 PR=ER
5070 PC=EC
5071 PD=ED
5072 PY=DY(ED)
5073 PX=DX(ED)
5080 CALL GCHAR(PR,PC,G)
5090 IF G=97 THEN 5140
5091 IF G=154 THEN 5230
5100 IF(G=144)+(G=145)THEN 1780
5110 IF(G>=129)*(G<=132)THEN 5200
5120 IF(G=104)+(G=105)+(G=112)+(G=113)THEN 5222
5121 IF G=141 THEN 7000
5130 RETURN
5140 CALL VCHAR(PR,PC,136)
5150 CALL SOUND(-10,-3,4)
5160 CALL VCHAR(PR,PC,G)
5170 PR=PR+PY
5180 PC=PC+PX
5190 GOTO 5080
5200 CALL SOUND(-10,-5,4)
5201 ED=G-129
5210 ER=PR+DY(ED)
5220 EC=PC+DX(ED)
5221 RETURN
5222 I=ABS(G<112)
5223 PR=DR(I)
5224 PC=DC(I)
5225 PD=DD(I)
5226 PY=DY(DD(I))
5227 PX=DX(DD(I))
5228 GOTO 5080
5230 CALL SOUND(-100,440,
5240 EV=0
5250 CALL VCHAR(PR,PC,96)
5260 CALL VCHAR(RR,RC,RB)
5270 RETURN
5280 FOR I=0 TO 3
5290 IF ZT(I)=0 THEN 5340
5300 ON ZT(I)GOTO 5310,5330
5310 CALL HCHAR(ZR(I),ZC(I),136+ZT(I),ZL(I))
5320 GOTO 5340
5330 CALL VCHAR(ZR(I),ZC(I),136+ZT(I),ZL(I))
5340 NEXT I
5350 CALL SOUND(-100,-2,2)
5360 CALL GCHAR(R,C,G)
5370 IF(G=137)+(G=138)THEN 1780
5380 FOR I=1 TO 100
5390 NEXT I
5400 FOR I=0 TO 3
5410 IF ZT(I)=0 THEN 5460
5420 ON ZT(I)GOTO 5430,5450
5430 CALL HCHAR(ZR(I),ZC(I),97,ZL(I))
5440 GOTO 5340
5450 CALL VCHAR(ZR(I),ZC(I),97,ZL(I))
5460 NEXT I
5470 RETURN
5480 CALL CLEAR
5490 EV=0
5500 FOR I=0 TO 1
5510 AR(I)=0
5520 NEXT I
5530 FOR I=0 TO 3
5540 BL(I)=0
5550 ZT(I)=0
5560 NEXT I
5561 IF L<16 THEN 5564
5562 T$="COMPUTER CORE"
5563 GOTO 5570
5564 T$="TEST CHAMBER "&STR$(L)
5570 PRINT T$: : : : : : : : : : : : : : : : : : : : : : :
5580 CALL HCHAR(2,1,98,736)
5590 FOR I=1 TO 21
5600 CALL HCHAR(2+I,2,96,30)
5610 NEXT I
5620 ON L GOSUB 10000,10020,10040,10060,10080,10100,10120,10140,10160,10180,10200,10220,10240,10260,10280,10300
5630 READ T$
5640 I=1
5650 T=ASC(SEG$(T$,I,1))-48
5660 IF T=0 THEN 5940
5670 IF T=5 THEN 5630
5680 I=I+1
5690 R=ASC(SEG$(T$,I,1))-48
5700 I=I+1
5710 C=ASC(SEG$(T$,I,1))-48
5720 I=I+1
5730 B=ASC(SEG$(T$,I,1))
5740 I=I+1
5750 ON T GOTO 5760,5780,5820,5860
5760 CALL VCHAR(R,C,B)
5770 GOTO 5650
5780 H=ASC(SEG$(T$,I,1))-48
5790 I=I+1
5800 CALL HCHAR(R,C,B,H)
5810 GOTO 5650
5820 H=ASC(SEG$(T$,I,1))-48
5830 I=I+1
5840 CALL VCHAR(R,C,B,H)
5850 GOTO 5650
5860 V=ASC(SEG$(T$,I,1))-48
5870 I=I+1
5880 H=ASC(SEG$(T$,I,1))-48
5890 I=I+1
5900 FOR J=1 TO V
5910 CALL HCHAR((R-1)+J,C,B,H)
5920 NEXT J
5930 GOTO 5650
5940 READ T$
5950 R=ASC(SEG$(T$,1,1))-48
5960 C=ASC(SEG$(T$,2,1))-48
5970 B=ASC(SEG$(T$,3,1))
5980 IF LEN(T$)=3 THEN 10290
5990 I=4
6000 T=ASC(SEG$(T$,I,1))-48
6010 IF T=0 THEN 10290
6020 I=I+1
6030 ON T GOTO 6040,6130,6220
6040 J=ASC(SEG$(T$,I,1))-48
6050 I=I+1
6060 FOR K=0 TO J-1
6070 BL(K)=ASC(SEG$(T$,I,1))-48
6080 OR(K)=ASC(SEG$(T$,I+1,1))-48
6090 OC(K)=ASC(SEG$(T$,I+2,1))-48
6100 I=I+3
6110 NEXT K
6120 GOTO 6000
6130 ER=ASC(SEG$(T$,I,1))-48
6140 EC=ASC(SEG$(T$,I+1,1))-48
6150 ED=ASC(SEG$(T$,I+2,1))-48
6160 RR=ASC(SEG$(T$,I+3,1))-48
6170 RC=ASC(SEG$(T$,I+4,1))-48
6180 RB=ASC(SEG$(T$,I+5,1))
6190 I=I+6
6200 EV=1
6210 GOTO 6000
6220 J=ASC(SEG$(T$,I,1))-48
6230 I=I+1
6240 FOR K=0 TO J-1
6250 ZT(K)=ASC(SEG$(T$,I,1))-48
6260 ZR(K)=ASC(SEG$(T$,I+1,1))-48
6270 ZC(K)=ASC(SEG$(T$,I+2,1))-48
6275 ZL(K)=ASC(SEG$(T$,I+3,1))-48
6280 I=I+4
6290 NEXT K
6295 EV=2
6300 GOTO 6000
7000 CALL SOUND(-1000,220,0,440,0,880,0)
7010 FOR I=1 TO 20
7020 CALL COLOR(14,7,16)
7030 CALL COLOR(14,12,16)
7040 CALL COLOR(14,5,16)
7050 CALL COLOR(14,14,16)
7060 NEXT I
7070 CALL CLEAR
7080 FOR I=0 TO 30
7090 NEXT I
7100 PRINT "THANK YOU FOR PARTICIPATING":"IN THIS TEST EXERCISE OF A":"POTENTIAL DIASTER.": :
7110 PRINT "YOU HAD "&STR$(SC)&" SIMULATED DEATHS.": :"YOUR RANK:";
7120 IF SC=0 THEN 7170
7130 IF SC<10 THEN 7190
7140 IF SC<50 THEN 7210
7150 PRINT "DOWNSIZE CANDIDATE"
7160 GOTO 7230
7170 PRINT "CHEATING PERFECTIONIST"
7180 GOTO 7230
7190 PRINT "TESTING LEAD"
7200 GOTO 7230
7210 PRINT "COFFEE GOPHER"
7230 END
10000 RESTORE 10400
10010 RETURN
10020 RESTORE 10420
10030 RETURN
10040 RESTORE 10450
10050 RETURN
10060 RESTORE 10470
10070 RETURN
10080 RESTORE 10490
10090 RETURN
10100 RESTORE 10520
10110 RETURN
10120 RESTORE 10540
10130 RETURN
10140 RESTORE 10560
10150 RETURN
10160 RESTORE 10580
10170 RETURN
10180 RESTORE 10600
10190 RETURN
10200 RESTORE 10620
10210 RETURN
10220 RESTORE 10640
10230 RETURN
10240 RESTORE 10660
10250 RETURN
10260 RESTORE 10680
10270 RETURN
10280 RESTORE 10700
10290 RETURN
10300 RESTORE 10720
10305 RETURN
10310 DATA 96,FFFFFFFFFFFFFFFF,97,0,98,FF88BBBBFF88BBBB,104,1038387C7C383810,112,1038387C7C383810
10320 DATA 120,F9A7D50E6FE5AB70,128,00EEBAEE44EEBAEE,129,C0A0881888A0C,130,03051118110503
10330 DATA 131,EE82441038,132,00000038104482EE,154,7E8181999981817E,139,1008100810081008,140,00000000AA55
10340 DATA 136,002854385428,152,FF813C24243C,153,FF999999999999FF,99,7E007E007E007E,141,00386CEE6C38
10350 DATA 144,0018123C50146C40,145,0018483C0A283602,148,0018133E5010282C,146,0018C87C0A081434
10360 DATA 105,0000187EFF7E18,113,0000187EFF7E18,149,0000186CBC285446,147,24341C383010282C
10370 DATA 137,00040A11A04,138,1020402010080408,100,FFDB3C18247E5A,101,FFE7185AA5BD42
10390 DATA 15,16,6,15,10,15,4,12,2,16,8,16,7,16,2,15
10400 DATA 4=2b;;4=3a5L4B>a6544La323B=c634Kc>16N™0
10410 DATA A4a
10420 DATA 446a4C486a<94D3a4544Ka4348Ba<74BFa654:Ia624>:`34373c93>>c63D8c43DEc438Mc834Ab4263a32?4a22:?a32?Ka25
10430 DATA 2@6`22;=`217J™0
10440 DATA G5a
10450 DATA 454a47499a7:4@;a384<Ca634C;x5846=a2844La334=Cb4238Ic:35<c333;b62AFa327Ea524<a@28=a428;b216;`16O™0
10460 DATA 85a
10470 DATA 443a3345:a4745Aa2=4<Fa284>Fa754C3a2C4E3a2637Ma537@c23<Jc93E8c2256a42E?a42F?x418<€1E2™0
10480 DATA 64a
10490 DATA 43Ia37452a26472a2N49:a994B2a4B4F2x2B4<3a554?8a2249Eb3:4<Ea3:4BEa5539:c439Bc839Oc63AMc33@Na53?9b25
10500 DATA 25:a?26:a42?Ea22@Ea:2DJa5273€3282€51>7c19Fx19Jx19Mx1GG˜1=8™0
10510 DATA 5La11G?90
10520 DATA 432a5745Ea394;:a5;4:La444D5a2E4D2b432=Ea738Ic=3>:c23>Dc23;7a33@?a2339b527:a;2=8a22F5Œ@2G5x@27K€35
10521 DATA 1;8a135ƒ1<8˜1B?š1E4™0
10530 DATA =Na118792452FDe0
10540 DATA 43;a2E45KaC54@?b8<4EMb33442a57476x2347=x2;4=2a334<8a42372c435;c83=8c235IcA375`23:<a333M‹C267`25
10541 DATA 2:3a82?6a225=Œ;26=a;2A@a92BAa82CBa72DCa62EDa52GKx24DD€221EMd15Ge165˜1@7˜1B@˜1GF`1?21=5™24J`30
10550 DATA DOa135<:7?5@FF2?3000a0
10560 DATA 432b43435a4446=a8243Da4<4<:a524>4a334:4a224DFa384DIb22456€2237Ga=3<<a23<4c33>:c2249a7269a;35?c95
10561 DATA 2@8a21@414@‚13Gƒ13Lƒ1GL˜1;6™0
10570 DATA 6Na11L@734145;1@5224GC24L30
10580 DATA 432aC:4B<a4B4F2x2L4DNb424@4b3543=a534>=a354;Ba6343Ka354<C`423C6b53D:b436Ec;3>Oc63BNa2339‹B25Ea65
10581 DATA 27@a52=Fa:2D;ŒC1D9d1?B‚13>ƒ1?<š1?6™0
10590 DATA 5Ma24>2DMe0
10600 DATA 442a?944;a4344Ca4<4<La334?:b994@;a374C2x58335b7393b436:b938=a638Ca62C=a32D<a52E=a32F;a73?>c85
10601 DATA 3A;€23AA€227>a52>;a=268b22<3b524Gƒ71E<˜1E@˜1G;˜1GA˜14Ha14Ja14La17N€1<O™1B8`194b0
10610 DATA ;4a14;>H<>I@>JA>K3425G325I325K325M30
10620 DATA 432b49472a>9432x384E2x3N44=a5;44La534=Ba3:4:Ia364@Cx284=Ma33363x?3<L`4296b526@`536Ba728Ha42<L`25
10621 DATA 2?;a7165`197a199a1C5`1C7b1@K˜14<š14Mƒ18M„15@€18;™0
10630 DATA ?Na11K8M25M2C9b0
10640 DATA 432a53488a334=3a444C6a374F6x2745=b=54<;b3943>a<34?>x2344Fa3348Ja224<Ea374C>a464ACa2943MaC3339b5348c55
10641 DATA 34:c53;9c:3A3c337Ga53?Ea23:Ka23CKc334O‹C235a423:a42:2a62D3a225Aa52GKx41=<š1==a1>?`1=B`183˜1G@˜1:2€5
10642 DATA 1@5€19J€1>K‚15Mb13O`1ELa1FNa14L™0
10650 DATA :9a123D5@=A2>J1FOd0
10660 DATA 433a3L46=a?84E=x38479a33473a464?3a394D3a3347Fa5347Ia364?Fa394DLa333;3a23>3c33B;a43:Jx23:Lx23:Na35
10661 DATA 3>Nc33BFc42;5x42=3a:2E6a423?`42?@`22@?`42=Ea:2AH`22BIx22EGa519:€1;G€1B9˜1D4ƒ1FM„1;;ƒ1C=`1CD`1<;a1CMš0
10670 DATA 5Ma119E:2E429A™0
10680 DATA 4F2x2N43Ga:94=2a9N443a93446a48365b733Fb:34L‹;36O`;3?Nb225Nb22A2b22C2b22<5b72<=b:2D4ŒK27>a328@a55
10681 DATA 2;7a;2:<a244?a2636Da239Bc313Lb1?Lb1DOb1D3b1?4b1=2`1@2`1;7€16?˜1CO‚149ƒ177„17;„15Ld1<<a1DNe1B2™0
10690 DATA 4Oa11?@N341C4K2473259324;30
10700 DATA 4<2a;8432a93455a6643:a8:4;;a;74F;x2744Da3348Aa5543Ma4348Ha584>Da374BCa334BLa434DHa243?7b43D7b45
10701 DATA 362c937Fc63=Cc43=Kc436Nc53AGc72?2b52:6€32;<`52G2x52FJa32GJx31F5`1A9`1E8b1F8„1421;=a1;?a17D˜5
10702 DATA 1BDƒ1AMš1G9x15N`1CFa14N™0
10710 DATA A5a11DE82E838M`0
10720 DATA 463a33438a39468a33498a474=2a7;4D2b434E5x384EGx394BEa3;43Ma33337b4387b5352a5356a537@a335Ic53:Dc;5
10721 DATA 2<2b5277a:27;b424Ia429@a92C=a72D5a72C3€2164ƒ13Nƒ184„1D<`1741C2b1B2`1A2€1B3€1EH˜1EJ˜1EL˜1EN˜0
10730 DATA 5Na14H7=J7<L7;N7:24N200a0

 

 

 

You're probably wondering what the heck the level data is... it's encoded, structured as follows:

 

0 - End of data

1 - Single character (row, column, character)

2 - Horizontal line (row, column, character, length)

3 - Vertical line (row, column, character, length)

4 - Box (row, column, character, vertical length, horizontal length)

5 - Go to next DATA statement and continue

 

There is also one single line that contains additional dynamic data, at most the starting position and backdrop character in the first three positions:

 

0 - End of data

1 - Buttons (count; location column, row, column) - Always writes a blank character at the location

2 - Power Ball (row, column, direction, affected row, affected column, character to place) - When the ball hits a node, the latter data is used

3 - Zappers (count; type (horizontal or vertical), row, column, length)

 

To store values visibly beyond 9, I just use the associated ASCII character. So the letter A, value 65, represents the value 17 (65 - 48). For characters, I print the actual value. This is tricky because characters beyond 126 have no normal visible key... however, in TI BASIC, you CAN print them using the control key. They are detailed in Figure 3 on page III-4 of the BASIC User's Reference Manual. Unfortunately, they don't transfer via cut-and-paste to Classic99 correctly, so I have to hand-enter them in the emulator afterward.

 

Adamantyr

[+OLD CS1]

Philosophical question attached...

[Opry99er]

Ha!!!

[+arcadeshopper]

http://www.ustream.tv/recorded/11300947

 

It's an older ver, I need to move the latest over to the real TI. And it's hard to play while watching on the recorder

 

http://www.ustream.tv/discovery/live/all?q=arcadeshopper

 

but it didn't record... he just broadcasted it live.

Edited December 7, 2010 by arcadeshopper

[Opry99er]

 

 

see if this embeds....

 

**edit**

 

 

Nope

 

 

 

 

Edited December 7, 2010 by Opry99er