data/scripts/switch/teleport.dacs

   1 /* DooM2D: Midnight on the Firing Line
   2  * coded by Ketmar // Invisible Vector <ketmar@ketmar.no-ip.org>
   3  * Understanding is not required. Only obedience.
   4  *
   5  * This program is free software: you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation, either version 3 of the License, or
   8  * (at your option) any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program. If not, see <http://www.gnu.org/licenses/>.
  17  */
  18 module switchTeleport is "switch" "Teleport";
  19
  20 import apiActor;
  21 import apiMap;
  22 import apiMove;
  23 import apiSwitch;
  24 import stdlib;
  25
  26
  27 // setup actor properties
  28 public void initialize (Actor me) {
  29 }
  30
  31
  32 void action (Actor me) {
  33   auto toucher = me.switchWhoTouched();
  34   if (toucher) {
  35     int x = me.switchGetA*TileSize+4;
  36     int y = me.switchGetB*TileSize+7;
  37     me.atm = 1; // cooldown time
  38     if (!Z_canfit(x, y, toucher.radius, toucher.height)) {
  39       //if (!swsnd) swsnd = Z_sound(sndnotele, 128);
  40     } else {
  41       toucher.Z_teleobj(x, y);
  42     }
  43   }
  44 }
  45
  46
  47 // thinker
  48 public void think (Actor me) {
  49   me.switchThink(&action);
  50 }