source: abuse-frabs/trunk/register/weapons.lsp @ 44 Tweet

;; Copyright 1995 Crack dot Com,  All Rights reserved
;; See licencing information for more details on usage rights

(make_ammo_icon 'PLASMA_ICON20 "plasma_small"     20)
(make_ammo_icon 'PLASMA_ICON50 "plasma_large"     50)

(make_ammo_icon 'LSABER_ICON50  "lsaber_small"    50)
(make_ammo_icon 'LSABER_ICON100 "lsaber_large"   100)

(make_ammo_icon 'DFRIS_ICON4  "dfris_small"      4)
(make_ammo_icon 'DFRIS_ICON10 "dfris_large"     10)


(defun pgun_draw ()
  (let ((c (- 255 (* (state_time) 40))))
    (scatter_line sgb_lastx sgb_lasty (x) (y) (find_rgb c (/ c 2) c) (state_time))
    (scatter_line sgb_lastx sgb_lasty (x) (y) (find_rgb c (/ c 2) c) 0)
    ))



(defun pgun_ai ()
  (select (state_time)
          (0 T)
          (1 T)
          (2 T)
          (3 T)
          (4 T)
          (5 nil)))

(def_char PLASMAGUN_BULLET
  (vars sgb_angle sgb_lastx sgb_lasty)
  (funs (ai_fun   pgun_ai)
        (draw_fun pgun_draw))
  (range 10000 10000)
  (flags (unlistable T)
         (add_front T))
  (states "art/misc.spe" (stopped  "sgun_bullet")))


(defun lsaber_ai ()
  (shift_rand_table (random 80))
  nil)


(defun lsaber_draw () 
  (let ((c1 (find_rgb 255 255 255))
        (c2 (find_rgb 70 59 67))
        (c3 (find_rgb 147 155 195)))


    (scatter_line sgb_lastx sgb_lasty (x) (y) c1 0)
    (scatter_line sgb_lastx sgb_lasty (x) (y) c3 2)
    (ascatter_line sgb_lastx sgb_lasty (x) (y) c1 c2 1)
  ))



(def_char LSABER_BULLET
  (vars sgb_angle sgb_lastx sgb_lasty)
  (funs (ai_fun   lsaber_ai)
        (draw_fun lsaber_draw))
  (range 10000 10000)
  (flags (unlistable T)
         (add_front T))
  (states "art/misc.spe" (stopped  "sgun_bullet")))


(defun angle_diff (a1 a2)
  (if (< (abs (- a2 a1)) 180)
      (- a2 a1)
    (if (< a1 a2)
        (+ (- a1 a2) 180)
      (- (- a1 a2) 180))))


(defun get_fris_angle ()
  (let ((px (with_object (get_object 0) (player_pointer_x)))
        (py (with_object (get_object 0) (player_pointer_y))))
    (atan2 (- (y) py 4)
           (- px (x)))))

(defun dfris_ai ()
  (if (and (eq 0 (mod (game_tick) 2)) (not (frame_panic)))
      (let ((rand (rand_on)))
        (with_object (add_object SMALL_LIGHT_CLOUD (+ (x) (random 3)) 
                                 (- (y) (random 3) (/ (picture_height) 2)))
                     (set_fade_count 11))
        (set_rand_on rand)))
  (set_course (aistate) 12)
  (if (or (not (eq (bmove (if (> (total_objects) 0) (get_object 0) nil)) T))
          (< (total_objects) 1)
          (let ((mex (x))
                (mey (y)))
            (with_object (get_object 0) (find_object_in_area (- mex 7) 
                                                             (- mey 7) 
                                                             (+ mex 7) 
                                                             (+ mey 7) bad_guy_list))))
      (progn    
        (do_white_explo 40 45)
        nil)
    (progn
      (next_picture)
      (if (> (with_object (get_object 0) (total_objects)) 0)
          (let ((player_angle (get_fris_angle)))
            (let ((angle_change (angle_diff (aistate) player_angle)))
              (if (< (abs angle_change) 35)
                  (set_aistate (mod (+ (aistate) angle_change 360) 360))
                (if (>= angle_change 0)
                    (set_aistate (mod (+ (aistate) 35) 360))
                  (set_aistate (mod (+ (aistate) 325 ) 360)))))))
      T))    
)



(defun dfris_cache (type)
  (list (list EXPLODE8 EXP_LIGHT) 
        (list GRENADE_SND)))

(def_char DFRIS_BULLET
  (funs (ai_fun   dfris_ai)
        (get_cache_list_fun dfris_cache))
  (range 10000 10000)
  (flags (unlistable T)
         (add_front T))
  (states "art/misc.spe" (stopped  "dfris_bullet")))