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

glados: chell "sprite" sorta passable

Browse Source
This commit is contained in:
Vince Weaver 2017-01-08 01:15:08 -05:00
parent e20b314631
commit f93967cb06
2 changed files with 30 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
glados3.3/objects.shape
View File

@ -10,8 +10,8 @@ START
NLT NLT NLT NLT
RT RT NRT RT RT NRT
NRT LT LT NRT LT LT
NUP UP UP NDN NDN
NDN NDN NDN NDN DN DN UP UP UP UP UP
STOP STOP
# #
# "Portal" # "Portal"
@ -35,25 +35,27 @@ UP NLT UP UP UP NLT UP UP UP
STOP STOP
# Chell 1 # Chell 1
# #
# ###. # B B
# # # # B ##
# #### # B ###
# ### # B ##
# # ### # # B O ######
# # # # O O ## ##
# ### # # O O .######
# # O O
# # O O
# # # O O
# # # B O
# # # B O
# # # B O O
START START
NLT LT LT LT NDN NLT NLT DN DN DN DN DN DN RT NRT LT NLT NLT NLT NLT
RT NRT RT NDN # FALL ARRESTOR BEGIN
LT LT LT LT NDN NRT UP UP UP NRT UP UP UP UP UP NLT
RT RT RT NDN # HAIR
NLT NLT NLT RT NRT NRT NRT NRT RT RT RT NRT RT NDN UP UP UP UP NRT NRT RT NRT DN
NLT LT NLT NLT LT NDN # FACE
NRT RT RT RT NRT RT NLT LT DN RT RT DN NLT LT DN NRT DN RT NRT
# GUN
RT UP RT RT RT RT RT DN NLT LT LT NLT NLT NDN RT RT RT RT RT RT
STOP STOP

12
glados3.3/portal.bas
View File

@ -3,8 +3,8 @@
12 PRINT CHR$(4)+"BLOAD OBJECTS.SHAPE,A$1D00" 12 PRINT CHR$(4)+"BLOAD OBJECTS.SHAPE,A$1D00"
15 GOSUB 1000 15 GOSUB 1000
20 CX=20:CY=100:VX=0:VY=0:SX=140:SY=80:BO=0:GO=0 20 CX=20:CY=100:VX=0:VY=0:SX=140:SY=80:BO=0:GO=0
22 XDRAW 1 AT SX,SY 22 SCALE=2:XDRAW 1 AT SX,SY
25 XDRAW 2 AT CX,CY 25 SCALE=1:XDRAW 3 AT CX,CY
30 REM 30 REM
35 OX=CX:OY=CY:LX=SX:LY=SY 35 OX=CX:OY=CY:LX=SX:LY=SY
37 IF PEEK(-16384)<128 THEN GOTO 100 37 IF PEEK(-16384)<128 THEN GOTO 100
@ -41,14 +41,14 @@
' Portals ' Portals
235 IF BO=0 OR GO=0 GOTO 240 235 IF BO=0 OR GO=0 GOTO 240
236 IF CX>BX-5 AND CX<BX+5 AND CY<BY+12 AND CY>BY-12 THEN CX=GX+5*VX:CY=GY 236 IF CX>BX-5 AND CX<BX+5 AND CY<BY+12 AND CY>BY-12 THEN CX=GX+5*VX:CY=GY
238 IF CX>GX-5 AND CX<GX+5 AND CY<GY+12 AND CY>GY-12 THEN CX=BX-5*VX:CY=BY 238 IF CX>GX-5 AND CX<GX+5 AND CY<GY+12 AND CY>GY-12 THEN CX=BX+5*VX:CY=BY
240 REM 240 REM
' DRAW AT UPDATE CO-ORDS ' DRAW AT UPDATE CO-ORDS
245 IF OX=CX AND OY=CY GOTO 255 245 IF OX=CX AND OY=CY GOTO 255
250 XDRAW 2 AT OX,OY 250 SCALE=1:XDRAW 3 AT OX,OY
251 XDRAW 2 AT CX,CY 251 XDRAW 3 AT CX,CY
255 IF LX=SX AND LY=SY GOTO 300 255 IF LX=SX AND LY=SY GOTO 300
256 XDRAW 1 AT LX,LY 256 SCALE=2:XDRAW 1 AT LX,LY
257 XDRAW 1 AT SX,SY 257 XDRAW 1 AT SX,SY
300 REM 300 REM
500 GOTO 30 500 GOTO 30