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

glados: turrets are now deadly

Browse Source
This commit is contained in:
Vince Weaver 2017-01-09 13:12:13 -05:00
parent 68de9b9d27
commit 2a08dfcf90
2 changed files with 28 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
glados3.3/cube.bas
View File

@ -100,8 +100,8 @@
948 PRINT"* ___________________ *"
949 PRINT"* ";
950 FOR I=1 TO L:PRINT "|";:NEXT I
952 FOR I=L TO 18:PRINT " ";:NEXT I
954 PRINT" *"
952 FOR I=L TO 19:PRINT " ";:NEXT I
954 PRINT" *"
956 PRINT"* *"
958 PRINT"* ___________________ *"
959 PRINT"* ___ *"

37
glados3.3/portal.bas
View File

@ -1,3 +1,7 @@
' "Portal" in Applesoft BASIC
' by Vince Weaver (vince@deater.net)
' http://www.deater.net/weave/vmwprod/portal/
'
' Variable Summary
'
' CX,CY = Chell X, Y OX,OY = Old Chell X,Y
@ -6,14 +10,14 @@
' SX,SY = Cursor X,Y LX,LY = Old Cursor X,Y
' BO=Blue Portal Out BX,BY = Blue Portal X,Y
' GO=Orange Portal Out GX,GY = Orange Portal X,Y
' LY=Laser Y LB,LE = BEGIN/END
' ZY,PY=Laser Y ZX,PX = BEGIN/END
' T = TIME
'
10 HOME:HGR:SCALE=2:ROT=0:HCOLOR=4:HPLOT 0,0:CALL 62454
11 POKE 232,0:POKE 233,29
12 PRINT CHR$(4)+"BLOAD OBJECTS.SHAPE,A$1D00"
15 GOSUB 1000
20 CX=21:CY=100:CD=0:VX=0:VY=0:SX=140:SY=80:BO=0:GO=0:T=0
20 CX=21:CY=100:CD=0:VX=0:VY=0:SX=140:SY=80:BO=0:GO=0:T=0:ZY=42:ZX=0
21 GOSUB 1000
22 SCALE=2:XDRAW 1 AT SX,SY
25 SCALE=1:XDRAW 3 AT CX,CY
'
@ -59,6 +63,7 @@
230 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
240 REM
' DRAW AT UPDATE CO-ORDS
245 IF OX=CX AND OY=CY AND OD=CD GOTO 255
@ -70,8 +75,14 @@
300 REM
500 GOTO 30
'
700 REM LASER DEAD
705 HCOLOR=3
707 GOSUB 8010
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
'
800 REM DEAD
805 VTAB 21:PRINT "YOU DIED!":PRINT "TRY AGAIN? (Y/N) ";
805 VTAB 22:PRINT "YOU DIED!":PRINT "TRY AGAIN? (Y/N) ";
810 GET A$
815 IF A$="Y" THEN GOTO 10
820 IF A$="N" THEN GOTO 999
@ -94,7 +105,7 @@
1039 HPLOT 249,47 TO 250,47:HPLOT 250,48 TO 251,48:HPLOT 250,49 TO 251,49
1040 HCOLOR=5:HPLOT 244,41 TO 245,41:HPLOT 244,43 TO 245,43
' LASER
1042 HPLOT 0,42 TO 240,42
1042 HPLOT 0,ZY TO 240,ZY
'
' COMPANION CUBE
' 0123456789012
@ -161,10 +172,19 @@
'
8000 R=INT(RND(1)*2)
8001 HTAB 20:VTAB 21
8002 IF R=0 THEN PRINT "Searching..."
8002 IF R=0 THEN PRINT "Searching... "
8003 IF R=1 THEN PRINT "Is anyone there?"
8005 RETURN
'
' Turret Firing
'
8010 R=INT(RND(1)*3)
8011 HTAB 20:VTAB 21
8012 IF R=0 THEN PRINT "Firing. "
8013 IF R=1 THEN PRINT "There you are. "
8014 IF R=2 THEN PRINT "I see you. "
8015 RETURN
'
' BUGS:
' Shouldn't be able to create portals underground
' Artifacts when deleting portals
@ -172,14 +192,11 @@
' TODO:
'
' Opening:
' Aperture Science Logo
' Print Level 1/19
' General
' Sound effects?
' Parametric Levels (Generic Game Engine)
'
' Level 1/19
' Only allow chell on odd X co-ord
' Walking animation?
' Sentries kill
' Sentries shoot/laser through portal
@ -195,5 +212,3 @@
' Die if go into incinerator
' Call out to Still Alive
'