home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 5.14 / 2000-11_-_Disc_5.14.iso / Goodies / 3DGameStudio / Adeptus / adoors.wdl < prev    next >
Text File  |  2000-04-24  |  3KB  |  111 lines
  1. //@
  2. # INVOKED        WDL-Script                    Project: DEMO ADEPTUS
  3. #
  4. # Auftraggeber   : Conitec GmbH
  5. #
  6. #*********************************************************************
  7. # Module        : doors.wdl - Kundenversion
  8. # Version       : 2.0 (Made with WDL-STUDIO & Beautyfier)
  9. # Date          :  9.9.99
  10. # Responsible   : Harald Schmidt
  11. # Description   : Conitec RPG -Demo - Modified Template doors.wdl
  12. # *********************************************************************
  13. //@
  14. ////////////////////////////////////////////////////////////////////////
  15. SKILL spelldoor_open {}
  16. ////////////////////////////////////////////////////////////////////////
  17.  
  18. ACTION adept_door
  19. {
  20.     CALL door;
  21.     MY.ENT_ID = M_DOOR;
  22.     SET MY.STRING1, door_str;
  23.     SET MY.ENABLE_TOUCH, ON;
  24.     SET MY.EVENT, adept_door_event;
  25. }
  26.  
  27. ACTION adept_key1_door
  28. {
  29.     CALL door;
  30.     MY.ENT_ID = M_DOOR1;
  31.     MY.KEY = M_KEY1;
  32.     SET MY.STRING1, door_str;
  33.     SET MY.ENABLE_TOUCH, ON;
  34.     SET MY.EVENT, adept_door_event;
  35. }
  36.  
  37. ACTION adept_key2_door
  38. {
  39.     CALL door;
  40.     MY.ENT_ID = M_DOOR2;
  41.     MY.KEY = M_KEY2;
  42.     SET MY.STRING1, door_str;
  43.     SET MY.ENABLE_TOUCH, ON;
  44.     SET MY.EVENT, adept_door_event;
  45. }
  46.  
  47. ACTION adept_spelldoor
  48. {
  49.     CALL door;
  50.     MY.ENT_ID = M_SPELLDOOR;
  51.     SET MY.STRING1, door_str;
  52.     SET MY.ENABLE_TOUCH, ON;
  53.     SET MY.EVENT, adept_door_event;
  54. }
  55.  
  56.  
  57.  
  58. ACTION adept_door_event
  59. {
  60.     CALL handle_touch;
  61.  
  62.     // if this is a key door and the user does not have the key 'in-hand'...
  63.     IF (((MY.KEY == M_KEY1)||(MY.KEY == M_KEY2))
  64.         && (MY.KEY != mouse_object))
  65.     {
  66.         // "this door can not be open without the right key"
  67.         SET msg.STRING,locked_door_str;
  68.         CALL show_message;
  69.  
  70.         RETURN;
  71.     }
  72.  
  73.     // if this is a spelldoor and the spell has not been cast...
  74.     IF ((MY.ENT_ID == M_SPELLDOOR)&&(spelldoor_open == FALSE))
  75.     {
  76.         // "This door is magically sealed"
  77.          SET msg.STRING,spell_locked_door_str;
  78.         CALL show_message;
  79.  
  80.         RETURN;
  81.     }
  82.  
  83.     // open the door
  84.     MY.ENT_ID = M_DOOR;
  85.     BRANCH door_event;
  86. }
  87.  
  88.  
  89.  
  90.  
  91.  
  92. ////////////////////////////////////////////////////////////////////////
  93.  
  94. // DCP- added a 'proxy' trigger at its base (elevator_prox_target)
  95. ACTION adept_elevator
  96. {
  97.     SET MY.STRING1,plat_str;
  98.     SET MY.__REMOTE,ON;        // operates upon remote calling
  99. //    MY._TRIGGER_RANGE = 1;    // operates upon stepping onto it
  100. //    MY._RECALL_TRIGGER_RANGE = 250; // zone around the recall trigger
  101.     MY._TRIGGER_RANGE = 250; // zone around the recall trigger
  102.  
  103.  
  104.     CALL elevator;
  105. }
  106.  
  107.  
  108.  
  109.  
  110. //Old trigger entity - not used anymore
  111. ACTION elevator_trigger {    REMOVE ME; RETURN; }