Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-12 15:30:55 +00:00
Code Issues Projects Releases Wiki Activity

glados: first fully working version!

Browse Source
This commit is contained in:
Vince Weaver 2017-01-10 14:12:04 -05:00
parent fe93b99f27
commit cb25ecc7a5
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
glados3.3/portal.bas
View File

@ -39,9 +39,10 @@
10 I=0:VTAB 24:PRINT "H FOR HELP"; 10 I=0:VTAB 24:PRINT "H FOR HELP";
11 IF PEEK(-16384)>=128 THEN GET A$:GOTO 13 11 IF PEEK(-16384)>=128 THEN GET A$:GOTO 13
12 I=I+1:IF I<500 GOTO 11 12 I=I+1:IF I<500 GOTO 11
13 HGR:PR=0 13 HGR:PR=0:LR=0
' '
14 L=19:PR=1:LR=1 '14 L=19:PR=1:LR=1
14 L=1
' PRINT LEVEL INFO ' PRINT LEVEL INFO
15 TEXT:GOSUB 9000 15 TEXT:GOSUB 9000
' Clear screen to black#2 ' Clear screen to black#2
@ -58,7 +59,8 @@
' '
' Draw Initial Chell and Gun Cursor ' Draw Initial Chell and Gun Cursor
' '
25 SCALE=2:ROT=0:IF PR=1 THEN ROT=16:XDRAW 1 AT SX,SY:ROT=0 25 SCALE=2:ROT=0:IF PR=1 THEN ROT=16
26 XDRAW 1 AT SX,SY:ROT=0
27 SCALE=1:XDRAW 4 AT CX,CY 27 SCALE=1:XDRAW 4 AT CX,CY
' '
30 REM MAIN LOOP 30 REM MAIN LOOP
@ -411,9 +413,13 @@
' BUG: Chell changes color (turns into Mel) going through O->B portal? ' BUG: Chell changes color (turns into Mel) going through O->B portal?
' '
' End level: ' End level:
' BUG: Come into level with high VX?
' FUTURE: Objects can be picked up with gun? ' FUTURE: Objects can be picked up with gun?
' This is doable but would hugely complicate the code ' This is doable but would hugely complicate the code
' '
' FUTURE: Add countdown timer from 5 mins?
' Think it would just slow things down for no good reason
'
' It turns out it is impossible to draw an ASCII Cake ' It turns out it is impossible to draw an ASCII Cake
' '
' __ /@/| ' __ /@/|