Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-27 17:29:49 +00:00
Code Issues Projects Releases Wiki Activity

glados: add exit to Level 1

Browse Source
This commit is contained in:
Vince Weaver 2017-01-10 10:41:39 -05:00
parent d2ea46ea80
commit a96eec9f1d
2 changed files with 32 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
glados3.3/cube.bas
View File

@ -48,6 +48,14 @@
77 HPLOT X+33,Y+4 TO X+33,Y+5 77 HPLOT X+33,Y+4 TO X+33,Y+5
80 NEXT I 80 NEXT I
' '
100 X=50:Y=100:HCOLOR=3
102 FOR I=0 TO 10:HPLOT X,Y+I TO X+12,Y+I:NEXT I
103 HCOLOR=0:HPLOT X+2,Y+5 TO X+10,Y+5
104 HPLOT X+8,Y+4 TO X+9,Y+4:HPLOT X+8,Y+6 TO X+9,Y+6
105 HPLOT X+7,Y+3 TO X+8,Y+3:HPLOT X+7,Y+7 TO X+8,Y+7
106 HPLOT X+6,Y+2 TO X+7,Y+2:HPLOT X+6,Y+8 TO X+7,Y+8
107 HPLOT X+5,Y+1 TO X+6,Y+1:HPLOT X+5,Y+9 TO X+6,Y+9
'
200 REM SPRITE EDIT 200 REM SPRITE EDIT
210 X=0:Y=0:ROT=0:SCALE=1 210 X=0:Y=0:ROT=0:SCALE=1
220 HIMEM:8170 220 HIMEM:8170
@ -65,9 +73,13 @@
560 IF Y<0 THEN Y=0 560 IF Y<0 THEN Y=0
570 IF X<0 THEN X=0 570 IF X<0 THEN X=0
580 IF A$="0" THEN HCOLOR=0:HPLOT X,Y 580 IF A$="0" THEN HCOLOR=0:HPLOT X,Y
590 IF A$="3" THEN HCOLOR=3:HPLOT X,Y 585 IF A$="1" THEN HCOLOR=1:HPLOT X,Y
600 IF A$="1" THEN HCOLOR=1:HPLOT X,Y 590 IF A$="2" THEN HCOLOR=2:HPLOT X,Y
610 IF A$="2" THEN HCOLOR=2:HPLOT X,Y 595 IF A$="3" THEN HCOLOR=3:HPLOT X,Y
600 IF A$="4" THEN HCOLOR=4:HPLOT X,Y
605 IF A$="5" THEN HCOLOR=5:HPLOT X,Y
610 IF A$="6" THEN HCOLOR=6:HPLOT X,Y
615 IF A$="7" THEN HCOLOR=7:HPLOT X,Y
620 XDRAW 1 AT X,Y 620 XDRAW 1 AT X,Y
630 GOTO 510 630 GOTO 510
900 HOME:L=1:POKE 32,8:PRINT 900 HOME:L=1:POKE 32,8:PRINT

21
glados3.3/portal.bas
View File

@ -35,7 +35,7 @@
12 I=I+1:IF I<500 GOTO 11 12 I=I+1:IF I<500 GOTO 11
13 HGR 13 HGR
' '
14 L=19 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
@ -89,8 +89,8 @@
' Move X. Ensure we are always odd so colors are right ' Move X. Ensure we are always odd so colors are right
107 IF VX<2 AND VX>-2 THEN VX=0 107 IF VX<2 AND VX>-2 THEN VX=0
110 CX=CX+VX 110 CX=CX+VX
115 IF JO=0 THEN JO=1:JX=45:JY=10:JA=5:SCALE=2:XDRAW 5 AT JX,JY 115 IF L=19 AND JO=0 THEN JO=1:JX=45:JY=10:JA=5:SCALE=2:XDRAW 5 AT JX,JY
120 IF JO=1 THEN SCALE=2:XDRAW 5 AT JX,JY:JY=JY+JA:XDRAW 5 AT JX,JY 120 IF L=19 AND JO=1 THEN SCALE=2:XDRAW 5 AT JX,JY:JY=JY+JA:XDRAW 5 AT JX,JY
' '
' COLLISION DETECTION ' COLLISION DETECTION
' '
@ -192,7 +192,16 @@
1072 HPLOT X+4,Y+5 TO X+8,Y+5 1072 HPLOT X+4,Y+5 TO X+8,Y+5
1074 HPLOT X+5,Y+6 TO X+7,Y+6 1074 HPLOT X+5,Y+6 TO X+7,Y+6
1076 HPLOT X+6,Y+7 1076 HPLOT X+6,Y+7
1099 RETURN ' EXIT SIGN
1100 X=266:Y=90:HCOLOR=3
1102 FOR I=0 TO 10:HPLOT X,Y+I TO X+12,Y+I:NEXT I
1103 HCOLOR=0:HPLOT X+2,Y+5 TO X+10,Y+5
1104 HPLOT X+8,Y+4 TO X+9,Y+4:HPLOT X+8,Y+6 TO X+9,Y+6
1105 HPLOT X+7,Y+3 TO X+8,Y+3:HPLOT X+7,Y+7 TO X+8,Y+7
1106 HPLOT X+6,Y+2 TO X+7,Y+2:HPLOT X+6,Y+8 TO X+7,Y+8
1107 HPLOT X+5,Y+1 TO X+6,Y+1:HPLOT X+5,Y+9 TO X+6,Y+9
1110 HCOLOR=6:HPLOT 278,100 TO 278,119
1199 RETURN
' LEVEL 19 ' LEVEL 19
2000 PRINT CHR$(4);"BLOAD GLADOS.HGR" 2000 PRINT CHR$(4);"BLOAD GLADOS.HGR"
' Draw the blue core ' Draw the blue core
@ -348,3 +357,7 @@
' Die if go into incinerator ' Die if go into incinerator
' Call out to Still Alive ' Call out to Still Alive
' Sound for blob gun? ' Sound for blob gun?