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

glados: bullets can go through portal

Browse Source
This commit is contained in:
Vince Weaver 2017-01-09 14:09:21 -05:00
parent 510924bda7
commit 6087ff6284
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
glados3.3/portal.bas
View File

@ -64,6 +64,8 @@
' 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
'
240 REM 240 REM
' DRAW AT UPDATE CO-ORDS ' DRAW AT UPDATE CO-ORDS
245 IF OX=CX AND OY=CY AND OD=CD GOTO 255 245 IF OX=CX AND OY=CY AND OD=CD GOTO 255
@ -79,7 +81,10 @@
705 HCOLOR=3 705 HCOLOR=3
707 GOSUB 8010 707 GOSUB 8010
710 SCALE=1:XDRAW 3+OD AT OX,OY:ROT=32:XDRAW 3+CD AT CX,CY 710 SCALE=1:XDRAW 3+OD AT OX,OY:ROT=32:XDRAW 3+CD AT CX,CY
720 FOR I=240 TO CX STEP -6:HPLOT I,ZY TO I+3,ZY:X=PEEK(-16336):NEXT I 715 M=CX:IF ZX>CX THEN M=ZX
720 FOR I=240 TO M STEP -6:HPLOT I,ZY TO I+3,ZY:X=PEEK(-16336):NEXT I
730 FOR I=PX TO CX STEP -6:HPLOT I,PY TO I+3,PY:X=PEEK(-16336):NEXT I
' '
800 REM DEAD 800 REM DEAD
805 VTAB 22:PRINT "YOU DIED!":PRINT "TRY AGAIN? (Y/N) "; 805 VTAB 22:PRINT "YOU DIED!":PRINT "TRY AGAIN? (Y/N) ";
@ -213,19 +218,20 @@
' TODO: ' TODO:
' '
' Opening: ' Opening:
' General ' General:
' Sound effects? ' Sound effects?
' Parametric Levels (Generic Game Engine) ' Parametric Levels (Generic Game Engine)
' '
' Level 1/19 ' Level 1/19:
' Walking animation? ' Walking animation?
' Sentries kill
' Sentries shoot/laser through portal ' Sentries shoot/laser through portal
' Walk on platform ' Walk on platform
' Sentries can be knocked over from behind ' Sentries can be knocked over from behind
' Sentries an object that can go through portal ' Sentries an object that can go through portal
' Objects can be picked up with gun?
' Chell changes color (turns into Mel) going through O->B portal?
' '
' End level ' End level:
' GLADOS ' GLADOS
' Have GLADOS talk? ' Have GLADOS talk?
' Objects through portal ' Objects through portal