Ignore:
Timestamp:
May 7, 2011, 5:12:10 PM (10 years ago)
Author:
Sam Hocevar
Message:

data: merge registered data into the main data directory.

File:
1 edited

Legend:

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

    r588 r590  
    1515             nil)
    1616          T))
    17 
    1817
    1918(def_char HEALTH
     
    3736  (states "art/compass.spe" (stopped "compass" )))
    3837
     38
    3939(defun fast_ai ()
    4040  (next_picture)
     
    4646                            (make_view_solid (find_rgb 255 255 255))))
    4747             nil) T))
    48 
    4948
    5049(defun fast_cache (type) (list nil (list fast_image)))
     
    5857
    5958
     59(defun sneaky_power_ai ()
     60  (next_picture)
     61  (if (touching_bg)
     62      (progn
     63        (with_object (bg) (setq special_power SNEAKY_POWER))
     64        nil)
     65    T))
    6066
    61 (setq load_warn nil)
    62 (load "register/powerup.lsp")
    63 (setq load_warn T)
     67(def_char POWER_SNEAKY
     68  (funs (ai_fun sneaky_power_ai))
     69  (flags (add_front T))
     70  (range 20 20)
     71  (states "art/misc.spe" (stopped "sneaky")))
     72
     73
     74(defun fly_power_ai ()
     75  (next_picture)
     76  (if (touching_bg)
     77      (progn
     78        (with_object (bg) (setq special_power FLY_POWER))
     79        nil)
     80    T))
     81
     82(defun power_fly_cache (type)
     83  (list (list CLOUD) (list fly_image)))
     84
     85(def_char POWER_FLY
     86  (funs (ai_fun fly_power_ai)
     87        (get_cache_list_fun power_fly_cache))
     88  (flags (add_front T))
     89  (range 20 20)
     90  (states "art/misc.spe" (stopped "fly")))
     91
     92
     93(defun health_power_ai ()
     94  (next_picture)
     95  (if (touching_bg)
     96      (progn
     97        (with_object (bg)
     98                     (progn
     99                       (setq special_power HEALTH_POWER)
     100                       (give_player_health 100)))
     101        nil)
     102    T))
     103
     104(def_char POWER_HEALTH
     105  (funs (ai_fun health_power_ai))
     106  (flags (add_front T))
     107  (range 20 20)
     108  (states "art/misc.spe" (stopped "b_check")))
     109
Note: See TracChangeset for help on using the changeset viewer.