Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-28 22:30:09 +00:00
Code Issues Projects Releases Wiki Activity

glados: initial level19 support

Browse Source 
also make it so you can't jump through the air
This commit is contained in:
Vince Weaver 2017-01-10 00:00:54 -05:00
parent 2d805754d2
commit 29c17717a5
1 changed files with 22 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
glados3.3/portal.bas
View File

@ -34,7 +34,7 @@
12 I=I+1:IF I<500 GOTO 11
13 HGR
'
14 L=1
14 L=19
' PRINT LEVEL INFO
15 TEXT:GOSUB 9000
' Clear screen to black#2
@ -46,17 +46,20 @@
'
' Draw Level Background
'
21 GOSUB 1000
21 IF L=1 THEN GOSUB 1000
22 IF L=19 THEN GOSUB 2000
'
' Draw Initial Chell and Gun Cursor
'
22 SCALE=2:XDRAW 1 AT SX,SY
25 SCALE=1:XDRAW 3 AT CX,CY
25 SCALE=2:XDRAW 1 AT SX,SY
27 SCALE=1:XDRAW 3 AT CX,CY
'
30 REM MAIN LOOP
'
' Time related activities
32 T=T+1:IF T>100 THEN T=0:GOSUB 8000
32 T=T+1
33 IF L=1 AND T=50 THEN GOSUB 8000
34 IF T>100 THEN T=0
'
35 OX=CX:OY=CY:OD=CD:LX=SX:LY=SY
'
@ -73,7 +76,7 @@
52 IF A$="A" AND VX>0 THEN VX=0:CD=1:GOTO 54
53 IF A$="A" THEN VX=-8:CD=1
54 IF A$="Q" THEN GOTO 800
56 IF A$=" " THEN VY=5:POKE 768,240:POKE 769,10:CALL 770
56 IF A$=" " AND CY=112 THEN VY=5:POKE 768,240:POKE 769,10:CALL 770
58 IF A$="H" THEN GOSUB 5000
60 IF A$="," THEN GOSUB 6000
62 IF A$="." THEN GOSUB 6100
@ -97,11 +100,16 @@
212 IF CX>271 THEN CX=271:VX=0
214 IF CY<7 THEN CY=7:VY=-VY
' Floors
220 IF CX < 119 AND CY > 112 THEN CY=112:VY=0:VX=VX/2
225 IF CX > 161 AND CY > 112 THEN CY=112:VY=0:VX=VX/2
230 IF CX > 119 AND CX < 161 AND CY>140 THEN GOTO 800
220 IF L=1 THEN GOTO 227
' Level 19 Floors
222 IF CY > 112 THEN CY=112:VY=0:VX=VX/2
223 IF CX > 215 THEN CX=215:VX=0
225 GOTO 240
' Level 1 Floors
227 IF CX < 119 AND CY > 112 THEN CY=112:VY=0:VX=VX/2
228 IF CX > 161 AND CY > 112 THEN CY=112:VY=0:VX=VX/2
229 IF CX > 119 AND CX < 161 AND CY>140 THEN GOTO 800
' LASER
'
232 IF ZY>CY-8 AND ZY<CY+8 AND CX+6>ZX AND CX-6<240 THEN GOTO 700
234 IF PY>CY-8 AND PY<CY+8 AND CX+6>0 AND CX-6<PX THEN GOTO 700
'
@ -178,6 +186,9 @@
1074 HPLOT X+5,Y+6 TO X+7,Y+6
1076 HPLOT X+6,Y+7
1099 RETURN
' LEVEL 19
2000 PRINT CHR$(4);"BLOAD GLADOS.HGR"
2099 RETURN
' HELP
5000 REM HELP
5010 TEXT:HOME
@ -301,6 +312,7 @@
' BUGS:
' Shouldn't be able to create portals underground
' Artifacts when deleting portals
' Can Jump through the air
'
' TODO:
'