home *** CD-ROM | disk | FTP | other *** search
/ Game Head 1996 February / GameHeadMonthlyFeb96.iso / addons / craig4-1 / craig4.exe / BEER.LSP < prev    next >
Encoding:
Lisp/Scheme  |  1996-01-16  |  454 b   |  22 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licensing information for more details on usage rights
  3.  
  4.  
  5. (defun beer_hp_up () 
  6.     (next_picture)
  7.  
  8.     (if (and (touching_bg) (with_object (bg) (give_player_health 50)))
  9.        (progn
  10.          (play_sound MMM_BEER 127 (x) (y))
  11.          nil)
  12.       T))
  13.  
  14.  
  15. (def_char BEER
  16.   (funs (ai_fun beer_hp_up))
  17.   (flags (add_front T))
  18.   (range 0 0)
  19.   (states "addon/craig/beer.spe" (stopped "beer" )))
  20.  
  21.  
  22.