Changeset 589 for abuse/trunk/data/addon/aliens/powerold.lspTweet

Timestamp:

May 7, 2011, 4:06:03 PM (12 years ago)

Author:

Sam Hocevar

Message:

data: remove exact duplicate Lisp files, merge all main space Lisp files,
and move most frabs addons to the main data directory.

Location:

abuse/trunk/data/addon/aliens

Files:

• . (added)
• powerold.lsp (moved) (moved from abuse/trunk/data-frabs/addon/aliens/powerold.lsp) (4 diffs)

abuse/trunk/data/addon/aliens/powerold.lsp

@@ -11 +11 @@
         (progn
            (with_object (bg) (make_view_solid (find_rgb 255 255 255)))
-           (with_object (bg) (setq special_power SHLAMP))
+           (with_object (bg) (setq special_power SHLAMP_POWER))
            (with_object (add_object_after SHLMP2 (x) (y)) (link_object (bg)))
            (with_object (add_object_after WTW (x) (y)) (link_object (bg)))
@@ -32 +32 @@
         (set_light_y (get_light 0) (y)))
     nil)
-  (if (not (eq (with_object (get_object 0) special_power) SHLAMP))
+  (if (not (eq (with_object (get_object 0) special_power) SHLAMP_POWER))
         (progn
         (if (eq (total_lights) 1)
@@ -65 +65 @@
       'SNEAKY_POWER
       'HEALTH_POWER
-        'SHLAMP)
+      'SHLAMP_POWER)
 
 (defun give_player_health (amount)
@@ -154 +154 @@
                         (put_image (- (view_x2) 20) (+ (view_y1) 5) sneaky_image))
                                  (sneaky_draw used_special_power (player_number)))
-                   (SHLAMP (player_draw (player_number))
+                   (SHLAMP_POWER (player_draw (player_number))
                                  (if (local_player)
                                      (put_image (- (view_x2) 20) (+ (view_y1) 5) shlamp_image)))