diff --git a/glados3.3/objects.shape b/glados3.3/objects.shape index 10c61cb9..ebc63a67 100644 --- a/glados3.3/objects.shape +++ b/glados3.3/objects.shape @@ -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 diff --git a/glados3.3/portal.bas b/glados3.3/portal.bas index 30f3ec93..b72fa58f 100644 --- a/glados3.3/portal.bas +++ b/glados3.3/portal.bas @@ -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 CXBY-12 THEN CX=GX+5*VX:CY=GY -238 IF CX>GX-5 AND CXGY-12 THEN CX=BX-5*VX:CY=BY +238 IF CX>GX-5 AND CXGY-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