data/scripts/misc/levellight.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 // this actor is used in "press other switch" switch types
  19 module miscLevellight is "light" "LevelLight";
  20
  21 import apiActor;
  22 import apiMap;
  23 import apiSwitch;
  24 import stdlib;
  25
  26
  27 // setup actor properties
  28 public void initialize (Actor me) {
  29   me.radius = 1;
  30   me.height = 1;
  31   me.flags = AF_NOCOLLISION|AF_NOGRAVITY|AF_NOONTOUCH|AF_NODRAW|/*AF_NOLIGHT|*/AF_NOANIMATE;
  32   /*
  33   // add attached light
  34   me.attLightXOfs = 0;
  35   me.attLightYOfs = -8;
  36   me.attachedLightRGBX(255, 0, 255, 124);
  37   writeln("*** PRESSACTOR SPAWNED *** x=", me.x, "; y=", me.y);
  38   */
  39 }
  40
  41
  42 // thinker
  43 //public void think (Actor me) {}
  44
  45
  46 public Actor spawn (int x, int y, int r, int g, int b, int radius) {
  47   auto lt = actorSpawn("light", "LevelLight", x, y, ACTOR_DIR_LEFT);
  48   lt.attachedLightRGBX(r, g, b, radius);
  49   return lt;
  50 }
  51
  52 public Actor spawn (int x, int y, int intens, int radius) {
  53   auto lt = actorSpawn("light", "LevelLight", x, y, ACTOR_DIR_LEFT);
  54   lt.attachedLightColorless(intens, radius);
  55   return lt;
  56 }