home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Gamer UK 28 / PCGAMER28.bin / dos / abuse / lisp / powerup.lsp < prev    next >
Lisp/Scheme  |  1995-09-13  |  1KB  |  51 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licensing information for more details on usage rights
  3.  
  4. (defun key_ai () (if (touching_bg) 
  5.              (progn 
  6.                (play_sound YEAH_SOUND 127 (x) (y))
  7.                nil) T))
  8.  
  9. (defun hp_up () 
  10.     (next_picture)
  11.  
  12.     (if (and (touching_bg) (with_object (bg) (give_player_health 20)))
  13.        (progn
  14.          (play_sound HEALTH_UP_SND 127 (x) (y))
  15.          nil)
  16.       T))
  17.  
  18.  
  19. (def_char HEALTH
  20.   (funs (ai_fun hp_up))
  21.   (flags (add_front T))
  22.   (range 0 0)
  23.   (states "art/ball.spe" (stopped "heart" )))
  24.  
  25.  
  26. (defun fast_ai () 
  27.   (next_picture)
  28.   (if (touching_bg) 
  29.       (progn (with_object (bg) 
  30.               (progn
  31.                 (setq special_power FAST_POWER)
  32. ;                (user_fun SET_FAST_TIME 360)
  33.                 (make_view_solid (find_rgb 255 255 255))))
  34.          nil) T))
  35.  
  36.  
  37. (defun fast_cache (type) (list nil (list fast_image)))
  38.  
  39. (def_char POWER_FAST
  40.   (funs (ai_fun fast_ai)
  41.     (get_cache_list_fun fast_cache))
  42.   (flags (add_front T))
  43.   (range 20 20)
  44.   (states "art/misc.spe" (stopped "fast" )))
  45.  
  46.  
  47.  
  48. (setq load_warn nil)
  49. (load "register/powerup.lsp")
  50. (setq load_warn T)
  51.