Changeset 582 for abuse/trunk/data-frabs/addonTweet

Timestamp:

May 6, 2011, 12:47:14 AM (12 years ago)

Author:

Sam Hocevar

Message:

data: remove \r and trailing spaces and tabs from all Lisp sources.

Location:

abuse/trunk/data-frabs/addon

Files:

• aliens/alichars.lsp (modified) (44 diffs)
• aliens/powerold.lsp (modified) (5 diffs)
• aliens/powerups.lsp (modified) (2 diffs)
• claudio/claudio.lsp (modified) (85 diffs)
• claudio/oldclaud.lsp (modified) (87 diffs)
• deathmat/deathmat.lsp (modified) (1 diff)
• deathmat/dstartup.lsp (modified) (5 diffs)
• deathmat/large.lsp (modified) (1 diff)
• deathmat/medium.lsp (modified) (5 diffs)
• deathmat/small.lsp (modified) (5 diffs)
• leon/leon.lsp (modified) (3 diffs)
• leon/lisp/deco.lsp (modified) (2 diffs)
• leon/lisp/grenade.lsp (modified) (5 diffs)
• leon/lisp/lmisc.lsp (modified) (11 diffs)
• leon/lisp/lnant.lsp (modified) (16 diffs)
• leon/lisp/nextlev3.lsp (modified) (2 diffs)
• leon/lisp/nguns.lsp (modified) (16 diffs)
• leon/lisp/njug.lsp (modified) (6 diffs)
• leon/lisp/rain.lsp (modified) (4 diffs)
• leon/lisp/slavesw.lsp (modified) (1 diff)
• leon/lisp/text.lsp (modified) (2 diffs)
• newart/newart.lsp (modified) (1 diff)
• pong/common.lsp (modified) (7 diffs)
• pong/pong.lsp (modified) (13 diffs)
• pong/userfuns.lsp (modified) (2 diffs)
• twist/f2ai.lsp (modified) (9 diffs)
• twist/f2chars.lsp (modified) (5 diffs)
• twist/lisp/ai.lsp (modified) (16 diffs)
• twist/lisp/chars.lsp (modified) (13 diffs)
• twist/lisp/english.lsp (modified) (3 diffs)
• twist/lisp/f2ai.lsp (modified) (10 diffs)
• twist/lisp/f2chars.lsp (modified) (13 diffs)
• twist/lisp/input.lsp (modified) (3 diffs)
• twist/lisp/light.lsp (modified) (1 diff)
• twist/lisp/mario.lsp (modified) (12 diffs)
• twist/lisp/startup.lsp (modified) (1 diff)
• twist/lisp/tints.lsp (modified) (1 diff)
• twist/lisp/userfuns.lsp (modified) (1 diff)
• twist/lisp/weapons.lsp (modified) (16 diffs)
• twist/twist.lsp (modified) (2 diffs)

abuse/trunk/data-frabs/addon/aliens/alichars.lsp

@@ -45 +45 @@
 
 (defun alien_wait_time ()
-  (select difficulty 
+  (select difficulty
           ('easy    6)
           ('medium  4)
@@ -59 +59 @@
         nil
       T)))
-      
-      
+
+
 (defun roof_above () (not (can_see (x) (y) (x) (- (y) 120) nil)))
 
 (defun ali_dodge ()
   (if (eq need_to_dodge 1)
-      (progn 
+      (progn
         (setq need_to_dodge 0)
         (if (eq (random 2) 1)
@@ -113 +113 @@
                            (and (< (distx) 130) (< (y) (with_object (bg) (y))))
                          (not (eq (with_object (get_object 0) (aistate)) 0)))
-                       (progn 
+                       (progn
                          (set_state fall_start)                  (set_direction (toward))
                          (set_aistate 1))))
@@ -128 +128 @@
                   (9 ;; landing / turn around (general finish animation state)
                    (if (next_picture) T
-                     (if (try_move 0 2) 
+                     (if (try_move 0 2)
                          (progn
                            (set_gravity 1)
                            (set_aistate 1))
-                       (progn (set_state stopped)                         
+                       (progn (set_state stopped)
                               (go_state 2)))))  ;; running
 
@@ -159 +159 @@
                              (set_state turn_around)
                              (set_aistate 9)))))
-              
+
                   (4 ;; wait for pounce
                    (if (ali_dodge) T
@@ -171 +171 @@
                              (go_state 6))))))
 
-                  (6 ;; jump              
+                  (6 ;; jump
                    (setq need_to_dodge 0)
                    (if (blocked_down (move (direction) -1 0))
@@ -192 +192 @@
             (damage_fun amount from hitx hity push_xvel push_yvel)
             (play_sound ALPAIN_SND 127 (x) (y))
-            (setq need_to_dodge 1)          
+            (setq need_to_dodge 1)
             (if (<= (hp) 0)
                 (progn
@@ -238 +238 @@
              (push_xrange     1)
              (jump_top_speed 15))
-  
+
   (flags (hurtable  T)
          (force_health T))
 
   (states "addon/aliens/aliens.spe"
-          (stopped              "fhwk0001.pcx") 
+          (stopped              "fhwk0001.pcx")
           (fall_start   "fhattack.pcx")
           (falling              "fhattack.pcx")
@@ -266 +266 @@
               (with_object (get_object 0) (not (eq (aistate) 0))))
               (set_aistate 1))
-        (select (current_frame) 
+        (select (current_frame)
             (12 (set_current_frame 13)
                 (with_object (add_object_after FACE_HUGGER (+ (x) (* (toward) 20)) (y))
@@ -290 +290 @@
         )))
   T)
-            
+
 
 (def_char FACE_HUGGER_EGG
@@ -318 +318 @@
          (stopped "eggunh.pcx")))
 
-(defun fh_d_egg_ai () 
+(defun fh_d_egg_ai ()
         (progn
         (try_move 0 10)
@@ -328 +328 @@
          (stopped "afhj0001.pcx")))
 
-(defun d_fh_jar_ai () 
+(defun d_fh_jar_ai ()
         (progn
         (lower)))
@@ -334 +334 @@
 (def_char FACE_HUGGER_JAR_ALIVE
    (funs (ai_fun a_fh_jar_ai)
-        (damage_fun             jar_damage))  
+        (damage_fun             jar_damage))
    (flags (hurtable  T))
    (states "addon/aliens/aliens.spe"
@@ -348 +348 @@
                 )))
 
-(defun a_fh_jar_ai () 
+(defun a_fh_jar_ai ()
   (if (eq (aistate) 0)
         (progn
@@ -376 +376 @@
 (defun ad_dodge ()
   (if (eq need_to_dodge 1)
-      (progn 
+      (progn
         (setq need_to_dodge 0)
         (if (eq (random 2) 1)
@@ -383 +383 @@
               (go_state 6))         ;; jump at player
           (if (roof_above)
-              (progn                    
-                (set_yvel -17)  ;; jump up  
+              (progn
+                (set_yvel -17)  ;; jump up
                 (set_xvel 0)
                 (go_state 12))
@@ -406 +406 @@
         (playerx (+ (with_object (bg) (x)) (with_object (bg) (* (xvel) 8))))
         (playery (+ (- (with_object (bg) (y)) 15) (with_object (bg) (* (yvel) 2)))))
-    
+
     (if (and (can_see (x) (y) firex firey nil) (can_see firex firey playerx playery nil))
         (progn
@@ -428 +428 @@
                                         (setq sgb_bright_color (find_rgb 255 255 200))
                                         (setq sgb_medium_color (find_rgb 150 150 0))
-                                        (if creator 
+                                        (if creator
                                             (progn
                                               (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
@@ -442 +442 @@
                                         (setq sgb_lasty (y))
                                         (setq sgb_angle angle)
-                                        
+
                                         (setq sgb_bright_color (find_rgb 255 128 64))
                                         (setq sgb_medium_color (find_rgb 255 0 0))
-                                        (if creator 
+                                        (if creator
                                             (progn
                                               (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
@@ -455 +455 @@
                             (play_sound GRENADE_THROW 127 x y)
                             (set_course angle 20)
-                            (if creator 
+                            (if creator
                                 (progn
                                   (link_object creator)
@@ -461 +461 @@
                                   (set_yvel (+ (yvel) (with_object creator (yvel))))
                                   ))
-                            
+
                             (set_frame_angle 0 359 angle)
                             )))
@@ -471 +471 @@
 
                             (if (and target   ;; don't link if not in line of site
-                                     (can_see (x) (y) 
+                                     (can_see (x) (y)
                                               (with_object target (x))
                                               (with_object target (y)) nil))
@@ -489 +489 @@
                                         (setq sgb_lastx (x))
                                         (setq sgb_lasty (y))
-                                        (if creator 
+                                        (if creator
                                               (link_object creator))
                                         (set_course angle 200)
@@ -497 +497 @@
                                           (if (not (eq bx T))
                                               (if (eq bx nil)
-                                                  (add_object EXPLODE5 (- (x) (random 5)) 
+                                                  (add_object EXPLODE5 (- (x) (random 5))
                                                               (- (y) (random 5)) 0)
                                                 (progn
-                                                  (add_object EXPLODE3 (- (x) (random 5)) 
+                                                  (add_object EXPLODE3 (- (x) (random 5))
                                                               (- (y) (random 5)) 0)
-                                                  (do_damage 10 bx (* (cos sgb_angle) 20) 
+                                                  (do_damage 10 bx (* (cos sgb_angle) 20)
                                                              (* (sin sgb_angle) 10)))))
                                           (setq sgb_lastx (x))
@@ -515 +515 @@
                             (play_sound FIREBOMB_SND 127 (x) (y))
                             (set_course angle 20)
-                            (if creator 
+                            (if creator
                                 (progn
                                   (link_object creator)
@@ -526 +526 @@
                                         (set_course angle 25)
                                         (set_aistate angle)
-                                        (if creator 
+                                        (if creator
                                               (link_object creator))
                                         (dfris_ai)
@@ -536 +536 @@
                                         (setq sgb_lastx (x))
                                         (setq sgb_lasty (y))
-                                        (if creator 
+                                        (if creator
                                               (link_object creator))
                                         (set_course angle 45)
@@ -542 +542 @@
                                           (if (not (eq bx T))
                                               (if (not (eq bx nil))
-                                                  (do_damage 30 bx (* (cos sgb_angle) 20) 
+                                                  (do_damage 30 bx (* (cos sgb_angle) 20)
                                                              (* (sin sgb_angle) 10)))))
                                         )))
-                           
+
 
           (9 (with_object (add_object STRAIT_ROCKET x y)
                                       (progn
                                         (play_sound MGUN_SND 127 (x) (y))
-                                        (if creator 
+                                        (if creator
                                               (link_object creator))
                                         (set_aistate angle)
@@ -566 +566 @@
                                         (setq sgb_bright_color (find_rgb 255 0 0))
                                         (setq sgb_medium_color (find_rgb 150 0 0))
-                                        (if creator 
+                                        (if creator
                                             (progn
                                               (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
@@ -583 +583 @@
                                         (setq sgb_bright_color (find_rgb 170 210 50))
                                         (setq sgb_medium_color (find_rgb 120 180 70))
-                                        (if creator 
+                                        (if creator
                                             (progn
                                               (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
@@ -611 +611 @@
                            (and (< (distx) 130) (< (y) (with_object (bg) (y))))
                          (not (eq (with_object (get_object 0) (aistate)) 0)))
-                       (progn 
+                       (progn
                          (set_state fall_start)                  (set_direction (toward))
                          (set_aistate 1))))
@@ -626 +626 @@
                   (9 ;; landing / turn around (general finish animation state)
                    (if (next_picture) T
-                     (if (try_move 0 2) 
+                     (if (try_move 0 2)
                          (progn
                            (set_gravity 1)
                            (set_aistate 1))
-                       (progn (set_state stopped)                         
+                       (progn (set_state stopped)
                               (go_state 2)))))  ;; running
 
@@ -661 +661 @@
                              (set_state turn_around)
                              (set_aistate 9)))))
-              
+
                   (4 ;; wait for pounce
                    (if (ad_dodge) T
@@ -673 +673 @@
                              (go_state 6))))))
 
-                  (6 ;; jump              
+                  (6 ;; jump
                    (setq need_to_dodge 0)
                    (if (blocked_down (move (direction) -1 0))
@@ -680 +680 @@
 
                   (8 ;; fire at player
-                   (if (ad_dodge) T                  
+                   (if (ad_dodge) T
                      (if (eq (state) fire_wait)
                          (if (next_picture)
@@ -711 +711 @@
                   (13 ;; roof walking
                    (alscream_check)
-                   (if (or (and (< (y) (with_object (bg) (y))) 
-                                (< (distx) 10) (eq (random 8) 0)) 
+                   (if (or (and (< (y) (with_object (bg) (y)))
+                                (< (distx) 10) (eq (random 8) 0))
                            (eq need_to_dodge 1))  ;; shooting at us, fall down
                        (progn
@@ -728 +728 @@
                                          (- 0 (get_ability run_top_speed)))))
                            (if (and (can_see (x) (- (y) 21) (+ (x) xspeed) (- (y) 21) nil)
-                                    (not (can_see (+ (x) xspeed) (- (y) 21) 
+                                    (not (can_see (+ (x) xspeed) (- (y) 21)
                                                   (+ (x) xspeed) (- (y) 22) nil)))
                                (progn
                                  (set_x (+ (x) xspeed))
-                                 (if (not (next_picture)) 
+                                 (if (not (next_picture))
                                      (set_state top_walk)))
                              (set_aistate 1)))))))
-        
+
                   (14 ;; cieling shoot
                    (if (next_picture)
@@ -778 +778 @@
              (push_xrange     2)
              (jump_top_speed 16))
-  
+
   (flags (hurtable  T)
          (force_health T))
@@ -833 +833 @@
                            (and (< (distx) 130) (< (y) (with_object (bg) (y))))
                          (not (eq (with_object (get_object 0) (aistate)) 0)))
-                       (progn 
+                       (progn
                          (set_state fall_start)                  (set_direction (toward))
                          (set_aistate 1))))
@@ -848 +848 @@
                   (9 ;; landing / turn around (general finish animation state)
                    (if (next_picture) T
-                     (if (try_move 0 2) 
+                     (if (try_move 0 2)
                          (progn
                            (set_gravity 1)
                            (set_aistate 1))
-                       (progn (set_state stopped)                         
+                       (progn (set_state stopped)
                               (go_state 2)))))  ;; running
 
@@ -883 +883 @@
                              (set_state turn_around)
                              (set_aistate 9)))))
-              
+
                   (4 ;; wait for pounce
                    (if (ali_dodge) T
@@ -895 +895 @@
                              (go_state 6))))))
 
-                  (6 ;; jump              
+                  (6 ;; jump
                    (setq need_to_dodge 0)
                    (if (blocked_down (move (direction) -1 0))
@@ -902 +902 @@
 
                   (8 ;; fire at player
-                   (if (ad_dodge) T                  
+                   (if (ad_dodge) T
                      (if (eq (state) fire_wait)
                          (if (next_picture)
@@ -946 +946 @@
              (push_xrange     2)
              (jump_top_speed 12))
-  
+
   (flags (hurtable  T)
          (force_health T))

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

@@ -5 +5 @@
 ;; New Power Up objects
 
-(defun shlmp_ai () 
+(defun shlmp_ai ()
   (try_move 0 10)
   (next_picture)
@@ -47 +47 @@
          (constructor   slamp_cons)
          (draw_fun              dev_draw))
-  (states "art/misc.spe"         
+  (states "art/misc.spe"
           (stopped           "lhold")))
 
@@ -113 +113 @@
               (setq b_ramp (+ b_ramp 7))
             (setq b_ramp 0)))
-        (if (local_player)      
+        (if (local_player)
             (tint_palette r_ramp g_ramp b_ramp))))
 
@@ -138 +138 @@
                 (progn
                 (setq min2 (+ min2 1))
-                (setq min1 0))) 
+                (setq min1 0)))
         (if (eq min2 10)
                 (setq min2 0))
@@ -150 +150 @@
                                 (if (local_player)
                                     (put_image (- (view_x2) 20) (+ (view_y1) 5) fly_image)))
-                   (SNEAKY_POWER 
+                   (SNEAKY_POWER
                     (if (local_player)
                         (put_image (- (view_x2) 20) (+ (view_y1) 5) sneaky_image))

abuse/trunk/data-frabs/addon/aliens/powerups.lsp

@@ -5 +5 @@
 ;; New Power Up objects
 
-(defun shlmp_ai () 
+(defun shlmp_ai ()
   (try_move 0 10)
   (next_picture)
@@ -47 +47 @@
          (constructor   slamp_cons)
          (draw_fun              dev_draw))
-  (states "art/misc.spe"         
+  (states "art/misc.spe"
           (stopped           "lhold")))
 

abuse/trunk/data-frabs/addon/claudio/claudio.lsp

@@ -56 +56 @@
                (push_char 35 40)
                (select (aistate)
- 
+
                     (0 ;; prepare to walk toward player
                        (if (eq stationary 0)
@@ -79 +79 @@
                          (curx (x));; save position in case we fall off a cliff
                                (cury (y))
-                        )                    
-                       (if (next_picture) 
+                        )
+                       (if (next_picture)
                             (if (eq (current_frame) 8)
                                   (play_sound DROIDMOV_SND 127 (x) (y))
@@ -115 +115 @@
                               (yspeed throw_yvel)
                          )
-                         (with_object 
-                        (add_object GRENADE (+ (x) (* (direction) 16)) (- (y) 24) 1) 
+                         (with_object
+                        (add_object GRENADE (+ (x) (* (direction) 16)) (- (y) 24) 1)
                                 (progn
                                 (user_fun myself)
@@ -139 +139 @@
 );; end * if
 );; end droidjug_ai ()
-           
+
 (defun jug_cons ()
   (setq throw_xvel 13)
@@ -165 +165 @@
           ("aistate"       ai_state))
 
-  (states "addon/claudio/droid.spe" 
+  (states "addon/claudio/droid.spe"
           (stopped "ds0002.pcx")
           (running (seq "d" 1 4))
@@ -183 +183 @@
         (setq fire_time (- fire_time 1))
         (if (eq fire_time 0)
-            (progn 
+            (progn
               (setq burst_left burst_total)
               (setq burst_wait 0))))
@@ -195 +195 @@
       (setq burst_wait (- burst_wait 1)))))
 
-(defun wrob_cons ()       
+(defun wrob_cons ()
   (setq fire_delay 4)
   (setq burst_delay 1)
@@ -213 +213 @@
        )
 
-       (if (activated)         ;; ** 
+       (if (activated)         ;; **
           (progn                  ;;***
                (set_targetable T)
@@ -233 +233 @@
                   )
                  );; end aistate 0
- 
+
                   (1;; stop and fire
-                     (burst_fire  (+ (x) (* (direction) 16)) (- (y) 22)               
+                     (burst_fire  (+ (x) (* (direction) 16)) (- (y) 22)
                             (if (> (direction) 0)
                                 (mod (- 375 (/ (* burst_left 30) burst_total)) 360)
@@ -248 +248 @@
 
                (if (<= (hp) 0)                        ;; are we dead, if so blow up
-                   (progn       
-                        (add_object EXPLODE6 (+ (x) 5) (- (y) 10)     0)  
+                   (progn
+                        (add_object EXPLODE6 (+ (x) 5) (- (y) 10)     0)
                         (add_object EXPLODE6 (+ (x) -5) (- (y) 15)    2)  ;; wait 2 frames before appearing
                         (add_object EXPLODE6 (+ (x) 10) (- (y) 2)     1)
@@ -260 +260 @@
                   )
              )
-               
+
       T);; end of *** progn
     T);; end of ** if activated
   );; end of * if
-);; end of ai 
-   
+);; end of ai
+
 (def_char DROID
 
   (funs (ai_fun droid_ai)
           (constructor wrob_cons)
-          (get_cache_list_fun explo_damage_cache)       
+          (get_cache_list_fun explo_damage_cache)
         (damage_fun explo_damage)
   );; end funs
@@ -278 +278 @@
   );; end abilities
 
-  (flags (hurtable T) 
+  (flags (hurtable T)
          (can_block T)
          (unactive_shield T)
@@ -285 +285 @@
   (range 300 100)
 
-  (vars fire_delay 
-        burst_delay 
-        burst_total 
-        burst_wait 
-        burst_left 
-          max_xvel   
-        max_yvel    
-        smoke_time 
+  (vars fire_delay
+        burst_delay
+        burst_total
+        burst_wait
+        burst_left
+          max_xvel
+        max_yvel
+        smoke_time
         fire_time
   );; end vars
@@ -306 +306 @@
   );; end fields
 
-  (states "addon/claudio/droid.spe" 
+  (states "addon/claudio/droid.spe"
           (stopped "ds0001.pcx")
           (running (seq "d" 1 10))
@@ -335 +335 @@
        )
 
-       (if (activated)         ;; ** 
+       (if (activated)         ;; **
           (progn                  ;;***
                (set_targetable T)
@@ -342 +342 @@
              (select (aistate)
                   (0;; walk toward player
-                     (if  (or (< (disty) -5) (> (disty) 5) (< (distx) -10) (> (distx) 10) (not (eq (direction) (toward))) )   
+                     (if  (or (< (disty) -5) (> (disty) 5) (< (distx) -10) (> (distx) 10) (not (eq (direction) (toward))) )
                        (progn
                           (if (eq (mod (state_time) 6) 0) ;; play sound every 6 ticks
@@ -358 +358 @@
                      )
                  );; end aistate 0
- 
+
                   (1;; stop and eat
-                    (if  (or (< (disty) -5) (> (disty) 5) (< (distx) -10) (> (distx) 10) (not (eq (direction) (toward))) )   
+                    (if  (or (< (disty) -5) (> (disty) 5) (< (distx) -10) (> (distx) 10) (not (eq (direction) (toward))) )
                        (set_aistate 0)
                        (progn
@@ -370 +370 @@
                       )
                     (with_object (bg)
-                      (if (< (hp)0)   
+                      (if (< (hp)0)
                             (set_state stopped)
                       )
                      )
                 );; end aistate 1
-             );; end select               
+             );; end select
       T);; end of *** progn
     T);; end of ** if activated
   );; end of * if
-);; end of ai     
+);; end of ai
 
 (def_char T_REX
@@ -385 +385 @@
   (funs (ai_fun trex_ai)
         ;;  (constructor wrob_cons)
-        ;;  (get_cache_list_fun explo_damage_cache)     
+        ;;  (get_cache_list_fun explo_damage_cache)
       ;;  (damage_fun explo_damage)
   );; end funs
@@ -393 +393 @@
   );; end abilities
 
-  (flags (hurtable T) 
+  (flags (hurtable T)
          (can_block T)
          (unactive_shield T)
@@ -400 +400 @@
   (range 300 100)
 
-  (vars fire_delay 
-        burst_delay 
-        burst_total 
-        burst_wait 
-        burst_left 
-          max_xvel   
-        max_yvel    
-        smoke_time 
+  (vars fire_delay
+        burst_delay
+        burst_total
+        burst_wait
+        burst_left
+          max_xvel
+        max_yvel
+        smoke_time
         fire_time
   );; end vars
 
-  (fields 
+  (fields
           ("hp"           ai_health)
           ("aistate"      ai_state)
   );; end fields
 
-  (states "addon/claudio/trex1.spe" 
+  (states "addon/claudio/trex1.spe"
           (stopped "stand")
           (running (seq "w" 1 10))
@@ -444 +444 @@
 (defun wrob_ai ()
   (if (<= (hp) 0) ;; *
-      
+
        nil   ;; inactivate this "nil" and activate the following if-section when using versions 2 and 3
 
@@ -452 +452 @@
     ;; )
 
-       (if (activated)         ;; ** 
+       (if (activated)         ;; **
           (progn                  ;;***
                (set_targetable T)
@@ -472 +472 @@
                   )
                  );; end aistate 0
- 
+
                   (1;; stop and fire
-                     (burst_fire  (+ (x) (* (direction) 16)) (- (y) 22)               
+                     (burst_fire  (+ (x) (* (direction) 16)) (- (y) 22)
                             (if (> (direction) 0)
                                 (mod (- 375 (/ (* burst_left 30) burst_total)) 360)
@@ -491 +491 @@
 
                (if (<= (hp) 0)                        ;; are we dead, if so blow up
-                   (progn       
-                        (add_object EXPLODE6 (+ (x) 5) (- (y) 10)     0)  
+                   (progn
+                        (add_object EXPLODE6 (+ (x) 5) (- (y) 10)     0)
                         (add_object EXPLODE6 (+ (x) -5) (- (y) 15)    2)  ;; wait 2 frames before appearing
                         (add_object EXPLODE6 (+ (x) 10) (- (y) 2)     1)
@@ -503 +503 @@
                   )
              )
-               
+
       T);; end of *** progn
     T);; end of ** if activated
   );; end of * if
-);; end of ai 
+);; end of ai
 
 (def_char WALK_ROB
@@ -513 +513 @@
   (funs (ai_fun wrob_ai)
           (constructor wrob_cons)
-          (get_cache_list_fun explo_damage_cache)       
+          (get_cache_list_fun explo_damage_cache)
         (damage_fun explo_damage)
   );; end funs
 
   (abilities (run_top_speed 6)
-             (start_hp 70) 
+             (start_hp 70)
   );; end abilities
 
-  (flags (hurtable T) 
+  (flags (hurtable T)
          (can_block T)
          (unactive_shield T)
@@ -528 +528 @@
   (range 300 100)
 
-  (vars fire_delay 
-        burst_delay 
-        burst_total 
-        burst_wait 
-        burst_left 
-          max_xvel   
-        max_yvel    
-        smoke_time 
+  (vars fire_delay
+        burst_delay
+        burst_total
+        burst_wait
+        burst_left
+          max_xvel
+        max_yvel
+        smoke_time
         fire_time
    );; end vars
@@ -550 +550 @@
   );; end fields
 
-  (states "addon/claudio/rob2.spe" 
+  (states "addon/claudio/rob2.spe"
           (stopped "wwlk0001.pcx")
           (running (seq "wwlk" 1 10))
@@ -561 +561 @@
   );; end states
 
-);; end def_char WALK_ROB             
+);; end def_char WALK_ROB
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -574 +574 @@
     (with_object (get_object 0)
                  (if (eq (otype) SPACE_DOOR)
-                     (if (eq is_opening 0)                       
+                     (if (eq is_opening 0)
                          (if (and (< (distx) 50) (< (disty) 40))
                              T
@@ -599 +599 @@
           (play_sound SWISH 70 (x) (y)))
       (set_current_frame (- (current_frame) 1)))))
-  
+
 (defun tpdspace_ai ()     ;; teleporting door ai
   (if (or (and (< (distx) 50) (< (disty) 40))
@@ -615 +615 @@
                 (othery (with_object (get_object 0) (y))))
             (with_object (get_object 0) (link_object player))
-            (with_object player (progn 
-                                  (set_x otherx) 
+            (with_object player (progn
+                                  (set_x otherx)
                                   (set_y othery)))))))
 T)
@@ -679 +679 @@
       (do_damage 20 (bg)))
   (select (aistate)
-          (0 
+          (0
 
             (if (eq (random 100) 0)
@@ -686 +686 @@
                    (set_aistate 1)))
              (next_picture))
-          (1 
+          (1
 
            (next_picture)
@@ -735 +735 @@
 
 (defun sewer_ai ()
-  
+
   (select (aistate)
-          (0 
+          (0
 
             (if (eq (random 100) 0)
@@ -744 +744 @@
                    (set_aistate 1)))
              (next_picture))
-          (1 
+          (1
 
            (next_picture)
@@ -759 +759 @@
       (do_damage 2 (bg)))
   (select (aistate)
-          (0 
+          (0
 
             (if (eq (random 100) 0)
@@ -766 +766 @@
                    (set_aistate 1)))
              (next_picture))
-          (1 
+          (1
 
            (next_picture)
@@ -777 +777 @@
 (defun wfall_ai ()
   (select (aistate)
-          (0 
+          (0
 
             (if (eq (random 100) 0)
@@ -784 +784 @@
                    (set_aistate 1)))
              (next_picture))
-          (1 
+          (1
 
            (next_picture)
@@ -849 +849 @@
 
 (def_char LAMP_EX1
-                                
+
   (funs (ai_fun  exlamp_ai))
   (flags (can_block T)
@@ -859 +859 @@
 
 
-(defun slamp_ai () 
+(defun slamp_ai ()
 (if (activated)
  (set_state running)
@@ -869 +869 @@
 (def_char LAMP_BIG
   (funs (ai_fun   slamp_ai))
-  (states "addon/claudio/lamp.spe" 
+  (states "addon/claudio/lamp.spe"
      (stopped "l0002.pcx")
      (running "l0001.pcx")
@@ -892 +892 @@
   (funs (ai_fun switcher_ai)
         (reload_fun lower_reload))
-  (range 0 0)  
+  (range 0 0)
   (states "addon/claudio/sswitch.spe"
           (stopped '("ssw0001" "ssw0002"))
@@ -913 +913 @@
 
 (defun dumbrel_ai ()
- 
-  (if (not (eq smoke_time 0))                 
+
+  (if (not (eq smoke_time 0))
       (progn
         (setq smoke_time (- smoke_time 1))
@@ -920 +920 @@
             (add_object SMALL_DARK_CLOUD (x) (y)))))
 
-  (if (eq (aistate) 0)                        
+  (if (eq (aistate) 0)
       (if (or (eq (total_objects) 0) (not (eq (with_object (get_object 0) (aistate)) 0)))
           (if (next_picture) T
@@ -931 +931 @@
           (set_state stopped)
           T))
-    (if (eq (hp) 0)                          
+    (if (eq (hp) 0)
         (progn
         (play_sound GRENADE_SND 127 (x) (y))
@@ -938 +938 @@
           (add_object EXPLODE1 (x) (+ (- (y) (random 20)) -20)                     4)
           nil)
-      (progn      
-        (if (eq (mod (state_time) 5) 0)      
+      (progn
+        (if (eq (mod (state_time) 5) 0)
             (play_sound DRILL_SND 127 (x) (y)))
-        (if (> (with_object (bg) (x)) (x))   
+        (if (> (with_object (bg) (x)) (x))
             (progn
               (set_xvel (+ (xvel) 1))
@@ -949 +949 @@
                     (set_direction 1)
                     (set_state turn_around))))
-          (if (< (with_object (bg) (x)) (x))  
+          (if (< (with_object (bg) (x)) (x))
               (progn
                 (set_xvel (- (xvel) 1))
@@ -967 +967 @@
                 (set_yvel (- (yvel) 1)))))
 
-        (if (eq (random 5) 0)                
+        (if (eq (random 5) 0)
             (set_xvel (+ (xvel) 1))
           (if (eq (random 5) 0)
@@ -976 +976 @@
               (set_yvel (- (yvel) 1))))
 
-        (if (next_picture) T (set_state running))  
-            
+        (if (next_picture) T (set_state running))
+
         (bounce_move '(set_xvel (/ (xvel) 2)) '(set_xvel (/ (xvel) 2))
                      '(set_yvel (/ (yvel) 2)) '(set_yvel (/ (yvel) 2)) nil)
-      
+
         (if (> fire_time 0)              ;; if we need to wait till next burst
             (progn
               (setq fire_time (- fire_time 1))
               (if (eq fire_time 0)
-                  (progn 
+                  (progn
                     (setq burst_left burst_total)
                     (setq burst_wait 0))))
@@ -1002 +1002 @@
                               (setq burst_left (- burst_left 1)))
                             (setq burst_wait burst_delay)
-                            (fire_object (me) (aitype) firex firey angle (bg)) 
+                            (fire_object (me) (aitype) firex firey angle (bg))
                             )))))
-            (setq burst_wait (- burst_wait 1))))                
+            (setq burst_wait (- burst_wait 1))))
         T))))
 
 (defun dumbrel_damage (amount from hitx hity push_xvel push_yvel)
-  (if (and from (with_object from (and (> (total_objects) 0) 
-                                       (with_object (get_object 0) 
+  (if (and from (with_object from (and (> (total_objects) 0)
+                                       (with_object (get_object 0)
                                                     (or (eq (otype) FLYER)
                                                         (eq (otype) GREEN_FLYER))
@@ -1037 +1037 @@
 ))))
 
-(defun dumbrel_cons ()    
+(defun dumbrel_cons ()
   (setq fire_delay 20)
   (setq burst_delay 5)
@@ -1049 +1049 @@
   (funs (ai_fun dumbrel_ai)
           (constructor dumbrel_cons)
-          (get_cache_list_fun explo_damage_cache)       
+          (get_cache_list_fun explo_damage_cache)
         (damage_fun dumbrel_damage)
   );; end funs
 
-  (abilities (start_hp 100) 
+  (abilities (start_hp 100)
   );; end abilities
 
-  (flags (hurtable T) 
+  (flags (hurtable T)
          (can_block T)
          (unactive_shield T)
@@ -1063 +1063 @@
   (range 300 100)
 
-  (vars fire_delay 
-        burst_delay 
-        burst_total 
-        burst_wait 
-        burst_left 
-          max_xvel   
-        max_yvel    
-        smoke_time 
+  (vars fire_delay
+        burst_delay
+        burst_total
+        burst_wait
+        burst_left
+          max_xvel
+        max_yvel
+        smoke_time
         fire_time
    );; end vars
 
-  (states "addon/claudio/umbrel3.spe" 
+  (states "addon/claudio/umbrel3.spe"
           (stopped "u0001.pcx")
           (running (seq "u" 1 4))
@@ -1080 +1080 @@
   );; end states
 
-);; end def_char 
+);; end def_char
 
 
@@ -1091 +1091 @@
 (defun antship_ai ()
 
-  (if (not (eq smoke_time 0))                 
+  (if (not (eq smoke_time 0))
       (progn
           (setq smoke_time (- smoke_time 1))
@@ -1115 +1115 @@
           T)
       )
-   
+
       (if (<= (hp) 0)
-         
+
          (progn
 
@@ -1123 +1123 @@
               (next_picture)
 
-              (progn          
+              (progn
                 (set_state dieing)
                 (play_sound GRENADE_SND 127 (x) (y))
@@ -1131 +1131 @@
               )
 
-          )       
+          )
         )
-        (progn      
+        (progn
             (if (eq (mod (state_time) 5) 0)
               (play_sound ASHIP_SND 127 (x) (y))
@@ -1140 +1140 @@
             (progn
               (set_xvel (+ (xvel) 1))
-              (if (> (xvel) max_xvel) 
+              (if (> (xvel) max_xvel)
                (set_xvel max_xvel)
             )
@@ -1150 +1150 @@
              )
            )
-             (if (< (with_object (bg) (x)) (x))  
+             (if (< (with_object (bg) (x)) (x))
                 (progn
                 (set_xvel (- (xvel) 1))
-                (if (< (xvel) (- 0 max_xvel)) 
+                (if (< (xvel) (- 0 max_xvel))
                    (set_xvel (- 0 max_xvel))
                   )
@@ -1179 +1179 @@
        )
 
-        (if (eq (random 5) 0)                
+        (if (eq (random 5) 0)
             (set_xvel (+ (xvel) 1))
             (if (eq (random 5) 0)
@@ -1188 +1188 @@
               (set_yvel (- (yvel) 1))))
 
-        (if (next_picture) T (set_state running))  
-            
+        (if (next_picture) T (set_state running))
+
         (bounce_move '(set_xvel (/ (xvel) 8)) '(set_xvel (/ (xvel) 8))
                      '(set_yvel (/ (yvel) 8)) '(set_yvel (/ (yvel) 8)) nil)
-      
-        (if (> fire_time 0)              
+
+        (if (> fire_time 0)
             (progn
               (setq fire_time (- fire_time 1))
               (if (eq fire_time 0)
-                  (progn 
+                  (progn
                     (setq burst_left burst_total)
                     (setq burst_wait 0))))
@@ -1214 +1214 @@
                               (setq burst_left (- burst_left 1)))
                             (setq burst_wait burst_delay)
-                            (fire_object (me) (aitype) firex firey angle (bg)) 
+                            (fire_object (me) (aitype) firex firey angle (bg))
                             )))))
-            (setq burst_wait (- burst_wait 1))))                
+            (setq burst_wait (- burst_wait 1))))
         T)))
 
@@ -1222 +1222 @@
 
 (defun antship_damage (amount from hitx hity push_xvel push_yvel)
-  (if (and from (with_object from (and (> (total_objects) 0) 
-                                       (with_object (get_object 0) 
+  (if (and from (with_object from (and (> (total_objects) 0)
+                                       (with_object (get_object 0)
                                                     (or (eq (otype) FLYER)
                                                         (eq (otype) GREEN_FLYER))
@@ -1254 +1254 @@
 ))))
 
-(defun antship_cons ()    
+(defun antship_cons ()
   (setq fire_delay 30)
   (setq burst_delay 8)
@@ -1268 +1268 @@
   (funs (ai_fun antship_ai)
           (constructor antship_cons)
-          (get_cache_list_fun explo_damage_cache)       
+          (get_cache_list_fun explo_damage_cache)
         (damage_fun antship_damage)
   );; end funs
 
-  (abilities (start_hp 300) 
+  (abilities (start_hp 300)
   );; end abilities
 
-  (flags (hurtable T) 
+  (flags (hurtable T)
          (can_block T)
          (unactive_shield T)
@@ -1282 +1282 @@
   (range 400 200)
 
-  (vars fire_delay 
-        burst_delay 
-        burst_total 
-        burst_wait 
-        burst_left 
-          max_xvel   
-        max_yvel    
-        smoke_time 
+  (vars fire_delay
+        burst_delay
+        burst_total
+        burst_wait
+        burst_left
+          max_xvel
+        max_yvel
+        smoke_time
         fire_time
    );; end vars
 
-  (states "addon/claudio/antship.spe" 
+  (states "addon/claudio/antship.spe"
           (stopped "s0001.pcx")
           (running (seq "s" 2 6))
@@ -1300 +1300 @@
   );; end states
 
-);; end def_char 
+);; end def_char
 
 
@@ -1310 +1310 @@
 
 (defun dskull_ai ()
-  (if (not (eq smoke_time 0))                 
+  (if (not (eq smoke_time 0))
       (progn
         (setq smoke_time (- smoke_time 1))
@@ -1319 +1319 @@
  )
 
-  (if (eq (aistate) 0)                        
+  (if (eq (aistate) 0)
       (if (or (eq (total_objects) 0) (not (eq (with_object (get_object 0) (aistate)) 0)))
           (if (next_picture) T
@@ -1330 +1330 @@
           (set_state stopped)
           T))
-    (if (eq (hp) 0)                          
+    (if (eq (hp) 0)
         (progn
         (play_sound GRENADE_SND 127 (x) (y))
@@ -1337 +1337 @@
           (add_object EXPLODE1 (x) (+ (- (y) (random 20)) -20)                     4)
           nil)
-      (progn      
-        (if (eq (mod (state_time) 10) 0)      
+      (progn
+        (if (eq (mod (state_time) 10) 0)
             (play_sound SKULL_SND 127 (x) (y)))
-        (if (> (with_object (bg) (x)) (x))   
+        (if (> (with_object (bg) (x)) (x))
             (progn
               (set_xvel (+ (xvel) 1))
@@ -1348 +1348 @@
                     (set_direction 1)
                     (set_state turn_around))))
-          (if (< (with_object (bg) (x)) (x))  
+          (if (< (with_object (bg) (x)) (x))
               (progn
                 (set_xvel (- (xvel) 1))
@@ -1366 +1366 @@
                 (set_yvel (- (yvel) 1)))))
 
-        (if (eq (random 5) 0)                
+        (if (eq (random 5) 0)
             (set_xvel (+ (xvel) 1))
           (if (eq (random 5) 0)
@@ -1375 +1375 @@
               (set_yvel (- (yvel) 1))))
 
-        (if (next_picture) T (set_state running))  
-            
+        (if (next_picture) T (set_state running))
+
         (bounce_move '(set_xvel (/ (xvel) 2)) '(set_xvel (/ (xvel) 2))
                      '(set_yvel (/ (yvel) 2)) '(set_yvel (/ (yvel) 2)) nil)
-      
-        (if (> fire_time 0)              
+
+        (if (> fire_time 0)
             (progn
               (setq fire_time (- fire_time 1))
               (if (eq fire_time 0)
-                  (progn 
+                  (progn
                     (setq burst_left burst_total)
                     (setq burst_wait 0))))
@@ -1401 +1401 @@
                               (setq burst_left (- burst_left 1)))
                             (setq burst_wait burst_delay)
-                            (fire_object (me) (aitype) firex firey angle (bg)) 
+                            (fire_object (me) (aitype) firex firey angle (bg))
                             )))))
-            (setq burst_wait (- burst_wait 1))))                
+            (setq burst_wait (- burst_wait 1))))
         T))))
 
 
 (defun dskull_damage (amount from hitx hity push_xvel push_yvel)
-  (if (and from (with_object from (and (> (total_objects) 0) 
-                                       (with_object (get_object 0) 
+  (if (and from (with_object from (and (> (total_objects) 0)
+                                       (with_object (get_object 0)
                                                     (or (eq (otype) FLYER)
                                                         (eq (otype) GREEN_FLYER))
@@ -1429 +1429 @@
 ))))
 
-(defun dskull_cons ()     
+(defun dskull_cons ()
   (setq fire_delay 20)
   (setq burst_delay 5)
@@ -1441 +1441 @@
   (funs (ai_fun dskull_ai)
           (constructor dskull_cons)
-          (get_cache_list_fun explo_damage_cache)       
+          (get_cache_list_fun explo_damage_cache)
         (damage_fun dskull_damage)
   );; end funs
 
-  (abilities (start_hp 100) 
+  (abilities (start_hp 100)
   );; end abilities
 
-  (flags (hurtable T) 
+  (flags (hurtable T)
          (can_block T)
          (unactive_shield T)
@@ -1455 +1455 @@
   (range 300 100)
 
-  (vars fire_delay 
-        burst_delay 
-        burst_total 
-        burst_wait 
-        burst_left 
-          max_xvel   
-        max_yvel    
-        smoke_time 
+  (vars fire_delay
+        burst_delay
+        burst_total
+        burst_wait
+        burst_left
+          max_xvel
+        max_yvel
+        smoke_time
         fire_time
    );; end vars
 
-  (states "addon/claudio/skull.spe" 
+  (states "addon/claudio/skull.spe"
           (stopped "s0001.pcx")
-          (running '("s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx"  
-                   "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" 
-                   "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" 
+          (running '("s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx"
+                   "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx"
+                   "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx"
                    "s0024.pcx" "s0024.pcx" "s0024.pcx" "s0024.pcx" "s0024.pcx" "s0024.pcx" "s0024.pcx" "s0024.pcx"))
         (flinch_up  (seq "s" 2 18))
@@ -1477 +1477 @@
   );; end states
 
-);; end def_char 
+);; end def_char
 
 (def_explo 'EXPLODE0 "addon/claudio/bigexp.spe" "fire"           7)
@@ -1490 +1490 @@
 (load_tiles
           "addon/claudio/pal81f.spe"    ;; space foretiles 1, numbered from 2200,  palette space1
-            "addon/claudio/pal82f.spe"    ;; space foretiles 2, numbered from 2250,  palette space2 
-            ;; "addon/claudio/pal83.spe" ;; space foretiles 3, numbered from 8300,  palette space3     
+            "addon/claudio/pal82f.spe"    ;; space foretiles 2, numbered from 2250,  palette space2
+            ;; "addon/claudio/pal83.spe" ;; space foretiles 3, numbered from 8300,  palette space3
             "addon/claudio/pal90.spe"    ;; stars backtiles 1, numbered from 475,
             "addon/claudio/pal2.spe"     ;; sewers backtiles,  numbered from 380,
-            "addon/claudio/pal21.spe"    ;; stars backtiles 2, numbered from 500, 
-            "addon/claudio/pal5.spe"     ;; corallo backtiles, numbered from 430, 
+            "addon/claudio/pal21.spe"    ;; stars backtiles 2, numbered from 500,
+            "addon/claudio/pal5.spe"     ;; corallo backtiles, numbered from 430,
             ;; "addon/claudio/extiles.spe"  ;; extra foretiles,   numbered from 10000, palette extra1
 )
@@ -1512 +1512 @@
 ;; Contact these authors if you want to get more infor about their work.                 ;;
 ;; Otherwise, deactivate                                                                 ;;
-;; the following section as indicated below in order to use the characters               ;; 
+;; the following section as indicated below in order to use the characters               ;;
 ;; and tiles by Claudio Bolzoni only.                                                    ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

abuse/trunk/data-frabs/addon/claudio/oldclaud.lsp

@@ -56 +56 @@
                (push_char 35 40)
                (select (aistate)
- 
+
                     (0 ;; prepare to walk toward player
                        (if (eq stationary 0)
@@ -79 +79 @@
                          (curx (x));; save position in case we fall off a cliff
                                (cury (y))
-                        )                    
-                       (if (next_picture) 
+                        )
+                       (if (next_picture)
                             (if (eq (current_frame) 8)
                                   (play_sound DROIDMOV_SND 127 (x) (y))
@@ -115 +115 @@
                               (yspeed throw_yvel)
                          )
-                         (with_object 
-                        (add_object GRENADE (+ (x) (* (direction) 16)) (- (y) 24) 1) 
+                         (with_object
+                        (add_object GRENADE (+ (x) (* (direction) 16)) (- (y) 24) 1)
                                 (progn
                                 (user_fun myself)
@@ -139 +139 @@
 );; end * if
 );; end droidjug_ai ()
-           
+
 (defun jug_cons ()
   (setq throw_xvel 13)
@@ -165 +165 @@
           ("aistate"       ai_state))
 
-  (states "addon/claudio/droid.spe" 
+  (states "addon/claudio/droid.spe"
           (stopped "ds0002.pcx")
           (running (seq "d" 1 4))
@@ -183 +183 @@
         (setq fire_time (- fire_time 1))
         (if (eq fire_time 0)
-            (progn 
+            (progn
               (setq burst_left burst_total)
               (setq burst_wait 0))))
@@ -195 +195 @@
       (setq burst_wait (- burst_wait 1)))))
 
-(defun wrob_cons ()       
+(defun wrob_cons ()
   (setq fire_delay 4)
   (setq burst_delay 1)
@@ -213 +213 @@
        )
 
-       (if (activated)         ;; ** 
+       (if (activated)         ;; **
           (progn                  ;;***
                (set_targetable T)
@@ -233 +233 @@
                   )
                  );; end aistate 0
- 
+
                   (1;; stop and fire
-                     (burst_fire  (+ (x) (* (direction) 16)) (- (y) 22)               
+                     (burst_fire  (+ (x) (* (direction) 16)) (- (y) 22)
                             (if (> (direction) 0)
                                 (mod (- 375 (/ (* burst_left 30) burst_total)) 360)
@@ -248 +248 @@
 
                (if (<= (hp) 0)                        ;; are we dead, if so blow up
-                   (progn       
-                        (add_object EXPLODE6 (+ (x) 5) (- (y) 10)     0)  
+                   (progn
+                        (add_object EXPLODE6 (+ (x) 5) (- (y) 10)     0)
                         (add_object EXPLODE6 (+ (x) -5) (- (y) 15)    2)  ;; wait 2 frames before appearing
                         (add_object EXPLODE6 (+ (x) 10) (- (y) 2)     1)
@@ -260 +260 @@
                   )
              )
-               
+
       T);; end of *** progn
     T);; end of ** if activated
   );; end of * if
-);; end of ai 
-   
+);; end of ai
+
 (def_char DROID
 
   (funs (ai_fun droid_ai)
           (constructor wrob_cons)
-          (get_cache_list_fun explo_damage_cache)       
+          (get_cache_list_fun explo_damage_cache)
         (damage_fun explo_damage)
   );; end funs
@@ -278 +278 @@
   );; end abilities
 
-  (flags (hurtable T) 
+  (flags (hurtable T)
          (can_block T)
          (unactive_shield T)
@@ -285 +285 @@
   (range 300 100)
 
-  (vars fire_delay 
-        burst_delay 
-        burst_total 
-        burst_wait 
-        burst_left 
-          max_xvel   
-        max_yvel    
-        smoke_time 
+  (vars fire_delay
+        burst_delay
+        burst_total
+        burst_wait
+        burst_left
+          max_xvel
+        max_yvel
+        smoke_time
         fire_time
   );; end vars
@@ -306 +306 @@
   );; end fields
 
-  (states "addon/claudio/droid.spe" 
+  (states "addon/claudio/droid.spe"
           (stopped "ds0001.pcx")
           (running (seq "d" 1 10))
@@ -335 +335 @@
        )
 
-       (if (activated)         ;; ** 
+       (if (activated)         ;; **
           (progn                  ;;***
                (set_targetable T)
@@ -342 +342 @@
              (select (aistate)
                   (0;; walk toward player
-                     (if  (or (< (disty) -5) (> (disty) 5) (< (distx) -10) (> (distx) 10) (not (eq (direction) (toward))) )   
+                     (if  (or (< (disty) -5) (> (disty) 5) (< (distx) -10) (> (distx) 10) (not (eq (direction) (toward))) )
                        (progn
                           (if (eq (mod (state_time) 6) 0) ;; play sound every 6 ticks
@@ -358 +358 @@
                      )
                  );; end aistate 0
- 
+
                   (1;; stop and eat
-                    (if  (or (< (disty) -5) (> (disty) 5) (< (distx) -10) (> (distx) 10) (not (eq (direction) (toward))) )   
+                    (if  (or (< (disty) -5) (> (disty) 5) (< (distx) -10) (> (distx) 10) (not (eq (direction) (toward))) )
                        (set_aistate 0)
                        (progn
@@ -370 +370 @@
                       )
                     (with_object (bg)
-                      (if (< (hp)0)   
+                      (if (< (hp)0)
                             (set_state stopped)
                       )
                      )
                 );; end aistate 1
-             );; end select               
+             );; end select
       T);; end of *** progn
     T);; end of ** if activated
   );; end of * if
-);; end of ai     
+);; end of ai
 
 (def_char T_REX
@@ -385 +385 @@
   (funs (ai_fun trex_ai)
         ;;  (constructor wrob_cons)
-        ;;  (get_cache_list_fun explo_damage_cache)     
+        ;;  (get_cache_list_fun explo_damage_cache)
       ;;  (damage_fun explo_damage)
   );; end funs
@@ -393 +393 @@
   );; end abilities
 
-  (flags (hurtable T) 
+  (flags (hurtable T)
          (can_block T)
          (unactive_shield T)
@@ -400 +400 @@
   (range 300 100)
 
-  (vars fire_delay 
-        burst_delay 
-        burst_total 
-        burst_wait 
-        burst_left 
-          max_xvel   
-        max_yvel    
-        smoke_time 
+  (vars fire_delay
+        burst_delay
+        burst_total
+        burst_wait
+        burst_left
+          max_xvel
+        max_yvel
+        smoke_time
         fire_time
   );; end vars
 
-  (fields 
+  (fields
           ("hp"           ai_health)
           ("aistate"      ai_state)
   );; end fields
 
-  (states "addon/claudio/trex1.spe" 
+  (states "addon/claudio/trex1.spe"
           (stopped "stand")
           (running (seq "w" 1 10))
@@ -444 +444 @@
 (defun wrob_ai ()
   (if (<= (hp) 0) ;; *
-      
+
        nil   ;; inactivate this "nil" and activate the following if-section when using versions 2 and 3
 
@@ -452 +452 @@
     ;; )
 
-       (if (activated)         ;; ** 
+       (if (activated)         ;; **
           (progn                  ;;***
                (set_targetable T)
@@ -472 +472 @@
                   )
                  );; end aistate 0
- 
+
                   (1;; stop and fire
-                     (burst_fire  (+ (x) (* (direction) 16)) (- (y) 22)               
+                     (burst_fire  (+ (x) (* (direction) 16)) (- (y) 22)
                             (if (> (direction) 0)
                                 (mod (- 375 (/ (* burst_left 30) burst_total)) 360)
@@ -491 +491 @@
 
                (if (<= (hp) 0)                        ;; are we dead, if so blow up
-                   (progn       
-                        (add_object EXPLODE6 (+ (x) 5) (- (y) 10)     0)  
+                   (progn
+                        (add_object EXPLODE6 (+ (x) 5) (- (y) 10)     0)
                         (add_object EXPLODE6 (+ (x) -5) (- (y) 15)    2)  ;; wait 2 frames before appearing
                         (add_object EXPLODE6 (+ (x) 10) (- (y) 2)     1)
@@ -503 +503 @@
                   )
              )
-               
+
       T);; end of *** progn
     T);; end of ** if activated
   );; end of * if
-);; end of ai 
+);; end of ai
 
 (def_char WALK_ROB
@@ -513 +513 @@
   (funs (ai_fun wrob_ai)
           (constructor wrob_cons)
-          (get_cache_list_fun explo_damage_cache)       
+          (get_cache_list_fun explo_damage_cache)
         (damage_fun explo_damage)
   );; end funs
 
   (abilities (run_top_speed 6)
-             (start_hp 70) 
+             (start_hp 70)
   );; end abilities
 
-  (flags (hurtable T) 
+  (flags (hurtable T)
          (can_block T)
          (unactive_shield T)
@@ -528 +528 @@
   (range 300 100)
 
-  (vars fire_delay 
-        burst_delay 
-        burst_total 
-        burst_wait 
-        burst_left 
-          max_xvel   
-        max_yvel    
-        smoke_time 
+  (vars fire_delay
+        burst_delay
+        burst_total
+        burst_wait
+        burst_left
+          max_xvel
+        max_yvel
+        smoke_time
         fire_time
    );; end vars
@@ -550 +550 @@
   );; end fields
 
-  (states "addon/claudio/rob2.spe" 
+  (states "addon/claudio/rob2.spe"
           (stopped "wwlk0001.pcx")
           (running (seq "wwlk" 1 10))
@@ -561 +561 @@
   );; end states
 
-);; end def_char WALK_ROB             
-    
+);; end def_char WALK_ROB
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                                                                                       ;;
@@ -574 +574 @@
     (with_object (get_object 0)
                  (if (eq (otype) SPACE_DOOR)
-                     (if (eq is_opening 0)                       
+                     (if (eq is_opening 0)
                          (if (and (< (distx) 50) (< (disty) 40))
                              T
@@ -599 +599 @@
           (play_sound SWISH 70 (x) (y)))
       (set_current_frame (- (current_frame) 1)))))
-  
+
 (defun tpdspace_ai ()     ;; teleporting door ai
   (if (or (and (< (distx) 50) (< (disty) 40))
@@ -615 +615 @@
                 (othery (with_object (get_object 0) (y))))
             (with_object (get_object 0) (link_object player))
-            (with_object player (progn 
-                                  (set_x otherx) 
+            (with_object player (progn
+                                  (set_x otherx)
                                   (set_y othery)))))))
 T)
@@ -679 +679 @@
       (do_damage 20 (bg)))
   (select (aistate)
-          (0 
+          (0
 
             (if (eq (random 100) 0)
@@ -686 +686 @@
                    (set_aistate 1)))
              (next_picture))
-          (1 
+          (1
 
            (next_picture)
@@ -735 +735 @@
 
 (defun sewer_ai ()
-  
+
   (select (aistate)
-          (0 
+          (0
 
             (if (eq (random 100) 0)
@@ -744 +744 @@
                    (set_aistate 1)))
              (next_picture))
-          (1 
+          (1
 
            (next_picture)
@@ -759 +759 @@
       (do_damage 2 (bg)))
   (select (aistate)
-          (0 
+          (0
 
             (if (eq (random 100) 0)
@@ -766 +766 @@
                    (set_aistate 1)))
              (next_picture))
-          (1 
+          (1
 
            (next_picture)
@@ -777 +777 @@
 (defun wfall_ai ()
   (select (aistate)
-          (0 
+          (0
 
             (if (eq (random 100) 0)
@@ -784 +784 @@
                    (set_aistate 1)))
              (next_picture))
-          (1 
+          (1
 
            (next_picture)
@@ -849 +849 @@
 
 (def_char LAMP_EX1
-                                
+
   (funs (ai_fun  exlamp_ai))
   (flags (can_block T)
@@ -859 +859 @@
 
 
-(defun slamp_ai () 
+(defun slamp_ai ()
 (if (activated)
  (set_state running)
@@ -869 +869 @@
 (def_char LAMP_BIG
   (funs (ai_fun   slamp_ai))
-  (states "addon/claudio/lamp.spe" 
+  (states "addon/claudio/lamp.spe"
      (stopped "l0002.pcx")
      (running "l0001.pcx")
@@ -878 +878 @@
 (def_char LAMP_SMALL ;; original art by Craig Redinger
   (funs (ai_fun   slamp_ai))
-  (states "addon/craig/craig.spe" 
+  (states "addon/craig/craig.spe"
      (stopped "lamp_off")
      (running "lamp_on")
@@ -890 +890 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defun antihp_up () 
+(defun antihp_up ()
         (next_picture)
 
@@ -921 +921 @@
   (funs (ai_fun switcher_ai)
         (reload_fun lower_reload))
-  (range 0 0)  
+  (range 0 0)
   (states "addon/claudio/sswitch.spe"
           (stopped '("ssw0001" "ssw0002"))
@@ -946 +946 @@
 
 (defun dumbrel_ai ()
- 
-  (if (not (eq smoke_time 0))                 
+
+  (if (not (eq smoke_time 0))
       (progn
         (setq smoke_time (- smoke_time 1))
@@ -953 +953 @@
             (add_object SMALL_DARK_CLOUD (x) (y)))))
 
-  (if (eq (aistate) 0)                        
+  (if (eq (aistate) 0)
       (if (or (eq (total_objects) 0) (not (eq (with_object (get_object 0) (aistate)) 0)))
           (if (next_picture) T
@@ -964 +964 @@
           (set_state stopped)
           T))
-    (if (eq (hp) 0)                          
+    (if (eq (hp) 0)
         (progn
         (play_sound GRENADE_SND 127 (x) (y))
@@ -971 +971 @@
           (add_object EXPLODE1 (x) (+ (- (y) (random 20)) -20)                     4)
           nil)
-      (progn      
-        (if (eq (mod (state_time) 5) 0)      
+      (progn
+        (if (eq (mod (state_time) 5) 0)
             (play_sound DRILL_SND 127 (x) (y)))
-        (if (> (with_object (bg) (x)) (x))   
+        (if (> (with_object (bg) (x)) (x))
             (progn
               (set_xvel (+ (xvel) 1))
@@ -982 +982 @@
                     (set_direction 1)
                     (set_state turn_around))))
-          (if (< (with_object (bg) (x)) (x))  
+          (if (< (with_object (bg) (x)) (x))
               (progn
                 (set_xvel (- (xvel) 1))
@@ -1000 +1000 @@
                 (set_yvel (- (yvel) 1)))))
 
-        (if (eq (random 5) 0)                
+        (if (eq (random 5) 0)
             (set_xvel (+ (xvel) 1))
           (if (eq (random 5) 0)
@@ -1009 +1009 @@
               (set_yvel (- (yvel) 1))))
 
-        (if (next_picture) T (set_state running))  
-            
+        (if (next_picture) T (set_state running))
+
         (bounce_move '(set_xvel (/ (xvel) 2)) '(set_xvel (/ (xvel) 2))
                      '(set_yvel (/ (yvel) 2)) '(set_yvel (/ (yvel) 2)) nil)
-      
+
         (if (> fire_time 0)              ;; if we need to wait till next burst
             (progn
               (setq fire_time (- fire_time 1))
               (if (eq fire_time 0)
-                  (progn 
+                  (progn
                     (setq burst_left burst_total)
                     (setq burst_wait 0))))
@@ -1035 +1035 @@
                               (setq burst_left (- burst_left 1)))
                             (setq burst_wait burst_delay)
-                            (fire_object (me) (aitype) firex firey angle (bg)) 
+                            (fire_object (me) (aitype) firex firey angle (bg))
                             )))))
-            (setq burst_wait (- burst_wait 1))))                
+            (setq burst_wait (- burst_wait 1))))
         T))))
 
 (defun dumbrel_damage (amount from hitx hity push_xvel push_yvel)
-  (if (and from (with_object from (and (> (total_objects) 0) 
-                                       (with_object (get_object 0) 
+  (if (and from (with_object from (and (> (total_objects) 0)
+                                       (with_object (get_object 0)
                                                     (or (eq (otype) FLYER)
                                                         (eq (otype) GREEN_FLYER))
@@ -1070 +1070 @@
 ))))
 
-(defun dumbrel_cons ()    
+(defun dumbrel_cons ()
   (setq fire_delay 20)
   (setq burst_delay 5)
@@ -1082 +1082 @@
   (funs (ai_fun dumbrel_ai)
           (constructor dumbrel_cons)
-          (get_cache_list_fun explo_damage_cache)       
+          (get_cache_list_fun explo_damage_cache)
         (damage_fun dumbrel_damage)
   );; end funs
 
-  (abilities (start_hp 100) 
+  (abilities (start_hp 100)
   );; end abilities
 
-  (flags (hurtable T) 
+  (flags (hurtable T)
          (can_block T)
          (unactive_shield T)
@@ -1096 +1096 @@
   (range 300 100)
 
-  (vars fire_delay 
-        burst_delay 
-        burst_total 
-        burst_wait 
-        burst_left 
-          max_xvel   
-        max_yvel    
-        smoke_time 
+  (vars fire_delay
+        burst_delay
+        burst_total
+        burst_wait
+        burst_left
+          max_xvel
+        max_yvel
+        smoke_time
         fire_time
    );; end vars
 
-  (states "addon/claudio/umbrel3.spe" 
+  (states "addon/claudio/umbrel3.spe"
           (stopped "u0001.pcx")
           (running (seq "u" 1 4))
@@ -1113 +1113 @@
   );; end states
 
-);; end def_char 
+);; end def_char
 
 
@@ -1124 +1124 @@
 (defun antship_ai ()
 
-  (if (not (eq smoke_time 0))                 
+  (if (not (eq smoke_time 0))
       (progn
           (setq smoke_time (- smoke_time 1))
@@ -1148 +1148 @@
           T)
       )
-   
+
       (if (<= (hp) 0)
-         
+
          (progn
 
@@ -1156 +1156 @@
               (next_picture)
 
-              (progn          
+              (progn
                 (set_state dieing)
                 (play_sound GRENADE_SND 127 (x) (y))
@@ -1164 +1164 @@
               )
 
-          )       
+          )
         )
-        (progn      
+        (progn
             (if (eq (mod (state_time) 5) 0)
               (play_sound ASHIP_SND 127 (x) (y))
@@ -1173 +1173 @@
             (progn
               (set_xvel (+ (xvel) 1))
-              (if (> (xvel) max_xvel) 
+              (if (> (xvel) max_xvel)
                (set_xvel max_xvel)
             )
@@ -1183 +1183 @@
              )
            )
-             (if (< (with_object (bg) (x)) (x))  
+             (if (< (with_object (bg) (x)) (x))
                 (progn
                 (set_xvel (- (xvel) 1))
-                (if (< (xvel) (- 0 max_xvel)) 
+                (if (< (xvel) (- 0 max_xvel))
                    (set_xvel (- 0 max_xvel))
                   )
@@ -1212 +1212 @@
        )
 
-        (if (eq (random 5) 0)                
+        (if (eq (random 5) 0)
             (set_xvel (+ (xvel) 1))
             (if (eq (random 5) 0)
@@ -1221 +1221 @@
               (set_yvel (- (yvel) 1))))
 
-        (if (next_picture) T (set_state running))  
-            
+        (if (next_picture) T (set_state running))
+
         (bounce_move '(set_xvel (/ (xvel) 8)) '(set_xvel (/ (xvel) 8))
                      '(set_yvel (/ (yvel) 8)) '(set_yvel (/ (yvel) 8)) nil)
-      
-        (if (> fire_time 0)              
+
+        (if (> fire_time 0)
             (progn
               (setq fire_time (- fire_time 1))
               (if (eq fire_time 0)
-                  (progn 
+                  (progn
                     (setq burst_left burst_total)
                     (setq burst_wait 0))))
@@ -1247 +1247 @@
                               (setq burst_left (- burst_left 1)))
                             (setq burst_wait burst_delay)
-                            (fire_object (me) (aitype) firex firey angle (bg)) 
+                            (fire_object (me) (aitype) firex firey angle (bg))
                             )))))
-            (setq burst_wait (- burst_wait 1))))                
+            (setq burst_wait (- burst_wait 1))))
         T)))
 
@@ -1255 +1255 @@
 
 (defun antship_damage (amount from hitx hity push_xvel push_yvel)
-  (if (and from (with_object from (and (> (total_objects) 0) 
-                                       (with_object (get_object 0) 
+  (if (and from (with_object from (and (> (total_objects) 0)
+                                       (with_object (get_object 0)
                                                     (or (eq (otype) FLYER)
                                                         (eq (otype) GREEN_FLYER))
@@ -1287 +1287 @@
 ))))
 
-(defun antship_cons ()    
+(defun antship_cons ()
   (setq fire_delay 30)
   (setq burst_delay 8)
@@ -1301 +1301 @@
   (funs (ai_fun antship_ai)
           (constructor antship_cons)
-          (get_cache_list_fun explo_damage_cache)       
+          (get_cache_list_fun explo_damage_cache)
         (damage_fun antship_damage)
   );; end funs
 
-  (abilities (start_hp 300) 
+  (abilities (start_hp 300)
   );; end abilities
 
-  (flags (hurtable T) 
+  (flags (hurtable T)
          (can_block T)
          (unactive_shield T)
@@ -1315 +1315 @@
   (range 400 200)
 
-  (vars fire_delay 
-        burst_delay 
-        burst_total 
-        burst_wait 
-        burst_left 
-          max_xvel   
-        max_yvel    
-        smoke_time 
+  (vars fire_delay
+        burst_delay
+        burst_total
+        burst_wait
+        burst_left
+          max_xvel
+        max_yvel
+        smoke_time
         fire_time
    );; end vars
 
-  (states "addon/claudio/antship.spe" 
+  (states "addon/claudio/antship.spe"
           (stopped "s0001.pcx")
           (running (seq "s" 2 6))
@@ -1333 +1333 @@
   );; end states
 
-);; end def_char 
+);; end def_char
 
 
@@ -1343 +1343 @@
 
 (defun dskull_ai ()
-  (if (not (eq smoke_time 0))                 
+  (if (not (eq smoke_time 0))
       (progn
         (setq smoke_time (- smoke_time 1))
@@ -1352 +1352 @@
  )
 
-  (if (eq (aistate) 0)                        
+  (if (eq (aistate) 0)
       (if (or (eq (total_objects) 0) (not (eq (with_object (get_object 0) (aistate)) 0)))
           (if (next_picture) T
@@ -1363 +1363 @@
           (set_state stopped)
           T))
-    (if (eq (hp) 0)                          
+    (if (eq (hp) 0)
         (progn
         (play_sound GRENADE_SND 127 (x) (y))
@@ -1370 +1370 @@
           (add_object EXPLODE1 (x) (+ (- (y) (random 20)) -20)                     4)
           nil)
-      (progn      
-        (if (eq (mod (state_time) 10) 0)      
+      (progn
+        (if (eq (mod (state_time) 10) 0)
             (play_sound SKULL_SND 127 (x) (y)))
-        (if (> (with_object (bg) (x)) (x))   
+        (if (> (with_object (bg) (x)) (x))
             (progn
               (set_xvel (+ (xvel) 1))
@@ -1381 +1381 @@
                     (set_direction 1)
                     (set_state turn_around))))
-          (if (< (with_object (bg) (x)) (x))  
+          (if (< (with_object (bg) (x)) (x))
               (progn
                 (set_xvel (- (xvel) 1))
@@ -1399 +1399 @@
                 (set_yvel (- (yvel) 1)))))
 
-        (if (eq (random 5) 0)                
+        (if (eq (random 5) 0)
             (set_xvel (+ (xvel) 1))
           (if (eq (random 5) 0)
@@ -1408 +1408 @@
               (set_yvel (- (yvel) 1))))
 
-        (if (next_picture) T (set_state running))  
-            
+        (if (next_picture) T (set_state running))
+
         (bounce_move '(set_xvel (/ (xvel) 2)) '(set_xvel (/ (xvel) 2))
                      '(set_yvel (/ (yvel) 2)) '(set_yvel (/ (yvel) 2)) nil)
-      
-        (if (> fire_time 0)              
+
+        (if (> fire_time 0)
             (progn
               (setq fire_time (- fire_time 1))
               (if (eq fire_time 0)
-                  (progn 
+                  (progn
                     (setq burst_left burst_total)
                     (setq burst_wait 0))))
@@ -1434 +1434 @@
                               (setq burst_left (- burst_left 1)))
                             (setq burst_wait burst_delay)
-                            (fire_object (me) (aitype) firex firey angle (bg)) 
+                            (fire_object (me) (aitype) firex firey angle (bg))
                             )))))
-            (setq burst_wait (- burst_wait 1))))                
+            (setq burst_wait (- burst_wait 1))))
         T))))
 
 
 (defun dskull_damage (amount from hitx hity push_xvel push_yvel)
-  (if (and from (with_object from (and (> (total_objects) 0) 
-                                       (with_object (get_object 0) 
+  (if (and from (with_object from (and (> (total_objects) 0)
+                                       (with_object (get_object 0)
                                                     (or (eq (otype) FLYER)
                                                         (eq (otype) GREEN_FLYER))
@@ -1462 +1462 @@
 ))))
 
-(defun dskull_cons ()     
+(defun dskull_cons ()
   (setq fire_delay 20)
   (setq burst_delay 5)
@@ -1474 +1474 @@
   (funs (ai_fun dskull_ai)
           (constructor dskull_cons)
-          (get_cache_list_fun explo_damage_cache)       
+          (get_cache_list_fun explo_damage_cache)
         (damage_fun dskull_damage)
   );; end funs
 
-  (abilities (start_hp 100) 
+  (abilities (start_hp 100)
   );; end abilities
 
-  (flags (hurtable T) 
+  (flags (hurtable T)
          (can_block T)
          (unactive_shield T)
@@ -1488 +1488 @@
   (range 300 100)
 
-  (vars fire_delay 
-        burst_delay 
-        burst_total 
-        burst_wait 
-        burst_left 
-          max_xvel   
-        max_yvel    
-        smoke_time 
+  (vars fire_delay
+        burst_delay
+        burst_total
+        burst_wait
+        burst_left
+          max_xvel
+        max_yvel
+        smoke_time
         fire_time
    );; end vars
 
-  (states "addon/claudio/skull.spe" 
+  (states "addon/claudio/skull.spe"
           (stopped "s0001.pcx")
-          (running '("s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx"  
-                   "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" 
-                   "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" 
+          (running '("s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx"
+                   "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx" "s0002.pcx"
+                   "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx" "s0001.pcx"
                    "s0024.pcx" "s0024.pcx" "s0024.pcx" "s0024.pcx" "s0024.pcx" "s0024.pcx" "s0024.pcx" "s0024.pcx"))
         (flinch_up  (seq "s" 2 18))
@@ -1510 +1510 @@
   );; end states
 
-);; end def_char 
+);; end def_char
 
 (def_explo 'EXPLODE0 "addon/claudio/bigexp.spe" "fire"           7)
@@ -1523 +1523 @@
 (load_tiles
           "addon/claudio/pal81.spe"    ;; space foretiles 1, numbered from 8100,  palette space1
-            "addon/claudio/pal82.spe"    ;; space foretiles 2, numbered from 8200,  palette space2 
-            ;; "addon/claudio/pal83.spe" ;; space foretiles 3, numbered from 8300,  palette space3     
+            "addon/claudio/pal82.spe"    ;; space foretiles 2, numbered from 8200,  palette space2
+            ;; "addon/claudio/pal83.spe" ;; space foretiles 3, numbered from 8300,  palette space3
             "addon/claudio/pal90.spe"    ;; stars backtiles 1, numbered from 9000,
             "addon/claudio/pal2.spe"     ;; sewers backtiles,  numbered from 2000,
-            "addon/claudio/pal21.spe"    ;; stars backtiles 2, numbered from 2100, 
-            "addon/claudio/pal5.spe"     ;; corallo backtiles, numbered from 5000, 
+            "addon/claudio/pal21.spe"    ;; stars backtiles 2, numbered from 2100,
+            "addon/claudio/pal5.spe"     ;; corallo backtiles, numbered from 5000,
             "addon/claudio/extiles.spe"  ;; extra foretiles,   numbered from 10000, palette extra1
 )
@@ -1545 +1545 @@
 ;; Contact these authors if you want to get more infor about their work.                 ;;
 ;; Otherwise, deactivate                                                                 ;;
-;; the following section as indicated below in order to use the characters               ;; 
+;; the following section as indicated below in order to use the characters               ;;
 ;; and tiles by Claudio Bolzoni only.                                                    ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

abuse/trunk/data-frabs/addon/deathmat/deathmat.lsp

@@ -6 +6 @@
 (defun net_file (x) (concatenate 'string net_dir x))
 (load (net_file "dstartup.lsp"))
-(load "lisp/options.lsp")     
+(load "lisp/options.lsp")
 
 (load "lisp/input.lsp")

abuse/trunk/data-frabs/addon/deathmat/dstartup.lsp

@@ -10 +10 @@
       (load "addon/deathmat/cur_lev.lsp")
       (set_first_level (nth current_net_level net_levels)))
-  
+
   ;; save the level we are so joining clients know which one to load
-  (open_file "addon/deathmat/cur_lev.lsp" "wb" 
+  (open_file "addon/deathmat/cur_lev.lsp" "wb"
              (print `(setq current_net_level ,current_net_level))))
-  
+
 
 ;; this is a simple check to see if they player has an engine version
@@ -32 +32 @@
     (progn
       (print "\nPlease make sure you unzipped the game with the -d option")
-      (print "so that all directories get created properly.")      
-      (print "example : pkunzip -d abusXXXX.zip")      
+      (print "so that all directories get created properly.")
+      (print "example : pkunzip -d abusXXXX.zip")
       (quit)))
 (setq load_warn T)
@@ -52 +52 @@
              (print (list 'setq 'server_version_major (major_version) ))
              (print (list 'setq 'server_version_minor (minor_version)))))
-              
+
 
 (if (not (am_a_client))
@@ -59 +59 @@
 ;(let ((input (nice_input "DEATHMATCH : Enter your name below" "Name" username)))
 ;  (open_file "addon/deathmat/username.lsp" "wb"
-;            (print (list 'setq 'username 
+;            (print (list 'setq 'username
 ;                         (concatenate 'string '(#\") input '(#\"))))))
 
@@ -82 +82 @@
 (defun display_player (player text_x text_y)
   (if player
-      (with_object player       
-        (put_string (get_main_font) text_x text_y 
-                    (concatenate 'string (digstr (kills) 2) " " (player_name) 
-                                                     (if (local_player) 
+      (with_object player
+        (put_string (get_main_font) text_x text_y
+                    (concatenate 'string (digstr (kills) 2) " " (player_name)
+                                                     (if (local_player)
                                                          " <<"
                                                        ""))

abuse/trunk/data-frabs/addon/deathmat/large.lsp

@@ -1 @@
-(select (random 4) 
-        (0 (setq net_levels 
+(select (random 4)
+        (0 (setq net_levels
         '("netlevel/limeston.spe"
             "netlevel/bugs.spe"
           "netlevel/jdm3.spe")))
-      (1 (setq net_levels 
+      (1 (setq net_levels
         '("netlevel/bugs.spe"
             "netlevel/limeston.spe"
           "netlevel/jdm3.spe")))
-      (2 (setq net_levels 
+      (2 (setq net_levels
         '("netlevel/limeston.spe"
             "netlevel/jdm3.spe"
           "netlevel/bugs.spe")))
-      (3 (setq net_levels 
+      (3 (setq net_levels
         '("netlevel/jdm3.spe"
             "netlevel/bugs.spe"
-            "netlevel/limeston.spe"))) 
-      ) 
+            "netlevel/limeston.spe")))
+      )

abuse/trunk/data-frabs/addon/deathmat/medium.lsp

@@ -1 @@
-(select (random 4) 
-        (0 (setq net_levels 
+(select (random 4)
+        (0 (setq net_levels
         '("netlevel/spacymed.spe"
             "netlevel/teardrop.spe"
@@ -8 +8 @@
             "netlevel/bugsmed.spe"
             "netlevel/00dm.spe")))
-      (1 (setq net_levels 
+      (1 (setq net_levels
         '("netlevel/aquarius.spe"
             "netlevel/madrace.spe"
@@ -16 +16 @@
             "netlevel/00dm.spe"
             "netlevel/spacymed.spe")))
-        (2 (setq net_levels 
+        (2 (setq net_levels
         '("netlevel/laazrckt.spe"
           "netlevel/00dm.spe"
@@ -24 +24 @@
             "netlevel/teardrop.spe"
             "netlevel/madrace.spe")))
-      (3 (setq net_levels 
+      (3 (setq net_levels
         '("netlevel/teardrop.spe"
             "netlevel/laazrckt.spe"
@@ -32 +32 @@
             "netlevel/madrace.spe"
             "netlevel/aquarius.spe")))
-      ) 
+      )

abuse/trunk/data-frabs/addon/deathmat/small.lsp

@@ -1 @@
-(select (random 4) 
-        (0 (setq net_levels 
+(select (random 4)
+        (0 (setq net_levels
         '("netlevel/alitlhot.spe"
             "netlevel/getcross.spe"
@@ -10 +10 @@
             "netlevel/ruins.spe"
             "netlevel/occult.spe"
-            "netlevel/cistern.spe"))) 
-      (1 (setq net_levels 
+            "netlevel/cistern.spe")))
+      (1 (setq net_levels
         '("netlevel/treesmal.spe"
             "netlevel/cistern.spe"
@@ -21 +21 @@
             "netlevel/ruins.spe"
             "netlevel/kotcross.spe"
-            "netlevel/alitlhot.spe"))) 
-      (2 (setq net_levels 
+            "netlevel/alitlhot.spe")))
+      (2 (setq net_levels
         '("netlevel/kotcross.spe"
             "netlevel/spacytdm.spe"
@@ -32 +32 @@
             "netlevel/getcross.spe"
             "netlevel/ruins.spe"
-            "netlevel/bugssml.spe"))) 
-      (3 (setq net_levels 
+            "netlevel/bugssml.spe")))
+      (3 (setq net_levels
         '("netlevel/ruins.spe"
             "netlevel/getcross.spe"
@@ -43 +43 @@
             "netlevel/spacytdm.spe"
             "netlevel/occult.spe"
-            "netlevel/bugssml.spe"))) 
-      ) 
+            "netlevel/bugssml.spe")))
+      )

abuse/trunk/data-frabs/addon/leon/leon.lsp

@@ -14 +14 @@
     (progn
       (print "Please make sure you unzipped the game with the -d option")
-      (print "so that all directories get created properly.")      
-      (print "example : pkunzip -d abusXXXX.zip")      
+      (print "so that all directories get created properly.")
+      (print "example : pkunzip -d abusXXXX.zip")
       (quit)))
 (setq load_warn T)
@@ -22 +22 @@
 (load "lisp/common.lsp")
 (load "lisp/userfuns.lsp")
-(load "lisp/options.lsp")     
+(load "lisp/options.lsp")
 (load "lisp/startup.lsp")
 (if (not (local_load "lisp/input.lsp"))   ; get local copy first
@@ -64 +64 @@
 
 
-(setq bad_guy_list (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER GREEN_FLYER BOSS_ANT 
+(setq bad_guy_list (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER GREEN_FLYER BOSS_ANT
 ANT ANT_JUMPER ANT_PRED ANT_GREATER2 NJUGGER))
 

abuse/trunk/data-frabs/addon/leon/lisp/deco.lsp

@@ -7 +7 @@
   T
 )
-    
-                     
+
+
 (def_char ANTBODY
   (funs (ai_fun antbody_ai)
@@ -14 +14 @@
   (flags (unlistable T)(add_front T)) ;; This class is obsolete, just keeping it here for compatibility
   (states "art/ant.spe"  (stopped (seq "adib" 1 16))))
-                     
+
 (def_char DECO_ANTBODY
   (funs (ai_fun antbody_ai)

abuse/trunk/data-frabs/addon/leon/lisp/grenade.lsp

@@ -36 +36 @@
     )
     (if (and (eq tk 8) (> yv 0) )
-      (progn 
+      (progn
         (set_yvel (- 0 yv) )
         (set_xvel (* (/ xv 7) 5) )
@@ -42 +42 @@
           (set_xvel 0)
           nil )
-        (set_gravity 1) 
+        (set_gravity 1)
         (play_sound (aref GREN_SND (random 2)) 127 (x) (y))
       )
@@ -48 +48 @@
     )
   )
-  (if (or (> (yvel) 0) (< (yvel) 0) (> (xvel) 0) (< (xvel) 0) ) 
+  (if (or (> (yvel) 0) (< (yvel) 0) (> (xvel) 0) (< (xvel) 0) )
     (next_picture)
     nil
@@ -54 +54 @@
   (if (> (total_objects) 0)
     (let ( (mex (x)) (mey (y)) )
-      (if (with_object (get_object 0) (find_object_in_area      (- mex 7) 
-                                                                (- mey 7) 
-                                                                (+ mex 7) 
+      (if (with_object (get_object 0) (find_object_in_area      (- mex 7)
+                                                                (- mey 7)
+                                                                (+ mex 7)
                                                                 (+ mey 7) bad_guy_list))
-      
+
         (set_hp 31)
         nil
@@ -65 +65 @@
   )
   (if (> (hp) 30)
-    (progn 
+    (progn
       (do_explo 40 36)
       nil
     )
-    (progn 
+    (progn
       (add_hp 1)
       T

abuse/trunk/data-frabs/addon/leon/lisp/lmisc.lsp

@@ -2 +2 @@
   (if (eq (random 75) 0) (play_sound LAVA_SND 24 (x) (y)) )
   (select (aistate)
-          (0 
+          (0
              (if (eq (state_time) dam_spd)
                  (progn
@@ -36 +36 @@
                  (if (and (touching_bg) (with_object (bg) (pressing_action_key)))
                      (set_aistate 2)))
-              (2 (set_state running)       
+              (2 (set_state running)
                  (set_aistate 3))
-              (3 (set_aistate 4))           
-              (4 
+              (3 (set_aistate 4))
+              (4
                (let ((spot (get_save_slot)))
                  (set_state stopped)
@@ -59 +59 @@
                )))
   T)
-          
+
 
 (def_char LRESTART_POSITION
@@ -94 +94 @@
 
 
-(defun Med_ai () 
+(defun Med_ai ()
   (if (eq0 (aistate))     (progn
             (try_move 0 10)
@@ -111 +111 @@
   (states "addon/leon/lmisc.spe" (stopped "medkit.pcx" )))
 
-(defun none_ai () 
+(defun none_ai ()
   (next_picture)
-  (if (touching_bg) 
-      (progn (with_object (bg) 
+  (if (touching_bg)
+      (progn (with_object (bg)
                           (progn
                             (setq special_power NO_POWER)
@@ -142 +142 @@
         (set_y nowy)))
   T)
-        
+
 
 (defun sensbeam_draw ()
@@ -158 +158 @@
   (states "art/misc.spe"
           (stopped "force_field")))
-        
+
 
 (defun swtele_ai ()     ;; teleporting door ai
@@ -167 +167 @@
           (let ((otherx (+ (with_object (get_object 1) (x)) (- (with_object player (x) ) (x) ) ) )
                 (othery (+ (with_object (get_object 1) (y)) (- (with_object player (y) ) (y) ) ) ))
-            (with_object player (progn 
-                                  (set_x otherx) 
+            (with_object player (progn
+                                  (set_x otherx)
                                   (set_y othery)
                                   (bottom_draw)
 ;;                                (with_object (get_object 0)
 ;;                                    (progn
-;;                                      (set_x otherx) 
+;;                                      (set_x otherx)
 ;;                                    (set_y othery)
 ;;                                      (top_ai)
@@ -191 +191 @@
           (stopped "switch_mover")))
 
-(setq AMB_SOUNDS2 (make-array 3 :initial-contents (list 
+(setq AMB_SOUNDS2 (make-array 3 :initial-contents (list
                                (def_sound "addon/leon/sfx/ambship1.wav")   ;; 0
                                (def_sound "addon/leon/sfx/ambship2.wav")   ;; 1
@@ -216 +216 @@
       T)))
 
-        
-(defun ambs_cons2 () 
+
+(defun ambs_cons2 ()
   (set_xvel 10)  ;; delay time to 10
   (set_yvel 127)) ;; set volume default to 127
@@ -228 +228 @@
   (range 500 500)
   (fields ("aitype" amb_num)
-          ("yvel"   amb_vol)     
+          ("yvel"   amb_vol)
           ("xvel"   amb_rep)
           ("xacel"  amb_rand))

abuse/trunk/data-frabs/addon/leon/lisp/lnant.lsp

@@ -1 @@
-(setq ant_tints (make-array 14 :initial-contents (list 
+(setq ant_tints (make-array 14 :initial-contents (list
                                                 (def_tint "art/tints/ant/green.spe")
-                                                (def_tint "art/tints/ant/blue.spe") 
+                                                (def_tint "art/tints/ant/blue.spe")
                                                 (def_tint "art/tints/ant/brown.spe")
                                                 (def_tint "art/tints/ant/egg.spe")
@@ -27 +27 @@
              (let ((d (direction))
                    (type (aitype)))
-               (if (or (eq create_total 0) (eq create_total 1))           
+               (if (or (eq create_total 0) (eq create_total 1))
                    (set_current_frame 4)
                  (progn
@@ -44 +44 @@
             (2 (next_picture))))
   T)
-            
+
 
 
@@ -76 +76 @@
 (defun anthole_ai ()
   (select (aistate)
-    (0 
+    (0
       (if (and (activated) (< (total_objects) (+ (xvel) 1) ) )
         (go_state 2)
       )
     )
-    (3 
+    (3
       (if (and (activated) (< (total_objects) (+ (xvel) 1) ) )
-        (progn          
+        (progn
           (if (eq (current_frame) 4)
             (set_current_frame 1)
@@ -101 +101 @@
     )
 
-    (1 
+    (1
       (if (eq (state_time) (yvel))
         (select (otype) (ANTHOLE (go_state 0))
@@ -189 +189 @@
   (range 250 20)
   (draw_range 40 40)
-  (funs (ai_fun     ,aifun)     
+  (funs (ai_fun     ,aifun)
         (draw_fun   ,drawfun)
         (constructor ant_cons)
@@ -204 +204 @@
              (push_xrange     1)
              (jump_top_speed (+ jumpyvel jumpxvel) ))
-  
-  (flags 
+
+  (flags
          (hurtable  T)
          (force_health T))
 
-  (states "art/ant.spe" 
+  (states "art/ant.spe"
           (hanging (rep "ant" 2))
 
           (fall_start "affc0001.pcx")
           (falling    "affc0002.pcx")
-          
+
           (stopped "awlk0001.pcx")
           (running (seq "awlk" 1 10))
@@ -240 +240 @@
 
 
-(setq ai_ammo (make-array 15 :initial-contents (list MBULLET_ICON5 
-                                                MBULLET_ICON5 
+(setq ai_ammo (make-array 15 :initial-contents (list MBULLET_ICON5
+                                                MBULLET_ICON5
                                                 GRENADE_ICON2
-                                                ROCKET_ICON2 
+                                                ROCKET_ICON2
                                                 PLASMA_ICON20
-                                                MBULLET_ICON5 
-                                                MBULLET_ICON5 
-                                                MBULLET_ICON5 
+                                                MBULLET_ICON5
+                                                MBULLET_ICON5
+                                                MBULLET_ICON5
                                                 MBULLET_ICON5
                                                 MBULLET_ICON20
@@ -259 +259 @@
 
   (if (and (not (eq (state) dead))
-           (or (not from) 
-               (with_object from (if (eq (total_objects) 0) 
+           (or (not from)
+               (with_object from (if (eq (total_objects) 0)
                                      (not (eq (otype) ANT_ROOF))
                                    (with_object (get_object 0) (not (eq (otype) ANT_ROOF)))))))
@@ -270 +270 @@
             (damage_fun amount from hitx hity push_xvel push_yvel)
             (play_sound APAIN_SND 127 (x) (y))
-            (setq need_to_dodge 1)          
+            (setq need_to_dodge 1)
             (if (<= (hp) 0)
                 (progn
@@ -293 +293 @@
              (let ((d (direction))
                    (type (aitype)))
-                  (with_object (add_object ANTBODY (x) (y)) 
+                  (with_object (add_object ANTBODY (x) (y))
                     (progn
                               (set_aitype type)
@@ -303 +303 @@
              (let ((d (direction))
                    (type (aitype)))
-                  (with_object (add_object DECO_ANTBODY (x) (y)) 
+                  (with_object (add_object DECO_ANTBODY (x) (y))
                     (progn
                               (set_aitype type)
@@ -321 +321 @@
 
 (defun pred_draw ()
-  (if (edit_mode) 
-    (ant_draw) 
+  (if (edit_mode)
+    (ant_draw)
   (draw_predator)))
 
@@ -339 +339 @@
                              (let ((d (direction))
                    (type (aitype)))
-                  (with_object (add_object GRANTBODY (x) (y)) 
+                  (with_object (add_object GRANTBODY (x) (y))
                     (progn
                               (set_aitype type)
@@ -359 +359 @@
   T
 )
-    
-                     
+
+
 (def_char GRANTBODY
   (funs (ai_fun grantbody_ai)
@@ -410 +410 @@
         (let ((d (direction))
           (type (aitype)))
-            (with_object (add_object ANTBODY (x) (y)) 
+            (with_object (add_object ANTBODY (x) (y))
               (progn
                 (set_aitype type)

abuse/trunk/data-frabs/addon/leon/lisp/nextlev3.lsp

@@ -7 +7 @@
           (request_level_load (concatenate 'string "addon/leon/level" (digstr (aistate) 2) ".spe")))))
   T)
-        
+
 
 (def_char NEXT_LEVEL3
-  (funs (ai_fun next_level3_ai)) 
+  (funs (ai_fun next_level3_ai))
   (flags (can_block T))
   (fields ("aistate" next_level))
@@ -29 +29 @@
 (def_char SW_ENDLEV
   (funs (ai_fun sw_endlev_ai)
-        (draw_fun dev_draw)) 
+        (draw_fun dev_draw))
   (fields ("aistate" next_level))
   (states "art/misc.spe"

abuse/trunk/data-frabs/addon/leon/lisp/nguns.lsp

@@ -10 +10 @@
                         (setq sgb_bright_color (find_rgb 255 245 235))
                         (setq sgb_medium_color (find_rgb 150 145 140))
-                        (if creator 
+                        (if creator
                             (progn
                               (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
@@ -31 +31 @@
                                         (setq sgb_bright_color (find_rgb 255 255 200))
                                         (setq sgb_medium_color (find_rgb 150 150 0))
-                                        (if creator 
+                                        (if creator
                                             (progn
                                               (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
@@ -45 +45 @@
                                         (setq sgb_lasty (y))
                                         (setq sgb_angle angle)
-                                        
+
                                         (setq sgb_bright_color (find_rgb 255 128 64))
                                         (setq sgb_medium_color (find_rgb 255 0 0))
-                                        (if creator 
+                                        (if creator
                                             (progn
                                               (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
@@ -58 +58 @@
                             (play_sound GRENADE_THROW 127 x y)
                             (set_course angle 20)
-                            (if creator 
+                            (if creator
                                 (progn
                                   (link_object creator)
@@ -64 +64 @@
                                   (set_yvel (+ (yvel) (with_object creator (yvel))))
                                   ))
-                            
+
                             (set_frame_angle 0 359 angle)
                             )))
@@ -74 +74 @@
 
                             (if (and target   ;; don't link if not in line of site
-                                     (can_see (x) (y) 
+                                     (can_see (x) (y)
                                               (with_object target (x))
                                               (with_object target (y)) nil))
@@ -92 +92 @@
                                         (setq sgb_lastx (x))
                                         (setq sgb_lasty (y))
-                                        (if creator 
+                                        (if creator
                                               (link_object creator))
                                         (set_course angle 200)
@@ -100 +100 @@
                                           (if (not (eq bx T))
                                               (if (eq bx nil)
-                                                  (add_object EXPLODE5 (- (x) (random 5)) 
+                                                  (add_object EXPLODE5 (- (x) (random 5))
                                                               (- (y) (random 5)) 0)
                                                 (progn
-                                                  (add_object EXPLODE3 (- (x) (random 5)) 
+                                                  (add_object EXPLODE3 (- (x) (random 5))
                                                               (- (y) (random 5)) 0)
-                                                  (do_damage 10 bx (* (cos sgb_angle) 20) 
+                                                  (do_damage 10 bx (* (cos sgb_angle) 20)
                                                              (* (sin sgb_angle) 10)))))
                                           (setq sgb_lastx (x))
@@ -118 +118 @@
                             (play_sound FIREBOMB_SND 127 (x) (y))
                             (set_course angle 20)
-                            (if creator 
+                            (if creator
                                 (progn
                                   (link_object creator)
@@ -129 +129 @@
                                         (set_course angle 25)
                                         (set_aistate angle)
-                                        (if creator 
+                                        (if creator
                                               (link_object creator))
                                         (dfris_ai)
@@ -139 +139 @@
                                         (setq sgb_lastx (x))
                                         (setq sgb_lasty (y))
-                                        (if creator 
+                                        (if creator
                                               (link_object creator))
                                         (set_course angle 45)
@@ -145 +145 @@
                                           (if (not (eq bx T))
                                               (if (not (eq bx nil))
-                                                  (do_damage 30 bx (* (cos sgb_angle) 20) 
+                                                  (do_damage 30 bx (* (cos sgb_angle) 20)
                                                              (* (sin sgb_angle) 10)))))
                                         )))
-                           
+
 
           (9 (with_object (add_object STRAIT_ROCKET x y)
                                       (progn
                                         (play_sound MGUN_SND 127 (x) (y))
-                                        (if creator 
+                                        (if creator
                                               (link_object creator))
                                         (set_aistate angle)
@@ -169 +169 @@
                                         (setq sgb_bright_color (find_rgb 255 0 0))
                                         (setq sgb_medium_color (find_rgb 150 0 0))
-                                        (if creator 
+                                        (if creator
                                             (progn
                                               (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
@@ -193 +193 @@
           (zap 6 16 x y (- angle 30))
           )
-          ) 
+          )
 )
 
@@ -199 +199 @@
   (setq sgb_lastx (x))
   (setq sgb_lasty (y))
-  (set_course sgb_angle sgb_speed)  
+  (set_course sgb_angle sgb_speed)
   (if (eq sgb_lifetime 0)
       nil
@@ -215 +215 @@
 
 (def_char LASR_BULLET
-  (vars sgb_speed sgb_angle sgb_lastx sgb_lasty 
+  (vars sgb_speed sgb_angle sgb_lastx sgb_lasty
         sgb_bright_color sgb_medium_color sgb_lifetime sgb_dam)
   (funs (ai_fun   las_ai)

abuse/trunk/data-frabs/addon/leon/lisp/njug.lsp

@@ -11 +11 @@
         (playerx (+ (with_object (bg) (x)) (with_object (bg) (* (xvel) 1))))
         (playery (+ (- (with_object (bg) (y)) 15) (with_object (bg) (* (yvel) 1)))))
-    
+
     (if (and (can_see (x) (y) firex firey nil) (can_see firex firey playerx playery nil))
         (progn
@@ -27 +27 @@
         (set_state dieing))
     (if (activated)
-        (progn       
+        (progn
           (set_targetable T)
           (push_char 35 40)
-          (select (aistate) 
+          (select (aistate)
                   (0 ;; prepare to walk toward player
                    (if (eq stationary 0)
@@ -46 +46 @@
                          (set_direction (toward))
                          (let ((curx (x));; save position in case we fall off a cliff
-                               (cury (y)))                   
-                           (if (next_picture) 
+                               (cury (y)))
+                           (if (next_picture)
                                (if (eq (current_frame) 8)
                                    (play_sound JSTOMP_SND 127 (x) (y)))
@@ -74 +74 @@
                   (3 ;; wait for fire animation
                    (if (next_picture) nil (set_aistate 0))))
-          T) 
+          T)
       (progn (set_targetable nil)
              T))))
@@ -81 +81 @@
   (setq throw_xvel 3)
   (setq throw_yvel -10)
-  (set_aitype 1))          
+  (set_aitype 1))
 
 (def_char NJUGGER
@@ -101 +101 @@
           ("aistate"       ai_state))
 
-  (states "art/jug.spe" 
+  (states "art/jug.spe"
           (stopped "robo0001.pcx")
           (running (seq "rwlk" 1 13))

abuse/trunk/data-frabs/addon/leon/lisp/rain.lsp

@@ -32 +32 @@
 
   (select (aistate)
-    (0 
+    (0
       (set_yvel (+ 100 (random 500) ) )
       (set_yacel (random 3) )
       (set_aistate 6)
     )
-    (4 (if (activated) 
+    (4 (if (activated)
          (go_state 0)
        )
@@ -43 +43 @@
     (6 (if (eq (state_time) (yvel) )
          (progn
-           (add_object THUNDER (with_object (bg) (x)) (with_object (bg) (y))) 
+           (add_object THUNDER (with_object (bg) (x)) (with_object (bg) (y)))
            (set_aistate 2)
          )
@@ -87 +87 @@
           (stopped "latter")))
 
-(setq THUNDER_SOUNDS (make-array 5 :initial-contents (list 
+(setq THUNDER_SOUNDS (make-array 5 :initial-contents (list
                                (def_sound "addon/leon/sfx/thunder.wav")   ;; 0
                                (def_sound "addon/leon/sfx/thunder2.wav")   ;; 1
@@ -110 +110 @@
           (stopped "latter")))
 
-(setq RAIN_SOUNDS (make-array 4 :initial-contents (list 
+(setq RAIN_SOUNDS (make-array 4 :initial-contents (list
                                (def_sound "addon/leon/sfx/rain.wav")   ;; 0
                                (def_sound "addon/leon/sfx/rain2.wav")   ;; 1

abuse/trunk/data-frabs/addon/leon/lisp/slavesw.lsp

@@ -1 +1 @@
 (def_char SWITCH_SLAVE
   (funs (ai_fun swslave_ai))
-  (states "art/misc.spe" 
+  (states "art/misc.spe"
           (stopped "0_indicator")
           (on_state "1_indicator")))
-        
+
 (defun swslave_ai ()
   (if (> (total_objects) 0)

abuse/trunk/data-frabs/addon/leon/lisp/text.lsp

@@ -3 +3 @@
    ; Please keep all strings below shorter than the above line.
    ; Add as many strings as you like.
-      
-      
+
+
 (defun get_message (message_num)
-  (select message_num     
+  (select message_num
    (0 "Dammit! I gotta get out of here!")
    (1 "What the...")
@@ -24 +24 @@
 ;                          (if (local_player) ;; Doesnt work for some reason
 ;                              (show_help (get_message (aitype))))
-                           ))                       
+                           ))
             (set_aistate 1)
             T)

abuse/trunk/data-frabs/addon/newart/newart.lsp

@@ -2 +2 @@
 
 (load_tiles
-          "addon/newart/frabs_1.spe" 
-            "addon/newart/frabs_2.spe" 
+          "addon/newart/frabs_1.spe"
+            "addon/newart/frabs_2.spe"
             "addon/newart/final.spe"
             "addon/newart/mtile.spe"
             "addon/newart/stones.spe"
-) 
+)
 
 ;; Background
 
 (load_tiles
-          "addon/newart/frbsblue.spe" 
-            "addon/newart/blcave.spe" 
+          "addon/newart/frbsblue.spe"
+            "addon/newart/blcave.spe"
             "addon/newart/space.spe"
-) 
+)

abuse/trunk/data-frabs/addon/pong/common.lsp

@@ -2 +2 @@
 ;; See licensing information for more details on usage rights
 
-; draw function for characters only displayed during edit mode 
+; draw function for characters only displayed during edit mode
 ; such as start, etc.
 ; (defun dev_draw () (if (edit_mode) (draw) nil))       -- compiled C function --
@@ -11 +11 @@
     (draw)
     (set_y y)))
-        
+
 
 
@@ -38 +38 @@
     nil)
   T)
-    
+
 
 
@@ -44 +44 @@
   (funs  (ai_fun   lhold_ai)
          (draw_fun dev_draw))
-  (states "art/misc.spe"         
+  (states "art/misc.spe"
           (stopped           "lhold")))
 
 
 
-(def_char OBJ_MOVER 
+(def_char OBJ_MOVER
   (funs (ai_fun       mover_ai)
         (constructor  mover_cons)
@@ -58 +58 @@
   (states "art/misc.spe" (stopped '("mover" "mover" ))))
 
-/*    Compiled C           
+/*    Compiled C
 (defun mover_ai ()
   (if (eq (total_objects) 2)
       (let ((dest (get_object 0))
             (mover (get_object 1)))
-        (if (< (aistate) 2)             ; transfer object to next mover       
+        (if (< (aistate) 2)             ; transfer object to next mover
             (progn
-              (with_object dest 
+              (with_object dest
                            (progn
                              (link_object mover)
                              (set_aistate (aitype))))
               (remove_object mover))
-          (progn              
+          (progn
             (set_aistate (- (aistate) 1))
             (let ((newx (- (with_object dest (x)) (/ (* (- (with_object dest (x)) (x)) (aistate)) (aitype))))
                   (newy (- (with_object dest (y)) (/ (* (- (with_object dest (y)) (y)) (aistate)) (aitype)))))
-              (with_object mover 
-                           (progn 
+              (with_object mover
+                           (progn
                              (platform_push (- newx (x)) (- newy (y)))
                              (set_x newx)
@@ -92 +92 @@
       (let ((last (get_object (- x 1))))   ; see if the last object has the same position as us
         (if (and (eq (with_object last (x)) (x)) (eq (with_object last (y)) (y)))
-            (if (eq (aistate) 1)                        
+            (if (eq (aistate) 1)
                 (if (eq (with_object last (fade_count)) 0)
                     (set_aistate 1)
@@ -107 +107 @@
   T)
 
-(defun respwan_cons () (set_xvel 50)) 
+(defun respwan_cons () (set_xvel 50))
 
 
-(def_char RESPAWN 
+(def_char RESPAWN
   (funs (ai_fun      respawn_ai)
-        (draw_fun    dev_draw)  
+        (draw_fun    dev_draw)
         (constructor respwan_cons))
   (flags (unlistable T))

abuse/trunk/data-frabs/addon/pong/pong.lsp

@@ -24 +24 @@
 ;;;; called lisp :-)
 
-;;;; Please do not ask me for docs on how to code with the abuse engine, there are 
+;;;; Please do not ask me for docs on how to code with the abuse engine, there are
 ;;;; none at this time and there won't be any until networked abuse is available.
 ;;;; ALL games written with the abuse engine are network ready with no additional
-;;;; work including this one, but there are some issues that need addressing 
+;;;; work including this one, but there are some issues that need addressing
 ;;;; that cannot be fully discussed until the net code is finished.  When these
 ;;;; docs are written they will be available at http://www.crack.com   Estimated
@@ -58 +58 @@
 (setq pong_dir "addon/pong/")  ; in case we change the location of these files later
                                ; this is always a very good idea to do because the user of
-                               ; this program may/may not be able to install into this directory       
+                               ; this program may/may not be able to install into this directory
 (setq pong_art (concatenate 'string pong_dir "pong.spe"))  ; all artwork is in this file
 
@@ -106 +106 @@
       (let ((this-digit (/ score digs_left)))
         (put_image x y (aref nums this-digit))
-        (show_score (+ x (image_width (aref nums this-digit))) y 
+        (show_score (+ x (image_width (aref nums this-digit))) y
                     (/ digs_left 10) (- score (* digs_left this-digit))))))
 
@@ -143 +143 @@
           (blow_up_tile tilex (+ tiley 1))
           (blow_up_tile (+ tilex 1) tiley)))
-              
+
     (with_object (bg) (add_hp 10))           ; give player points
 
@@ -155 +155 @@
 (defun check_collide (status)    ;; returns T if we hit something
   (if (not (eq status T))                                  ; did we hit anything?
-      (if (eq (car (cdr status)) 'object)                  ; did we hit an object?            
+      (if (eq (car (cdr status)) 'object)                  ; did we hit an object?
           (let ((object (car (cdr (cdr status)))))
             (if (eq (with_object object (otype)) PADDLE)   ; did we hit the paddle?
@@ -163 +163 @@
                       (if (> 20 (aistate)) (set_aistate 20)
                         (if (< 160 (aistate)) (set_aistate 160)))
-                      T) 
+                      T)
                   nil)
               nil)
@@ -185 +185 @@
 (defun move_ball ()  ;; returns status of move
   (let ((status (float_tick)))
-    (if (not (eq status T))   ; T means we did not hit anything 
+    (if (not (eq status T))   ; T means we did not hit anything
         (let ((block_flags (car status)))
           (if (or (blocked_left block_flags) (blocked_right block_flags)) ; bounce left/right
@@ -208 +208 @@
   (select (aitype)
           (0  ; normal play, bounce around and stuff..
-           (check_collide (move_ball))             
+           (check_collide (move_ball))
            (if (> (y) 240)  ; check to see if we are dead
                (progn
@@ -221 +221 @@
                      T)))
              T))
-                  
+
            (1 ; ball is dead - go to paddle and fade in
             (set_x (with_object (bg) (x)))
@@ -229 +229 @@
                 (set_aitype 0))
             T)))
-          
+
 
 (def_char BALL
@@ -253 +253 @@
       (mover xm 0 0)
     0))
-     
+
 
 (def_char PADDLE
@@ -280 +280 @@
   (next_picture)
   (if (touching_bg)  ; are we touching the paddle
-      (progn 
+      (progn
         (add_score 1000)
         (with_object (add_object BALL (x) (y) 1) (progn (set_fade_count 15) (set_aistate 80)))
@@ -327 +327 @@
 (create_players PADDLE)
 (set_first_level (get_level_name current_level))
-(gc)    ; garbage collect 
+(gc)    ; garbage collect
 (tmp-space)
 

abuse/trunk/data-frabs/addon/pong/userfuns.lsp

@@ -8 +8 @@
       (set_lives first x)
       (set_all_lives (next_focus first) x))))
-  
 
-(defun select_place (x place) 
+
+(defun select_place (x place)
   (- (/ x place) (* (/ x (* place 10)) 10)))
 
-(defun dig2char (x) 
+(defun dig2char (x)
   (code-char (+ x (char-code "0"))))
 
@@ -24 +24 @@
     (reverse-seq name first last))
 )
-(defun forward-seq (name first last) 
-  (if (> first last) 
-      nil 
-    (cons (concatenate 'string name (digstr first 4) ".pcx") 
+(defun forward-seq (name first last)
+  (if (> first last)
+      nil
+    (cons (concatenate 'string name (digstr first 4) ".pcx")
           (forward-seq name (+ 1 first) last))))
-(defun reverse-seq (name last first) 
-  (if (< last first) 
-      nil 
-    (cons (concatenate 'string name (digstr last 4) ".pcx") 
+(defun reverse-seq (name last first)
+  (if (< last first)
+      nil
+    (cons (concatenate 'string name (digstr last 4) ".pcx")
           (reverse-seq name (- last 1) first))))
 

abuse/trunk/data-frabs/addon/twist/f2ai.lsp

@@ -57 +57 @@
 
 (defun gravity_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)
@@ -94 +94 @@
 
 (defun health_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)
@@ -130 +130 @@
 
 (defun level_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)
@@ -149 +149 @@
         (setq fire_time (- fire_time 1))
         (if (eq fire_time 0)
-            (progn 
+            (progn
               (setq burst_left burst_total)
               (setq burst_wait 0))))
@@ -162 +162 @@
 
 
-(defun wrob2_cons ()      
+(defun wrob2_cons ()
   (setq fire_delay 4)
   (setq burst_delay 1)
@@ -186 +186 @@
                    (set_aistate 1))))
               (1;; stop and fire
-               (burst_fire  (+ (x) (* (direction) 28)) (- (y) 35)                     
+               (burst_fire  (+ (x) (* (direction) 28)) (- (y) 35)
                             (if (> (direction) 0)
                                 (mod (- 375 (/ (* burst_left 30) burst_total)) 360)
@@ -206 +206 @@
                            (set_state running)
                            (set_aistate 1))
-                
+
                      (if (with_object (bg) (pressing_action_key))
                          (progn
@@ -218 +218 @@
                          (y (- (y) 16))
                          (fade (if (< (current_frame) 16) (current_frame) 15)))
-                     (with_object (get_object 1) 
+                     (with_object (get_object 1)
                                   (progn
-                                    (set_x x) 
-                                    (set_y y) 
+                                    (set_x x)
+                                    (set_y y)
                                     (user_fun SET_FADE_COUNT fade)
                                     (setq is_teleporting 1)
                                     )))
-                                  
+
                  (let ((x (with_object (get_object 0) (x)))
-                       (y (with_object (get_object 0) (- (y) 16))))                
+                       (y (with_object (get_object 0) (- (y) 16))))
                    (with_object (get_object 1)
-                                (progn 
+                                (progn
                                   (set_x x)
                                   (set_y y)
@@ -246 +246 @@
 
 (defun teleport_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)

abuse/trunk/data-frabs/addon/twist/f2chars.lsp

@@ -74 +74 @@
   (flags (hurtable T))
   (abilities (start_hp 40))
-  (vars fire_delay burst_delay burst_total burst_wait burst_left 
+  (vars fire_delay burst_delay burst_total burst_wait burst_left
         max_xvel   max_yvel    smoke_time fire_time)
   (fields ("fire_delay"  who_fdelay)
@@ -84 +84 @@
           ("aitype"      ai_type)
           ("aistate"     ai_state))
-  
+
   (range 200 200)
   (states "addon/twist/art/robs.spe"
@@ -95 +95 @@
 (def_char WALK_ROB2
   (funs (ai_fun wrob2_ai)
-        (constructor wrob2_cons)        
+        (constructor wrob2_cons)
         (damage_fun  guner_damage))
   (abilities (run_top_speed 12)
@@ -101 +101 @@
   (flags (hurtable T))
   (range 300 100)
-  (vars fire_delay burst_delay burst_total burst_wait burst_left 
+  (vars fire_delay burst_delay burst_total burst_wait burst_left
         max_xvel   max_yvel    smoke_time fire_time)
   (fields ("fire_delay"   wrob_fdelay)
@@ -111 +111 @@
           ("aistate"      ai_state))
 
-  (states "art/rob2.spe" 
+  (states "art/rob2.spe"
           (stopped "wwlk0001.pcx")
           (running (seq "wwlk" 1 10))

abuse/trunk/data-frabs/addon/twist/lisp/ai.lsp

@@ -8 +8 @@
 
 
-(defun mantrack_ai ()  
+(defun mantrack_ai ()
 (if (<= (total_objects) 0)
       nil
@@ -31 +31 @@
                                               (- angle pangle)
                                             (+ angle (- 360 pangle)))))
-                          (let ((closest_dist (if (> clock_dist 180) 
+                          (let ((closest_dist (if (> clock_dist 180)
                                                   (- 360 clock_dist)
                                                 clock_dist)))
@@ -40 +40 @@
                                   (track_set_angle (mod (+ angle angle_add) 360))
                                 (track_set_angle (mod (+ (- angle angle_add) 360) 360)))
-                              (if (< angle_add 5);; pretty close to target, FIRE!                               
+                              (if (< angle_add 5);; pretty close to target, FIRE!
                                   (track_fire))))))
                     (setq fire_delay_left (- fire_delay_left 1)))
@@ -71 +71 @@
                        (set_state stopped))))
                   (1;; unfold
-                   (if (next_picture) T 
+                   (if (next_picture) T
                      (progn (set_aistate 3)
                             (set_state spray.aim)
@@ -78 +78 @@
                             )))
                   (2;; fold up
-                   (if (next_picture) T 
+                   (if (next_picture) T
                      (progn (set_state stopped)
                             (set_aistate 0))))
@@ -116 +116 @@
                    (set_aistate 1)))
              (next_picture))
-          (1 (next_picture) 
+          (1 (next_picture)
              (if (eq (state_time) 5)
                  (progn
@@ -195 +195 @@
 
 (defun music_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)
@@ -228 +228 @@
 
 (defun gravity_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)
@@ -265 +265 @@
 
 (defun health_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)
@@ -301 +301 @@
 
 (defun level_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)
@@ -433 +433 @@
         (setq fire_time (- fire_time 1))
         (if (eq fire_time 0)
-            (progn 
+            (progn
               (setq burst_left burst_total)
               (setq burst_wait 0))))
@@ -446 +446 @@
 
 
-(defun wrob_cons ()       
+(defun wrob_cons ()
   (setq fire_delay 4)
   (setq burst_delay 1)
@@ -471 +471 @@
                    (set_aistate 1))))
               (1;; stop and fire
-               (burst_fire  (+ (x) (* (direction) 28)) (- (y) 35)                     
+               (burst_fire  (+ (x) (* (direction) 28)) (- (y) 35)
                             (if (> (direction) 0)
                                 (mod (- 375 (/ (* burst_left 30) burst_total)) 360)
@@ -491 +491 @@
                            (set_state running)
                            (set_aistate 1))
-                
+
                      (if (with_object (bg) (pressing_action_key))
                          (progn
@@ -503 +503 @@
                          (y (- (y) 16))
                          (fade (if (< (current_frame) 16) (current_frame) 15)))
-                     (with_object (get_object 1) 
+                     (with_object (get_object 1)
                                   (progn
-                                    (set_x x) 
-                                    (set_y y) 
+                                    (set_x x)
+                                    (set_y y)
                                     (user_fun SET_FADE_COUNT fade)
                                     (setq is_teleporting 1)
                                     )))
-                                  
+
                  (let ((x (with_object (get_object 0) (x)))
-                       (y (with_object (get_object 0) (- (y) 16))))                
+                       (y (with_object (get_object 0) (- (y) 16))))
                    (with_object (get_object 1)
-                                (progn 
+                                (progn
                                   (set_x x)
                                   (set_y y)
@@ -531 +531 @@
 
 (defun teleport_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)

abuse/trunk/data-frabs/addon/twist/lisp/chars.lsp

@@ -15 +15 @@
   (range 250 20)
   (draw_range 40 40)
-  (funs (ai_fun     ant_ai)     
+  (funs (ai_fun     ant_ai)
         (draw_fun   man_draw)
         (constructor ant_cons)
@@ -30 +30 @@
              (push_xrange     1)
              (jump_top_speed 20))
-  
+
   (flags (hurtable  T)
          (force_health T))
 
-  (states "art/cop.spe" 
+  (states "art/cop.spe"
           (hanging      (seq "stopped" 1 6))
 
           (fall_start   "jump_down")
           (falling      "jump_down")
-          
+
           (stopped      (seq "stopped" 1 6))
           (running      (seq "4wlk" 1 10))
@@ -80 +80 @@
           ("aistate"       ai_state))
 
-  (states "addon/twist/art/legs.spe" 
+  (states "addon/twist/art/legs.spe"
           (stopped      (seq "stopped" 1 6))
           (running      (seq "4wlk" 1 10))
@@ -95 +95 @@
   (flags (hurtable T))
   (abilities (start_hp 100))
-  (vars fire_delay burst_delay burst_total burst_wait burst_left 
+  (vars fire_delay burst_delay burst_total burst_wait burst_left
         max_xvel   max_yvel    smoke_time fire_time)
   (fields ("fire_delay"  who_fdelay)
@@ -105 +105 @@
           ("aitype"      ai_type)
           ("aistate"     ai_state))
-  
+
   (range 200 200)
   (states "art/cop.spe"
@@ -115 +115 @@
 
 (def_char MAN_BODYTRACK
-  (vars 
+  (vars
         fire_delay
         fire_delay_left
@@ -130 +130 @@
         (constructor track_cons)
         (draw_fun    man_draw)
-        (damage_fun   guner_damage))    
+        (damage_fun   guner_damage))
 
   (flags (can_block  T)
@@ -170 +170 @@
         spray.end_angle
         spray.angle_speed
-        spray.angle)     
+        spray.angle)
 
   (fields ("hp"                 ai_health)
@@ -307 +307 @@
   (flags (hurtable T))
   (abilities (start_hp 40))
-  (vars fire_delay burst_delay burst_total burst_wait burst_left 
+  (vars fire_delay burst_delay burst_total burst_wait burst_left
         max_xvel   max_yvel    smoke_time fire_time)
   (fields ("fire_delay"  who_fdelay)
@@ -317 +317 @@
           ("aitype"      ai_type)
           ("aistate"     ai_state))
-  
+
   (range 200 200)
   (states "addon/twist/art/robs.spe"
@@ -328 +328 @@
 (def_char WALK_ROB
   (funs (ai_fun wrob_ai)
-        (constructor wrob_cons) 
+        (constructor wrob_cons)
         (damage_fun  guner_damage))
   (abilities (run_top_speed 12)
@@ -334 +334 @@
   (flags (hurtable T) (can_block (not T)))
   (range 300 100)
-  (vars fire_delay burst_delay burst_total burst_wait burst_left 
+  (vars fire_delay burst_delay burst_total burst_wait burst_left
         max_xvel   max_yvel    smoke_time fire_time)
   (fields ("fire_delay"   wrob_fdelay)
@@ -344 +344 @@
           ("aistate"      ai_state))
 
-  (states "art/rob2.spe" 
+  (states "art/rob2.spe"
           (stopped "wwlk0001.pcx")
           (running (seq "wwlk" 1 10))

abuse/trunk/data-frabs/addon/twist/lisp/english.lsp

@@ -13 +13 @@
 
          (defun get_train_msg (message_num)
-           (select message_num    
+           (select message_num
                    ;   0123456789012345678901234567890123456789012345678901234567890123456789
                    ;  "--------------------------------------------------------------------"  ; V-A
@@ -32 +32 @@
 
          (setq plot_start
-               (concatenate 'string 
+               (concatenate 'string
                             " Nick Vrenna has pulled the switch and diverted the water supply. The spread "
                             "of Abuse may be over. He has gotten himself into the deepest underground prision "
-                            "levels and battled against the mutants to save the outside world.\\n"                          
+                            "levels and battled against the mutants to save the outside world.\\n"
                             " As he leaves the Control Room, a mutant leaped onto him and slashed his wrist. "
                             "He gave the mutant a lethal blow in the head. He took a look at his wrist. There was "
@@ -46 +46 @@
                             "Profound Corp "))
          (setq plot_middle
-               (concatenate 'string 
+               (concatenate 'string
                             "You have survived the initial outbreak, but you are still lost deep "
-                            "within the prison. So far it's been suspiciously easy. \\n"       
+                            "within the prison. So far it's been suspiciously easy. \\n"
                             "If you want to break out - the real ABUSE lies ahead. "))
          (setq plot_end
-               (concatenate 'string 
+               (concatenate 'string
                             "You've survived impossible odds and made it to the Control Room.  "
                             "By pulling the switch, you have diverted the water supply and stopped the spread of Abuse!\\n "

abuse/trunk/data-frabs/addon/twist/lisp/f2ai.lsp

@@ -69 +69 @@
 
 (defun music_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)
@@ -102 +102 @@
 
 (defun gravity_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)
@@ -139 +139 @@
 
 (defun health_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)
@@ -175 +175 @@
 
 (defun level_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)
@@ -307 +307 @@
         (setq fire_time (- fire_time 1))
         (if (eq fire_time 0)
-            (progn 
+            (progn
               (setq burst_left burst_total)
               (setq burst_wait 0))))
@@ -320 +320 @@
 
 
-(defun wrob_cons ()       
+(defun wrob_cons ()
   (setq fire_delay 4)
   (setq burst_delay 1)
@@ -345 +345 @@
                    (set_aistate 1))))
               (1;; stop and fire
-               (burst_fire  (+ (x) (* (direction) 28)) (- (y) 35)                     
+               (burst_fire  (+ (x) (* (direction) 28)) (- (y) 35)
                             (if (> (direction) 0)
                                 (mod (- 375 (/ (* burst_left 30) burst_total)) 360)
@@ -365 +365 @@
                            (set_state running)
                            (set_aistate 1))
-                
+
                      (if (with_object (bg) (pressing_action_key))
                          (progn
@@ -377 +377 @@
                          (y (- (y) 16))
                          (fade (if (< (current_frame) 16) (current_frame) 15)))
-                     (with_object (get_object 1) 
+                     (with_object (get_object 1)
                                   (progn
-                                    (set_x x) 
-                                    (set_y y) 
+                                    (set_x x)
+                                    (set_y y)
                                     (user_fun SET_FADE_COUNT fade)
                                     (setq is_teleporting 1)
                                     )))
-                                  
+
                  (let ((x (with_object (get_object 0) (x)))
-                       (y (with_object (get_object 0) (- (y) 16))))                
+                       (y (with_object (get_object 0) (- (y) 16))))
                    (with_object (get_object 1)
-                                (progn 
+                                (progn
                                   (set_x x)
                                   (set_y y)
@@ -405 +405 @@
 
 (defun teleport_sensor_draw ()
-  (if (edit_mode) 
+  (if (edit_mode)
       (progn
         (draw)

abuse/trunk/data-frabs/addon/twist/lisp/f2chars.lsp

@@ -15 +15 @@
   (range 250 20)
   (draw_range 40 40)
-  (funs (ai_fun     ant_ai)     
+  (funs (ai_fun     ant_ai)
         (draw_fun   man_draw)
         (constructor ant_cons)
@@ -30 +30 @@
              (push_xrange     1)
              (jump_top_speed 20))
-  
+
   (flags (hurtable  T)
          (force_health T))
 
-  (states "art/cop.spe" 
+  (states "art/cop.spe"
           (hanging      (seq "stopped" 1 6))
 
           (fall_start   "jump_down")
           (falling      "jump_down")
-          
+
           (stopped      (seq "stopped" 1 6))
           (running      (seq "4wlk" 1 10))
@@ -80 +80 @@
           ("aistate"       ai_state))
 
-  (states "addon/twist/art/legs.spe" 
+  (states "addon/twist/art/legs.spe"
           (stopped      (seq "stopped" 1 6))
           (running      (seq "4wlk" 1 10))
@@ -95 +95 @@
   (flags (hurtable T))
   (abilities (start_hp 100))
-  (vars fire_delay burst_delay burst_total burst_wait burst_left 
+  (vars fire_delay burst_delay burst_total burst_wait burst_left
         max_xvel   max_yvel    smoke_time fire_time)
   (fields ("fire_delay"  who_fdelay)
@@ -105 +105 @@
           ("aitype"      ai_type)
           ("aistate"     ai_state))
-  
+
   (range 200 200)
   (states "art/cop.spe"
@@ -115 +115 @@
 
 (def_char MAN_BODYTRACK
-  (vars 
+  (vars
         fire_delay
         fire_delay_left
@@ -130 +130 @@
         (constructor track_cons)
         (draw_fun    man_draw)
-        (damage_fun   guner_damage))    
+        (damage_fun   guner_damage))
 
   (flags (can_block  T)
@@ -170 +170 @@
         spray.end_angle
         spray.angle_speed
-        spray.angle)     
+        spray.angle)
 
   (fields ("hp"                 ai_health)
@@ -307 +307 @@
   (flags (hurtable T))
   (abilities (start_hp 40))
-  (vars fire_delay burst_delay burst_total burst_wait burst_left 
+  (vars fire_delay burst_delay burst_total burst_wait burst_left
         max_xvel   max_yvel    smoke_time fire_time)
   (fields ("fire_delay"  who_fdelay)
@@ -317 +317 @@
           ("aitype"      ai_type)
           ("aistate"     ai_state))
-  
+
   (range 200 200)
   (states "addon/twist/art/robs.spe"
@@ -328 +328 @@
 (def_char WALK_ROB
   (funs (ai_fun wrob_ai)
-        (constructor wrob_cons) 
+        (constructor wrob_cons)
         (damage_fun  guner_damage))
   (abilities (run_top_speed 12)
@@ -334 +334 @@
   (flags (hurtable T))
   (range 300 100)
-  (vars fire_delay burst_delay burst_total burst_wait burst_left 
+  (vars fire_delay burst_delay burst_total burst_wait burst_left
         max_xvel   max_yvel    smoke_time fire_time)
   (fields ("fire_delay"   wrob_fdelay)
@@ -344 +344 @@
           ("aistate"      ai_state))
 
-  (states "art/rob2.spe" 
+  (states "art/rob2.spe"
           (stopped "wwlk0001.pcx")
           (running (seq "wwlk" 1 10))

abuse/trunk/data-frabs/addon/twist/lisp/input.lsp

@@ -28 +28 @@
 ;;   "Home","End","Del","F1","F2","F3","F4","F5","F6",
 ;;   "F7","F8","F9","F10","Insert"
-;;   "a", "b", "c", ... 
+;;   "a", "b", "c", ...
 ;; though not all of these keys will work on all operating systems
 
@@ -101 +101 @@
                                                                         (eq (with_object (bg) (state)) climbing)
                                                                         (eq (with_object (bg) (state)) climb_off)
-                                                                        (eq (with_object (bg) (state)) climb_on) )))    
+                                                                        (eq (with_object (bg) (state)) climb_on) )))
                 (progn
                 (setq dray_has_fired 1)
@@ -111 +111 @@
 
   (let ((mstat (mouse_stat)))
-    (list (if (local_key_pressed left-key) -1 (if (local_key_pressed right-key) 1 0))  ;; xv 
+    (list (if (local_key_pressed left-key) -1 (if (local_key_pressed right-key) 1 0))  ;; xv
           (if (local_key_pressed up-key) -1   (if (local_key_pressed down-key)  1 0))  ;; yv
           (eq (fourth mstat) 1)                                            ;; special button
           (eq (third mstat) 1)                                             ;; fire button
-          (if (or (eq (fifth mstat) 1) 
+          (if (or (eq (fifth mstat) 1)
                   (local_key_pressed weapon-left-key)) -1                             ;; weapon toggle
               (if (local_key_pressed weapon-right-key)  1 0))

abuse/trunk/data-frabs/addon/twist/lisp/light.lsp

@@ -14 +14 @@
 
 (def_char QUICK_EXP_LIGHT
-  (funs (ai_fun   quick_explo_light)  
+  (funs (ai_fun   quick_explo_light)
         (draw_fun dev_draw))
   (flags (unlistable T))

abuse/trunk/data-frabs/addon/twist/lisp/mario.lsp

@@ -31 +31 @@
         (set_state dieing))
     (if (activated)
-        (progn       
+        (progn
           (set_targetable T)
           (push_char 35 40)
-          (select (aistate) 
+          (select (aistate)
                   (0 ;; prepare to walk toward player
                    (if (eq stationary 0)
@@ -50 +50 @@
                          (set_direction (toward))
                          (let ((curx (x));; save position in case we fall off a cliff
-                               (cury (y)))                   
-                           (if (next_picture) 
+                               (cury (y)))
+                           (if (next_picture)
                                (if (eq (current_frame) 99) ;; The sound wont play anyway
                                    (play_sound JSTOMP_SND 127 (x) (y)));; bc there's 9 frames
@@ -73 +73 @@
                              (xspeed (* throw_xvel (direction)))
                              (yspeed throw_yvel))
-                         (with_object (add_object MARIO_FIREBALL (+ (x) (* (direction) 20)) (- (y) 5) 1) 
+                         (with_object (add_object MARIO_FIREBALL (+ (x) (* (direction) 20)) (- (y) 5) 1)
                                       (progn
                                         (user_fun myself)
@@ -82 +82 @@
                   (3 ;; wait for fire animation
                    (if (next_picture) nil (set_aistate 0))))
-          T) 
+          T)
       (progn (set_targetable nil)
              T))))
@@ -105 +105 @@
         (progn
           (next_picture)
-          (set_yvel (+ (yvel) 1))         
+          (set_yvel (+ (yvel) 1))
           (let ((old_yv  (yvel))
                 (old_xv  (xvel))
@@ -120 +120 @@
               (set_y new_y))
             (hurt_radius (x) (y) 20 10 (me) 15)
-            (if (not (eq status T));; T means we did not hit anything   
+            (if (not (eq status T));; T means we did not hit anything
                 (let ((block_flags (car status)))
                   (if (or (blocked_up block_flags) (blocked_down block_flags));; bounce up/down
@@ -203 +203 @@
         (next_picture)
         (if (and (eq (direction) 1) (blocked_right (move 1 0 0))) (set_direction -1))
-        (if (and (eq (direction) -1) (blocked_left (move -1 0 0))) (set_direction 1))    
+        (if (and (eq (direction) -1) (blocked_left (move -1 0 0))) (set_direction 1))
         T) ))
 
@@ -294 +294 @@
           ("aistate"       ai_state))
 
-  (states "addon/twist/art/mario.spe" 
+  (states "addon/twist/art/mario.spe"
           (stopped "ms.bmp")
           (running '("mr0001.bmp" "mr0002.bmp" "mr0003.bmp"
@@ -320 +320 @@
           ("aistate"       ai_state))
 
-  (states "addon/twist/art/mario.spe" 
+  (states "addon/twist/art/mario.spe"
           (stopped "ls.bmp")
           (running '("lr0001.bmp" "lr0002.bmp" "lr0003.bmp"
@@ -339 +339 @@
   (range 200 200)
   (abilities (start_hp 1))
-  (fields ("xvel" ai_xvel)        
+  (fields ("xvel" ai_xvel)
           ("yvel" ai_yvel)
           ("hp"   ai_health)
@@ -352 +352 @@
          (hurtable  T))
   (abilities (start_hp 2))
-  (fields ("aitype" "Power 0=nil,1=cn,2=fl,3=td,4=st")    
+  (fields ("aitype" "Power 0=nil,1=cn,2=fl,3=td,4=st")
           ("yacel" "Fade Count"))
   (states "addon/twist/art/mario.spe"
@@ -373 +373 @@
          (hurtable  T))
   (abilities (start_hp 2))
-  (fields ("aitype" "Power 0=nil,1=cn,2=fl,3=td,4=st")    
+  (fields ("aitype" "Power 0=nil,1=cn,2=fl,3=td,4=st")
           ("yacel" "Fade Count"))
   (states "addon/twist/art/mario.spe"

abuse/trunk/data-frabs/addon/twist/lisp/startup.lsp

@@ -7 +7 @@
 (setq load_warn nil)
 
-(if (local_load "addon/deathmat/username.lsp")  
+(if (local_load "addon/deathmat/username.lsp")
   (set_login username))
 
-(if (local_load "addon/deathmat/gamename.lsp")  
+(if (local_load "addon/deathmat/gamename.lsp")
   (set_game_name gamename)
   (set_game_name "Munir's Game"))

abuse/trunk/data-frabs/addon/twist/lisp/tints.lsp

@@ -3 +3 @@
 
 
-(setq man_tints (make-array 11 :initial-contents (list 
+(setq man_tints (make-array 11 :initial-contents (list
                                                  normal_tint
                                                  (def_tint "art/tints/cop/pinkish.spe")

abuse/trunk/data-frabs/addon/twist/lisp/userfuns.lsp

@@ -8 +8 @@
     (reverse-seqbmp name first last)))
 
-(defun forward-seqbmp (name first last) 
-  (if (> first last) 
-      nil 
-    (cons (concatenate 'string name (digstr first 4) ".bmp") 
+(defun forward-seqbmp (name first last)
+  (if (> first last)
+      nil
+    (cons (concatenate 'string name (digstr first 4) ".bmp")
           (forward-seqbmp name (+ 1 first) last))))
 
-(defun reverse-seqbmp (name last first) 
-  (if (< last first) 
-      nil 
-    (cons (concatenate 'string name (digstr last 4) ".bmp") 
+(defun reverse-seqbmp (name last first)
+  (if (< last first)
+      nil
+    (cons (concatenate 'string name (digstr last 4) ".bmp")
           (reverse-seqbmp name (- last 1) first))))

abuse/trunk/data-frabs/addon/twist/lisp/weapons.lsp

@@ -71 +71 @@
         (c2 (find_rgb 70 59 67))
         (c3 (find_rgb 147 155 195)))
-                (let ((target (with_object (me) (find_object_in_area 
+                (let ((target (with_object (me) (find_object_in_area
                                       (- (x) 50) (- (y) 50)
                                       (+ (x) 50) (+ (y) 50) object_destroyable_list))))
@@ -79 +79 @@
     (draw_line (with_object target (x)) (with_object target (-(y)(/(picture_height)2))) (x) (-(y)10) 187)
     (draw_line (with_object target (+ (x) 1)) (with_object target (-(y)(/(picture_height)2))) (+(x)1) (-(y)10) 239)
-        (add_object EXPDRL (with_object target (-(+(x)10)(random 20))) (with_object target (- (+ (-(y)(/(picture_height)2)) 10) (random 20))) 1)                
+        (add_object EXPDRL (with_object target (-(+(x)10)(random 20))) (with_object target (- (+ (-(y)(/(picture_height)2)) 10) (random 20))) 1)
         (hurt_radius (with_object target (x)) (with_object target (y)) 1 2 (bg) 15)
           )
@@ -90 +90 @@
 
 (defun death_ray_cache (type)
-  (list (list EXPDRAY QUICK_EXP_LIGHT) 
+  (list (list EXPDRAY QUICK_EXP_LIGHT)
         (list DEATH_RAY_SND)))
 
@@ -129 +129 @@
   (let ((amount (get_ability start_hp)))
     (with_object (bg)
-                 (progn 
+                 (progn
                    (if (and (not (has_weapon type)) change_on_pickup)
                        (progn
                          (if (or (get_option "-f") (eq enableammoandweapons 1)) (give_weapon type))
                          (if (or (get_option "-f") (eq enableammoandweapons 1)) (set_current_weapon type))
-                        )                                    
+                        )
                      (if (or (get_option "-f") (eq enableammoandweapons 1)) (give_weapon type))
                         )
@@ -142 +142 @@
   (let ((amount (get_ability start_hp)))
     (with_object (bg)
-                 (progn 
+                 (progn
                    (if (and (not (has_weapon type)) change_on_pickup)
                        (progn
                          (give_weapon type)
-                         (set_current_weapon type))                                  
+                         (set_current_weapon type))
                      (give_weapon type))
                    (add_ammo type amount)))))
 
 
-(defun weapon_icon_ai () 
+(defun weapon_icon_ai ()
   (if (eq0 (aistate))
       (if (activated)
@@ -159 +159 @@
                 (set_aistate 1))
 
-            (if (touching_bg) 
+            (if (touching_bg)
                 (progn
                   (play_sound AMMO_SND 127 (x) (y))
@@ -165 +165 @@
                           (MBULLET_ICON5   (giver 0));; these numbers correspond to status bar position
                           (MBULLET_ICON20  (giver 0))
-                          (GRENADE_ICON2   (giver 1))           
+                          (GRENADE_ICON2   (giver 1))
                           (GRENADE_ICON10  (giver 1))
 
@@ -191 +191 @@
               T))
         T)
-    (if (touching_bg) 
+    (if (touching_bg)
         (progn
           (play_sound AMMO_SND 127 (x) (y))
@@ -197 +197 @@
                   (MBULLET_ICON5   (giver 0));; these numbers correspond to status bar position
                   (MBULLET_ICON20  (giver 0))
-                  (GRENADE_ICON2   (giver 1))           
+                  (GRENADE_ICON2   (giver 1))
                   (GRENADE_ICON10  (giver 1))
 
@@ -224 +224 @@
 
 
-(defun weapon_iconweap_ai () 
+(defun weapon_iconweap_ai ()
   (if (eq0 (aistate))
       (if (activated)
@@ -232 +232 @@
                 (set_aistate 1))
 
-            (if (touching_bg) 
+            (if (touching_bg)
                 (progn
                   (play_sound AMMO_SND 127 (x) (y))
                   (select (otype)
                           (WEAP_MBULLET   (giverweap 0));; these numbers correspond to status bar position
-                          (WEAP_GRENADE   (giverweap 1))                
+                          (WEAP_GRENADE   (giverweap 1))
                           (WEAP_ROCKET    (giverweap 2))
                           (WEAP_FBOMB     (giverweap 3))
@@ -248 +248 @@
               T))
         T)
-    (if (touching_bg) 
+    (if (touching_bg)
         (progn
           (play_sound AMMO_SND 127 (x) (y))
           (select (otype)
                           (WEAP_MBULLET   (giverweap 0));; these numbers correspond to status bar position
-                          (WEAP_GRENADE   (giverweap 1))                
+                          (WEAP_GRENADE   (giverweap 1))
                           (WEAP_ROCKET    (giverweap 2))
                           (WEAP_FBOMB     (giverweap 3))
@@ -263 +263 @@
           nil)
       T)))
-        
+
 
 (defun ammo_cache (type)    ;; tells what other chars to load in with this character
@@ -273 +273 @@
            (MBULLET_ICON20   `(,SHOTGUN_BULLET ,MGUN_TOP))
            (ROCKET_ICON2     `(,ROCKET ,ROCKET_TOP))
-           (ROCKET_ICON5     `(,ROCKET ,ROCKET_TOP))      
+           (ROCKET_ICON5     `(,ROCKET ,ROCKET_TOP))
            (FBOMB_ICON1      `(,FIREBOMB ,FIREBOMB_TOP))
            (FBOMB_ICON5      `(,FIREBOMB ,FIREBOMB_TOP))
 
            (PLASMA_ICON20    `(,PLASMAGUN_BULLET))
-           (PLASMA_ICON50    `(,PLASMAGUN_BULLET))         
+           (PLASMA_ICON50    `(,PLASMAGUN_BULLET))
 
            (LSABER_ICON50    `(,LSABER_BULLET ,PGUN_TOP))
@@ -305 +305 @@
 
 (defun make_ammo_icon (symbol icon_name increment)
-  (eval (list 'def_char symbol        
+  (eval (list 'def_char symbol
               '(funs (ai_fun weapon_icon_ai)
                      (get_cache_list_fun ammo_cache)
@@ -315 +315 @@
 
 (defun make_ammoweap_icon (symbol icon_name increment)
-  (eval (list 'def_char symbol        
+  (eval (list 'def_char symbol
               '(funs (ai_fun weapon_iconweap_ai)
                      (get_cache_list_fun ammoweap_cache)

abuse/trunk/data-frabs/addon/twist/twist.lsp

@@ -9 +9 @@
     (progn
       (print "Please make sure you unzipped the game with the -d option")
-      (print "so that all directories get created properly.")      
-      (print "example : pkunzip -d abusXXXX.zip")      
+      (print "so that all directories get created properly.")
+      (print "example : pkunzip -d abusXXXX.zip")
       (quit)))
 (setq load_warn T)
@@ -18 +18 @@
 (load "lisp/userfuns.lsp")
 (load "addon/twist/lisp/userfuns.lsp")
-(load "addon/twist/lisp/options.lsp")     
+(load "addon/twist/lisp/options.lsp")
 (load "addon/twist/lisp/startup.lsp")
 (if (not (local_load "addon/twist/lisp/input.lsp"))   ; get local copy first