Xindaris
Level: Smitemaster
Rank Points: 1587
Registered: 06-13-2015
IP: Logged
File: Long Code Sample.hold (6.6 KB) Downloaded 45 times. License: Public Domain
|
Re: Deleting commands takes forever (+2)
Sure, here's one of the things I actually ran into this problem with while trying to echo some changes from one version to another of the same type of block (some custom pushables I've mostly finished developing, except for dealing with Construct-pushing-characters stuff that I need 5.1 for, and possibly incorporating weapon detection if it actually gets added):
Click here to view the secret text × Imperative 1
Imperative 19
Imperative 25
Imperative 23
Imperative 17
Imperative 11
Appear
Set var ".Trapdoor" = 0
Set var ".OnButton" : F
Set var ".Floating" : F
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Wait 0
GoSub PitfallCheck
Go to Start
Label Start
GoSub TrapdoorCheck
GoSub FloatToggle
If ...
Wait for someone to push me
Go to PushCheck
Else
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
Wait 0
GoSub PitfallCheck
Go to Start
If End
Label PushCheck
If ...
Wait until var ".Floating" : F
If ...
Wait until var ".Trapdoor" > 0
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for entity Player 0,0,0,0
Else
If ...
Wait for entity Double 0,0,0,0
Else
If ...
Wait for entity Stalwart 0,0,0,0
Else
If ...
Wait for entity Slayer 0,0,0,0
Else
If ...
Wait for entity Monster 0,0,0,0
Else
If ...
Wait for entity NPC 0,0,0,0
Else
If ...
Wait for entity Halph 0,0,0,0
Else
GoSub Drop
If End
If End
If End
If End
If End
If End
If End
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
If End
GoSub PitfallCheck
Else
Set var ".Trapdoor" = 0
If End
If ...
Wait until var ".CurrentY" < _MyY
Go to South
If End
If ...
Wait until var ".CurrentY" > _MyY
Go to North
If End
If ...
Wait until var ".CurrentX" > _MyX
Go to GoWest
If End
If ...
Wait until var ".CurrentX" < _MyX
Go to GoEast
If End
Go to Start
Label North
If ...
Wait until var ".CurrentX" > _MyX
Go to GoNorthWest
If End
If ...
Wait until var ".CurrentX" < _MyX
Go to GoNorthEast
If End
Go to GoNorth
Label South
If ...
Wait until var ".CurrentX" > _MyX
Go to GoSouthWest
If End
If ...
Wait until var ".CurrentX" < _MyX
Go to GoSouthEast
If End
Go to GoSouth
Label GoNorth
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Wait 0
GoSub FloatToggle
If ...
Wait for someone to push me
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for entity Player 0,0,0,0
Else
If ...
Wait for entity Double 0,0,0,0
Else
If ...
Wait for entity Stalwart 0,0,0,0
Else
If ...
Wait for entity Slayer 0,0,0,0
Else
If ...
Wait for entity Monster 0,0,0,0
Else
If ...
Wait for entity NPC 0,0,0,0
Else
If ...
Wait for entity Halph 0,0,0,0
Else
GoSub Drop
If End
If End
If End
If End
If End
If End
If End
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Go to PushCheck
Else
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for item Tunnel (north),0,0,0,0
Set var ".i" = _MyY
Go to NorthTunnelLoop
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
If ...
Wait for open move North
Set var "_MyY" - 1
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
GoSub Drop
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Else
If ...
Wait until var ".OnButton" : T
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
Set var "_MyScriptY" - 1
If ...
Wait for item Pit,0,0,0,0
Set var "_MyY" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Image pit,0,0,0,0
Set var "_MyY" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Water,0,0,0,0
Set var "_MyY" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Shallow water,0,0,0,0
Set var "_MyY" - 1
GoSub PitfallCheck
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
If End
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
If End
Go to GoNorth
Label NorthTunnelLoop
Set var "_MyScriptY" - 1
If ...
Wait for item Tunnel (south),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoNorth
If End
If ...
Wait for item Tunnel (north),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoNorth
If End
If ...
Wait for item Tunnel (east),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoNorth
If End
If ...
Wait for item Tunnel (west),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoNorth
If End
If ...
Wait until var "_MyScriptY" < 0
Set var "_MyScriptY" = 31
If End
If ...
Wait until var "_MyScriptY" = .i
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to Start
Else
Go to NorthTunnelLoop
If End
Label GoSouth
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Wait 0
GoSub FloatToggle
If ...
Wait for someone to push me
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for entity Player 0,0,0,0
Else
If ...
Wait for entity Double 0,0,0,0
Else
If ...
Wait for entity Stalwart 0,0,0,0
Else
If ...
Wait for entity Slayer 0,0,0,0
Else
If ...
Wait for entity Monster 0,0,0,0
Else
If ...
Wait for entity NPC 0,0,0,0
Else
If ...
Wait for entity Halph 0,0,0,0
Else
GoSub Drop
If End
If End
If End
If End
If End
If End
If End
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Go to PushCheck
Else
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for item Tunnel (south),0,0,0,0
Set var ".i" = _MyY
Go to SouthTunnelLoop
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
If ...
Wait for open move South
Set var "_MyY" + 1
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
GoSub Drop
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Else
If ...
Wait until var ".OnButton" : T
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
Set var "_MyScriptY" + 1
If ...
Wait for item Pit,0,0,0,0
Set var "_MyY" + 1
GoSub PitfallCheck
Else
If ...
Wait for item Image pit,0,0,0,0
Set var "_MyY" + 1
GoSub PitfallCheck
Else
If ...
Wait for item Water,0,0,0,0
Set var "_MyY" + 1
GoSub PitfallCheck
Else
If ...
Wait for item Shallow water,0,0,0,0
Set var "_MyY" + 1
GoSub PitfallCheck
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
If End
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
If End
Go to GoSouth
Label SouthTunnelLoop
Set var "_MyScriptY" + 1
If ...
Wait for item Tunnel (south),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoSouth
If End
If ...
Wait for item Tunnel (north),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoSouth
If End
If ...
Wait for item Tunnel (east),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoSouth
If End
If ...
Wait for item Tunnel (west),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoSouth
If End
If ...
Wait until var "_MyScriptY" > 31
Set var "_MyScriptY" = 0
If End
If ...
Wait until var "_MyScriptY" = .i
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Wait 0
Go to Start
Else
Go to SouthTunnelLoop
If End
Label GoWest
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Wait 0
GoSub FloatToggle
If ...
Wait for someone to push me
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for entity Player 0,0,0,0
Else
If ...
Wait for entity Double 0,0,0,0
Else
If ...
Wait for entity Stalwart 0,0,0,0
Else
If ...
Wait for entity Slayer 0,0,0,0
Else
If ...
Wait for entity Monster 0,0,0,0
Else
If ...
Wait for entity NPC 0,0,0,0
Else
If ...
Wait for entity Halph 0,0,0,0
Else
GoSub Drop
If End
If End
If End
If End
If End
If End
If End
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Go to PushCheck
Else
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for item Tunnel (west),0,0,0,0
Set var ".i" = _MyX
Go to WestTunnelLoop
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
If ...
Wait for open move West
Set var "_MyX" - 1
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
GoSub Drop
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Else
If ...
Wait until var ".OnButton" : T
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
Set var "_MyScriptX" - 1
If ...
Wait for item Pit,0,0,0,0
Set var "_MyX" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Image pit,0,0,0,0
Set var "_MyX" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Water,0,0,0,0
Set var "_MyX" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Shallow water,0,0,0,0
Set var "_MyX" - 1
GoSub PitfallCheck
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
If End
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
If End
Go to GoWest
Label WestTunnelLoop
Set var "_MyScriptX" - 1
If ...
Wait for item Tunnel (south),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoWest
If End
If ...
Wait for item Tunnel (north),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoWest
If End
If ...
Wait for item Tunnel (east),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoWest
If End
If ...
Wait for item Tunnel (west),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoWest
If End
If ...
Wait until var "_MyScriptX" < 0
Set var "_MyScriptX" = 37
If End
If ...
Wait until var "_MyScriptX" = .i
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Wait 0
Go to Start
Else
Go to WestTunnelLoop
If End
Label GoEast
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Wait 0
GoSub FloatToggle
If ...
Wait for someone to push me
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for entity Player 0,0,0,0
Else
If ...
Wait for entity Double 0,0,0,0
Else
If ...
Wait for entity Stalwart 0,0,0,0
Else
If ...
Wait for entity Slayer 0,0,0,0
Else
If ...
Wait for entity Monster 0,0,0,0
Else
If ...
Wait for entity NPC 0,0,0,0
Else
If ...
Wait for entity Halph 0,0,0,0
Else
GoSub Drop
If End
If End
If End
If End
If End
If End
If End
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Go to PushCheck
Else
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for item Tunnel (east),0,0,0,0
Set var ".i" = _MyX
Go to EastTunnelLoop
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
If ...
Wait for open move East
Set var "_MyX" + 1
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
GoSub Drop
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Else
If ...
Wait until var ".OnButton" : T
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
Set var "_MyScriptX" + 1
If ...
Wait for item Pit,0,0,0,0
Set var "_MyX" + 1
GoSub PitfallCheck
Else
If ...
Wait for item Image pit,0,0,0,0
Set var "_MyX" + 1
GoSub PitfallCheck
Else
If ...
Wait for item Water,0,0,0,0
Set var "_MyX" + 1
GoSub PitfallCheck
Else
If ...
Wait for item Shallow water,0,0,0,0
Set var "_MyX" + 1
GoSub PitfallCheck
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
If End
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
If End
Go to GoEast
Label EastTunnelLoop
Set var "_MyScriptX" + 1
If ...
Wait for item Tunnel (south),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoEast
If End
If ...
Wait for item Tunnel (north),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoEast
If End
If ...
Wait for item Tunnel (east),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoEast
If End
If ...
Wait for item Tunnel (west),0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Go to GoEast
If End
If ...
Wait until var "_MyScriptX" > 37
Set var "_MyScriptX" = 0
If End
If ...
Wait until var "_MyScriptX" = .i
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Wait 0
Go to Start
Else
Go to EastTunnelLoop
If End
Label GoNorthWest
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Wait 0
GoSub FloatToggle
If ...
Wait for someone to push me
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for entity Player 0,0,0,0
Else
If ...
Wait for entity Double 0,0,0,0
Else
If ...
Wait for entity Stalwart 0,0,0,0
Else
If ...
Wait for entity Slayer 0,0,0,0
Else
If ...
Wait for entity Monster 0,0,0,0
Else
If ...
Wait for entity NPC 0,0,0,0
Else
If ...
Wait for entity Halph 0,0,0,0
Else
GoSub Drop
If End
If End
If End
If End
If End
If End
If End
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Go to PushCheck
Else
If ...
Wait for open move northwest
Set var "_MyX" - 1
Set var "_MyY" - 1
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
GoSub Drop
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Else
If ...
Wait until var ".OnButton" : T
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
Set var "_MyScriptX" - 1
Set var "_MyScriptY" - 1
If ...
Wait for item Pit,0,0,0,0
Set var "_MyX" - 1
Set var "_MyY" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Image pit,0,0,0,0
Set var "_MyX" - 1
Set var "_MyY" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Water,0,0,0,0
Set var "_MyX" - 1
Set var "_MyY" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Shallow water,0,0,0,0
Set var "_MyX" - 1
Set var "_MyY" - 1
GoSub PitfallCheck
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
If End
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
Go to GoNorthWest
Label GoNorthEast
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Wait 0
GoSub FloatToggle
If ...
Wait for someone to push me
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for entity Player 0,0,0,0
Else
If ...
Wait for entity Double 0,0,0,0
Else
If ...
Wait for entity Stalwart 0,0,0,0
Else
If ...
Wait for entity Slayer 0,0,0,0
Else
If ...
Wait for entity Monster 0,0,0,0
Else
If ...
Wait for entity NPC 0,0,0,0
Else
If ...
Wait for entity Halph 0,0,0,0
Else
GoSub Drop
If End
If End
If End
If End
If End
If End
If End
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Go to PushCheck
Else
If ...
Wait for open move northeast
Set var "_MyX" + 1
Set var "_MyY" - 1
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
GoSub Drop
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Else
If ...
Wait until var ".OnButton" : T
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
Set var "_MyScriptX" + 1
Set var "_MyScriptY" - 1
If ...
Wait for item Pit,0,0,0,0
Set var "_MyX" + 1
Set var "_MyY" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Image pit,0,0,0,0
Set var "_MyX" + 1
Set var "_MyY" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Water,0,0,0,0
Set var "_MyX" + 1
Set var "_MyY" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Shallow water,0,0,0,0
Set var "_MyX" + 1
Set var "_MyY" - 1
GoSub PitfallCheck
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
If End
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
Go to GoNorthEast
Label GoSouthWest
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Wait 0
GoSub FloatToggle
If ...
Wait for someone to push me
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for entity Player 0,0,0,0
Else
If ...
Wait for entity Double 0,0,0,0
Else
If ...
Wait for entity Stalwart 0,0,0,0
Else
If ...
Wait for entity Slayer 0,0,0,0
Else
If ...
Wait for entity Monster 0,0,0,0
Else
If ...
Wait for entity NPC 0,0,0,0
Else
If ...
Wait for entity Halph 0,0,0,0
Else
GoSub Drop
If End
If End
If End
If End
If End
If End
If End
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Go to PushCheck
Else
If ...
Wait for open move southwest
Set var "_MyX" - 1
Set var "_MyY" + 1
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
GoSub Drop
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Else
If ...
Wait until var ".OnButton" : T
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
Set var "_MyScriptX" - 1
Set var "_MyScriptY" - 1
If ...
Wait for item Pit,0,0,0,0
Set var "_MyX" - 1
Set var "_MyY" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Image pit,0,0,0,0
Set var "_MyX" - 1
Set var "_MyY" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Water,0,0,0,0
Set var "_MyX" - 1
Set var "_MyY" - 1
GoSub PitfallCheck
Else
If ...
Wait for item Shallow water,0,0,0,0
Set var "_MyX" - 1
Set var "_MyY" - 1
GoSub PitfallCheck
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
If End
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
Go to GoSouthWest
Label GoSouthEast
GoSub PitfallCheck
Set var ".CurrentX" = _MyX
Set var ".CurrentY" = _MyY
GoSub PlateCheck
GoSub TrapdoorCheck
Wait 0
GoSub FloatToggle
If ...
Wait for someone to push me
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for entity Player 0,0,0,0
Else
If ...
Wait for entity Double 0,0,0,0
Else
If ...
Wait for entity Stalwart 0,0,0,0
Else
If ...
Wait for entity Slayer 0,0,0,0
Else
If ...
Wait for entity Monster 0,0,0,0
Else
If ...
Wait for entity NPC 0,0,0,0
Else
If ...
Wait for entity Halph 0,0,0,0
Else
GoSub Drop
If End
If End
If End
If End
If End
If End
If End
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Go to PushCheck
Else
If ...
Wait for open move southeast
Set var "_MyX" + 1
Set var "_MyY" + 1
If ...
Wait until var ".Trapdoor" > 0
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
GoSub Drop
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var ".Trapdoor" = 0
If End
If End
Else
If ...
Wait until var ".OnButton" : T
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
Set var "_MyScriptX" + 1
Set var "_MyScriptY" + 1
If ...
Wait for item Pit,0,0,0,0
Set var "_MyX" + 1
Set var "_MyY" + 1
GoSub PitfallCheck
Else
If ...
Wait for item Image pit,0,0,0,0
Set var "_MyX" + 1
Set var "_MyY" + 1
GoSub PitfallCheck
Else
If ...
Wait for item Water,0,0,0,0
Set var "_MyX" + 1
Set var "_MyY" + 1
GoSub PitfallCheck
Else
If ...
Wait for item Shallow water,0,0,0,0
Set var "_MyX" + 1
Set var "_MyY" + 1
GoSub PitfallCheck
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
If End
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Else
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
GoSub TrapdoorCheck
GoSub FloatToggle
Go to Start
If End
If End
If End
Go to GoSouthEast
Label TrapdoorCheck
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for item Trapdoor,0,0,0,0
Set var ".Trapdoor" = 1
If End
If ...
Wait for item Trapdoor (over water),0,0,0,0
Set var ".Trapdoor" = 2
If End
If ...
Wait for item Thin ice,0,0,0,0
Set var ".Trapdoor" = 3
If End
If ...
Wait for item Thin ice (over shallows),0,0,0,0
Set var ".Trapdoor" = 4
If End
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Return
Label Drop
If ...
Wait until var ".Floating" : F
If ...
Wait until var "FloatToggle" = 0
If ...
Wait until var ".Trapdoor" = 1
Destroy Trapdoor 0,0,0,0
If End
If ...
Wait until var ".Trapdoor" = 2
Destroy Trapdoor 0,0,0,0
If End
If ...
Wait until var ".Trapdoor" = 3
Destroy Trapdoor 0,0,0,0
If End
If ...
Wait until var ".Trapdoor" = 4
Destroy Trapdoor 0,0,0,0
If End
Else
If ...
Wait until var ".JustToggled" : T
If ...
Wait until var ".Trapdoor" = 1
Destroy Trapdoor 0,0,0,0
If End
If ...
Wait until var ".Trapdoor" = 2
Destroy Trapdoor 0,0,0,0
If End
If ...
Wait until var ".Trapdoor" = 3
Destroy Trapdoor 0,0,0,0
If End
If ...
Wait until var ".Trapdoor" = 4
Destroy Trapdoor 0,0,0,0
If End
If End
If End
If End
Return
Label PlateCheck
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait until var ".OnButton" : T
If ...
Wait for item Pressure plate (multi-use),0,0,0,0
Else
Disappear
Set appearance MomBlock
Appear
Set var ".OnButton" : F
If End
If End
If ...
Wait until var ".OnButton" : F
If ...
Wait for item Pressure plate (multi-use),0,0,0,0
Disappear
Set appearance MomBlock (Down)
Appear
Set var ".OnButton" : T
Else
If End
If End
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
If End
Return
Label PitfallAheadCheck
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Return
Label PitfallCheck
If ...
Wait until var ".Floating" : F
Set var "_MyScriptX" = _MyX
Set var "_MyScriptY" = _MyY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
If ...
Wait for item Pit,0,0,0,0
Go to Fall
If End
If ...
Wait for item Image pit,0,0,0,0
Go to Fall
If End
If ...
Wait for item Water,0,0,0,0
Go to Fall
If End
If ...
Wait for item Shallow water,0,0,0,0
Disappear
Appear at 0,0
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
Game effect Center,Splash,0,0,On
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
Disappear
Build Stepping stone,0,0,0,0
Imperative 4
If End
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
If End
Return
Label Fall
Imperative 14
If ...
Wait until var ".OnButton" : F
Set appearance MomBlock (Down)
If End
Imperative 5
Disappear
Label FloatToggle
If ...
Wait until var "FloatToggle" > 0
If ...
Wait until var ".Floating" : T
Disappear
Set appearance MomBlock
Appear
Set var ".Floating" : F
GoSub PlateCheck
Else
Disappear
Set appearance MomBlock (Floating)
Appear
If ...
Wait until var ".Trapdoor" > 0
Set var "_MyScriptX" = .CurrentX
Set var "_MyScriptY" = .CurrentY
Set var "_MyScriptW" = 0
Set var "_MyScriptH" = 0
Set var ".JustToggled" : T
If ...
Wait for entity Player 0,0,0,0
Else
If ...
Wait for entity Double 0,0,0,0
Else
If ...
Wait for entity Stalwart 0,0,0,0
Else
If ...
Wait for entity Slayer 0,0,0,0
Else
If ...
Wait for entity Monster 0,0,0,0
Else
If ...
Wait for entity Halph 0,0,0,0
Else
GoSub Drop
If End
If End
If End
If End
If End
If End
Set var ".JustToggled" : F
Set var ".Trapdoor" = 0
Set var "_MyScriptX" = -9999
Set var "_MyScriptY" = -9999
Set var "_MyScriptW" = -9999
Set var "_MyScriptH" = -9999
If End
Set var ".Floating" : T
Set var ".OnButton" : F
If End
If End
Return
It's...pretty long. But pasting it in takes just a second, while deleting takes so long that clicking the screen can cause windows to mark DROD as " Not responding" and ask me if I want it to force close.
EDIT: It's occurred to me the code requires some variables and refers to three different characters with custom graphics...so, I've just attached a one-room hold with the three relevant characters and all the variables and whatnot included so it should work properly.
____________________________
109th Skywatcher
Here are some links to Things!
Click here to view the secret text
[Last edited by Xindaris at 12-10-2015 03:46 AM]
|