Shamusworld >> Repos - jk1/blob - scripts/common/elevator01.ICARUS

   1 //Generated by BehavEd\r
   2 \r
   3 rem ( "Generic elevator. Goes to point #1, goes back to point #2. [JLH]" );\r
   4 rem ( "It seems that you can't specify a time programmatically--pity that." );\r
   5 rem ( "It really diminshes the usefulness of this script." );\r
   6 rem ( "Elevator - func_static" );\r
   7 rem ( "    PARM2 - ref_tag, up position, targetname" );\r
   8 rem ( "    PARM3 - ref_tag, down position, targetname" );\r
   9 rem ( "    PARM4 - func_usable, button, targetname" );\r
  10 rem ( "?    PARM5 - Float, travel time in milliseconds" );\r
  11 rem ( "    PARM6 - Float, wait time at pt1 in milliseconds" );\r
  12 rem ( "Scriptrunner -" );\r
  13 rem ( "    PARM1 - func_static, elevator, script_targetname" );\r
  14 rem ( "    PARM4 - func_usable, button, targetname" );\r
  15 sound ( /*@CHANNELS*/ CHAN_AUTO, "sound/movers/switches/switch1.mp3" );\r
  16 use ( $get( STRING, "SET_PARM4")$ );\r
  17 \r
  18 affect ( $get( STRING, "SET_PARM1")$, /*@AFFECT_TYPE*/ FLUSH )\r
  19 {\r
  20 \r
  21         task ( "pt1" )\r
  22         {\r
  23                 move ( $tag( get(STRING, "SET_PARM2"), ORIGIN)$, $10000$ );\r
  24         }\r
  25 \r
  26 \r
  27         task ( "pt2" )\r
  28         {\r
  29                 move ( $tag( get(STRING, "SET_PARM3"), ORIGIN)$, $10000$ );\r
  30         }\r
  31 \r
  32         dowait ( "pt1" );\r
  33         wait ( $get( FLOAT, "SET_PARM6")$ );\r
  34         dowait ( "pt2" );\r
  35         use ( $get( STRING, "SET_PARM4")$ );\r
  36 }\r
  37 \r