diff --git a/glados3.3/portal.bas b/glados3.3/portal.bas index 4c6e2a57..df647f39 100644 --- a/glados3.3/portal.bas +++ b/glados3.3/portal.bas @@ -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 ZYZX AND CX-6<240 THEN GOTO 700 234 IF PY>CY-8 AND PY0 AND CX-6