Changeset 582 for abuse/trunk


Ignore:
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
Files:
144 edited

Legend:

Unmodified
Added
Removed

  • abuse/trunk/data-abuse/abuse.lsp

    r581 r582  
    1010    (progn
    1111      (print "Please make sure you unzipped the game with the -d option")
    12       (print "so that all directories get created properly.")     
    13       (print "example : pkunzip -d abusXXXX.zip")     
     12      (print "so that all directories get created properly.")
     13      (print "example : pkunzip -d abusXXXX.zip")
    1414      (quit)))
    1515(setq load_warn T)
    … …  
    1818(load "lisp/common.lsp")
    1919(load "lisp/userfuns.lsp")
    20 (load "lisp/options.lsp")     
     20(load "lisp/options.lsp")
    2121(load "lisp/startup.lsp")
    2222(if (not (local_load "lisp/input.lsp"))   ; get local copy first

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

    r54 r582  
    66(defun net_file (x) (concatenate 'string net_dir x))
    77(load (net_file "dstartup.lsp"))
    8 (load "lisp/options.lsp")     
     8(load "lisp/options.lsp")
    99
    1010(load "lisp/input.lsp")

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

    r566 r582  
    1010      (load "config/cur_lev.lsp")
    1111      (set_first_level (nth current_net_level net_levels)))
    12  
     12
    1313  ;; save the level we are so joining clients know which one to load
    14   (open_file "config/cur_lev.lsp" "wb" 
     14  (open_file "config/cur_lev.lsp" "wb"
    1515             (print `(setq current_net_level ,current_net_level))))
    16  
     16
    1717
    1818;; this is a simple check to see if they player has an engine version
    … …  
    3232    (progn
    3333      (print "\nPlease make sure you unzipped the game with the -d option")
    34       (print "so that all directories get created properly.")     
    35       (print "example : pkunzip -d abusXXXX.zip")     
     34      (print "so that all directories get created properly.")
     35      (print "example : pkunzip -d abusXXXX.zip")
    3636      (quit)))
    3737(setq load_warn T)
    … …  
    5252             (print (list 'setq 'server_version_major (major_version) ))
    5353             (print (list 'setq 'server_version_minor (minor_version)))))
    54              
     54
    5555
    5656(if (not (am_a_client))
    … …  
    5959;(let ((input (nice_input "DEATHMATCH : Enter your name below" "Name" username)))
    6060;  (open_file "config/username.lsp" "wb"
    61 ;            (print (list 'setq 'username 
     61;            (print (list 'setq 'username
    6262;                         (concatenate 'string '(#\") input '(#\"))))))
    6363
    … …  
    8282(defun display_player (player text_x text_y)
    8383  (if player
    84       (with_object player       
    85         (put_string (get_main_font) text_x text_y 
    86                     (concatenate 'string (digstr (kills) 2) " " (player_name) 
    87                                                      (if (local_player) 
     84      (with_object player
     85        (put_string (get_main_font) text_x text_y
     86                    (concatenate 'string (digstr (kills) 2) " " (player_name)
     87                                                     (if (local_player)
    8888                                                         " <<"
    8989                                                       ""))

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

    r54 r582  
    1 (setq net_levels 
     1(setq net_levels
    22      '("netlevel/8play1.spe"
    33        "netlevel/8play2.spe"

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

    r54 r582  
    1 (setq net_levels 
     1(setq net_levels
    22      '(
    33        "netlevel/4play1.spe"

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

    r54 r582  
    1 (setq net_levels 
     1(setq net_levels
    22      '("netlevel/2play1.spe"
    33        "netlevel/2play2.spe"

  • abuse/trunk/data-abuse/addon/example/example.lsp

    r54 r582  
    1111;;;; if you do not already have the directory c:\abuse\addon, make it now.
    1212
    13 ;;;; If you created foretiles for abuse (using Satan Paint) you should 
     13;;;; If you created foretiles for abuse (using Satan Paint) you should
    1414;;;; start numbering them at 1200 because the last of the registered
    1515;;;; tiles end at 1100 something.  Backtiles should start numbering at 350.
    … …  
    3636;;;; ****************** CREATING PACKAGES *******************
    3737;;;; to archive this package you should do the following
    38 ;;;;   DOS : 
     38;;;;   DOS :
    3939;;;;     cd c:\abuse\addon
    4040;;;;     pkzip -rp example.zip example\*.*
    … …  
    5757
    5858;;;; Now the meat of this package :
    59 ;;;; Note that slashes should be FORWARD slashes even if 
     59;;;; Note that slashes should be FORWARD slashes even if
    6060;;;; you are using DOS
    6161
    6262;; load up some tiles I made.  You can add more filenames
    6363;; if you wish, but they should all be loaded from 'your' dir.
    64 (load_tiles "addon/example/example.spe")   
     64(load_tiles "addon/example/example.spe")
    6565
    6666;; set the first level to the one I made
    67 (set_first_level "addon/example/example.lvl") 
     67(set_first_level "addon/example/example.lvl")
    6868
    6969;; load up the normal abuse startup file
    70 (load "abuse.lsp")                       
     70(load "abuse.lsp")
    7171
    7272

  • abuse/trunk/data-abuse/lisp/ant.lsp

    r54 r582  
    22;; See licensing information for more details on usage rights
    33
    4 (setq ant_tints (make-array 11 :initial-contents (list 
     4(setq ant_tints (make-array 11 :initial-contents (list
    55                                                (def_tint "art/tints/ant/green.spe")
    6                                                 (def_tint "art/tints/ant/blue.spe") 
     6                                                (def_tint "art/tints/ant/blue.spe")
    77                                                (def_tint "art/tints/ant/brown.spe")
    88                                                (def_tint "art/tints/ant/egg.spe")
    … …  
    1616                                                )))
    1717
    18 /* 
     18/*
    1919------ this code has been compiled --------
    2020(defun no_fall_move (xm ym but)
    … …  
    3535            0)
    3636        ret))))
    37            
    38      
     37
     38
    3939(defun will_fall_if_jump ()
    4040  nil)
    … …  
    6060
    6161(defun strait_rocket_ai ()
    62   (set_course (aistate) 
     62  (set_course (aistate)
    6363              (select difficulty
    6464                      ('easy    12)
    … …  
    7272    (progn
    7373      (if (not (eq stat nil))
    74           (progn 
     74          (progn
    7575            (add_object EXPLODE3 (+ (x) (random 5)) (+ (y) (random 5)) 0)
    7676            (add_object EXPLODE2 (+ (x) (random 5)) (+ (y) (random 5)) 2)
    … …  
    8282          (with_object (add_object EG_EXPLO (x) (y)) (user_fun myself (car stat)))))
    8383      nil))))
    84    
     84
    8585
    8686(def_char STRAIT_ROCKET
    … …  
    9797      (if (or (blocked_left block_flags) (blocked_right block_flags))
    9898          (set_state blocking))))
    99          
     99
    100100(def_char EG_EXPLO
    101101  (funs (ai_fun   animate_ai)
    … …  
    107107          (blocking (seq "bilw" 1 4))))
    108108
    109 /* 
     109/*
    110110------ this code has been compiled --------
    111111(defun alien_wait_time ()
    112   (select difficulty 
     112  (select difficulty
    113113          ('easy    6)
    114114          ('medium  4)
    … …  
    131131        nil
    132132      T)))
    133      
    134      
     133
     134
    135135(defun roof_above () (not (can_see (x) (y) (x) (- (y) 120) nil)))
    136136
    … …  
    140140        (playerx (+ (with_object (bg) (x)) (with_object (bg) (* (xvel) 8))))
    141141        (playery (+ (- (with_object (bg) (y)) 15) (with_object (bg) (* (yvel) 2)))))
    142    
     142
    143143    (if (and (can_see (x) (y) firex firey nil) (can_see firex firey playerx playery nil))
    144144        (progn
    … …  
    152152(defun ant_dodge ()
    153153  (if (eq need_to_dodge 1)
    154       (progn 
     154      (progn
    155155        (setq need_to_dodge 0)
    156156        (if (eq (random 2) 1)
    … …  
    159159              (go_state 6))         ;; jump at player
    160160          (if (roof_above)
    161               (progn                   
    162                 (set_yvel -17)  ;; jump up 
     161              (progn
     162                (set_yvel -17)  ;; jump up
    163163                (set_xvel 0)
    164164                (go_state 12))
    … …  
    190190                         (set_aistate 16)))
    191191
    192                   (15 ;; hanging on the roof waiting for the main character               
     192                  (15 ;; hanging on the roof waiting for the main character
    193193                   (if (next_picture) T (set_state hanging))
    194194                   (if (if (eq (total_objects) 0);; no sensor, wait for guy
    195195                           (and (< (distx) 130) (< (y) (with_object (bg) (y))))
    196196                         (not (eq (with_object (get_object 0) (aistate)) 0)))
    197                        (progn 
     197                       (progn
    198198                         (set_state fall_start)                  (set_direction (toward))
    199199                         (set_aistate 1))))
    … …  
    204204                           (and (< (distx) 130) (< (y) (with_object (bg) (y))))
    205205                         (not (eq (with_object (get_object 0) (aistate)) 0)))
    206                        (progn 
     206                       (progn
    207207                         (set_state fall_start)                  (set_direction (toward))
    208208                         (set_aistate 1))))
    … …  
    219219                  (9 ;; landing / turn around (gerneal finish animation state)
    220220                   (if (next_picture) T
    221                      (if (try_move 0 2) 
     221                     (if (try_move 0 2)
    222222                         (progn
    223223                           (set_gravity 1)
    224224                           (set_aistate 1))
    225                        (progn (set_state stopped)                         
     225                       (progn (set_state stopped)
    226226                              (go_state 2)))))  ;; running
    227227
    … …  
    254254                             (set_state turn_around)
    255255                             (set_aistate 9)))))
    256              
     256
    257257                  (4 ;; wait for pounce
    258258                   (if (ant_dodge) T
    … …  
    266266                             (go_state 6))))))
    267267
    268                   (6 ;; jump             
     268                  (6 ;; jump
    269269                   (setq need_to_dodge 0)
    270270                   (if (blocked_down (move (direction) -1 0))
    … …  
    273273
    274274                  (8 ;; fire at player
    275                    (if (ant_dodge) T                 
     275                   (if (ant_dodge) T
    276276                     (if (eq (state) fire_wait)
    277277                         (if (next_picture)
    … …  
    304304                  (13 ;; roof walking
    305305                   (scream_check)
    306                    (if (or (and (< (y) (with_object (bg) (y))) 
    307                                 (< (distx) 10) (eq (random 8) 0)) 
     306                   (if (or (and (< (y) (with_object (bg) (y)))
     307                                (< (distx) 10) (eq (random 8) 0))
    308308                           (eq need_to_dodge 1))  ;; shooting at us, fall down
    309309                       (progn
    … …  
    321321                                         (- 0 (get_ability run_top_speed)))))
    322322                           (if (and (can_see (x) (- (y) 31) (+ (x) xspeed) (- (y) 31) nil)
    323                                     (not (can_see (+ (x) xspeed) (- (y) 31) 
     323                                    (not (can_see (+ (x) xspeed) (- (y) 31)
    324324                                                  (+ (x) xspeed) (- (y) 32) nil)))
    325325                               (progn
    326326                                 (set_x (+ (x) xspeed))
    327                                  (if (not (next_picture)) 
     327                                 (if (not (next_picture))
    328328                                     (set_state top_walk)))
    329329                             (set_aistate 1)))))))
    330330
    331        
     331
    332332                  (14 ;; cieling shoot
    333333                   (if (next_picture)
    … …  
    339339
    340340                  )))
    341      
     341
    342342      T)
    343 */   
     343*/
    344344
    345345
    … …  
    380380      'electric_part
    381381      'normal_part)
    382      
     382
    383383(defun get_dead_part (from)
    384384  (if from
    … …  
    397397
    398398  (if (and (not (eq (state) dead))
    399            (or (not from) 
    400                (with_object from (if (eq (total_objects) 0) 
     399           (or (not from)
     400               (with_object from (if (eq (total_objects) 0)
    401401                                     (not (eq (otype) ANT_ROOF))
    402402                                   (with_object (get_object 0) (not (eq (otype) ANT_ROOF)))))))
    … …  
    408408            (damage_fun amount from hitx hity push_xvel push_yvel)
    409409            (play_sound APAIN_SND 127 (x) (y))
    410             (setq need_to_dodge 1)         
     410            (setq need_to_dodge 1)
    411411            (if (<= (hp) 0)
    412412                (progn
    … …  
    460460  (range 250 20)
    461461  (draw_range 40 40)
    462   (funs (ai_fun     ant_ai)     
     462  (funs (ai_fun     ant_ai)
    463463        (draw_fun   ant_draw)
    464464        (constructor ant_cons)
    … …  
    475475             (push_xrange     1)
    476476             (jump_top_speed 20))
    477  
     477
    478478  (flags (hurtable  T)
    479479         (force_health T))
    480480
    481   (states "art/ant.spe" 
     481  (states "art/ant.spe"
    482482          (hanging (rep "ant" 2))
    483483
    484484          (fall_start "affc0001.pcx")
    485485          (falling    "affc0002.pcx")
    486          
     486
    487487          (stopped "awlk0001.pcx")
    488488          (running (seq "awlk" 1 10))
    … …  
    516516  (states "art/ant.spe" (stopped "hidden")))
    517517
    518  
     518
    519519
    520520
    … …  
    530530             (let ((d (direction))
    531531                   (type (aitype)))
    532                (if (or (eq create_total 0) (eq create_total 1))           
     532               (if (or (eq create_total 0) (eq create_total 1))
    533533                   (set_current_frame 4)
    534534                 (progn
    … …  
    547547            (2 (next_picture))))
    548548  T)
    549            
     549
    550550
    551551(defun crack_cons ()
    … …  
    574574           (bounce_move T T T '(progn (set_state dieing) (set_aistate 1)) T)
    575575           (or (< (state_time) 15)
    576                (not (frame_panic))))         
     576               (not (frame_panic))))
    577577          (1 ;; hit the ground
    578578           nil)
    579579          ))
    580580
    581 (setq ant_dead_parts (make-array (* 3 4) :initial-contents 
     581(setq ant_dead_parts (make-array (* 3 4) :initial-contents
    582582                             '((AD_1  "adbn") (AD_2  "adha") (AD_3  "adla")     ; disapear
    583583                               (AD_4  "adaf") (AD_5  "adah") (AD_6  "adlf")     ; flaming
    … …  
    607607(do ((i 0 (setq i (+ i 1))))
    608608           ((>= i 12) nil)
    609            (setq (aref ant_dead_parts i) 
     609           (setq (aref ant_dead_parts i)
    610610                 (make_dead_part (car (aref ant_dead_parts i))
    611611                                 (car (cdr (aref ant_dead_parts i))) 4 "art/ant.spe" 'ant_draw)))

  • abuse/trunk/data-abuse/lisp/chat.lsp

    r54 r582  
    88                                          (player_name))))
    99        (if (search "/help" str)
    10             (if (local_player) 
     10            (if (local_player)
    1111                (chat_print "Commands : /nick name, /help"))
    1212        (if (local_player)

  • abuse/trunk/data-abuse/lisp/common.lsp

    r54 r582  
    22;; See licensing information for more details on usage rights
    33
    4 ; draw function for characters only displayed during edit mode 
     4; draw function for characters only displayed during edit mode
    55; such as start, etc.
    66; (defun dev_draw () (if (edit_mode) (draw) nil))       -- compiled C function --
    … …  
    1111    (draw)
    1212    (set_y y)))
    13        
     13
    1414
    1515
    … …  
    3838    nil)
    3939  T)
    40    
     40
    4141
    4242
    … …  
    4444  (funs  (ai_fun   lhold_ai)
    4545         (draw_fun dev_draw))
    46   (states "art/misc.spe"         
     46  (states "art/misc.spe"
    4747          (stopped           "lhold")))
    4848
    4949
    5050
    51 (def_char OBJ_MOVER 
     51(def_char OBJ_MOVER
    5252  (funs (ai_fun       mover_ai)
    5353        (constructor  mover_cons)
    … …  
    5858  (states "art/misc.spe" (stopped '("mover" "mover" ))))
    5959
    60 /*    Compiled C           
     60/*    Compiled C
    6161(defun mover_ai ()
    6262  (if (eq (total_objects) 2)
    6363      (let ((dest (get_object 0))
    6464            (mover (get_object 1)))
    65         (if (< (aistate) 2)             ; transfer object to next mover       
     65        (if (< (aistate) 2)             ; transfer object to next mover
    6666            (progn
    67               (with_object dest 
     67              (with_object dest
    6868                           (progn
    6969                             (link_object mover)
    7070                             (set_aistate (aitype))))
    7171              (remove_object mover))
    72           (progn             
     72          (progn
    7373            (set_aistate (- (aistate) 1))
    7474            (let ((newx (- (with_object dest (x)) (/ (* (- (with_object dest (x)) (x)) (aistate)) (aitype))))
    7575                  (newy (- (with_object dest (y)) (/ (* (- (with_object dest (y)) (y)) (aistate)) (aitype)))))
    76               (with_object mover 
    77                            (progn 
     76              (with_object mover
     77                           (progn
    7878                             (platform_push (- newx (x)) (- newy (y)))
    7979                             (set_x newx)
    … …  
    9393      (let ((last (get_object (- x 1))))   ; see if the last object has the same position as us
    9494        (if (and (eq (with_object last (x)) (x)) (eq (with_object last (y)) (y)))
    95             (if (eq (aistate) 1)                       
     95            (if (eq (aistate) 1)
    9696                (if (eq (with_object last (fade_count)) 0)
    9797                    (set_aistate 1)
    … …  
    110110
    111111
    112 (defun respwan_cons () (set_xvel 50)) 
     112(defun respwan_cons () (set_xvel 50))
    113113
    114114
    115 (def_char RESPAWN 
     115(def_char RESPAWN
    116116  (funs (ai_fun      respawn_ai)
    117         (draw_fun    dev_draw) 
     117        (draw_fun    dev_draw)
    118118        (constructor respwan_cons))
    119119;  (flags (unlistable T))

  • abuse/trunk/data-abuse/lisp/doors.lsp

    r54 r582  
    22;; See licensing information for more details on usage rights
    33
    4 (defun general_door_ai (push?) 
     4(defun general_door_ai (push?)
    55  (select (aistate)
    66          (0 (if (> (total_objects) 0)             ; are we linked to a key?
    … …  
    1616                 nil)))
    1717          (1 (if (not (next_picture))              ; wait till open animation finishes
    18                  (progn 
     18                 (progn
    1919                   (set_state stopped)             ; set opened animation
    20                    (go_state 2))))             
     20                   (go_state 2))))
    2121
    2222          (2 (if (> (total_objects) 0)             ; wait till level editor links us to a key
    23                  (progn 
     23                 (progn
    2424                   (set_state blocking)
    2525                   (go_state 0))
    … …  
    4545          (1 ;          opening
    4646           (if (next_picture) nil
    47              (progn 
     47             (progn
    4848               (set_state blocking)
    4949               (set_aistate 2))))
    … …  
    5959               (set_aistate 0))))
    6060          )
    61  
     61
    6262
    6363T)
    … …  
    8383              (bgy (with_object who (y)) (y)))
    8484          (if (and (>= bgy (y)) (<= bgy (+ end_y 20))
    85                    (< (abs (- bgx (x))) xamount))           
     85                   (< (abs (- bgx (x))) xamount))
    8686              (let ((amount (if (> bgx (x))
    8787                                (- xamount (- bgx (x)))
    … …  
    106106        (ff_push (first_focus) 35)))
    107107  T)
    108        
     108
    109109
    110110(defun ff_draw ()
    … …  
    126126  (states "art/misc.spe"
    127127          (stopped "force_field")))
    128        
     128
    129129
    130130(defun hwall_ai ()
    131   (if (or (eq (hp) 0) 
     131  (if (or (eq (hp) 0)
    132132          (and (eq (total_objects) 1)
    133133               (with_object (get_object 0) (not (eq (aistate) 0)))))
    … …  
    140140
    141141(defun big_wall_ai ()
    142   (if (or (eq (hp) 0) 
     142  (if (or (eq (hp) 0)
    143143          (and (eq (total_objects) 1)
    144144               (with_object (get_object 0) (not (eq (aistate) 0)))))
    … …  
    165165      (set_hp 25)))
    166166
    167      
     167
    168168(defun make_hidden_wall_char (name start end ai)
    169169  (eval `(def_char ,name

  • abuse/trunk/data-abuse/lisp/duong.lsp

    r54 r582  
    11;; Copyright 1995 Crack dot Com,  All Rights reserved
    22;; See licensing information for more details on usage rights
    3            
     3
    44
    55(defun mine_ai ()
    … …  
    8989             (set_y oldy))
    9090           nil)))
    91  
    92          
    93                          
     91
     92
     93
    9494(def_char BOMB
    9595  (funs (ai_fun      bomb_ai)
    … …  
    111111  (states "art/chars/mine.spe"
    112112          (stopped '("abomb0001.pcx+" "abomb0002.pcx+"))))
    113          
     113
    114114
    115115
    … …  
    141141              (0 ;; wait for switch to go off
    142142               (if (not (eq (with_object (get_object 0) (aistate)) 0))
    143                    (progn 
     143                   (progn
    144144                     (set_state running)
    145145                     (go_state 1))))
    … …  
    149149                   (set_state blocking)
    150150                   (set_aistate 2))))
    151               (2 ;; just stay here 
     151              (2 ;; just stay here
    152152               T)))
    153153T)
    154      
     154
    155155
    156156(defun strap_door_ai ()
    … …  
    201201          (running   (seq "lite" 1 9))
    202202          (stopped    "lite0001.pcx")))
    203          
     203
    204204
    205205
    … …  
    245245                         (y (- (y) 16))
    246246                         (fade (if (< (current_frame) 16) (current_frame) 15)))
    247                      (with_object (get_object 1) 
     247                     (with_object (get_object 1)
    248248                                  (progn
    249                                     (set_x x) 
    250                                     (set_y y) 
     249                                    (set_x x)
     250                                    (set_y y)
    251251                                    (user_fun SET_FADE_COUNT fade)
    252252                                    (setq is_teleporting 1)
    253253                                    )))
    254                                  
     254
    255255                 (let ((x (with_object (get_object 0) (x)))
    256                        (y (with_object (get_object 0) (- (y) 16))))               
     256                       (y (with_object (get_object 0) (- (y) 16))))
    257257                   (with_object (get_object 1)
    258                                 (progn 
     258                                (progn
    259259                                  (set_x x)
    260260                                  (set_y y)
    … …  
    265265                   (set_aistate 0))))))
    266266  T)
    267                  
    268                          
     267
     268
    269269
    270270(def_char TELE2
    … …  
    274274          (stopped "close")
    275275          (running (seq "elec" 1 15))))
    276          
     276
    277277
    278278(defun bolder_ai ()
    … …  
    294294        (progn
    295295          (next_picture)
    296           (set_yvel (+ (yvel) 1))         
     296          (set_yvel (+ (yvel) 1))
    297297          (let ((old_yv  (yvel))
    298298                (old_xv  (xvel))
    … …  
    309309              (set_y new_y))
    310310            (hurt_radius (x) (y) 19 30 (me) 15)
    311             (if (not (eq status T));; T means we did not hit anything   
     311            (if (not (eq status T));; T means we did not hit anything
    312312                (let ((block_flags (car status)))
    313313                  (if (or (blocked_up block_flags) (blocked_down block_flags));; bounce up/down
    … …  
    325325          T))
    326326    T))
    327  
     327
    328328
    329329(defun bolder_cons ()
    … …  
    332332
    333333
    334 (defun bold_dam (amount from hitx hity push_xvel push_yvel) 
     334(defun bold_dam (amount from hitx hity push_xvel push_yvel)
    335335  (add_object EXPLODE3 (+ (x) (- 10 (random 20))) (- (y) (random 30)) 0)
    336336  (damage_fun amount from hitx hity (/ push_xvel 10) (/ push_yvel 2)))
    … …  
    345345  (range 200 200)
    346346  (abilities (start_hp 40))
    347   (fields ("xvel" ai_xvel)       
     347  (fields ("xvel" ai_xvel)
    348348          ("yvel" ai_yvel)
    349349          ("hp"   ai_health)
    350350          )
    351351  (states "art/bold.spe"
    352           (stopped '("bold0001.pcx" "bold0001.pcx" "bold0001.pcx" 
     352          (stopped '("bold0001.pcx" "bold0001.pcx" "bold0001.pcx"
    353353                    "bold0002.pcx" "bold0002.pcx" "bold0002.pcx"
    354354                    "bold0003.pcx" "bold0003.pcx" "bold0003.pcx"
    … …  
    359359        (old_xv  (xvel))
    360360        (status (float_tick)))
    361     (if (not (eq status T)) ;; T means we did not hit anything 
    362         (let ((block_flags (car status)))                   
     361    (if (not (eq status T)) ;; T means we did not hit anything
     362        (let ((block_flags (car status)))
    363363          (if (blocked_up block_flags) ;; bounce up/down
    364364              (progn
    … …  
    386386                      (eval right_stub)))))))
    387387      (eval nothing_stub))))
    388              
     388
    389389
    390390
    … …  
    392392  (next_picture)
    393393  (set_yvel (+ (yvel) 1))
    394   (bounce_move T T T           
    395                '(progn (add_object EXPLODE1 (+ (x) (random 10)) (- (+ (random 5) (y)) 10)     0)                       
     394  (bounce_move T T T
     395               '(progn (add_object EXPLODE1 (+ (x) (random 10)) (- (+ (random 5) (y)) 10)     0)
    396396                 (add_object EXPLODE1 (- (x) (random 10)) (- (- (y) (random 5)) 10) 2)
    397397                 (play_sound P_EXPLODE_SND 127 (x) (y))
    … …  
    400400                                              nil) 20)
    401401                 nil) T))
    402  
     402
    403403
    404404(def_char SMALL_BOLDER
    … …  
    407407  (flags (add_front  T)
    408408         (unlistable T))
    409        
     409
    410410  (states "art/bold.spe"
    411411          (stopped "bsmall")))

  • abuse/trunk/data-abuse/lisp/english.lsp

    r221 r582  
    55;; Latest version of this file is "V-E"  (version E=1.47)
    66
    7 (select section 
     7(select section
    88        ('game_section
    99
    … …  
    3131         (setq New?               "New?")
    3232         (setq l_EDIT             "EDIT")
    33  
     33
    3434
    3535         /********** New for Version D (1.46)   **************/
    … …  
    104104         (setq sens_cs            "current state")
    105105         (setq tp_amb             "ambient setting")
    106          
    107 
    108                
     106
     107
     108
    109109         (setq ai_xvel            "Xvel    ")
    110110         (setq ai_yvel            "Yvel    ")
    … …  
    118118         (setq ai_state           "ai state")
    119119         (setq ai_fade            "fade 0-15")
    120          
     120
    121121         (setq a_ambient          "Ambient      ")
    122122         (setq a_aspeed           "Ambient speed")
    … …  
    133133         (setq ap_pal             "Add palette")
    134134         (setq mouse_at           "Mouse at location %d, %d\n")
    135          
     135
    136136
    137137         (setq l_links            "Links")
    … …  
    156156         (setq edit_top           "Edit")
    157157         (setq window_top         "Windows")
    158          (setq menu1_load         "Load Level") 
     158         (setq menu1_load         "Load Level")
    159159         (setq menu1_save         "Save Level (S)")
    160160         (setq menu1_saveas       "Save level as")
    … …  
    201201         (setq level_size "Level size")
    202202                           ; 012345678901234567 (please keep same allignment of Name level & total)
    203          (setq score_header "Name              Level Total")   ; V-E 
     203         (setq score_header "Name              Level Total")   ; V-E
    204204         (setq space_cont "Press SPACEBAR to continue")        ; V-E
    205205         (setq no_saved "No saved game")
    … …  
    218218
    219219         (defun get_train_msg (message_num)
    220            (select message_num   
     220           (select message_num
    221221                   ;   0123456789012345678901234567890123456789012345678901234567890123456789
    222222                   ;  "--------------------------------------------------------------------"  ; V-A
    … …  
    294294         (setq to_be_continued "To be continued.....")
    295295         (setq no_edit         "This version of ABUSE does not have editing features")
    296          (setq no_hirez        "Hi-rez is only available for edit mode (-edit)") 
     296         (setq no_hirez        "Hi-rez is only available for edit mode (-edit)")
    297297         (setq no2             "Cannot use -2 with -edit")
    298298         (setq no_pals         "No palettes defined")
    … …  
    304304         (setq d_nosel         "No selected object or light to delete.")
    305305         (setq forward?        "Forward which object?")
    306          (setq back?           "Back which object?") 
     306         (setq back?           "Back which object?")
    307307         (setq aitype?         "Ai type for who?")
    308308         (setq prof_off        "Cache profiling is now off.")
    … …  
    315315         (setq quit_title      "Quit?")
    316316         (setq YES             "YES")
    317          (setq NO              "NO")     
     317         (setq NO              "NO")
    318318         (setq seqs_off        "Sequential screen shots off\n")
    319319         (setq seqs_on         "Sequential screen shots on (1 per 5 sec)\n")
    … …  
    336336
    337337
    338          (setq net_not_reg 
     338         (setq net_not_reg
    339339               (concatenate 'string "Sorry, this server is running REGISTERED ABUSE and you are not.\n"
    340340                            "Ask the server operator to run with -share option or better yet,\n"
    … …  
    359359
    360360         (setq plot_start
    361                (concatenate 'string 
     361               (concatenate 'string
    362362                            "You are Nick Vrenna. It is the year 2009.  You have been falsely incarcerated "
    363363                            "inside a high security underground prison where illegal genetic experiments "
    364                             "are taking place.\\n"                         
     364                            "are taking place.\\n"
    365365                            "Alan Blake, the head research scientist, has isolated the specific gene which "
    366366                            "causes violence and aggression in humans.  This genetic sequence, called "
    … …  
    378378
    379379         (setq plot_middle
    380                (concatenate 'string 
     380               (concatenate 'string
    381381                            "You have survived the initial outbreak, but you are still lost deep "
    382                             "within the prison. So far it's been suspiciously easy. \\n"       
     382                            "within the prison. So far it's been suspiciously easy. \\n"
    383383                            "If you want to break out - the real ABUSE lies ahead. "))
    384384
    385385
    386386         (setq plot_end
    387                (concatenate 'string 
     387               (concatenate 'string
    388388                            "You've survived impossible odds and made it to the Control Room.  "
    389389                            "By pulling the switch, you have diverted the water supply and stopped the spread of Abuse!\\n "
    390                             "CONGRATULATIONS!  YOU'RE HOWLING!!!"))) 
     390                            "CONGRATULATIONS!  YOU'RE HOWLING!!!")))
    391391)

  • abuse/trunk/data-abuse/lisp/explo.lsp

    r54 r582  
    1313               T))))
    1414
    15 (defun do_small_explo (radius amount) 
     15(defun do_small_explo (radius amount)
    1616  (add_object EXPLODE3 (+ (x) (random 5)) (+ (y) (random 5)) 0)
    1717  (add_object EXPLODE2 (+ (x) (random 5)) (+ (y) (random 5)) 2)
    … …  
    5050
    5151(def_char EXP_LIGHT
    52   (funs (ai_fun   explo_light) 
     52  (funs (ai_fun   explo_light)
    5353        (draw_fun dev_draw))
    5454  (flags (unlistable T))
    … …  
    5858
    5959
    60 (defun exp_ai () 
    61   (if (eq (aitype) 0) (next_picture) 
     60(defun exp_ai ()
     61  (if (eq (aitype) 0) (next_picture)
    6262    (progn (set_aitype (- (aitype) 1))
    6363           T)))
    … …  
    6565
    6666(defun exp_draw ()
    67   (if (eq (aitype) 0) 
     67  (if (eq (aitype) 0)
    6868      (middle_draw)))
    6969

  • abuse/trunk/data-abuse/lisp/flyer.lsp

    r54 r582  
    2727          (add_object EXPLODE1 (x) (+ (- (y) (random 20)) -20)                     4)
    2828          nil)
    29       (progn     
     29      (progn
    3030        (if (eq (mod (state_time) 5) 0)      ;; make flyer noise every 5 ticks
    3131            (play_sound FLYER_SND 127 (x) (y)))
    … …  
    6666
    6767        (if (next_picture) T (set_state running))  ;; reset animation when done
    68            
     68
    6969        (bounce_move '(set_xvel (/ (xvel) 2)) '(set_xvel (/ (xvel) 2))
    7070                     '(set_yvel (/ (yvel) 2)) '(set_yvel (/ (yvel) 2)) nil)
    71      
     71
    7272        (if (> fire_time 0)              ;; if we need to wait till next burst
    7373            (progn
    7474              (setq fire_time (- fire_time 1))
    7575              (if (eq fire_time 0)
    76                   (progn 
     76                  (progn
    7777                    (setq burst_left burst_total)
    7878                    (setq burst_wait 0))))
    … …  
    9191                              (setq burst_left (- burst_left 1)))
    9292                            (setq burst_wait burst_delay)
    93                             (fire_object (me) (aitype) firex firey angle (bg)) 
     93                            (fire_object (me) (aitype) firex firey angle (bg))
    9494                            )))))
    95             (setq burst_wait (- burst_wait 1))))               
     95            (setq burst_wait (- burst_wait 1))))
    9696        T))))
    9797
    9898
    9999
    100 (defun flyer_cons ()     
     100(defun flyer_cons ()
    101101  (setq fire_delay 20)
    102102  (setq burst_delay 3)
    … …  
    108108
    109109(defun flyer_damage (amount from hitx hity push_xvel push_yvel)
    110   (if (and from (with_object from (and (> (total_objects) 0) 
    111                                        (with_object (get_object 0) 
     110  (if (and from (with_object from (and (> (total_objects) 0)
     111                                       (with_object (get_object 0)
    112112                                                    (or (eq (otype) FLYER)
    113113                                                        (eq (otype) GREEN_FLYER))

  • abuse/trunk/data-abuse/lisp/french.lsp

    r566 r582  
    66
    77
    8 (select section 
     8(select section
    99        ('game_section
    1010
    … …  
    108108         (setq sens_cs            "Etat actuel")
    109109         (setq tp_amb             "R‚glage ambiance")
    110          
    111 
    112                
     110
     111
     112
    113113         (setq ai_xvel            "Xvel      ")
    114114         (setq ai_yvel            "Yvel      ")
    … …  
    122122         (setq ai_state           "Etat IA   ")
    123123         (setq ai_fade            "Fondu 0-15")
    124          
     124
    125125         (setq a_ambient          "Ambiant     ")
    126126         (setq a_aspeed           "Vitesse ambiante")
    … …  
    137137         (setq ap_pal             "Ajouter palette")
    138138         (setq mouse_at           "Position la souris %d, %d\n")
    139          
     139
    140140
    141141         (setq l_links            "Liens")
    … …  
    148148
    149149         (setq SHOW?              "AFFICHER ?")
    150          (setq back_loss (concatenate 'string "Ce taux de d‚filement diminue la taille de la care d'arriŠre 
     150         (setq back_loss (concatenate 'string "Ce taux de d‚filement diminue la taille de la care d'arriŠre
    151151plan \n"
    152152                                      "Des dalles risquent d'ˆtre perdues, ˆtes-vous s–r(e) de vouloir le faire ?\n"))
    … …  
    164164         (setq edit_top           "Editer")
    165165         (setq window_top         "Fenˆtres")
    166          (setq menu1_load         "Lancer niveau")       
     166         (setq menu1_load         "Lancer niveau")
    167167         (setq menu1_save         "Sauvegarder niveau (S)")
    168168         (setq menu1_saveas       "Enregistrer sous")
    … …  
    209209         (setq level_size "Taille du niveau")
    210210                           ; 012345678901234567 (please keep same allignment of Name level & total)
    211          (setq score_header "Nom          Total du niveau")   ; V-E 
     211         (setq score_header "Nom          Total du niveau")   ; V-E
    212212         (setq space_cont "Appuyez sur la BARRE D'ESPACE pour continuer")        ; V-E
    213213         (setq no_saved "Pas de jeu sauvegard‚")
    … …  
    229229
    230230         (defun get_train_msg (message_num)
    231            (select message_num   
     231           (select message_num
    232232                   (0 "Pointez le canon avec la souris, tirez avec le bouton gauche")
    233233                   (1 "R‚cup‚rez des munitions pour augmenter votre cadence de tir")
    … …  
    290290         (setq client          "Participer au jeu en cours ?")
    291291         (setq single_play     " Un seul joueur ")
    292 (setq single_play     "    Sortir du jeu sur r‚seau    ")  ; V-A 
     292(setq single_play     "    Sortir du jeu sur r‚seau    ")  ; V-A
    293293         (setq cancel_net      "      Annuler        ")
    294294
    … …  
    311311         (setq to_be_continued "A suivre.....")
    312312         (setq no_edit         "Cette version du jeu est d‚pourvue de l'‚diteur")
    313          (setq no_hirez        "La haute r‚solution n'est disponible qu'avec le mode ‚diter (-edit)") 
     313         (setq no_hirez        "La haute r‚solution n'est disponible qu'avec le mode ‚diter (-edit)")
    314314         (setq no2             "Ne peut pas utiliser -2 avec -edit")
    315315         (setq no_pals         "Aucune palette d‚finie")
    … …  
    322322 effacer.")
    323323         (setq forward?        "Avancer quel objet ?")
    324          (setq back?           "Reculer quel objet ?") 
     324         (setq back?           "Reculer quel objet ?")
    325325         (setq aitype?         "Type IA pour qui ?")
    326326         (setq prof_off        "Cache d‚sactiv‚")
    … …  
    333333         (setq quit_title      "Sortir ?")
    334334         (setq YES             "OUI")
    335          (setq NO              "NON")     
     335         (setq NO              "NON")
    336336         (setq seqs_off        "S‚quences photos off\n")
    337337         (setq seqs_on         "S‚quences photos on (1 toutes les 5 sec)\n")
    … …  
    375375         (setq load_warn nil)
    376376         (if (not (load "register/english.lsp"))
    377              (setq end_msg 
    378                    (concatenate 'string 
     377             (setq end_msg
     378                   (concatenate 'string
    379379                                "* Editer LISP/OPTIONS.LSP pour configurer quelques options pour ABUSE.\n\n"
    380                                 "* Procurez-vous la version commerciale d'ABUSE qui sera en vente fin mars 96, et\n"                       
     380                                "* Procurez-vous la version commerciale d'ABUSE qui sera en vente fin mars 96, et\n"
    381381                                "  sera jouable sur r‚seau IPX supportant huit joueurs. Elle comportera un ‚diteur\n"
    382382                                "  de niveau int‚gr‚, 17 niveaux un seul joueur (plus 12 niveaux sur le\n"
    … …  
    390390                                "  ALLEMAGNE   05241 / 24307\n"
    391391                                "  AUSTRALIE +61(75)911 388\n"
    392                                 "  JAPON     03-5410-3100\n\n"))) 
     392                                "  JAPON     03-5410-3100\n\n")))
    393393
    394394         (setq load_warn T)
    395395
    396396         (setq plot_start
    397                (concatenate 'string 
     397               (concatenate 'string
    398398                            "Vous ˆtes Nick Vrenna. C'est l'ann‚e 2009.  A tort, vous avez ‚t‚ incarc‚r‚ "
    399399                            "dans une prison souterraine de haute surveillance o— ont lieu des exp‚riences g‚n‚tiques "
    400                             " ill‚gales.\\n"                         
     400                            " ill‚gales.\\n"
    401401                            "Alan Blake,
    402  la tˆte de la recherche scientifique, a isol‚ le gˆne qui provoque "                   
     402 la tˆte de la recherche scientifique, a isol‚ le gˆne qui provoque "
    403403                            "violence et agression chez les humains. Cette s‚quence g‚n‚tique appel‚e "
    404                             '(#\") "Abuse" '(#\") " est extrˆmement infectieuse, elle engendre des transformations "                   
     404                            '(#\") "Abuse" '(#\") " est extrˆmement infectieuse, elle engendre des transformations "
    405405                            "horribles et provoque de monstrueux effets secondaires.  "
    406406                            "Vous ˆtes la seule personne immunis‚e contre ces effets. \\n"
    407407                            "Une ‚meute commence et dans ce d‚sordre, toutes les portes de "
    408                             "prison s'ouvrent. TrŠs vite, les gardes, ainsi que les d‚tenus " 
     408                            "prison s'ouvrent. TrŠs vite, les gardes, ainsi que les d‚tenus "
    409409                            "sont contamin‚s et transform‚s en une horde de mutants qui envahissent le "
    410410                            "bƒtiment.\\n"
    411                             "Votre seule chance pour vous enfuir est de vous revˆtir d'une armure "                                     
     411                            "Votre seule chance pour vous enfuir est de vous revˆtir d'une armure "
    412412                            "de combat et d'aller
    413413 la Salle des commandes "
    414                             "qui se trouve au niveau le plus ‚loign‚ de la structure. Mais d'abord, vous devez " 
     414                            "qui se trouve au niveau le plus ‚loign‚ de la structure. Mais d'abord, vous devez "
    415415                            "empˆcher l'approvisionnement d'eau qui a ‚t‚ infect‚ par Abuse de contaminer "
    416416                            "le monde ext‚rieur. La libert‚ et le sort de l'humanit‚ sont maintenant entre vos mains. " ))
    417          
     417
    418418         (setq plot_middle
    419                (concatenate 'string 
     419               (concatenate 'string
    420420                            "Vous avez surv‚cu la vague initiale de contamination, mais vous ˆtes "
    421421                            "encore perdu au fin fond de la prison "
    422                             "Jusqu'ici, c'‚tait d'une facilit‚ suspecte. \\n"     
     422                            "Jusqu'ici, c'‚tait d'une facilit‚ suspecte. \\n"
    423423                            "Si vous voulez vous ‚chapper, ne manquez pas de jouer
    424424 Abuse dans son int‚gralit‚. "))
    … …  
    426426
    427427         (setq plot_end
    428                (concatenate 'string 
     428               (concatenate 'string
    429429                            "F‚licitations ! Vous avez r‚ussi
    430  survivre dans une situation incroyable et " 
     430 survivre dans une situation incroyable et "
    431431                            "vous ˆtes
    432432 la Salle de commandes.  "

  • abuse/trunk/data-abuse/lisp/gates.lsp

    r54 r582  
    2727          ("aistate"    ai_state)
    2828          )
    29   (states "art/misc.spe" 
     29  (states "art/misc.spe"
    3030          (stopped "0_delay")
    3131          (on_state "1_delay")))
    … …  
    3535  (funs (ai_fun or_ai)
    3636        (draw_fun dev_draw))
    37   (states "art/misc.spe" 
     37  (states "art/misc.spe"
    3838          (stopped "0_or_gate")
    3939          (on_state "1_or_gate")))
    40          
     40
    4141(def_char GATE_AND
    4242  (funs (ai_fun and_ai)
    4343        (draw_fun dev_draw))
    44   (states "art/misc.spe" 
     44  (states "art/misc.spe"
    4545          (stopped "0_and_gate")
    4646          (on_state "1_and_gate")))
    47          
    48          
     47
     48
    4949(def_char GATE_NOT
    5050  (funs (ai_fun not_ai)
    5151        (draw_fun dev_draw))
    52   (states "art/misc.spe" 
     52  (states "art/misc.spe"
    5353          (stopped "0_not_gate")
    5454          (on_state "1_not_gate")))
    5555
    56          
     56
    5757(def_char GATE_XOR
    5858  (funs (ai_fun xor_ai)
    5959        (draw_fun dev_draw))
    60   (states "art/misc.spe" 
     60  (states "art/misc.spe"
    6161          (stopped "0_xor_gate")
    6262          (on_state "1_xor_gate")))
    … …  
    7272          (on_state "1_pulse")))
    7373
    74          
     74
    7575(def_char INDICATOR
    7676  (funs (ai_fun indicator_ai))
    77   (states "art/misc.spe" 
     77  (states "art/misc.spe"
    7878          (stopped "0_indicator")
    7979          (on_state "1_indicator")))
    80        
     80
    8181(defun indicator_ai ()
    8282  (if (> (total_objects) 0)
    … …  
    111111        (or_check (- last_object 1))
    112112      T)))
    113  
     113
    114114(defun or_ai ()
    115115  (if (or_check (- (total_objects) 1))
    … …  
    121121      (set_aistate 0))) T)
    122122
    123        
     123
    124124(defun and_check (last_object)
    125125  (if (< last_object 0)
    … …  
    128128        nil
    129129      (and_check (- last_object 1)))))
    130    
    131  
     130
     131
    132132(defun and_ai ()
    133133  (if (and_check (- (total_objects) 1))

  • abuse/trunk/data-abuse/lisp/general.lsp

    r54 r582  
    2525
    2626(defun spring_cons () (set_yvel -15))
    27 (defun spring_ai () 
     27(defun spring_ai ()
    2828  (if (or (eq (total_objects) 0) (not (eq (with_object (get_object 0) (aistate)) 0)))
    2929      (select (aistate)
    … …  
    3232                   (let ((add_yvel (yvel)))
    3333                     (play_sound SPRING_SOUND 127 (x) (y))
    34                      (with_object (bg) 
     34                     (with_object (bg)
    3535                              (progn
    3636                                (set_yvel (+ (yvel) add_yvel))
    … …  
    5858          (running (rep "spri0001.pcx" 4))))
    5959
    60 (defun pr_draw () 
     60(defun pr_draw ()
    6161  (draw_predator)
    6262
    6363  )
    64  
     64
    6565
    6666(defun train_ai ()
    … …  
    7070            (with_object (bg)
    7171                         (progn
    72                            (if (local_player)           
     72                           (if (local_player)
    7373                               (show_help (get_train_msg (aitype))))
    74                            (freeze_player 100)))                           
     74                           (freeze_player 100)))
    7575            (set_aistate 1)
    7676            T)
    … …  
    9191  (states "art/misc.spe"
    9292          (stopped "bubble")))
    93        
     93
    9494(defun sball_damage (amount from hitx hity push_xvel push_yvel)  ; transfer damage to lower half
    9595  (if (eq (state) stopped)
    … …  
    103103        (ai_fun do_nothing))
    104104  (flags (hurtable T))
    105   (states "art/misc.spe" 
     105  (states "art/misc.spe"
    106106          (stopped (seq "swit" 1 9))
    107107          (running (seq "swit" 10 18))))
    … …  
    112112          (stopped "pointer")))
    113113
    114 (defun shifter_cons () 
    115   (set_xvel 300) 
    116   (set_yvel 300) 
    117   (set_xacel 0) 
     114(defun shifter_cons ()
     115  (set_xvel 300)
     116  (set_yvel 300)
     117  (set_xacel 0)
    118118  (set_yacel -1))
    119119
    120120(defun holder_ai ()
    121121  (select (total_objects)
    122           (2 
     122          (2
    123123           (let ((newx (+ (with_object (get_object 1) (x)) (xvel)))
    124124                 (newy (+ (with_object (get_object 1) (y)) (yvel))))
    … …  
    127127             (set_y newy)
    128128             T))
    129           (3 
     129          (3
    130130           (if (with_object (get_object 2) (not (eq (aistate) 0)))
    131131               (let ((newx (+ (with_object (get_object 1) (x)) (xvel)))
    … …  
    135135                 (set_y newy)
    136136                 T)
    137              (if (eq (xacel) 1) 
     137             (if (eq (xacel) 1)
    138138                 nil
    139139               T)))
    … …  
    143143          (0 nil)
    144144          (1 nil)))
    145  
     145
    146146
    147147(def_char OBJ_HOLDER

  • abuse/trunk/data-abuse/lisp/german.lsp

    r566 r582  
    66
    77
    8 (select section 
     8(select section
    99        ('game_section
    1010
    … …  
    104104         (setq sens_cs            "Jetztstatus")
    105105         (setq tp_amb             "Umgebung")
    106          
    107 
    108                
     106
     107
     108
    109109         (setq ai_xvel            "Xvel    ")
    110110         (setq ai_yvel            "Yvel    ")
    … …  
    118118         (setq ai_state           "AI-Status")
    119119         (setq ai_fade            "Transparenz 0-15")
    120          
     120
    121121         (setq a_ambient          "Umgebung      ")
    122122         (setq a_aspeed           "Umgeb.-Tempo")
    … …  
    133133         (setq ap_pal             "Palette hinzu")
    134134         (setq mouse_at           "Maus an Punkt %d, %d\n")
    135          
     135
    136136
    137137         (setq l_links            "Link")
    … …  
    152152         (setq y_div              "Y div")
    153153
    154          /*********** New for Version 1.45 ***********************/ 
    155 
    156 
    157 ;; Weitere Einzelheiten zu den Benutzerrechten unter Lizenzrechte. 
     154         /*********** New for Version 1.45 ***********************/
     155
     156
     157;; Weitere Einzelheiten zu den Benutzerrechten unter Lizenzrechte.
    158158
    159159
    … …  
    161161         (setq edit_top           "Bearbeiten")
    162162         (setq window_top         "Fenster")
    163          (setq menu1_load         "Level laden")         
     163         (setq menu1_load         "Level laden")
    164164         (setq menu1_save         "Level speichern (S)")
    165165         (setq menu1_saveas       "Level speichern als")
    … …  
    206206         (setq level_size "Levelgr”áe")
    207207                           ; 012345678901234567 (please keep same allignment of Name level & total)
    208          (setq score_header "Name              Level gesamt")   ; V-E 
     208         (setq score_header "Name              Level gesamt")   ; V-E
    209209         (setq space_cont "LEERTASTE, um fortzufahren ")        ; V-E
    210210         (setq no_saved "Kein gespeichertes Spiel")
    … …  
    221221         (setq gamma_msg "Klicken Sie die dunkelste Farbe \nauf Ihrem Monitor an, und klicken Sie OK.")
    222222         (setq telep_msg "Pfeiltaste  (unten) drcken, um zu teleportieren.")
    223  
    224223
    225224         (defun get_train_msg (message_num)
    226            (select message_num   
     225           (select message_num
    227226                   (0 "Mit der Maus zielen und mit Linksklick feuern.")
    228227                   (1 "Munition sammeln, um Schuárate zu erh”hen.")
    … …  
    237236                   (10 "Kugel anschieáen, um zu aktivieren.")
    238237                   (11 "Pfeiltaste (unten) drcken, um zu teleportieren.")))
    239        
     238
    240239 (setq not_there       "Spiel l„uft nicht mehr ")
    241240 (setq max_error       "Max Spielerzahl sollte gleich oder mehr als Min Spielerzahl sein ") ; V-C changed
    … …  
    270269                                           "    - TSR's u. fr ABUSE nicht ben”tigte Treiber beseitigen\n"
    271270                                           "    - Machen Sie mehr Speicher frei\n"))
    272          
     271
    273272         (setq no_mem    (concatenate 'string "Nicht gengend Speicher verfgbar\n"
    274273                                           "  Vorschl„ge...\n"
    275274                                           "    - Startdiskette erstellen (Info im Handbuch)\n"
    276275                                           "    - TSR's u. fr ABUSE nicht ben”tigte Treiber beseitigen\n"
    277  
    278276                                           "    - Machen Sie mehr Speicher frei\n"))
    279277
    … …  
    311309         (setq to_be_continued "Fortsetzung folgt.....")
    312310         (setq no_edit         "Diese Abuse-Version hat keine Edit-Funktionen")
    313          (setq no_hirez        "High-Res. gibt es nur im Edit-Modus (-edit)") 
     311         (setq no_hirez        "High-Res. gibt es nur im Edit-Modus (-edit)")
    314312         (setq no2             "-2 kann nicht mit -edit zusammen benutzt werden")
    315313         (setq no_pals         "Paletten sind nicht definiert")
    … …  
    321319         (setq d_nosel         "Kein Objekt oder Licht zum L”schen ausgew„hlt.")
    322320         (setq forward?        "Welches Objekt mitnehmen?")
    323          (setq back?           "Welches Objekt zurcklegen?") 
     321         (setq back?           "Welches Objekt zurcklegen?")
    324322         (setq aitype?         "AI „ndern wofr?")
    325323         (setq prof_off        "Cache-Profiling ist jetzt aus.")
    … …  
    332330         (setq quit_title      "Abbrechen")
    333331         (setq YES             "JA")
    334          (setq NO              "NEIN")     
     332         (setq NO              "NEIN")
    335333         (setq seqs_off        "Kontinuierliche Bildsequenzen aus\n")
    336334         (setq seqs_on         " Kontinuierliche Bildsequenzen an (1 Bild alle 5 Sek)\n")
    … …  
    352350         (setq SAVE            "SPEICHERN")   ; don't let this get too long
    353351
    354          (setq net_not_reg 
     352         (setq net_not_reg
    355353               (concatenate 'string "Dieser Server betreibt die REGISTRIERTE ABUSE Version, Sie aber nicht.\n"
    356354                            "Bitten Sie den Betreiber des Servers, mit der Shareware-Version zu spielen,\n"
    … …  
    367365         (setq load_warn nil)
    368366         (if (not (load "register/english.lsp"))
    369              (setq end_msg
    370                    (concatenate 'string
    371                                 "* Žndern Sie LISP/OPTIONS.LSP, um einige Optionen fr ABUSE zu
    372 "
     367             (setq end_msg
     368                   (concatenate 'string
     369                                "* Žndern Sie LISP/OPTIONS.LSP, um einige Optionen fr ABUSE zu\n"
    373370                                "    konfigurieren.\n\n"
    374                                 "* Halten Sie beim Einkaufsbummel die Augen auf, denn Ende M„rz '96 erscheint die "                             
     371                                "* Halten Sie beim Einkaufsbummel die Augen auf, denn Ende M„rz '96 erscheint die "
    375372                                "  kommerzielle Version von ABUSE fr acht Spieler, IPX-Netzwerk untersttzt, \n"
    376                                 "  mit einem eingebauten Level-Editor, 17 Einzelspieler-Level plus 12 Exklusiv-
    377 "
     373                                "  mit einem eingebauten Level-Editor, 17 Einzelspieler-Level plus 12 Exklusiv-\n"
    378374                                "  Netzwerk- \n Level, todbringenderen Waffen, extra Powerups, \n"
    379                                 "  st„rkeren Feinden, besseren Soundeffekten und noch mehr knstlerischen
    380 "
     375                                "  st„rkeren Feinden, besseren Soundeffekten und noch mehr knstlerischen\n"
    381376                                "  Effekten.\n\n"
    382377
    … …  
    394389
    395390         (setq plot_start
    396                (concatenate 'string
    397                             "Ihr Name ist Nick Vrenna. Wir schreiben das Jahr 2009. Sie werden zu Unrecht in
    398 "
     391               (concatenate 'string
     392                            "Ihr Name ist Nick Vrenna. Wir schreiben das Jahr 2009. Sie werden zu Unrecht in \n"
    399393                            "einem streng bewachten unterirdischen Gef„ngnis festgehalten, "
    400394                            "wo illegale genetische Experimente durchgefhrt werden.\\n"
    401395                            "Alan Blake, der leitende Wissenschaftler der Forschungsabteilung, hat das Gen isoliert, "
    402396                            "das in Menschen Gewalt und Aggressionen hervorruft. Diese genetische Sequenz, die "
    403                             '(#\") "Abuse" '(#\") " heiát, ist hochansteckend und verursacht schreckliche "                                                 
     397                            '(#\") "Abuse" '(#\") " heiát, ist hochansteckend und verursacht schreckliche "
    404398                            "Transformationen und groteske Nebenwirkungen. "
    405399                            "Sie sind die einzige Person, die dagegen immun ist. \\n"
    406                             "Im Gef„ngnis bricht ein Aufstand aus, und w„hrend dieses wilden Durcheinanders werden "               
     400                            "Im Gef„ngnis bricht ein Aufstand aus, und w„hrend dieses wilden Durcheinanders werden "
    407401                            "alle Zellentren ge”ffnet. Bald sind alle, sowohl W„rter als auch Str„flinge, infiziert "
    408402                            "und werden in Mutanten transformiert, "
    409403                            "die das Geb„ude in ihre Gewalt bringen.\\n"
    410404                            "Ihre einzige Chance zu entkommen ist es, den Kampfanzug anzuziehen und m”glichst "
    411                             "schnell zum Kontroll-Raum zu gelangen, der im untersten Geschoá des Geb„udes liegt. "                         
     405                            "schnell zum Kontroll-Raum zu gelangen, der im untersten Geschoá des Geb„udes liegt. "
    412406                            "Erst mssen Sie jedoch die Wasserversorgung des Gef„ngnisses unterbrechen, damit "
    413407                            "das Abuse-infizierte Wasser nicht auch noch die Auáenwelt vergiften kann. Freiheit und "
    … …  
    417411
    418412         (setq plot_middle
    419                (concatenate 'string 
     413               (concatenate 'string
    420414                            "Sie haben den anf„nglichen Aufstand berlebt, haben sich aber im Gef„ngnis komplett "
    421                             "verirrt. Bis jetzt war es verd„chtig einfach. \\n"       
    422                             "Wenn Sie ausbrechen wollen - liegt das wirkliche ABUSE noch vor Ihnen. ")) 
     415                            "verirrt. Bis jetzt war es verd„chtig einfach. \\n"
     416                            "Wenn Sie ausbrechen wollen - liegt das wirkliche ABUSE noch vor Ihnen. "))
    423417
    424418
    425419         (setq plot_end
    426                (concatenate 'string 
     420               (concatenate 'string
    427421                            "Glckwunsch! Sie haben das Undenkbare berlebt  und sind bis in den Kontroll-Raum "
    428422                            "vorgedrungen. Sie haben den Schalter umgelegt, somit die Wasserversorgung "
    429                             "umgeleitet und der Verbreitung von Abuse Einhalt geboten! "))) 
     423                            "umgeleitet und der Verbreitung von Abuse Einhalt geboten! ")))
    430424)
    431425

  • abuse/trunk/data-abuse/lisp/guns.lsp

    r54 r582  
    33
    44
    5 (setq gun_tints (make-array 11 :initial-contents (list 
     5(setq gun_tints (make-array 11 :initial-contents (list
    66                                                  normal_tint
    77                                                  (def_tint "art/tints/guns/orange.spe") ; orange
    … …  
    1717
    1818
    19 (setq ai_ammo (make-array 9 :initial-contents (list MBULLET_ICON5 
    20                                                 MBULLET_ICON5 
     19(setq ai_ammo (make-array 9 :initial-contents (list MBULLET_ICON5
     20                                                MBULLET_ICON5
    2121                                                GRENADE_ICON2
    22                                                 ROCKET_ICON2 
     22                                                ROCKET_ICON2
    2323                                                PLASMA_ICON20
    24                                                 MBULLET_ICON5 
    25                                                 MBULLET_ICON5 
    26                                                 MBULLET_ICON5 
     24                                                MBULLET_ICON5
     25                                                MBULLET_ICON5
     26                                                MBULLET_ICON5
    2727                                                MBULLET_ICON5)))
    2828
    … …  
    4545                                        (setq sgb_bright_color (find_rgb 255 255 200))
    4646                                        (setq sgb_medium_color (find_rgb 150 150 0))
    47                                         (if creator 
     47                                        (if creator
    4848                                            (progn
    4949                                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
    … …  
    5959                                        (setq sgb_lasty (y))
    6060                                        (setq sgb_angle angle)
    61                                        
     61
    6262                                        (setq sgb_bright_color (find_rgb 255 128 64))
    6363                                        (setq sgb_medium_color (find_rgb 255 0 0))
    64                                         (if creator 
     64                                        (if creator
    6565                                            (progn
    6666                                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
    … …  
    7272                            (play_sound GRENADE_THROW 127 x y)
    7373                            (set_course angle 20)
    74                             (if creator 
     74                            (if creator
    7575                                (progn
    7676                                  (link_object creator)
    … …  
    7878                                  (set_yvel (+ (yvel) (with_object creator (yvel))))
    7979                                  ))
    80                            
     80
    8181                            (set_frame_angle 0 359 angle)
    8282                            )))
    … …  
    8888
    8989                            (if (and target   ;; don't link if not in line of site
    90                                      (can_see (x) (y) 
     90                                     (can_see (x) (y)
    9191                                              (with_object target (x))
    9292                                              (with_object target (y)) nil))
    … …  
    106106                                        (setq sgb_lastx (x))
    107107                                        (setq sgb_lasty (y))
    108                                         (if creator 
     108                                        (if creator
    109109                                              (link_object creator))
    110110                                        (set_course angle 200)
    … …  
    114114                                          (if (not (eq bx T))
    115115                                              (if (eq bx nil)
    116                                                   (add_object EXPLODE5 (- (x) (random 5)) 
     116                                                  (add_object EXPLODE5 (- (x) (random 5))
    117117                                                              (- (y) (random 5)) 0)
    118118                                                (progn
    119                                                   (add_object EXPLODE3 (- (x) (random 5)) 
     119                                                  (add_object EXPLODE3 (- (x) (random 5))
    120120                                                              (- (y) (random 5)) 0)
    121                                                   (do_damage 10 bx (* (cos sgb_angle) 20) 
     121                                                  (do_damage 10 bx (* (cos sgb_angle) 20)
    122122                                                             (* (sin sgb_angle) 10)))))
    123123                                          (setq sgb_lastx (x))
    … …  
    132132                            (play_sound FIREBOMB_SND 127 (x) (y))
    133133                            (set_course angle 20)
    134                             (if creator 
     134                            (if creator
    135135                                (progn
    136136                                  (link_object creator)
    … …  
    143143                                        (set_course angle 25)
    144144                                        (set_aistate angle)
    145                                         (if creator 
     145                                        (if creator
    146146                                              (link_object creator))
    147147                                        (dfris_ai)
    … …  
    153153                                        (setq sgb_lastx (x))
    154154                                        (setq sgb_lasty (y))
    155                                         (if creator 
     155                                        (if creator
    156156                                              (link_object creator))
    157157                                        (set_course angle 45)
    … …  
    159159                                          (if (not (eq bx T))
    160160                                              (if (not (eq bx nil))
    161                                                   (do_damage 30 bx (* (cos sgb_angle) 20) 
     161                                                  (do_damage 30 bx (* (cos sgb_angle) 20)
    162162                                                             (* (sin sgb_angle) 10)))))
    163163                                        )))
    164                            
     164
    165165
    166166          (9 (with_object (add_object STRAIT_ROCKET x y)
    167167                                      (progn
    168168                                        (play_sound MGUN_SND 127 (x) (y))
    169                                         (if creator 
     169                                        (if creator
    170170                                              (link_object creator))
    171171                                        (set_aistate angle)
    … …  
    183183                                        (setq sgb_bright_color (find_rgb 255 0 0))
    184184                                        (setq sgb_medium_color (find_rgb 150 0 0))
    185                                         (if creator 
     185                                        (if creator
    186186                                            (progn
    187187                                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
    … …  
    190190                                        )))
    191191
    192           ) 
     192          )
    193193)
    194194
    … …  
    222222
    223223                  (1;; unfold
    224                    (if (next_picture) T 
     224                   (if (next_picture) T
    225225                     (progn (set_aistate 3)
    226226                            (set_state spray.aim)
    … …  
    230230
    231231                  (2;; fold up
    232                    (if (next_picture) T 
     232                   (if (next_picture) T
    233233                     (progn (set_state stopped)
    234234                            (set_aistate 0))))
    235235
    236                  
     236
    237237                  (3;; swivel down
    238238                   (if (> (state_time) spray.fire_delay)
    … …  
    263263        (set_state stopped)
    264264        T))))
    265                
    266 
    267              
    268              
    269     (defun spray_gun_cons () 
     265
     266
     267
     268
     269    (defun spray_gun_cons ()
    270270      (setq spray.bullet_speed 20)
    271271      (setq spray.angle_speed  10)
    … …  
    289289        spray.end_angle
    290290        spray.angle_speed
    291         spray.angle)     
     291        spray.angle)
    292292
    293293  (fields ("hp"                 ai_health)
    … …  
    311311
    312312(def_char TRACK_GUN
    313   (vars 
     313  (vars
    314314        fire_delay            ; how long between each shot
    315315        fire_delay_left
    … …  
    328328        (constructor track_cons)
    329329        (draw_fun    gun_draw)
    330         (damage_fun   guner_damage))   
     330        (damage_fun   guner_damage))
    331331
    332332  (flags (can_block  T)
    … …  
    384384        (setq angle new_angle))))
    385385
    386 (defun track_ai ()   
     386(defun track_ai ()
    387387  (if (eq (hp) 0)                                                  ;; are we dead?
    388388      nil
    … …  
    407407                                              (- angle pangle)
    408408                                            (+ angle (- 360 pangle)))))
    409                           (let ((closest_dist (if (> clock_dist 180) 
     409                          (let ((closest_dist (if (> clock_dist 180)
    410410                                                  (- 360 clock_dist)
    411411                                                clock_dist)))
    … …  
    416416                                  (track_set_angle (mod (+ angle angle_add) 360))
    417417                                (track_set_angle (mod (+ (- angle angle_add) 360) 360)))
    418                               (if (< angle_add 5);; pretty close to target, FIRE!                               
     418                              (if (< angle_add 5);; pretty close to target, FIRE!
    419419                                  (track_fire))))))
    420420                    (setq fire_delay_left (- fire_delay_left 1)))
    … …  
    427427        (set_targetable nil)
    428428        (set_state stopped)
    429         T)))) 
    430          
    431        
    432 
    433 
    434 
     429        T))))
     430
     431
     432
     433
     434

  • abuse/trunk/data-abuse/lisp/input.lsp

    r54 r582  
    2828;;   "Home","End","Del","F1","F2","F3","F4","F5","F6",
    2929;;   "F7","F8","F9","F10","Insert"
    30 ;;   "a", "b", "c", ... 
     30;;   "a", "b", "c", ...
    3131;; though not all of these keys will work on all operating systems
    3232
    … …  
    4646(defun get_local_input ()
    4747  (let ((mstat (mouse_stat)))
    48     (list (if (local_key_pressed left-key) -1 (if (local_key_pressed right-key) 1 0))  ;; xv 
     48    (list (if (local_key_pressed left-key) -1 (if (local_key_pressed right-key) 1 0))  ;; xv
    4949          (if (local_key_pressed up-key) -1   (if (local_key_pressed down-key)  1 0))  ;; yv
    5050          (eq (fourth mstat) 1)                                            ;; special button
    5151          (eq (third mstat) 1)                                             ;; fire button
    52          
    53           (if (or (eq (fifth mstat) 1) 
     52
     53          (if (or (eq (fifth mstat) 1)
    5454                  (local_key_pressed weapon-left-key)) -1                             ;; weapon toggle
    5555              (if (local_key_pressed weapon-right-key)  1 0))
    … …  
    5959
    6060
    61        
    62 
    63        
    6461
    6562
    6663
     64
     65
     66

  • abuse/trunk/data-abuse/lisp/jugger.lsp

    r54 r582  
    88        (set_state dieing))
    99    (if (activated)
    10         (progn       
     10        (progn
    1111          (set_targetable T)
    1212          (push_char 35 40)
    13           (select (aistate) 
     13          (select (aistate)
    1414                  (0 ;; prepare to walk toward player
    1515                   (if (eq stationary 0)
    … …  
    2727                         (set_direction (toward))
    2828                         (let ((curx (x));; save position in case we fall off a cliff
    29                                (cury (y)))                   
    30                            (if (next_picture) 
     29                               (cury (y)))
     30                           (if (next_picture)
    3131                               (if (eq (current_frame) 8)
    3232                                   (play_sound JSTOMP_SND 127 (x) (y)))
    … …  
    5050                             (xspeed (* throw_xvel (direction)))
    5151                             (yspeed throw_yvel))
    52                          (with_object (add_object GRENADE (x) (- (y) 24) 1) 
     52                         (with_object (add_object GRENADE (x) (- (y) 24) 1)
    5353                                      (progn
    5454                                        (user_fun myself)
    … …  
    5959                  (3 ;; wait for fire animation
    6060                   (if (next_picture) nil (set_aistate 0))))
    61           T) 
     61          T)
    6262      (progn (set_targetable nil)
    6363             T))))
    64            
     64
    6565(defun jug_cons ()
    6666  (setq throw_xvel 13)
    … …  
    8888          ("aistate"       ai_state))
    8989
    90   (states "art/jug.spe" 
     90  (states "art/jug.spe"
    9191          (stopped "robo0001.pcx")
    9292          (running (seq "rwlk" 1 13))
    … …  
    109109               (set_targetable T)           ;; can lock into us
    110110               (push_char 30 55)))          ;; push player away
    111            
     111
    112112           (if (or (< (total_objects) 1)    ;; if not linked or link is on
    113113                   (not (eq (with_object (get_object 0) (aistate)) 0)))
    … …  
    130130
    131131           (if (<= (hp) 0)                        ;; are we dead, if so blow up
    132                (progn   
    133                  (add_object EXPLODE1 (+ (x) 5) (- (y) 10)     0) 
     132               (progn
     133                 (add_object EXPLODE1 (+ (x) 5) (- (y) 10)     0)
    134134                 (add_object EXPLODE1 (+ (x) -5) (- (y) 15)    2)  ;; wait 2 frames before appearing
    135135                 (add_object EXPLODE1 (+ (x) 10) (- (y) 2)     1)
    … …  
    144144           (push_char 30 55)
    145145           (< (state_time) 3))))  ;; return nil (dead) if we've been in this state for 3 frames
    146      
    147                      
    148 
    149 (defun explo_damage (amount from hitx hity push_xvel push_yvel)   
     146
     147
     148
     149(defun explo_damage (amount from hitx hity push_xvel push_yvel)
    150150  (add_object EXPLODE6 (+ (x) (- 10 (random 20))) (- (y) (random 30))     0)
    151151  (damage_fun amount from hitx hity 0 0)
    … …  
    163163  (flags (hurtable T)
    164164         (can_block T))
    165   (abilities (run_top_speed 4)       
     165  (abilities (run_top_speed 4)
    166166             (start_hp      70)
    167167             (push_xrange   1))
    … …  
    171171          ("rob_hiden"    rob_hide)
    172172          ("hp"           ai_health))
    173   (states "art/rob1.spe" 
     173  (states "art/rob1.spe"
    174174          (rob_hiding             "hiding")
    175175          (stopped (seq "clen" 1 10))))
    … …  
    191191                   nil nil nil)
    192192      T)))
    193  
     193
    194194(defun who_cache (type) `((,STRAIT_ROCKET) nil))
    195195
    … …  
    203203  (flags (hurtable T))
    204204  (abilities (start_hp 20))
    205   (vars fire_delay burst_delay burst_total burst_wait burst_left 
     205  (vars fire_delay burst_delay burst_total burst_wait burst_left
    206206        max_xvel   max_yvel    smoke_time fire_time)
    207207  (fields ("fire_delay"   who_fdelay)
    … …  
    213213          ("aistate"      ai_state))
    214214
    215   (states "art/rob2.spe" 
     215  (states "art/rob2.spe"
    216216          (stopped (seq "wgo" 1 3))
    217217          (running (seq "wgo" 1 3))
    … …  
    227227        (setq fire_time (- fire_time 1))
    228228        (if (eq fire_time 0)
    229             (progn 
     229            (progn
    230230              (setq burst_left burst_total)
    231231              (setq burst_wait 0))))
    … …  
    240240
    241241
    242 (defun wrob_cons ()       
     242(defun wrob_cons ()
    243243  (setq fire_delay 4)
    244244  (setq burst_delay 1)
    … …  
    263263                   (set_aistate 1))))
    264264              (1;; stop and fire
    265                (burst_fire  (+ (x) (* (direction) 28)) (- (y) 35)                     
     265               (burst_fire  (+ (x) (* (direction) 28)) (- (y) 35)
    266266                            (if (> (direction) 0)
    267267                                (mod (- 375 (/ (* burst_left 30) burst_total)) 360)
    … …  
    270270                   (set_aistate 0))))
    271271      T)))
    272              
    273    
     272
     273
    274274
    275275
    276276(def_char WALK_ROB
    277277  (funs (ai_fun wrob_ai)
    278         (constructor wrob_cons) 
     278        (constructor wrob_cons)
    279279        (damage_fun  guner_damage))
    280280  (abilities (run_top_speed 12))
    281281  (flags (hurtable T) (can_block T))
    282282  (range 300 100)
    283   (vars fire_delay burst_delay burst_total burst_wait burst_left 
     283  (vars fire_delay burst_delay burst_total burst_wait burst_left
    284284        max_xvel   max_yvel    smoke_time fire_time)
    285285  (fields ("fire_delay"   wrob_fdelay)
    … …  
    291291          ("aistate"      ai_state))
    292292
    293   (states "art/rob2.spe" 
     293  (states "art/rob2.spe"
    294294          (stopped "wwlk0001.pcx")
    295295          (running (seq "wwlk" 1 10))

  • abuse/trunk/data-abuse/lisp/ladder.lsp

    r54 r582  
    4040          (stopped "step")
    4141          (running "step_gone")))
    42  
    43        
    44        
     42
     43

  • abuse/trunk/data-abuse/lisp/light.lsp

    r54 r582  
    99                       (eq (with_object (get_object 0) (aistate)) 0)
    1010                     nil)))
    11                    
     11
    1212
    1313(defun dim_ai ()
    … …  
    7070  (flags (unlistable T))
    7171  (fields  ("aistate"    ai_state)
    72            ("xvel"       dimmer_step_amount) 
    73            ("yvel"       dimmer_steps) 
     72           ("xvel"       dimmer_step_amount)
     73           ("yvel"       dimmer_steps)
    7474           ("aitype"     dimmer_dist)
    7575           ("xacel"      dimmer_dedist)
    … …  
    8585        (constructor dim_cons))
    8686  (fields  ("aistate"   ai_state)
    87            ("xvel"      dimmer_step_amount) 
     87           ("xvel"      dimmer_step_amount)
    8888           ("yvel"      dimmer_steps)
    8989           ("yacel"     dimmer_silent))

  • abuse/trunk/data-abuse/lisp/options.lsp

    r54 r582  
    5050
    5151; this option allows the game to exit a idle game after 1 minute
    52 ; and go into a demo 
     52; and go into a demo
    5353
    5454; (demo_break_enable)

  • abuse/trunk/data-abuse/lisp/people.lsp

    r54 r582  
    33
    44(setq bright_tint (def_tint "art/tints/cop/bright.spe"))  ;; used when the player fires a weapon
    5 (setq player_tints (make-array 8 :initial-contents (list 
     5(setq player_tints (make-array 8 :initial-contents (list
    66                                                    0                                      ; 0 this is not used
    77                                                    (def_tint "art/tints/cop/blue.spe")    ; 1 bright blue
    … …  
    1515)))
    1616
    17 (setq player_text_color (make-array 8 :initial-contents (list 
     17(setq player_text_color (make-array 8 :initial-contents (list
    1818                                                         43       ; 0 brown
    1919                                                         216      ; 1 blue
    … …  
    2525                                                         192)))   ; 7 purple
    2626
    27 (setq cop_dead_parts (make-array (* 4 3) :initial-contents 
     27(setq cop_dead_parts (make-array (* 4 3) :initial-contents
    2828                               ;       head           arm            leg
    2929                             '((CP_1  "4dha") (CP_2  "4daa") (CP_3  "4dba")     ; disapear
    … …  
    3535(do ((i 0 (setq i (+ i 1))))
    3636           ((>= i 12) nil)
    37            (setq (aref cop_dead_parts i) 
    38                  (make_dead_part (car (aref cop_dead_parts i))           
     37           (setq (aref cop_dead_parts i)
     38                 (make_dead_part (car (aref cop_dead_parts i))
    3939                                 (car (cdr (aref cop_dead_parts i))) 4 "art/cop.spe" 'dead_cop_part_draw)))
    4040
    … …  
    4949
    5050
    51                                  
     51
    5252
    5353(defun give_player_health (amount)
    … …  
    7070        T)))
    7171)
    72    
     72
    7373
    7474
    … …  
    122122      nil
    123123    (select signal
    124             (SET_SNEAKY_TIME 
    125              (progn 
     124            (SET_SNEAKY_TIME
     125             (progn
    126126               (set_sneaky_time value)
    127127               (with_obj0 (set_sneaky_time value))))
    128128            (SET_VISOR_TIME (set_visor_time value))
    129             (SET_FAST_TIME 
    130              (progn 
     129            (SET_FAST_TIME
     130             (progn
    131131               (set_fast_time value)
    132132               (with_obj0 (set_fast_time value))))
    133             (SET_FADE_COUNT (set_fade_count value) 
     133            (SET_FADE_COUNT (set_fade_count value)
    134134                            (with_obj0 (set_fade_count value)))
    135              
     135
    136136            )))
    137                    
     137
    138138
    139139(defun cop_adjust_top (return)
    … …  
    165165            (if (> ym 0)
    166166                (progn
    167                   (if (eq (current_frame) 0) (set_current_frame 9) 
     167                  (if (eq (current_frame) 0) (set_current_frame 9)
    168168                    (set_current_frame (- (current_frame) 1)))
    169169                  (set_y (+ (y) 3)))
    … …  
    188188
    189189            0)
    190         (if (and (>= (yvel) 0) (or (> ym 0) 
     190        (if (and (>= (yvel) 0) (or (> ym 0)
    191191                                   (and (< ym 0) (> yd 8))))
    192192            (progn
    … …  
    202202            (cop_adjust_top (mover xm ym but))))
    203203        ))))
    204      
    205      
     204
     205
    206206(defun undo_special_power (xm ym but)
    207207  (select special_power
    … …  
    222222               (set_yvel (- (yvel) 1)))
    223223           )
    224          
    225 
    226           (FAST_POWER 
     224
     225
     226          (FAST_POWER
    227227           (setq used_special_power 1)
    228228           (setq last1_x (x))
    … …  
    230230           (if (> (total_objects) 0)
    231231               (with_obj0
    232                             (if (> fire_delay1 0) 
     232                            (if (> fire_delay1 0)
    233233                                (setq fire_delay1 (- fire_delay1 1)))))
    234234
    235            
     235
    236236           (let ((in_area in_climbing_area)
    237237                 (old_yvel (yvel)))
    … …  
    240240             (if (and (< ym 0) (eq old_yvel 0) (< (yvel) 0))
    241241                 (set_yvel (+ (yvel) (/ (yvel) 3))))
    242                  
     242
    243243             )
    244244
    … …  
    246246           (setq last2_y (y)))
    247247
    248           (SNEAKY_POWER (if (<= used_special_power 15)                     
     248          (SNEAKY_POWER (if (<= used_special_power 15)
    249249                            (setq used_special_power (+ used_special_power 1))))
    250250          ))
    … …  
    261261    (climb_handler xm ym but)))
    262262
    263 /*(defun cop_mover (xm ym but) 
    264   (if (> (yvel) 10) 
    265       (progn 
     263/*(defun cop_mover (xm ym but)
     264  (if (> (yvel) 10)
     265      (progn
    266266        (set_yacel 0)
    267267        (set_yvel (- (yvel) 1))))  ;; terminal velocity
    268268  (select (aistate)
    269           (JUST_START 
    270            (if (eq but 0)              ; wait till user lets go of button before moving       
     269          (JUST_START
     270           (if (eq but 0)              ; wait till user lets go of button before moving
    271271               (progn
    272272                 (set_aistate NORMAL_PLAY)
    … …  
    299299                   (do_special_power xm ym but)
    300300                 (undo_special_power xm ym but))
    301                
     301
    302302               (let ((ret (player_move xm ym but))
    303303                     (other (me)))
    304                  (with_obj0 
     304                 (with_obj0
    305305                              (progn
    306306                                (set_x (with_object other (x)))
    307                                 (set_y (- (- (with_object other (y)) -29) 
     307                                (set_y (- (- (with_object other (y)) -29)
    308308                                          (with_object other (picture_height))))
    309309                                ))
    … …  
    311311                          (not (eq (state) dead)) (not (eq (state) dieing)))
    312312                     (let ((ammo (ammo_total (current_weapon_type))))
    313                        (add_ammo (current_weapon_type) (with_obj0 
     313                       (add_ammo (current_weapon_type) (with_obj0
    314314                                                                    (user_fun 'FIRE ammo)))
    315315                       nil))
    … …  
    365365                                             ;; save the level we are so joining clients know which one to load
    366366                                             (if (not (am_a_client))
    367                                                  (open_file "config/cur_lev.lsp" "wb" 
     367                                                 (open_file "config/cur_lev.lsp" "wb"
    368368                                                            (print `(setq current_net_level ,current_net_level))))
    369369
    … …  
    376376
    377377
    378               ))) 
     378              )))
    379379  )
    380380
    … …  
    383383          (JUST_START T)
    384384          (NORMAL_PLAY T)))
    385              
     385
    386386(defun change_mode (new_mode)
    387387  (setq disable_top_draw (if (should_draw_top? new_mode) 0 1))
    … …  
    392392      (put_image (- (view_x2) 20) (+ (view_y1) 5) fast_image))
    393393                       (if (eq used_special_power 1)
    394                            (if (> (total_objects) 0)                   
     394                           (if (> (total_objects) 0)
    395395                               (let ((nowx (x))
    396396                                     (nowy (y))
    … …  
    431431
    432432(defun player_draw (num)
    433   (if (eq num 0) 
     433  (if (eq num 0)
    434434      (if (eq just_fired 1)           ;; if they just fired a weapon, draw them lite up.. use the bright tint
    435435          (progn
    … …  
    439439;       (draw_tint (aref player_tints (aitype)))
    440440        )
    441     (if (eq just_fired 1)   
     441    (if (eq just_fired 1)
    442442        (progn
    443443          (draw_double_tint (aref player_tints num) bright_tint)
    444           (setq just_fired 0))      ;; ok to change this in the draw function only if it is not accessed anywhere else!     
     444          (setq just_fired 0))      ;; ok to change this in the draw function only if it is not accessed anywhere else!
    445445      (draw_tint (aref player_tints num)))))
    446446
    … …  
    468468            (setq b_ramp 0)))
    469469
    470         (if (local_player)     
     470        (if (local_player)
    471471            (tint_palette r_ramp g_ramp b_ramp))))
    472472
    … …  
    474474  (select (aistate)
    475475          (JUST_START (player_draw (player_number)))
    476           (NORMAL_PLAY 
     476          (NORMAL_PLAY
    477477           (select special_power
    478478                   (NO_POWER (player_draw (player_number)))
    … …  
    481481                                     (put_image (- (view_x2) 20) (+ (view_y1) 5) health_image)))
    482482                   (FAST_POWER (draw_fast) (player_draw (player_number)))
    483                    (FLY_POWER   (player_draw (player_number)) 
     483                   (FLY_POWER   (player_draw (player_number))
    484484                                (if (local_player)
    485485                                    (put_image (- (view_x2) 20) (+ (view_y1) 5) fly_image)))
    486                    (SNEAKY_POWER 
     486                   (SNEAKY_POWER
    487487                    (if (local_player)
    488488                        (put_image (- (view_x2) 20) (+ (view_y1) 5) sneaky_image))
    … …  
    503503
    504504  (if (eq (total_players) 1)     ;; is this a single player game?
    505       (request_level_load  (if (eq has_saved_this_level 0) 
     505      (request_level_load  (if (eq has_saved_this_level 0)
    506506                               (progn
    507507                                 (set_hp 100)
    … …  
    514514
    515515
    516 (defun start_cache (type) 
     516(defun start_cache (type)
    517517  `((,DARNEL) nil))
    518518
    … …  
    539539                                    (aref player_text_color (player_number)))))
    540540                   (p_compass_draw (next_focus player)))))
    541  
     541
    542542
    543543(defun compass_draw ()
    … …  
    626626          ))
    627627
    628  
     628
    629629(defun clone_ai ()
    630630  (if (and (< (state_time) 200) (not (eq (state) dead)))
    … …  
    636636                (-1 (if (blocked_left (move -1 0 0))
    637637                        (set_direction 1)
    638                       nil)))       
     638                      nil)))
    639639            (if (or (> (state_time) 185) (eq (state) dieing))
    640640                (set_fade_count (+ (fade_count) 1))
    641               nil)         
     641              nil)
    642642            T)
    643643        nil))
    … …  
    649649
    650650  (or (eq state stopped) (eq state running)
    651                         (eq state run_jump) (eq state run_jump_fall) 
     651                        (eq state run_jump) (eq state run_jump_fall)
    652652                        (eq state end_run_jump)))
    653653
    … …  
    655655  (if (> (total_objects) 0)
    656656      (let ((other  (get_object 0)))
    657         (if (or (with_object other (morphing)) 
     657        (if (or (with_object other (morphing))
    658658                (eq (with_object other disable_top_draw) 1)
    659659                (not (top_draw_state (with_object other (state)))))
    … …  
    664664                             (with_object other (player_number)))
    665665              (let ((nowx (x))
    666                     (nowy (y)))                         
     666                    (nowy (y)))
    667667                (set_x (with_object other (if (> (direction) 0) (x) (+ (x) 2))))
    668668                (set_y (- (- (with_object other (y)) -29) (with_object other (picture_height))))
    … …  
    695695(defun player_fire_weapon (type target)
    696696  (let ((angle (with_obj0 (player_angle_suggestion))))
    697                            
     697
    698698    (let ((firex (+ (x) (* (cos angle) 17) (xvel)))
    699699          (firey (+ (- (y) (* (sin angle) 16) 20) (yvel))))
    700       (if (can_see (x) (- (y) 16) firex firey nil)     
     700      (if (can_see (x) (- (y) 16) firex firey nil)
    701701          (progn
    702702            (fire_object  (get_object 0) type firex firey angle target)
    … …  
    704704        nil))))
    705705
    706 /* (defun top_ai () 
     706/* (defun top_ai ()
    707707  (if (> (total_objects) 0)
    708708      (let ((myself (get_object 0)))
    709      
     709
    710710        (set_state rotate)
    711         (let ((angle (with_object myself 
     711        (let ((angle (with_object myself
    712712                                            (if (> (direction) 0)
    713713                                                (player_angle_suggestion)
    … …  
    722722            (select (aistate)
    723723                    (2                  ; start fire up
    724                      (progn 
     724                     (progn
    725725                       (set_state rotate_fire)
    726                        (set_frame_angle 0 359 (with_object myself 
     726                       (set_frame_angle 0 359 (with_object myself
    727727                                            (if (> (direction) 0)
    728728                                                (player_angle_suggestion)
    … …  
    735735;;                          (let ((otype (otype)))
    736736;;                            (with_object myself (add_ammo otype -1)))
    737 ;;                          (with_object (add_object (ammo_type) (x) (- (y) 16) 1) 
     737;;                          (with_object (add_object (ammo_type) (x) (- (y) 16) 1)
    738738;;                                       (user_fun myself))
    739739                          (set_aistate 3)))
    … …  
    752752                         )))
    753753          (set_otype (with_object myself (weapon_to_type (current_weapon_type)))))))
    754   (move 0 0 0) 
     754  (move 0 0 0)
    755755  T)
    756756
    … …  
    762762  (select signal
    763763          ('FIRE (if (eq (aistate) 0)  ;;  not already firing
    764                      (if (> value 0)   ;; have ammo             
    765                          (progn               
     764                     (if (> value 0)   ;; have ammo
     765                         (progn
    766766                           (setq fire_delay1 3)
    767767                           (set_aistate 2)
    … …  
    769769                               -1
    770770                             0))
    771                        (progn                 
     771                       (progn
    772772                         (setq fire_delay1 7)
    773773                         (set_aistate 2)
    … …  
    775775
    776776                         0))
    777                    0))   
     777                   0))
    778778          ('RESET_FIRE_OK (>= (state_time) fire_delay1))))
    779779
    … …  
    812812                       (setq fire_delay1 12)
    813813                       (set_aistate 2)
    814                        (if (player_fire_weapon (ammo_type) 
    815                                            (with_obj0 (find_object_in_area 
     814                       (if (player_fire_weapon (ammo_type)
     815                                           (with_obj0 (find_object_in_area
    816816                                                                        (- (x) 160) (- (y) 160)
    817                                                                         (+ (x) 160) (+ (y) 160) 
     817                                                                        (+ (x) 160) (+ (y) 160)
    818818                                                                        bad_guy_list)))
    819819                           -1 0))
    … …  
    835835           (DFRIS_TOP     (list DFRIS_BULLET))
    836836   nil)))
    837            
     837
    838838
    839839(defun make_top_char (symbol base ufun dfun)
    … …  
    850850                       (stopped        (seq ,base 1 24))))))
    851851
    852              
     852
    853853
    854854(make_top_char 'MGUN_TOP     "4gma" 'laser_ufun         'top_draw)
    … …  
    869869                 (if (and (touching_bg) (with_object (bg) (pressing_action_key)))
    870870                     (set_aistate 2)))
    871               (2 (set_state running)       
     871              (2 (set_state running)
    872872                 (set_aistate 3))
    873               (3 (set_aistate 4))           
    874               (4 
     873              (3 (set_aistate 4))
     874              (4
    875875               (let ((spot (get_save_slot)))
    876876                 (set_state stopped)
    … …  
    892892               )))
    893893  T)
    894          
     894
    895895
    896896(def_char RESTART_POSITION
    … …  
    910910          (request_level_load (concatenate 'string "levels/level" (digstr (aistate) 2) ".spe")))))
    911911  T)
    912        
     912
    913913
    914914(def_char NEXT_LEVEL
    915   (funs (ai_fun next_level_ai)) 
     915  (funs (ai_fun next_level_ai))
    916916  (flags (can_block T))
    917917  (fields ("aistate" next_level))
    … …  
    948948          (set_direction 1))
    949949      (set_fade_count (- (fade_count) 1)))))
    950    
    951                      
     950
     951
    952952(def_char TELE_BEAM
    953953  (funs (ai_fun tele_beam_ai))

  • abuse/trunk/data-abuse/lisp/platform.lsp

    r54 r582  
    4848      (let ((speed (plat_speed)))
    4949        (let ((newx (- destx (/ (* (- destx sourcex) (xvel)) speed)))
    50               (newy (- desty (/ (* (- desty sourcey) (xvel)) speed)))) 
     50              (newy (- desty (/ (* (- desty sourcey) (xvel)) speed))))
    5151          (progn
    5252            (platform_push (- newx (x)) (- newy (y)))
    … …  
    5757(defun platform_ai ()
    5858  (if (or (eq (total_objects) 2)                     ;; no switch to listen to processed as normal
    59           (and (eq (total_objects) 3) 
     59          (and (eq (total_objects) 3)
    6060               (not (eq (with_object (get_object 2) (aistate)) 0))))  ;; see if switch is active
    6161      (progn
    … …  
    7878                 (play_sound PLAT_A_SND 127 (x) (y))
    7979                 (set_aitype (- 1 (aitype)))
    80                  (set_xvel (plat_speed));; steps to go           
     80                 (set_xvel (plat_speed));; steps to go
    8181                 (go_state 3))
    82                
     82
    8383                (3 ;; go to dest
    84                  (if (eq (xvel) 6) 
     84                 (if (eq (xvel) 6)
    8585                     (play_sound PLAT_D_SND 127 (x) (y)))
    8686                 (platform_move (get_object (aitype)) (get_object (- 1 (aitype)))))
    … …  
    8888    (set_state stopped))
    8989  T)
    90                  
    9190
    9291
    … …  
    120119
    121120
     121

  • abuse/trunk/data-abuse/lisp/playwav.lsp

    r54 r582  
    99      nil
    1010    (progn
    11       (print (concatenate 'string "Playing " (argv arg_on) 
     11      (print (concatenate 'string "Playing " (argv arg_on)
    1212                                  ", type c <ENTER> to continue"))
    1313      (play_sound (def_sound (argv arg_on)))

  • abuse/trunk/data-abuse/lisp/powerup.lsp

    r54 r582  
    22;; See licensing information for more details on usage rights
    33
    4 (defun key_ai () (if (touching_bg) 
    5                      (progn 
     4(defun key_ai () (if (touching_bg)
     5                     (progn
    66                       (play_sound YEAH_SOUND 127 (x) (y))
    77                       nil) T))
    88
    9 (defun hp_up () 
     9(defun hp_up ()
    1010        (next_picture)
    1111
    … …  
    3737  (states "art/compass.spe" (stopped "compass" )))
    3838
    39 (defun fast_ai () 
     39(defun fast_ai ()
    4040  (next_picture)
    41   (if (touching_bg) 
    42       (progn (with_object (bg) 
     41  (if (touching_bg)
     42      (progn (with_object (bg)
    4343                          (progn
    4444                            (setq special_power FAST_POWER)

  • abuse/trunk/data-abuse/lisp/sfx.lsp

    r566 r582  
    4747(def_sound 'TICK_SND       (sfxdir "timerfst.wav"))
    4848
    49 (setq PLAYER_PAIN (make-array 4 :initial-contents 
     49(setq PLAYER_PAIN (make-array 4 :initial-contents
    5050                              (list (def_sound (sfxdir "plpain01.wav"))
    5151                                    (def_sound (sfxdir "plpain02.wav"))
    … …  
    5858                                   (def_sound (sfxdir "pldeth05.wav"))
    5959                                   (def_sound (sfxdir "pldeth07.wav")))))
    60                                    
     60
    6161
    6262;; jugger stomp
    … …  
    8080
    8181;; shotgun/laser taking from the lava sample
    82 (def_sound 'ZAP_SND       (sfxdir "zap2.wav")) 
     82(def_sound 'ZAP_SND       (sfxdir "zap2.wav"))
    8383
    8484;; rocket launch sound
    … …  
    9393
    9494;; machine gun hitting the floor, sounds 1 & 2, played randomly
    95 (def_sound    'MG_HIT_SND1 (sfxdir "mghit01.wav"))   
     95(def_sound    'MG_HIT_SND1 (sfxdir "mghit01.wav"))
    9696(def_sound    'MG_HIT_SND2 (sfxdir "mghit02.wav"))
    9797
    … …  
    131131;; electricity shooting up from the ground
    132132(def_sound 'ELECTRIC_SND   (sfxdir "elect02.wav"))
    133  
     133
    134134;; rocket being fired
    135135(def_sound 'ROCKET_SND     (sfxdir "rocket02.wav"))
    … …  
    185185
    186186
    187 (setq AMB_SOUNDS (make-array 17 :initial-contents (list 
     187(setq AMB_SOUNDS (make-array 17 :initial-contents (list
    188188                               (def_sound (sfxdir "ambtech1.wav"))   ;; 0
    189189                               (def_sound (sfxdir "ambtech2.wav"))  ;; 1
    … …  
    224224      T)))
    225225
    226        
    227 (defun ambs_cons () 
     226
     227(defun ambs_cons ()
    228228  (set_xvel 100)  ;; delay time to 100
    229229  (set_yvel 127)) ;; set volume default to 127
    230230
    231 (def_char AMBIENT_SOUND 
     231(def_char AMBIENT_SOUND
    232232  (funs (ai_fun          amb_sound_ai)
    233233        (draw_fun        dev_draw)
    … …  
    236236  (range 500 500)
    237237  (fields ("aitype" amb_num)
    238           ("yvel"   amb_vol)     
     238          ("yvel"   amb_vol)
    239239          ("xvel"   amb_rep)
    240240          ("xacel"  amb_rand))
    241241  (states "art/misc.spe"
    242242          (stopped "sfx_player")))
    243        
     243
    244244(setq song_list '("music/abuse01.hmi" "music/abuse02.hmi"))
    245245(setq current_song song_list)
    … …  
    251251        (break)
    252252        (setq current_song (cdr current_song))
    253         (if (not current_song) 
     253        (if (not current_song)
    254254            (setq current_song song_list))
    255255        (break)
    256256        )))
    257257
    258                                    
     258
    259259(defun level_loaded (name)
    260260  (trace)

  • abuse/trunk/data-abuse/lisp/startup.lsp

    r54 r582  
    66(setq load_warn nil)
    77
    8 (if (local_load "config/username.lsp") 
     8(if (local_load "config/username.lsp")
    99  (set_login username))
    1010
    11 (if (local_load "config/gamename.lsp") 
     11(if (local_load "config/gamename.lsp")
    1212  (set_game_name gamename)
    1313  (set_game_name "Abuse Net Game"))

  • abuse/trunk/data-abuse/lisp/switch.lsp

    r54 r582  
    22;; See licensing information for more details on usage rights
    33
    4 (defun switcher_ai () 
     4(defun switcher_ai ()
    55  (next_picture)
    66  (select (aistate)
    … …  
    99               (progn
    1010                 (play_sound SWITCH_SND 127 (x) (y))
    11                  (set_state running)             
     11                 (set_state running)
    1212                 (set_aistate 1))))
    13           (1     ; wait for player to let go of button   
     13          (1     ; wait for player to let go of button
    1414           (if (not (with_object (bg) (pressing_action_key)))
    1515               (set_aistate 2)))
    … …  
    1919                 (play_sound SWITCH_SND 127 (x) (y))
    2020                 (set_state stopped)
    21                  (set_aistate 4))))     
     21                 (set_aistate 4))))
    2222           (4     ; wait for player to let go of button
    2323            (if (not (with_object (bg) (pressing_action_key)))
    … …  
    2525           )
    2626T)
    27              
    28 
    29 (defun switch_once_ai () 
     27
     28
     29(defun switch_once_ai ()
    3030  (select (aistate)
    3131          (0      ; waiting for player to press, then turn to on
    … …  
    3838                 (set_aistate 1)))))
    3939  T)
    40          
     40
    4141(defun lower_reload () (lower))   ;; move object below all other objects
    42      
     42
    4343(def_char SWITCH
    4444  (funs (ai_fun switcher_ai)
    4545        (reload_fun lower_reload))
    46   (range 0 0) 
     46  (range 0 0)
    4747  (states "art/misc.spe"
    4848          (stopped '("switch_off1" "switch_off2"))
    … …  
    5252  (funs (ai_fun switch_once_ai)
    5353        (reload_fun lower_reload))
    54   (range 0 0) 
     54  (range 0 0)
    5555  (states "art/misc.spe"
    5656          (stopped '("switch_off1" "switch_off2"))
    … …  
    6767  (vars reset_time)
    6868  (fields ("reset_time" switch_reset))
    69   (range 0 0) 
     69  (range 0 0)
    7070  (states "art/misc.spe"
    7171          (stopped '("switch_off1" "switch_off2"))
    … …  
    9999  (if (> (total_objects) 1)
    100100      (select (aistate)
    101               (0 (if (not (eq (with_object (get_object 0) (aistate)) 0))                     
     101              (0 (if (not (eq (with_object (get_object 0) (aistate)) 0))
    102102                     (let ((mex (x))
    103103                           (mey (y)))
    … …  
    124124                       (with_object (get_object 1) (set_fade_count (- count 1)))
    125125                       T)))))
    126                              
     126
    127127    nil))
    128128
    … …  
    138138  (set_aitype 1)
    139139  (add_hp -10))
    140  
     140
    141141
    142142/* -- compiled code
    … …  
    144144  (if (eq (aistate) 0)
    145145      (if (and (< (distx) (xvel)) (< (disty) (yvel)))
    146           (progn 
     146          (progn
    147147            (if (eq (hp) 0)  ;; don't time out
    148148                (set_aistate 1)
    … …  
    152152
    153153        (if (eq (hp) 0)
    154             (if (or (> (distx) (xacel)) (> (disty) (yacel)))       
     154            (if (or (> (distx) (xacel)) (> (disty) (yacel)))
    155155                (set_aistate 0))
    156156          (set_aistate (- (aistate) 1))))
    … …  
    158158
    159159(defun sensor_draw ()
    160   (if (edit_mode) 
     160  (if (edit_mode)
    161161      (progn
    162162        (draw)
    … …  
    216216          (stopped "off")
    217217          (blocking "on")))
    218                    
     218
    219219/*
    220220(defun sensor_linker_ai ()
    221221  (if (eq (aistate) 0)
    222222      (if (and (< (distx) (xvel)) (< (disty) (yvel)))
    223           (progn 
     223          (progn
    224224            (if (eq (hp) 0)  ;; don't time out
    225225                (set_aistate 1)
    … …  
    229229
    230230    (if (eq (hp) 0)
    231         (if (or (> (distx) (xacel)) (> (disty) (yacel)))           
     231        (if (or (> (distx) (xacel)) (> (disty) (yacel)))
    232232            (set_aistate 0))
    233233      (set_aistate (- (aistate) 1)))))
    … …  
    251251          (stopped "off")
    252252          (blocking "on")))
    253  
     253
    254254*/
    255255
    … …  
    258258      (let ((st (with_object (get_object current) (state))))
    259259        (if (or (eq st dead) (eq st blown_back_dead))
    260             (let ((dead_guy (get_object current)))           
     260            (let ((dead_guy (get_object current)))
    261261              (remove_object (get_object current))
    262262              dead_guy)
    … …  
    268268      (let ((find (dead_object (- (total_objects) 1))))
    269269        (if find
    270             (add_object (with_object (get_object 0) (otype)) 
     270            (add_object (with_object (get_object 0) (otype))
    271271                        (with_object find (x))
    272272                        (with_object find (y))))))
    273                          
     273
    274274  T)
    275275
    … …  
    282282
    283283
    284 (defun death_sen_ai () 
     284(defun death_sen_ai ()
    285285  (if (eq (total_objects) 0)
    286286      (progn

  • abuse/trunk/data-abuse/lisp/teleport.lsp

    r54 r582  
    77    (with_object (get_object 0)
    88                 (if (eq (otype) TP_DOOR)
    9                      (if (eq is_opening 0)                       
     9                     (if (eq is_opening 0)
    1010                         (if (and (< (distx) 100) (< (disty) 80))
    1111                             T
    … …  
    3232          (play_sound DOOR_DOWN 127 (x) (y)))
    3333      (set_current_frame (- (current_frame) 1)))))
    34  
     34
    3535
    3636(defun tpd_ai ()     ;; teleporting door ai
    … …  
    4949                (othery (with_object (get_object 0) (y))))
    5050            (with_object (get_object 0) (link_object player))
    51             (with_object player (progn 
    52                                   (set_x otherx) 
     51            (with_object player (progn
     52                                  (set_x otherx)
    5353                                  (set_y othery)))))))
    5454T)
    … …  
    5656
    5757(defun tp_door_cons () (set_xvel -1))
    58 (defun tp_door_draw () (set_ambient_light (bg) (xvel)) (draw))   
     58(defun tp_door_draw () (set_ambient_light (bg) (xvel)) (draw))
    5959
    6060(def_char TP_DOOR

  • abuse/trunk/data-abuse/lisp/userfuns.lsp

    r54 r582  
    88      (set_lives first x)
    99      (set_all_lives (next_focus first) x))))
    10  
    1110
    12 (defun select_place (x place)
     11
     12(defun select_place (x place)
    1313  (- (/ x place) (* (/ x (* place 10)) 10)))
    1414
    15 (defun dig2char (x) 
     15(defun dig2char (x)
    1616  (code-char (+ x (char-code "0"))))
    1717
    … …  
    2424    (reverse-seq name first last))
    2525)
    26 (defun forward-seq (name first last) 
    27   (if (> first last) 
    28       nil 
    29     (cons (concatenate 'string name (digstr first 4) ".pcx") 
     26(defun forward-seq (name first last)
     27  (if (> first last)
     28      nil
     29    (cons (concatenate 'string name (digstr first 4) ".pcx")
    3030          (forward-seq name (+ 1 first) last))))
    31 (defun reverse-seq (name last first) 
    32   (if (< last first) 
    33       nil 
    34     (cons (concatenate 'string name (digstr last 4) ".pcx") 
     31(defun reverse-seq (name last first)
     32  (if (< last first)
     33      nil
     34    (cons (concatenate 'string name (digstr last 4) ".pcx")
    3535          (reverse-seq name (- last 1) first))))
    3636

  • abuse/trunk/data-abuse/lisp/weapons.lsp

    r54 r582  
    99      (if (eq bx T)
    1010          T
    11         (progn 
     11        (progn
    1212          (if (null bx)
    1313              (if (eq (random 2) 0)
    … …  
    2020            (progn
    2121;             (add_panim EXPLO2 (x) (y) (direction))
    22 ;             (add_object EXP_LIGHT (x) (y) 80) 
     22;             (add_object EXP_LIGHT (x) (y) 80)
    2323              (do_damage 5 bx (if (> 0 (direction)) -10 10) 0)
    2424              ))
    … …  
    2929  (if (and (eq (tick) 0)
    3030           (if (< (total_objects) 1)
    31                nil           
     31               nil
    3232             (let ((mex (x))
    3333                   (mey (y)))
    34                (not (with_object (get_object 0) (find_object_in_area (- mex 7) 
    35                                                                      (- mey 7) 
    36                                                                      (+ mex 7) 
     34               (not (with_object (get_object 0) (find_object_in_area (- mex 7)
     35                                                                     (- mey 7)
     36                                                                     (+ mex 7)
    3737                                                                     (+ mey 7) bad_guy_list))))))
    3838      (progn (next_picture) T)
    … …  
    4444
    4545  (add_object EXPLODE1 (- (x) (random 5)) (+ (y) (random 20)) 0)
    46   (hurt_radius (x) (y) 60 40 (if (> (total_objects) 0) (get_object 0) nil) 10)     
     46  (hurt_radius (x) (y) 60 40 (if (> (total_objects) 0) (get_object 0) nil) 10)
    4747
    4848  (and (or (< (state_time) 3) (not (eq (xvel) 0)))
    4949       (< (state_time) 20)
    5050       (select (direction)
    51               (1 (progn ;(set_xvel 30) 
     51              (1 (progn ;(set_xvel 30)
    5252                        (not (blocked_right (move 0 0 0)))
    5353                        ))
    54               (-1 (progn ;(set_xvel -30) 
     54              (-1 (progn ;(set_xvel -30)
    5555                         (not (blocked_left (move 0 0 0))))))))
    56      
    57 
    58 
    59 
    60 
    61 (defun mbullet_ufun (creator) 
     56
     57
     58
     59
     60
     61(defun mbullet_ufun (creator)
    6262  (set_direction (with_object creator (direction)))
    6363
    … …  
    7676
    7777
    78 (defun firebomb_ufun (creator) 
     78(defun firebomb_ufun (creator)
    7979  (set_direction (with_object creator (direction)))
    8080  (link_object creator)
    … …  
    8383
    8484
    85 (defun player_mine_ufun (creator) 
     85(defun player_mine_ufun (creator)
    8686  (set_x (with_object creator (x)))
    8787  (set_y (with_object creator (y)))
    … …  
    9494  (select (aistate)
    9595          (0
    96            ;; wait till no player (just in case), or player lets go of fire button 
    97            (if (or (eq 0 (total_objects)) 
     96           ;; wait till no player (just in case), or player lets go of fire button
     97           (if (or (eq 0 (total_objects))
    9898                   (and (eq (with_object (get_object 0) (player_b1_suggest)) 0)
    9999                        (eq (with_object (get_object 0) (player_b2_suggest)) 0)))
    … …  
    107107               (do_explo 50 40)
    108108             ))))
    109      
     109
    110110
    111111(def_char MBULLET
    112   (funs (ai_fun     mbullet_ai) 
     112  (funs (ai_fun     mbullet_ai)
    113113        (draw_fun   dev_draw)     ; you can't see the bullets
    114114        (user_fun   mbullet_ufun))
    … …  
    118118
    119119
    120 (defun grenade_ufun (creator) 
     120(defun grenade_ufun (creator)
    121121  (set_direction (with_object creator (direction)))
    122122  (play_sound GRENADE_THROW 127 (x) (y))
    123123  (select (aitype)
    124           (1 (progn (set_xvel (if (> (direction) 0) 
    125                                   (+ 13 (random 2)) 
     124          (1 (progn (set_xvel (if (> (direction) 0)
     125                                  (+ 13 (random 2))
    126126                                (+ -13 (random 2)))) (set_yvel -4)))
    127           (2 (progn (set_xvel (if (> (direction) 0) 
    128                                   (+ 7 (random 2)) 
     127          (2 (progn (set_xvel (if (> (direction) 0)
     128                                  (+ 7 (random 2))
    129129                                (+ -7 (random 2)))) (set_yvel -10))))
    130130  (set_xvel (+ (xvel) (with_object creator (xvel))))
    … …  
    133133
    134134(defun grenade_cache (type)
    135   (list (list EXPLODE1 EXP_LIGHT) 
     135  (list (list EXPLODE1 EXP_LIGHT)
    136136        (list GRENADE_SND)))
    137137
    138138
    139139(def_char GRENADE
    140   (funs (ai_fun   grenade_ai) 
     140  (funs (ai_fun   grenade_ai)
    141141        (get_cache_list_fun grenade_cache)
    142142        (user_fun grenade_ufun))
    … …  
    147147
    148148(def_char FIREBOMB
    149   (funs (ai_fun   firebomb_ai) 
     149  (funs (ai_fun   firebomb_ai)
    150150        (user_fun firebomb_ufun)
    151151        (get_cache_list_fun grenade_cache)
    … …  
    162162  (let ((amount (get_ability start_hp)))
    163163    (with_object (bg)
    164                  (progn 
     164                 (progn
    165165                   (if (and (not (has_weapon type)) change_on_pickup)
    166166                       (progn
    167167                         (give_weapon type)
    168                          (set_current_weapon type))                                 
     168                         (set_current_weapon type))
    169169                     (give_weapon type))
    170170                   (add_ammo type amount)))))
    171171
    172172
    173 (defun weapon_icon_ai () 
     173(defun weapon_icon_ai ()
    174174  (if (eq0 (aistate))
    175175      (if (activated)
    … …  
    179179                (set_aistate 1))
    180180
    181             (if (touching_bg) 
     181            (if (touching_bg)
    182182                (progn
    183183                  (play_sound AMMO_SND 127 (x) (y))
    … …  
    185185                          (MBULLET_ICON5   (giver 0));; these numbers correspond to status bar position
    186186                          (MBULLET_ICON20  (giver 0))
    187                           (GRENADE_ICON2   (giver 1))           
     187                          (GRENADE_ICON2   (giver 1))
    188188                          (GRENADE_ICON10  (giver 1))
    189189
    … …  
    208208              T))
    209209        T)
    210     (if (touching_bg) 
     210    (if (touching_bg)
    211211        (progn
    212212          (play_sound AMMO_SND 127 (x) (y))
    … …  
    214214                  (MBULLET_ICON5   (giver 0));; these numbers correspond to status bar position
    215215                  (MBULLET_ICON20  (giver 0))
    216                   (GRENADE_ICON2   (giver 1))           
     216                  (GRENADE_ICON2   (giver 1))
    217217                  (GRENADE_ICON10  (giver 1))
    218218
    … …  
    235235          nil)
    236236      T)))
    237        
     237
    238238(defun on_draw ()
    239239  (if (activated)
    240240      (draw)
    241241    (dev_draw)))
    242      
     242
    243243
    244244(defun ammo_cache (type)    ;; tells what other chars to load in with this character
    … …  
    250250           (MBULLET_ICON20   `(,SHOTGUN_BULLET ,MGUN_TOP))
    251251           (ROCKET_ICON2     `(,ROCKET ,ROCKET_TOP))
    252            (ROCKET_ICON5     `(,ROCKET ,ROCKET_TOP))     
     252           (ROCKET_ICON5     `(,ROCKET ,ROCKET_TOP))
    253253           (FBOMB_ICON1      `(,FIREBOMB ,FIREBOMB_TOP))
    254254           (FBOMB_ICON5      `(,FIREBOMB ,FIREBOMB_TOP))
    255255
    256256           (PLASMA_ICON20    `(,PLASMAGUN_BULLET))
    257            (PLASMA_ICON50    `(,PLASMAGUN_BULLET))         
     257           (PLASMA_ICON50    `(,PLASMAGUN_BULLET))
    258258
    259259           (LSABER_ICON50    `(,LSABER_BULLET ,PGUN_TOP))
    … …  
    265265
    266266(defun make_ammo_icon (symbol icon_name increment)
    267   (eval (list 'def_char symbol       
     267  (eval (list 'def_char symbol
    268268              '(funs (ai_fun weapon_icon_ai)
    269269                     (get_cache_list_fun ammo_cache)
    … …  
    288288
    289289
    290 (defun guner_cons () 
     290(defun guner_cons ()
    291291  (set_xvel 7)     ;; fire speed
    292292  (set_yvel 50)    ;; speed of bullet
    … …  
    309309            (progn
    310310              (play_sound BLOWN_UP 127 (x) (y))
    311               (add_object EXPLODE1 (- hitx (random 10)) (- hity (random 25)) 0)     
    312               (add_object EXPLODE1 (+ hitx (random 10)) (+ hity (random 25)) 1)     
    313               (add_object EXPLODE1 (- hitx (random 10)) (- hity (random 10)) 2)     
     311              (add_object EXPLODE1 (- hitx (random 10)) (- hity (random 25)) 0)
     312              (add_object EXPLODE1 (+ hitx (random 10)) (+ hity (random 25)) 1)
     313              (add_object EXPLODE1 (- hitx (random 10)) (- hity (random 10)) 2)
    314314              (add_object EXPLODE1 (+ hitx (random 10)) (+ hity (random 10)) 3) ))))
    315315)
    … …  
    319319
    320320
    321                
     321
    322322(defun shot_ai () (eq (bmove nil) T))
    323323(defun gun_ai ()
    … …  
    336336                                   (progn
    337337                                     (with_object (add_object VIS_SHOT
    338                                                               (+ (x) (* (cos a) 10)) 
     338                                                              (+ (x) (* (cos a) 10))
    339339                                                              (- (y) (+ 10 (* (sin a) 10))))
    340340                                                  (progn
    … …  
    352352
    353353
    354 (defun rocket_ai () 
     354(defun rocket_ai ()
    355355  (if (not (frame_panic))
    356356      (let ((rand (rand_on)))
    357         (with_object (add_object SMALL_LIGHT_CLOUD (+ (x) (random 3)) 
     357        (with_object (add_object SMALL_LIGHT_CLOUD (+ (x) (random 3))
    358358                                 (- (y) (random 3) (/ (picture_height) 2)))
    359359                     (set_fade_count 11))
    … …  
    366366                            (- (aistate) angle)
    367367                          (+ (aistate) (- 360 angle)))))
    368         (let ((closest_dist (if (> clock_dist 180) 
     368        (let ((closest_dist (if (> clock_dist 180)
    369369                                (- 360 clock_dist)
    370370                              clock_dist)))
    … …  
    383383  (set_frame_angle 0 359 (aistate))
    384384  (if (or (eq (hp) 0)
    385           (not (eq (bmove (if (> (total_objects) 0) (get_object 0) nil)) T)) 
    386           (and (> (total_objects) 1) 
     385          (not (eq (bmove (if (> (total_objects) 0) (get_object 0) nil)) T))
     386          (and (> (total_objects) 1)
    387387               (< (abs (- (with_object (get_object 1) (x)) (x) )) 10)
    388388               (< (abs (- (- (with_object (get_object 1) (y)) (y)) 15 )) 10)))
    … …  
    391391        nil)
    392392  T))
    393          
    394 
    395 (defun rocket_ufun (creator) 
     393
     394
     395(defun rocket_ufun (creator)
    396396  (link_object creator)
    397397  (play_sound ROCKET_SND 127 (x) (y))
    398398
    399   (let ((target (with_object creator (find_object_in_area 
     399  (let ((target (with_object creator (find_object_in_area
    400400                                      (- (x) 160) (- (y) 160)
    401401                                      (+ (x) 160) (+ (y) 160) bad_guy_list))))
    … …  
    412412(def_char ROCKET
    413413  (funs (ai_fun   rocket_ai)
    414         (get_cache_list_fun rocket_cache)       
     414        (get_cache_list_fun rocket_cache)
    415415        (get_cache_list_fun grenade_cache)
    416416        (user_fun rocket_ufun))
    … …  
    429429  (setq sgb_lasty (y))
    430430  (setq sgb_speed (/ (* sgb_speed 6) 5))
    431   (set_course sgb_angle sgb_speed) 
     431  (set_course sgb_angle sgb_speed)
    432432  (if (eq sgb_lifetime 0)
    433433      nil
    … …  
    458458
    459459
    460 (defun sgun_ufun (creator) 
     460(defun sgun_ufun (creator)
    461461  (set_direction (with_object creator (direction)))
    462462  (set_y (- (y) 4))
    … …  
    472472               (< (abs (- (y) (with_object target (y)))) 100))
    473473          (setq sgb_angle (site_angle target))
    474         (if (> (direction) 0)       
     474        (if (> (direction) 0)
    475475            (setq sgb_angle 0)
    476476          (setq sgb_angle 180)))))
    … …  
    480480
    481481(def_char SHOTGUN_BULLET
    482   (vars sgb_speed sgb_angle sgb_lastx sgb_lasty 
     482  (vars sgb_speed sgb_angle sgb_lastx sgb_lasty
    483483        sgb_bright_color sgb_medium_color sgb_lifetime)
    484484  (funs (ai_fun   sgun_ai)

  • abuse/trunk/data-frabs/abuse.lsp

    r581 r582  
    1010    (progn
    1111      (print "Please make sure you unzipped the game with the -d option")
    12       (print "so that all directories get created properly.")     
    13       (print "example : pkunzip -d abusXXXX.zip")     
     12      (print "so that all directories get created properly.")
     13      (print "example : pkunzip -d abusXXXX.zip")
    1414      (quit)))
    1515(setq load_warn T)
    … …  
    1818(load "lisp/common.lsp")
    1919(load "lisp/userfuns.lsp")
    20 (load "lisp/options.lsp")     
     20(load "lisp/options.lsp")
    2121(load "lisp/startup.lsp")
    2222(if (not (local_load "addon/twist/lisp/input.lsp"))

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

    r566 r582  
    4545
    4646(defun alien_wait_time ()
    47   (select difficulty 
     47  (select difficulty
    4848          ('easy    6)
    4949          ('medium  4)
    … …  
    5959        nil
    6060      T)))
    61      
    62      
     61
     62
    6363(defun roof_above () (not (can_see (x) (y) (x) (- (y) 120) nil)))
    6464
    6565(defun ali_dodge ()
    6666  (if (eq need_to_dodge 1)
    67       (progn 
     67      (progn
    6868        (setq need_to_dodge 0)
    6969        (if (eq (random 2) 1)
    … …  
    113113                           (and (< (distx) 130) (< (y) (with_object (bg) (y))))
    114114                         (not (eq (with_object (get_object 0) (aistate)) 0)))
    115                        (progn 
     115                       (progn
    116116                         (set_state fall_start)                  (set_direction (toward))
    117117                         (set_aistate 1))))
    … …  
    128128                  (9 ;; landing / turn around (general finish animation state)
    129129                   (if (next_picture) T
    130                      (if (try_move 0 2) 
     130                     (if (try_move 0 2)
    131131                         (progn
    132132                           (set_gravity 1)
    133133                           (set_aistate 1))
    134                        (progn (set_state stopped)                         
     134                       (progn (set_state stopped)
    135135                              (go_state 2)))))  ;; running
    136136
    … …  
    159159                             (set_state turn_around)
    160160                             (set_aistate 9)))))
    161              
     161
    162162                  (4 ;; wait for pounce
    163163                   (if (ali_dodge) T
    … …  
    171171                             (go_state 6))))))
    172172
    173                   (6 ;; jump             
     173                  (6 ;; jump
    174174                   (setq need_to_dodge 0)
    175175                   (if (blocked_down (move (direction) -1 0))
    … …  
    192192            (damage_fun amount from hitx hity push_xvel push_yvel)
    193193            (play_sound ALPAIN_SND 127 (x) (y))
    194             (setq need_to_dodge 1)         
     194            (setq need_to_dodge 1)
    195195            (if (<= (hp) 0)
    196196                (progn
    … …  
    238238             (push_xrange     1)
    239239             (jump_top_speed 15))
    240  
     240
    241241  (flags (hurtable  T)
    242242         (force_health T))
    243243
    244244  (states "addon/aliens/aliens.spe"
    245           (stopped              "fhwk0001.pcx") 
     245          (stopped              "fhwk0001.pcx")
    246246          (fall_start   "fhattack.pcx")
    247247          (falling              "fhattack.pcx")
    … …  
    266266              (with_object (get_object 0) (not (eq (aistate) 0))))
    267267              (set_aistate 1))
    268         (select (current_frame) 
     268        (select (current_frame)
    269269            (12 (set_current_frame 13)
    270270                (with_object (add_object_after FACE_HUGGER (+ (x) (* (toward) 20)) (y))
    … …  
    290290        )))
    291291  T)
    292            
     292
    293293
    294294(def_char FACE_HUGGER_EGG
    … …  
    318318         (stopped "eggunh.pcx")))
    319319
    320 (defun fh_d_egg_ai () 
     320(defun fh_d_egg_ai ()
    321321        (progn
    322322        (try_move 0 10)
    … …  
    328328         (stopped "afhj0001.pcx")))
    329329
    330 (defun d_fh_jar_ai () 
     330(defun d_fh_jar_ai ()
    331331        (progn
    332332        (lower)))
    … …  
    334334(def_char FACE_HUGGER_JAR_ALIVE
    335335   (funs (ai_fun a_fh_jar_ai)
    336         (damage_fun             jar_damage)) 
     336        (damage_fun             jar_damage))
    337337   (flags (hurtable  T))
    338338   (states "addon/aliens/aliens.spe"
    … …  
    348348                )))
    349349
    350 (defun a_fh_jar_ai () 
     350(defun a_fh_jar_ai ()
    351351  (if (eq (aistate) 0)
    352352        (progn
    … …  
    376376(defun ad_dodge ()
    377377  (if (eq need_to_dodge 1)
    378       (progn 
     378      (progn
    379379        (setq need_to_dodge 0)
    380380        (if (eq (random 2) 1)
    … …  
    383383              (go_state 6))         ;; jump at player
    384384          (if (roof_above)
    385               (progn                   
    386                 (set_yvel -17)  ;; jump up 
     385              (progn
     386                (set_yvel -17)  ;; jump up
    387387                (set_xvel 0)
    388388                (go_state 12))
    … …  
    406406        (playerx (+ (with_object (bg) (x)) (with_object (bg) (* (xvel) 8))))
    407407        (playery (+ (- (with_object (bg) (y)) 15) (with_object (bg) (* (yvel) 2)))))
    408    
     408
    409409    (if (and (can_see (x) (y) firex firey nil) (can_see firex firey playerx playery nil))
    410410        (progn
    … …  
    428428                                        (setq sgb_bright_color (find_rgb 255 255 200))
    429429                                        (setq sgb_medium_color (find_rgb 150 150 0))
    430                                         (if creator 
     430                                        (if creator
    431431                                            (progn
    432432                                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
    … …  
    442442                                        (setq sgb_lasty (y))
    443443                                        (setq sgb_angle angle)
    444                                        
     444
    445445                                        (setq sgb_bright_color (find_rgb 255 128 64))
    446446                                        (setq sgb_medium_color (find_rgb 255 0 0))
    447                                         (if creator 
     447                                        (if creator
    448448                                            (progn
    449449                                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
    … …  
    455455                            (play_sound GRENADE_THROW 127 x y)
    456456                            (set_course angle 20)
    457                             (if creator 
     457                            (if creator
    458458                                (progn
    459459                                  (link_object creator)
    … …  
    461461                                  (set_yvel (+ (yvel) (with_object creator (yvel))))
    462462                                  ))
    463                            
     463
    464464                            (set_frame_angle 0 359 angle)
    465465                            )))
    … …  
    471471
    472472                            (if (and target   ;; don't link if not in line of site
    473                                      (can_see (x) (y) 
     473                                     (can_see (x) (y)
    474474                                              (with_object target (x))
    475475                                              (with_object target (y)) nil))
    … …  
    489489                                        (setq sgb_lastx (x))
    490490                                        (setq sgb_lasty (y))
    491                                         (if creator 
     491                                        (if creator
    492492                                              (link_object creator))
    493493                                        (set_course angle 200)
    … …  
    497497                                          (if (not (eq bx T))
    498498                                              (if (eq bx nil)
    499                                                   (add_object EXPLODE5 (- (x) (random 5)) 
     499                                                  (add_object EXPLODE5 (- (x) (random 5))
    500500                                                              (- (y) (random 5)) 0)
    501501                                                (progn
    502                                                   (add_object EXPLODE3 (- (x) (random 5)) 
     502                                                  (add_object EXPLODE3 (- (x) (random 5))
    503503                                                              (- (y) (random 5)) 0)
    504                                                   (do_damage 10 bx (* (cos sgb_angle) 20) 
     504                                                  (do_damage 10 bx (* (cos sgb_angle) 20)
    505505                                                             (* (sin sgb_angle) 10)))))
    506506                                          (setq sgb_lastx (x))
    … …  
    515515                            (play_sound FIREBOMB_SND 127 (x) (y))
    516516                            (set_course angle 20)
    517                             (if creator 
     517                            (if creator
    518518                                (progn
    519519                                  (link_object creator)
    … …  
    526526                                        (set_course angle 25)
    527527                                        (set_aistate angle)
    528                                         (if creator 
     528                                        (if creator
    529529                                              (link_object creator))
    530530                                        (dfris_ai)
    … …  
    536536                                        (setq sgb_lastx (x))
    537537                                        (setq sgb_lasty (y))
    538                                         (if creator 
     538                                        (if creator
    539539                                              (link_object creator))
    540540                                        (set_course angle 45)
    … …  
    542542                                          (if (not (eq bx T))
    543543                                              (if (not (eq bx nil))
    544                                                   (do_damage 30 bx (* (cos sgb_angle) 20) 
     544                                                  (do_damage 30 bx (* (cos sgb_angle) 20)
    545545                                                             (* (sin sgb_angle) 10)))))
    546546                                        )))
    547                            
     547
    548548
    549549          (9 (with_object (add_object STRAIT_ROCKET x y)
    550550                                      (progn
    551551                                        (play_sound MGUN_SND 127 (x) (y))
    552                                         (if creator 
     552                                        (if creator
    553553                                              (link_object creator))
    554554                                        (set_aistate angle)
    … …  
    566566                                        (setq sgb_bright_color (find_rgb 255 0 0))
    567567                                        (setq sgb_medium_color (find_rgb 150 0 0))
    568                                         (if creator 
     568                                        (if creator
    569569                                            (progn
    570570                                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
    … …  
    583583                                        (setq sgb_bright_color (find_rgb 170 210 50))
    584584                                        (setq sgb_medium_color (find_rgb 120 180 70))
    585                                         (if creator 
     585                                        (if creator
    586586                                            (progn
    587587                                              (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
    … …  
    611611                           (and (< (distx) 130) (< (y) (with_object (bg) (y))))
    612612                         (not (eq (with_object (get_object 0) (aistate)) 0)))
    613                        (progn 
     613                       (progn
    614614                         (set_state fall_start)                  (set_direction (toward))
    615615                         (set_aistate 1))))
    … …  
    626626                  (9 ;; landing / turn around (general finish animation state)
    627627                   (if (next_picture) T
    628                      (if (try_move 0 2) 
     628                     (if (try_move 0 2)
    629629                         (progn
    630630                           (set_gravity 1)
    631631                           (set_aistate 1))
    632                        (progn (set_state stopped)                         
     632                       (progn (set_state stopped)
    633633                              (go_state 2)))))  ;; running
    634634
    … …  
    661661                             (set_state turn_around)
    662662                             (set_aistate 9)))))
    663              
     663
    664664                  (4 ;; wait for pounce
    665665                   (if (ad_dodge) T
    … …  
    673673                             (go_state 6))))))
    674674
    675                   (6 ;; jump             
     675                  (6 ;; jump
    676676                   (setq need_to_dodge 0)
    677677                   (if (blocked_down (move (direction) -1 0))
    … …  
    680680
    681681                  (8 ;; fire at player
    682                    (if (ad_dodge) T                 
     682                   (if (ad_dodge) T
    683683                     (if (eq (state) fire_wait)
    684684                         (if (next_picture)
    … …  
    711711                  (13 ;; roof walking
    712712                   (alscream_check)
    713                    (if (or (and (< (y) (with_object (bg) (y))) 
    714                                 (< (distx) 10) (eq (random 8) 0)) 
     713                   (if (or (and (< (y) (with_object (bg) (y)))
     714                                (< (distx) 10) (eq (random 8) 0))
    715715                           (eq need_to_dodge 1))  ;; shooting at us, fall down
    716716                       (progn
    … …  
    728728                                         (- 0 (get_ability run_top_speed)))))
    729729                           (if (and (can_see (x) (- (y) 21) (+ (x) xspeed) (- (y) 21) nil)
    730                                     (not (can_see (+ (x) xspeed) (- (y) 21) 
     730                                    (not (can_see (+ (x) xspeed) (- (y) 21)
    731731                                                  (+ (x) xspeed) (- (y) 22) nil)))
    732732                               (progn
    733733                                 (set_x (+ (x) xspeed))
    734                                  (if (not (next_picture)) 
     734                                 (if (not (next_picture))
    735735                                     (set_state top_walk)))
    736736                             (set_aistate 1)))))))
    737        
     737
    738738                  (14 ;; cieling shoot
    739739                   (if (next_picture)
    … …  
    778778             (push_xrange     2)
    779779             (jump_top_speed 16))
    780  
     780
    781781  (flags (hurtable  T)
    782782         (force_health T))
    … …  
    833833                           (and (< (distx) 130) (< (y) (with_object (bg) (y))))
    834834                         (not (eq (with_object (get_object 0) (aistate)) 0)))
    835                        (progn 
     835                       (progn
    836836                         (set_state fall_start)                  (set_direction (toward))
    837837                         (set_aistate 1))))
    … …  
    848848                  (9 ;; landing / turn around (general finish animation state)
    849849                   (if (next_picture) T
    850                      (if (try_move 0 2) 
     850                     (if (try_move 0 2)
    851851                         (progn
    852852                           (set_gravity 1)
    853853                           (set_aistate 1))
    854                        (progn (set_state stopped)                         
     854                       (progn (set_state stopped)
    855855                              (go_state 2)))))  ;; running
    856856
    … …  
    883883                             (set_state turn_around)
    884884                             (set_aistate 9)))))
    885              
     885
    886886                  (4 ;; wait for pounce
    887887                   (if (ali_dodge) T
    … …  
    895895                             (go_state 6))))))
    896896
    897                   (6 ;; jump             
     897                  (6 ;; jump
    898898                   (setq need_to_dodge 0)
    899899                   (if (blocked_down (move (direction) -1 0))
    … …  
    902902
    903903                  (8 ;; fire at player
    904                    (if (ad_dodge) T                 
     904                   (if (ad_dodge) T
    905905                     (if (eq (state) fire_wait)
    906906                         (if (next_picture)
    … …  
    946946             (push_xrange     2)
    947947             (jump_top_speed 12))
    948  
     948
    949949  (flags (hurtable  T)
    950950         (force_health T))

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

    r566 r582  
    55;; New Power Up objects
    66
    7 (defun shlmp_ai () 
     7(defun shlmp_ai ()
    88  (try_move 0 10)
    99  (next_picture)
    … …  
    4747         (constructor   slamp_cons)
    4848         (draw_fun              dev_draw))
    49   (states "art/misc.spe"         
     49  (states "art/misc.spe"
    5050          (stopped           "lhold")))
    5151
    … …  
    113113              (setq b_ramp (+ b_ramp 7))
    114114            (setq b_ramp 0)))
    115         (if (local_player)     
     115        (if (local_player)
    116116            (tint_palette r_ramp g_ramp b_ramp))))
    117117
    … …  
    138138                (progn
    139139                (setq min2 (+ min2 1))
    140                 (setq min1 0))) 
     140                (setq min1 0)))
    141141        (if (eq min2 10)
    142142                (setq min2 0))
    … …  
    150150                                (if (local_player)
    151151                                    (put_image (- (view_x2) 20) (+ (view_y1) 5) fly_image)))
    152                    (SNEAKY_POWER 
     152                   (SNEAKY_POWER
    153153                    (if (local_player)
    154154                        (put_image (- (view_x2) 20) (+ (view_y1) 5) sneaky_image))

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

    r566 r582  
    55;; New Power Up objects
    66
    7 (defun shlmp_ai () 
     7(defun shlmp_ai ()
    88  (try_move 0 10)
    99  (next_picture)
    … …  
    4747         (constructor   slamp_cons)
    4848         (draw_fun              dev_draw))
    49   (states "art/misc.spe"         
     49  (states "art/misc.spe"
    5050          (stopped           "lhold")))
    5151

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

    </
    r566 r582  
    5656               (push_char 35 40)
    5757               (select (aistate)
    58  
     58
    5959                    (0 ;; prepare to walk toward player
    6060                       (if (eq stationary 0)
    … …  
    7979                         (curx (x));; save position in case we fall off a cliff
    8080                               (cury (y))
    81                         )                   
    82                        (if (next_picture) 
     81                        )
     82                       (if (next_picture)
    8383                            (if (eq (current_frame) 8)
    8484                                  (play_sound DROIDMOV_SND 127 (x) (y))
    … …  
    115115                              (yspeed throw_yvel)
    116116                         )
    117                          (with_object 
    118                         (add_object GRENADE (+ (x) (* (direction) 16)) (- (y) 24) 1) 
     117                         (with_object
     118                        (add_object GRENADE (+ (x) (* (direction) 16)) (- (y) 24) 1)
    119119                                (progn
    120120                                (user_fun myself)
    … …  
    139139);; end * if
    140140);; end droidjug_ai ()
    141            
     141
    142142(defun jug_cons ()
    143143  (setq throw_xvel 13)
    … …  
    165165          ("aistate"       ai_state))
    166166
    167   (states "addon/claudio/droid.spe" 
     167  (states "addon/claudio/droid.spe"
    168168          (stopped "ds0002.pcx")
    169169          (running (seq "d" 1 4))
    … …  
    183183        (setq fire_time (- fire_time 1))
    184184        (if (eq fire_time 0)
    185             (progn 
     185            (progn
    186186              (setq burst_left burst_total)
    187187              (setq burst_wait 0))))
    … …  
    195195      (setq burst_wait (- burst_wait 1)))))
    196196
    197 (defun wrob_cons ()       
     197(defun wrob_cons ()
    198198  (setq fire_delay 4)
    199199  (setq burst_delay 1)
    … …  
    213213       )
    214214
    215        (if (activated)         ;; ** 
     215       (if (activated)         ;; **
    216216          (progn                  ;;***
    217217               (set_targetable T)
    … …  
    233233                  )
    234234                 );; end aistate 0
    235  
     235
    236236                  (1;; stop and fire
    237                      (burst_fire  (+ (x) (* (direction) 16)) (- (y) 22)               
     237                     (burst_fire  (+ (x) (* (direction) 16)) (- (y) 22)
    238238                            (if (> (direction) 0)
    239239                                (mod (- 375 (/ (* burst_left 30) burst_total)) 360)
    … …  
    248248
    249249               (if (<= (hp) 0)                        ;; are we dead, if so blow up
    250                    (progn       
    251                         (add_object EXPLODE6 (+ (x) 5) (- (y) 10)     0) 
     250                   (progn
     251                        (add_object EXPLODE6 (+ (x) 5) (- (y) 10)     0)
    252252                        (add_object EXPLODE6 (+ (x) -5) (- (y) 15)    2)  ;; wait 2 frames before appearing
    253253                        (add_object EXPLODE6 (+ (x) 10) (- (y) 2)     1)
    … …  
    260260                  )
    261261             )
    262                
     262
    263263      T);; end of *** progn
    264264    T);; end of ** if activated
    265265  );; end of * if
    266 );; end of ai 
    267    
     266);; end of ai
     267
    268268(def_char DROID
    269269
    270270  (funs (ai_fun droid_ai)
    271271          (constructor wrob_cons)
    272           (get_cache_list_fun explo_damage_cache)       
     272          (get_cache_list_fun explo_damage_cache)
    273273        (damage_fun explo_damage)
    274274  );; end funs
    … …  
    278278  );; end abilities
    279279
    280   (flags (hurtable T) 
     280  (flags (hurtable T)
    281281         (can_block T)
    282282         (unactive_shield T)
    … …  
    285285  (range 300 100)
    286286
    287   (vars fire_delay 
    288         burst_delay 
    289         burst_total 
    290         burst_wait 
    291         burst_left 
    292           max_xvel   
    293         max_yvel   
    294         smoke_time 
     287  (vars fire_delay
     288        burst_delay
     289        burst_total
     290        burst_wait
     291        burst_left
     292          max_xvel
     293        max_yvel
     294        smoke_time
    295295        fire_time
    296296  );; end vars
    … …  
    306306  );; end fields
    307307
    308   (states "addon/claudio/droid.spe" 
     308  (states "addon/claudio/droid.spe"
    309309          (stopped "ds0001.pcx")
    310310          (running (seq "d" 1 10))
    … …  
    335335       )
    336336
    337        (if (activated)         ;; ** 
     337       (if (activated)         ;; **
    338338          (progn                  ;;***
    339339               (set_targetable T)
    … …  
    342342             (select (aistate)
    343343                  (0;; walk toward player
    344                      (if  (or (< (disty) -5) (> (disty) 5) (< (distx) -10) (> (distx) 10) (not (eq (direction) (toward))) )   
     344                     (if  (or (< (disty) -5) (> (disty) 5) (< (distx) -10) (> (distx) 10) (not (eq (direction) (toward))) )
    345345                       (progn
    346346                          (if (eq (mod (state_time) 6) 0) ;; play sound every 6 ticks
    … …  
    358358                     )
    359359                 );; end aistate 0
    360  
     360
    361361                  (1;; stop and eat
    362                     (if  (or (< (disty) -5) (> (disty) 5) (< (distx) -10) (> (distx) 10) (not (eq (direction) (toward))) )   
     362                    (if  (or (< (disty) -5) (> (disty) 5) (< (distx) -10) (> (distx) 10) (not (eq (direction) (toward))) )
    363363                       (set_aistate 0)
    364364                       (progn
    … …  
    370370                      )
    371371                    (with_object (bg)
    372                       (if (< (hp)0)   
     372                      (if (< (hp)0)
    373373                            (set_state stopped)
    374374                      )
    375375                     )
    376376                );; end aistate 1
    377              );; end select               
     377             );; end select
    378378      T);; end of *** progn
    379379    T);; end of ** if activated
    380380  );; end of * if
    381 );; end of ai     
     381);; end of ai
    382382
    383383(def_char T_REX
    … …  
    385385  (funs (ai_fun trex_ai)
    386386        ;;  (constructor wrob_cons)
    387         ;;  (get_cache_list_fun explo_damage_cache)     
     387        ;;  (get_cache_list_fun explo_damage_cache)
    388388      ;;  (damage_fun explo_damage)
    389389  );; end funs
    … …  
    393393  );; end abilities
    394394
    395   (flags (hurtable T) 
     395  (flags (hurtable T)
    396396         (can_block T)
    397397         (unactive_shield T)
    … …  
    400400  (range 300 100)
    401401
    402   (vars fire_delay 
    403         burst_delay 
    404         burst_total 
    405         burst_wait 
    406         burst_left 
    407           max_xvel   
    408         max_yvel   
    409         smoke_time 
     402  (vars fire_delay
     403        burst_delay
     404        burst_total
     405        burst_wait
     406        burst_left
     407          max_xvel
     408        max_yvel
     409        smoke_time
    410410        fire_time
    411411  );; end vars
    412412
    413   (fields 
     413  (fields
    414414          ("hp"           ai_health)
    415415          ("aistate"      ai_state)
    416416  );; end fields
    417417
    418   (states "addon/claudio/trex1.spe" 
     418  (states "addon/claudio/trex1.spe"
    419419          (stopped "stand")
    420420          (running (seq "w" 1 10))
    … …  
    444444(defun wrob_ai ()
    445445  (if (<= (hp) 0) ;; *
    446      
     446
    447447       nil   ;; inactivate this "nil" and activate the following if-section when using versions 2 and 3
    448448
    … …  
    452452    ;; )
    453453
    454        (if (activated)         ;; ** 
     454       (if (activated)         ;; **
    455455          (progn                  ;;***
    456456               (set_targetable T)
    … …  
    472472                  )
    473473                 );; end aistate 0
    474  
     474
    475475                  (1;; stop and fire
    476                      (burst_fire  (+ (x) (* (direction) 16)) (- (y) 22)               
     476                     (burst_fire  (+ (x) (* (direction) 16)) (- (y) 22)
    477477                            (if (> (direction) 0)
    478478                                (mod (- 375 (/ (* burst_left 30) burst_total)) 360)
    … …  
    491491
    492492               (if (<= (hp) 0)                        ;; are we dead, if so blow up
    493                    (progn       
    494                         (add_object EXPLODE6 (+ (x) 5) (- (y) 10)     0) 
     493                   (progn
     494                        (add_object EXPLODE6 (+ (x) 5) (- (y) 10)     0)
    495495                        (add_object EXPLODE6 (+ (x) -5) (- (y) 15)    2)  ;; wait 2 frames before appearing
    496496                        (add_object EXPLODE6 (+ (x) 10) (- (y) 2)     1)
    … …  
    503503                  )
    504504             )
    505                
     505
    506506      T);; end of *** progn
    507507    T);; end of ** if activated
    508508  );; end of * if
    509 );; end of ai 
     509);; end of ai
    510510
    511511(def_char WALK_ROB
    … …  
    513513  (funs (ai_fun wrob_ai)
    514514          (constructor wrob_cons)
    515           (get_cache_list_fun explo_damage_cache)       
     515          (get_cache_list_fun explo_damage_cache)
    516516        (damage_fun explo_damage)
    517517  );; end funs
    518518
    519519  (abilities (run_top_speed 6)
    520              (start_hp 70) 
     520             (start_hp 70)
    521521  );; end abilities
    522522
    523   (flags (hurtable T) 
     523  (flags (hurtable T)
    524524         (can_block T)
    525525         (unactive_shield T)
    … …  
    528528  (range 300 100)
    529529
    530   (vars fire_delay 
    531         burst_delay 
    532         burst_total 
    533         burst_wait 
    534         burst_left 
    535           max_xvel   
    536         max_yvel   
    537         smoke_time 
     530  (vars fire_delay
     531        burst_delay
     532        burst_total
     533        burst_wait
     534        burst_left
     535          max_xvel
     536        max_yvel
     537        smoke_time
    538538        fire_time
    539539   );; end vars
    … …  
    550550  );; end fields
    551551
    552   (states "addon/claudio/rob2.spe" 
     552  (states "addon/claudio/rob2.spe"
    553553          (stopped "wwlk0001.pcx")
    554554          (running (seq "wwlk" 1 10))
    … …  
    561561  );; end states
    562562
    563 );; end def_char WALK_ROB             
     563);; end def_char WALK_ROB
    564564
    565565;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    … …  
    574574    (with_object (get_object 0)
    575575                 (if (eq (otype) SPACE_DOOR)
    576                      (if (eq is_opening 0)                       
     576                     (if (eq is_opening 0)
    577577                         (if (and (< (distx) 50) (< (disty) 40))
    578578                             T
    … …  
    599599          (play_sound SWISH 70 (x) (y)))
    600600      (set_current_frame (- (current_frame) 1)))))
    601  
     601
    602602(defun tpdspace_ai ()     ;; teleporting door ai
    603603  (if (or (and (< (distx) 50) (< (disty) 40))
    … …  
    615615                (othery (with_object (get_object 0) (y))))
    616616            (with_object (get_object 0) (link_object player))
    617             (with_object player (progn 
    618                                   (set_x otherx) 
     617            (with_object player (progn
     618                                  (set_x otherx)
    619619                                  (set_y othery)))))))
    620620T)
    … …  
    679679      (do_damage 20 (bg)))
    680680  (select (aistate)
    681           (0 
     681          (0
    682682
    683683            (if (eq (random 100) 0)
    … …  
    686686                   (set_aistate 1)))
    687687             (next_picture))
    688           (1 
     688          (1
    689689
    690690           (next_picture)
    … …  
    735735
    736736(defun sewer_ai ()
    737  
     737
    738738  (select (aistate)
    739           (0 
     739          (0
    740740
    741741            (if (eq (random 100) 0)
    … …  
    744744                   (set_aistate 1)))
    745745             (next_picture))
    746           (1 
     746          (1
    747747
    748748           (next_picture)
    … …  
    759759      (do_damage 2 (bg)))
    760760  (select (aistate)
    761           (0 
     761          (0
    762762
    763763            (if (eq (random 100) 0)
    … …  
    766766                   (set_aistate 1)))
    767767             (next_picture))
    768           (1 
     768          (1
    769769
    770770           (next_picture)
    … …  
    777777(defun wfall_ai ()
    778778  (select (aistate)
    779           (0 
     779          (0
    780780
    781781            (if (eq (random 100) 0)
    … …  
    784784                   (set_aistate 1)))
    785785             (next_picture))
    786           (1 
     786          (1
    787787
    788788           (next_picture)
    … …  
    849849
    850850(def_char LAMP_EX1
    851                                
     851
    852852  (funs (ai_fun  exlamp_ai))
    853853  (flags (can_block T)
    … …  
    859859
    860860
    861 (defun slamp_ai () 
     861(defun slamp_ai ()
    862862(if (activated)
    863863 (set_state running)
    … …  
    869869(def_char LAMP_BIG
    870870  (funs (ai_fun   slamp_ai))
    871   (states "addon/claudio/lamp.spe" 
     871  (states "addon/claudio/lamp.spe"
    872872     (stopped "l0002.pcx")
    873873     (running "l0001.pcx")
    … …  
    892892  (funs (ai_fun switcher_ai)
    893893        (reload_fun lower_reload))
    894   (range 0 0) 
     894  (range 0 0)
    895895  (states "addon/claudio/sswitch.spe"
    896896          (stopped '("ssw0001" "ssw0002"))
    … …  
    913913
    914914(defun dumbrel_ai ()
    915  
    916   (if (not (eq smoke_time 0))                 
     915
     916  (if (not (eq smoke_time 0))
    917917      (progn
    918918        (setq smoke_time (- smoke_time 1))
    … …  
    920920            (add_object SMALL_DARK_CLOUD (x) (y)))))
    921921
    922   (if (eq (aistate) 0)                       
     922  (if (eq (aistate) 0)
    923923      (if (or (eq (total_objects) 0) (not (eq (with_object (get_object 0) (aistate)) 0)))
    924924          (if (next_picture) T
    … …  
    931931          (set_state stopped)
    932932          T))
    933     (if (eq (hp) 0)                         
     933    (if (eq (hp) 0)
    934934        (progn
    935935        (play_sound GRENADE_SND 127 (x) (y))
    … …  
    938938          (add_object EXPLODE1 (x) (+ (- (y) (random 20)) -20)                     4)
    939939          nil)
    940       (progn     
    941         (if (eq (mod (state_time) 5) 0)     
     940      (progn
     941        (if (eq (mod (state_time) 5) 0)
    942942            (play_sound DRILL_SND 127 (x) (y)))
    943         (if (> (with_object (bg) (x)) (x))   
     943        (if (> (with_object (bg) (x)) (x))
    944944            (progn
    945945              (set_xvel (+ (xvel) 1))
    … …  
    949949                    (set_direction 1)
    950950                    (set_state turn_around))))
    951           (if (< (with_object (bg) (x)) (x)) 
     951          (if (< (with_object (bg) (x)) (x))
    952952              (progn
    953953                (set_xvel (- (xvel) 1))
    … …  
    967967                (set_yvel (- (yvel) 1)))))
    968968
    969         (if (eq (random 5) 0)               
     969        (if (eq (random 5) 0)
    970970            (set_xvel (+ (xvel) 1))
    971971          (if (eq (random 5) 0)
    … …  
    976976              (set_yvel (- (yvel) 1))))
    977977
    978         (if (next_picture) T (set_state running)) 
    979            
     978        (if (next_picture) T (set_state running))
     979
    980980        (bounce_move '(set_xvel (/ (xvel) 2)) '(set_xvel (/ (xvel) 2))
    981981                     '(set_yvel (/ (yvel) 2)) '(set_yvel (/ (yvel) 2)) nil)
    982      
     982
    983983        (if (> fire_time 0)              ;; if we need to wait till next burst
    984984            (progn
    985985              (setq fire_time (- fire_time 1))
    986986              (if (eq fire_time 0)
    987                   (progn 
     987                  (progn
    988988                    (setq burst_left burst_total)
    989989                    (setq burst_wait 0))))
    … …  
    10021002                              (setq burst_left (- burst_left 1)))
    10031003                            (setq burst_wait burst_delay)
    1004                             (fire_object (me) (aitype) firex firey angle (bg)) 
     1004                            (fire_object (me) (aitype) firex firey angle (bg))
    10051005                            )))))
    1006             (setq burst_wait (- burst_wait 1))))               
     1006            (setq burst_wait (- burst_wait 1))))
    10071007        T))))
    10081008
    10091009(defun dumbrel_damage (amount from hitx hity push_xvel push_yvel)
    1010   (if (and from (with_object from (and (> (total_objects) 0) 
    1011                                        (with_object (get_object 0) 
     1010  (if (and from (with_object from (and (> (total_objects) 0)
     1011                                       (with_object (get_object 0)
    10121012                                                    (or (eq (otype) FLYER)
    10131013                                                        (eq (otype) GREEN_FLYER))
    … …  
    10371037))))
    10381038
    1039 (defun dumbrel_cons ()   
     1039(defun dumbrel_cons ()
    10401040  (setq fire_delay 20)
    10411041  (setq burst_delay 5)
    … …  
    10491049  (funs (ai_fun dumbrel_ai)
    10501050          (constructor dumbrel_cons)
    1051           (get_cache_list_fun explo_damage_cache)       
     1051          (get_cache_list_fun explo_damage_cache)
    10521052        (damage_fun dumbrel_damage)
    10531053  );; end funs
    10541054
    1055   (abilities (start_hp 100) 
     1055  (abilities (start_hp 100)
    10561056  );; end abilities
    10571057
    1058   (flags (hurtable T) 
     1058  (flags (hurtable T)
    10591059         (can_block T)
    10601060         (unactive_shield T)
    … …  
    10631063  (range 300 100)
    10641064
    1065   (vars fire_delay 
    1066         burst_delay 
    1067         burst_total 
    1068         burst_wait 
    1069         burst_left 
    1070           max_xvel   
    1071         max_yvel   
    1072         smoke_time 
     1065  (vars fire_delay
     1066        burst_delay
     1067        burst_total
     1068        burst_wait
     1069        burst_left
     1070          max_xvel
     1071        max_yvel
     1072        smoke_time
    10731073        fire_time
    10741074   );; end vars
    10751075
    1076   (states "addon/claudio/umbrel3.spe" 
     1076  (states "addon/claudio/umbrel3.spe"
    10771077          (stopped "u0001.pcx")
    10781078          (running (seq "u" 1 4))
    … …  
    10801080  );; end states
    10811081
    1082 );; end def_char 
     1082);; end def_char
    10831083
    10841084
    … …  
    10911091(defun antship_ai ()
    10921092
    1093   (if (not (eq smoke_time 0))                 
     1093  (if (not (eq smoke_time 0))
    10941094      (progn
    10951095          (setq smoke_time (- smoke_time 1))
    … …  
    11151115          T)
    11161116      )
    1117    
     1117
    11181118      (if (<= (hp) 0)
    1119          
     1119
    11201120         (progn
    11211121
    … …  
    11231123              (next_picture)
    11241124
    1125               (progn         
     1125              (progn