BS2 Portal

From FSG Wiki

Jump to: navigation, search

Back to Main Page 

GROUP Portal 1 TEXT "Portal"

Element Portal PortalEnter1 0 0 255 0 1 0 1 0 Clear 10 TEXT " P.Enter1 "
Element Portal PortalExit1 255 0 0 0 1 0 1 0 Clear 20 TEXT " P.Exit1 "
Element Portal PortalEnter2 0 255 255 0 1 0 1 0 Clear 10 TEXT " P.Enter2 "
Element Portal PortalExit2 255 255 0 0 1 0 1 0 Clear 20 TEXT " P.Exit2 "

InteractionTrigger PortalEnter1 All TeleportToExit 32768 Clear
InteractionTrigger PortalExit1 All TeleportToEnter 32768 Clear
InteractionTrigger PortalEnter2 All TeleportToExit2 32768 Clear
InteractionTrigger PortalExit2 All TeleportToEnter2 32768 Clear

REMOVETRIGGER TeleportToExit
ON TeleportToExit IF ((Y2 - PortalEnter1Y) == -1) <DRAW INTERACTION2 POINT (PortalExit1X1 + (X1 - PortalEnter1X1)) (PortalExit1Y + 2)>
ON TeleportToExit IF ((Y2 - PortalEnter1Y) == 1)  <DRAW INTERACTION2 POINT (PortalExit1X1 + (X1 - PortalEnter1X1)) (PortalExit1Y - 2)>
ON TeleportToExit DRAW ELEMENT:Clear POINT X2 Y2
REMOVETRIGGER TeleportToExit2
ON TeleportToExit2 IF ((Y2 - PortalEnter2Y) == -1) <DRAW INTERACTION2 POINT (PortalExit2X1 + (X1 - PortalEnter2X1)) (PortalExit2Y + 2)>
ON TeleportToExit2 IF ((Y2 - PortalEnter2Y) == 1)  <DRAW INTERACTION2 POINT (PortalExit2X1 + (X1 - PortalEnter2X1)) (PortalExit2Y - 2)>
ON TeleportToExit2 DRAW ELEMENT:Clear POINT X2 Y2

REMOVETRIGGER TeleportToEnter
ON TeleportToEnter IF ((Y2 - PortalExit1Y) == -1) <DRAW INTERACTION2 POINT (PortalEnter1X1 + (X1 - PortalExit1X1)) (PortalEnter1Y + 2)>
ON TeleportToEnter IF ((Y2 - PortalExit1Y) == 1) <DRAW INTERACTION2 POINT (PortalEnter1X1 + (X1 - PortalExit1X1)) (PortalEnter1Y - 2)>
ON TeleportToEnter DRAW ELEMENT:Clear POINT X2 Y2
REMOVETRIGGER TeleportToEnter2
ON TeleportToEnter2 IF ((Y2 - PortalExit2Y) == -1) <DRAW INTERACTION2 POINT (PortalEnter2X1 + (X1 - PortalExit2X1)) (PortalEnter2Y + 2)>
ON TeleportToEnter2 IF ((Y2 - PortalExit2Y) == 1) <DRAW INTERACTION2 POINT (PortalEnter2X1 + (X1 - PortalExit2X1)) (PortalEnter2Y - 2)>
ON TeleportToEnter2 DRAW ELEMENT:Clear POINT X2 Y2

REMOVETRIGGER drawhorizontal 
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalEnter1) && (CLICKED)) <DRAW DRAWELEMENT RECT (X - (BRUSHSIZE / 2)) Y BRUSHSIZE 0>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalExit1) && (CLICKED)) <DRAW DRAWELEMENT RECT (X - (BRUSHSIZE / 2)) Y BRUSHSIZE 0>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalEnter2) && (CLICKED)) <DRAW DRAWELEMENT RECT (X - (BRUSHSIZE / 2)) Y BRUSHSIZE 0>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalExit2) && (CLICKED)) <DRAW DRAWELEMENT RECT (X - (BRUSHSIZE / 2)) Y BRUSHSIZE 0>
ON drawhorizontal IF ((DRAWELEMENT != ELEMENT:PortalEnter1) && (DRAWELEMENT != ELEMENT:PortalExit1) && (DRAWELEMENT != ELEMENT:PortalEnter2) && (DRAWELEMENT != ELEMENT:PortalExit2)) <DRAW DRAWELEMENT RECT (X - (BRUSHSIZE / 2)) Y BRUSHSIZE 0>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalEnter1) && (CLICKED) && (PREVIEW == 0)) <SET PortalEnter1X1 (X - (BRUSHSIZE / 2))>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalEnter1) && (CLICKED) && (PREVIEW == 0)) <SET PortalEnter1X2 (X + (BRUSHSIZE / 2))>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalEnter1) && (CLICKED) && (PREVIEW == 0)) <SET PortalEnter1Y Y>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalExit1) && (CLICKED) && (PREVIEW == 0)) <SET PortalExit1X1 (X - (BRUSHSIZE / 2))>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalExit1) && (CLICKED) && (PREVIEW == 0)) <SET PortalExit1X2 (X + (BRUSHSIZE / 2))>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalExit1) && (CLICKED) && (PREVIEW == 0)) <SET PortalExit1Y Y>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalEnter2) && (CLICKED) && (PREVIEW == 0)) <SET PortalEnter2X1 (X - (BRUSHSIZE / 2))>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalEnter2) && (CLICKED) && (PREVIEW == 0)) <SET PortalEnter2X2 (X + (BRUSHSIZE / 2))>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalEnter2) && (CLICKED) && (PREVIEW == 0)) <SET PortalEnter2Y Y>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalExit2) && (CLICKED) && (PREVIEW == 0)) <SET PortalExit2X1 (X - (BRUSHSIZE / 2))>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalExit2) && (CLICKED) && (PREVIEW == 0)) <SET PortalExit2X2 (X + (BRUSHSIZE / 2))>
ON drawhorizontal IF ((DRAWELEMENT == ELEMENT:PortalExit2) && (CLICKED) && (PREVIEW == 0)) <SET PortalExit2Y Y>

SET MENURIGHT 55
SET ELEMENT1 ELEMENT:PortalEnter1
EXEC clearscreen
EXEC listelements GROUP:Portal
EXEC listgroups
EXEC defaultstatus
Retrieved from "http://www.fallingsandgame.com/wiki/index.php/BS2_Portal"
Personal tools