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 12 I=I+1:IF I<500 GOTO 11
13 HGR 13 HGR
' '
14 L=1 14 L=19
' PRINT LEVEL INFO ' PRINT LEVEL INFO
15 TEXT:GOSUB 9000 15 TEXT:GOSUB 9000
' Clear screen to black#2 ' Clear screen to black#2
@ -46,17 +46,20 @@
' '
' Draw Level Background ' 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 ' Draw Initial Chell and Gun Cursor
' '
22 SCALE=2:XDRAW 1 AT SX,SY 25 SCALE=2:XDRAW 1 AT SX,SY
25 SCALE=1:XDRAW 3 AT CX,CY 27 SCALE=1:XDRAW 3 AT CX,CY
' '
30 REM MAIN LOOP 30 REM MAIN LOOP
' '
' Time related activities ' 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 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 52 IF A$="A" AND VX>0 THEN VX=0:CD=1:GOTO 54
53 IF A$="A" THEN VX=-8:CD=1 53 IF A$="A" THEN VX=-8:CD=1
54 IF A$="Q" THEN GOTO 800 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 58 IF A$="H" THEN GOSUB 5000
60 IF A$="," THEN GOSUB 6000 60 IF A$="," THEN GOSUB 6000
62 IF A$="." THEN GOSUB 6100 62 IF A$="." THEN GOSUB 6100
@ -97,11 +100,16 @@
212 IF CX>271 THEN CX=271:VX=0 212 IF CX>271 THEN CX=271:VX=0
214 IF CY<7 THEN CY=7:VY=-VY 214 IF CY<7 THEN CY=7:VY=-VY
' Floors ' Floors
220 IF CX < 119 AND CY > 112 THEN CY=112:VY=0:VX=VX/2 220 IF L=1 THEN GOTO 227
225 IF CX > 161 AND CY > 112 THEN CY=112:VY=0:VX=VX/2 ' Level 19 Floors
230 IF CX > 119 AND CX < 161 AND CY>140 THEN GOTO 800 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 ' LASER
'
232 IF ZY>CY-8 AND ZY<CY+8 AND CX+6>ZX AND CX-6<240 THEN GOTO 700 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 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 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 1099 RETURN
' LEVEL 19
2000 PRINT CHR$(4);"BLOAD GLADOS.HGR"
2099 RETURN
' HELP ' HELP
5000 REM HELP 5000 REM HELP
5010 TEXT:HOME 5010 TEXT:HOME
@ -301,6 +312,7 @@
' BUGS: ' BUGS:
' Shouldn't be able to create portals underground ' Shouldn't be able to create portals underground
' Artifacts when deleting portals ' Artifacts when deleting portals
' Can Jump through the air
' '
' TODO: ' TODO:
' '