Changeset 594


Ignore:
Timestamp:
May 8, 2011, 12:13:08 PM (6 years ago)
Author:
Sam Hocevar
Message:

data: merge abuse.lsp from all Abuse versions.

Location:
abuse/trunk
Files:
3 deleted
4 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/data/abuse.lsp

    r588 r594  
    99(if (not (load "lisp/english.lsp"))             ;; load language specific stuff
    1010    (progn
    11       (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")
     11      (print "Abuse data files not found. Maybe try the -datadir flag?")
    1412      (quit)))
    1513(setq load_warn T)
    16 
    1714
    1815(load "lisp/common.lsp")
     
    2017(load "lisp/options.lsp")
    2118(load "lisp/startup.lsp")
    22 (if (not (local_load "lisp/input.lsp"))   ; get local copy first
    23     (load "lisp/input.lsp"))
     19(load "lisp/input.lsp")
    2420
    2521(load "lisp/sfx.lsp")
     
    4238(load "lisp/switch.lsp")
    4339
    44 (setq bad_guy_list (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER GREEN_FLYER BOSS_ANT))
     40;; From the fRaBs addons. This is required in case we load a save file
     41;; from a fRaBs install, it will miss graphic tiles.
     42(load "addon/twist/f2chars.lsp")
     43(load "addon/twist/f2ai.lsp")
     44(load "addon/aliens/astartup.lsp")
     45(load "addon/claudio/claudio.lsp")
     46(load "addon/twist/lisp/dray.lsp")
     47(load "addon/twist/lisp/mario.lsp")
     48(load "addon/leon/4frabs.lsp")
     49(load "addon/newart/newart.lsp")
     50
     51(setq bad_guy_list
     52  (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER
     53        GREEN_FLYER BOSS_ANT DROID_JUGGER DROID DEATH_SKULL DEATH_UMBRELLA
     54        ANT_SHIP WALK_ROB T_REX FACE_HUGGER ALIEN_DRONE ALIEN_WARRIOR ANT
     55        ANT_JUMPER ANT_PRED ANT_GREATER2 WALK_ROB2 WALK_ROBHEAD))
     56(setq object_destroyable_list
     57  (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER
     58        GREEN_FLYER BOSS_ANT DROID_JUGGER DROID DEATH_SKULL DEATH_UMBRELLA
     59        ANT_SHIP WALK_ROB T_REX FACE_HUGGER ALIEN_DRONE ALIEN_WARRIOR ANT
     60        ANT_JUMPER ANT_PRED ANT_GREATER2 WALK_ROB2 WALK_ROBHEAD))
    4561
    4662(gc)              ;; garbage collection perm space
     
    4864
    4965(create_players DARNEL)
     66
  • abuse/trunk/data/addon/twist/lisp/dray.lsp

    r589 r594  
    44
    55;; Note for /Messiah\
    6 ;; in the main abuse.lsp, change
    7 ;;
    8 ;; (if (not (local_load "lisp/input.lsp"))   ; get local copy first
    9 ;;    (load "lisp/input.lsp"))
    10 ;; to: (if (not (local_load "addon/twist/lisp/input.lsp"))
    11 ;;    (load "addon/twist/lisp/input.lsp"))
    12 ;;
    13 ;; also, append this to the final set of lines relating to the loading part:
     6;; append this to the final set of lines relating to the loading part:
    147;; (load "addon/twist/lisp/dray.lsp")
    158
  • abuse/trunk/data/addon/twist/twist.lsp

    r589 r594  
    2020(load "addon/twist/lisp/options.lsp")
    2121(load "addon/twist/lisp/startup.lsp")
    22 (if (not (local_load "addon/twist/lisp/input.lsp"))   ; get local copy first
    23     (load "addon/twist/lisp/input.lsp"))
     22(load "lisp/input.lsp")
    2423
    2524(load "lisp/sfx.lsp")
  • abuse/trunk/data/lisp/input.lsp

    r589 r594  
    4343(setq weapon-right-key  (get_key_code "insert"))
    4444
     45(setq key-shiftr        (get_key_code "right_shift"))
     46(setq key-end           (get_key_code "end"))
     47
     48(setq key-a  (get_key_code "a"))
     49(setq key-b  (get_key_code "b"))
     50(setq key-c  (get_key_code "c"))
     51(setq key-d  (get_key_code "d"))
     52(setq key-e  (get_key_code "e"))
     53(setq key-f  (get_key_code "f"))
     54(setq key-g  (get_key_code "g"))
     55(setq key-h  (get_key_code "h"))
     56(setq key-i  (get_key_code "i"))
     57(setq key-j  (get_key_code "j"))
     58(setq key-k  (get_key_code "k"))
     59(setq key-l  (get_key_code "l"))
     60(setq key-m  (get_key_code "m"))
     61(setq key-n  (get_key_code "n"))
     62(setq key-o  (get_key_code "o"))
     63(setq key-p  (get_key_code "p"))
     64(setq key-q  (get_key_code "q"))
     65(setq key-r  (get_key_code "r"))
     66(setq key-s  (get_key_code "s"))
     67(setq key-t  (get_key_code "t"))
     68(setq key-u  (get_key_code "u"))
     69(setq key-v  (get_key_code "v"))
     70(setq key-w  (get_key_code "w"))
     71(setq key-x  (get_key_code "x"))
     72(setq key-y  (get_key_code "y"))
     73(setq key-z  (get_key_code "z"))
     74
     75(setq dray_has_fired 1)
     76(setq godmode 0)
     77(setq enemytarget 0)
     78(setq noclip 0)
    4579
    4680(defun get_local_input ()
     81  ;; fRaBs Twist extension input logic
     82  (if (eq godmode 1)
     83      (progn
     84        (with_object (bg) (set_hp 100))
     85        (if (or (eq (with_object (bg) (state)) flinch_up)
     86                (eq (with_object (bg) (state)) flinch_down))
     87            (with_object (bg) (set_state stopped)))))
     88  (if (eq noclip 1)
     89      (progn
     90        (with_object (bg) (set_gravity 0))
     91        (if (local_key_pressed up-key)
     92            (with_object (bg) (set_y (- (y) run_top_speed))))
     93        (if (local_key_pressed down-key)
     94            (with_object (bg) (set_y (+ (y) run_top_speed))))
     95        (if (local_key_pressed left-key)
     96            (with_object (bg) (set_x (- (x) run_top_speed))))
     97        (if (local_key_pressed right-key)
     98            (with_object (bg) (set_x (+ (x) run_top_speed))))
     99        (with_object (bg) (set_gravity 0))))
     100  (if (and (eq (mod (game_tick) 15) 0)
     101           (eq dray_has_fired 1))
     102      (setq dray_has_fired 0))
     103  (if (local_key_pressed key-shiftr)
     104      (save_game (concatenate 'string "save"
     105                              (digstr (get_save_slot) 4) ".spe")))
     106  (if (and (eq (third (mouse_stat)) 1)
     107           (with_object (bg) (eq (current_weapon_type) 7)))
     108      (if (and (eq dray_has_fired 0)
     109               (<= (ammo_total 7) 1)
     110               (not (or (<= (with_object (bg) (hp)) 0)
     111                        (eq (with_object (bg) (state)) dieing)
     112                        (eq (with_object (bg) (state)) dead)
     113                        (eq (with_object (bg) (state)) flinch_up)
     114                        (eq (with_object (bg) (state)) flinch_down)
     115                        (eq (with_object (bg) (state)) climbing)
     116                        (eq (with_object (bg) (state)) climb_off)
     117                        (eq (with_object (bg) (state)) climb_on))))
     118          (progn
     119            (setq dray_has_fired 1)
     120            (play_sound DEATH_RAY_SND 127 (x) (y))
     121            (with_object (bg) (add_object DEATH_RAY (x) (- (y)
     122                                          (/ (picture_height) 2))))
     123            (with_object (bg) (add_ammo 7 -1)))))
     124  ;; Original Abuse logic
    47125  (let ((mstat (mouse_stat)))
    48     (list (if (local_key_pressed left-key)
    49               -1
     126    (list (if (local_key_pressed left-key) -1
    50127              (if (local_key_pressed right-key) 1 0))  ;; xv
    51           (if (local_key_pressed up-key)
    52               -1
     128          (if (local_key_pressed up-key) -1
    53129              (if (local_key_pressed down-key) 1 0))  ;; yv
    54130          (eq (fourth mstat) 1) ;; special button
     
    57133          (if (or (eq (fifth mstat) 1)
    58134                  (local_key_pressed weapon-left-key)) -1 ;; weapon toggle
    59               (if (local_key_pressed weapon-right-key)  1 0))
     135              (if (local_key_pressed weapon-right-key) 1 0))
    60136          (first mstat) ;; mx
    61137          (second mstat) ;; my
Note: See TracChangeset for help on using the changeset viewer.