Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-26 11:30:12 +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
RT RT NRT
NRT LT LT
NUP UP UP
NDN NDN NDN NDN DN DN
NDN NDN
UP UP UP UP UP
STOP
#
# "Portal"
@ -35,25 +35,27 @@ UP NLT UP UP UP NLT UP UP UP
STOP
# 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
NLT LT LT LT NDN
RT NRT RT NDN
LT LT LT LT NDN NRT
RT RT RT NDN
NLT NLT NLT RT NRT NRT NRT NRT RT RT RT NRT RT NDN
NLT LT NLT NLT LT NDN
NRT RT RT RT NRT RT
NLT NLT DN DN DN DN DN DN RT NRT LT NLT NLT NLT NLT
# FALL ARRESTOR BEGIN
UP UP UP NRT UP UP UP UP UP NLT
# HAIR
UP UP UP UP NRT NRT RT NRT DN
# FACE
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

12
glados3.3/portal.bas
View File

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