home *** CD-ROM | disk | FTP | other *** search
/ PC/CD Gamer UK 28 / PCGAMER28.bin / dos / abuse / lisp / guns.lsp < prev    next >
Lisp/Scheme  |  1995-09-13  |  12KB  |  434 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licensing information for more details on usage rights
  3.  
  4.  
  5. (setq gun_tints (make-array 11 :initial-contents (list 
  6.                           normal_tint
  7.                           (def_tint "art/tints/guns/orange.spe") ; orange
  8.                           (def_tint "art/tints/guns/green.spe")  ; grenade
  9.                           (def_tint "art/tints/guns/redish.spe") ; rocket
  10.                           (def_tint "art/tints/guns/blue.spe")   ; plasma
  11.                           normal_tint
  12.                           normal_tint
  13.                           normal_tint
  14.                           normal_tint
  15.                           normal_tint
  16.                           normal_tint)))
  17.  
  18.  
  19. (setq ai_ammo (make-array 9 :initial-contents (list MBULLET_ICON5 
  20.                         MBULLET_ICON5 
  21.                         GRENADE_ICON2
  22.                         ROCKET_ICON2 
  23.                         PLASMA_ICON20
  24.                         MBULLET_ICON5 
  25.                         MBULLET_ICON5 
  26.                         MBULLET_ICON5 
  27.                         MBULLET_ICON5)))
  28.  
  29. (defun aitype_to_ammo (aitype)
  30.   (aref ai_ammo aitype))
  31.  
  32.  
  33.  
  34. (defun fire_object (creator type x y angle target)
  35.   (select type
  36.  
  37.       (0 (with_object (add_object SHOTGUN_BULLET x y)
  38.                       (progn
  39.                     (play_sound ZAP_SND 127 (x) (y))
  40.                     (setq sgb_lifetime 6)
  41.                     (setq sgb_speed 15)
  42.                     (setq sgb_lastx (x))
  43.                     (setq sgb_lasty (y))
  44.                     (setq sgb_angle angle)
  45.                     (setq sgb_bright_color (find_rgb 255 255 200))
  46.                     (setq sgb_medium_color (find_rgb 150 150 0))
  47.                     (if creator 
  48.                         (progn
  49.                           (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
  50.                           (link_object creator)))
  51.                     (sgun_ai)
  52.                     )))
  53.       (1 (with_object (add_object SHOTGUN_BULLET x y)
  54.                       (progn
  55.                     (play_sound ZAP_SND 127 (x) (y))
  56.                     (setq sgb_lifetime 40)
  57.                     (setq sgb_speed 6)
  58.                     (setq sgb_lastx (x))
  59.                     (setq sgb_lasty (y))
  60.                     (setq sgb_angle angle)
  61.                     
  62.                     (setq sgb_bright_color (find_rgb 255 128 64))
  63.                     (setq sgb_medium_color (find_rgb 255 0 0))
  64.                     (if creator 
  65.                         (progn
  66.                           (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
  67.                           (link_object creator)))
  68.                     (sgun_ai)
  69.                     )))
  70.       (2 (with_object (add_object GRENADE x y)
  71.               (progn
  72.                 (play_sound GRENADE_THROW 127 x y)
  73.                 (set_course angle 20)
  74.                 (if creator    
  75.                 (progn
  76.                   (link_object creator)
  77.                   (set_xvel (+ (xvel) (with_object creator (xvel))))
  78.                   (set_yvel (+ (yvel) (with_object creator (yvel))))
  79.                   ))
  80.                 
  81.                 (set_frame_angle 0 359 angle)
  82.                 )))
  83.       (3 (with_object (add_object ROCKET x y)
  84.               (progn
  85.                 (play_sound ROCKET_LAUNCH_SND 127 x y)
  86.                 (set_aistate angle)
  87.                 (if creator    (link_object creator))
  88.  
  89.                 (if (and target   ;; don't link if not in line of site
  90.                      (can_see (x) (y) 
  91.                           (with_object target (x))
  92.                           (with_object target (y)) nil))
  93.                           (link_object target))
  94.  
  95.                 (set_frame_angle 0 359 angle)
  96.                 (setq speed 5)
  97.                 (if (and creator (with_object creator (isa_player)))
  98.                 (setq max_speed 14)
  99.                   (setq max_speed 10))
  100.                 (set_y (+ (y) (/ (picture_height) 2)))  ;; move down to match frame/pos
  101.                 )))
  102.  
  103.       (4 (with_object (add_object PLASMAGUN_BULLET x y)
  104.                       (progn
  105.                     (play_sound PLASMA_SND 127 (x) (y))
  106.                     (setq sgb_lastx (x))
  107.                     (setq sgb_lasty (y))
  108.                     (if creator 
  109.                           (link_object creator))
  110.                     (set_course angle 200)
  111.                     (let ((old_x (x))
  112.                           (old_y (y))
  113.                           (bx (bmove (if (> (total_objects) 0) (get_object 0) nil))))
  114.                       (if (not (eq bx T))
  115.                           (if (eq bx nil)
  116.                           (add_object EXPLODE5 (- (x) (random 5)) 
  117.                                   (- (y) (random 5)) 0)
  118.                         (progn
  119.                           (add_object EXPLODE3 (- (x) (random 5)) 
  120.                                   (- (y) (random 5)) 0)
  121.                           (do_damage 10 bx (* (cos sgb_angle) 20) 
  122.                                  (* (sin sgb_angle) 10)))))
  123.                       (setq sgb_lastx (x))
  124.                       (setq sgb_lasty (y))
  125.                       (set_x old_x)
  126.                       (set_y old_y))
  127.                     )))
  128.  
  129.  
  130.       (5 (with_object (add_object FIREBOMB x y)
  131.               (progn
  132.                 (play_sound FIREBOMB_SND 127 (x) (y))
  133.                 (set_course angle 20)
  134.                 (if creator    
  135.                 (progn
  136.                   (link_object creator)
  137.                   (set_yvel (+ (yvel) (with_object creator (yvel))))
  138.                   )))))
  139.  
  140.       (6 (with_object (add_object DFRIS_BULLET x y)
  141.                       (progn
  142.                     (play_sound ROCKET_LAUNCH_SND 127 x y)
  143.                     (set_course angle 25)
  144.                     (set_aistate angle)
  145.                     (if creator 
  146.                           (link_object creator))
  147.                     (dfris_ai)
  148.                     )))
  149.  
  150.       (7 (with_object (add_object LSABER_BULLET x y)
  151.                       (progn
  152.                     (play_sound LSABER_SND 127 (x) (y))
  153.                     (setq sgb_lastx (x))
  154.                     (setq sgb_lasty (y))
  155.                     (if creator 
  156.                           (link_object creator))
  157.                     (set_course angle 45)
  158.                     (let ((bx (bmove (if (> (total_objects) 0) (get_object 0) nil))))
  159.                       (if (not (eq bx T))
  160.                           (if (not (eq bx nil))
  161.                           (do_damage 30 bx (* (cos sgb_angle) 20) 
  162.                                  (* (sin sgb_angle) 10)))))
  163.                     )))
  164.                
  165.  
  166.       (9 (with_object (add_object STRAIT_ROCKET x y)
  167.                       (progn
  168.                     (play_sound MGUN_SND 127 (x) (y))
  169.                     (if creator 
  170.                           (link_object creator))
  171.                     (set_aistate angle)
  172.                     (set_frame_angle 0 359 angle)
  173.                     (play_sound GRENADE_THROW 127 (x) (y)))))
  174.  
  175.       (10 (with_object (add_object SHOTGUN_BULLET x y)
  176.                       (progn
  177.                     (play_sound ZAP_SND 127 (x) (y))
  178.                     (setq sgb_lifetime 6)
  179.                     (setq sgb_speed 15)
  180.                     (setq sgb_lastx (x))
  181.                     (setq sgb_lasty (y))
  182.                     (setq sgb_angle angle)
  183.                     (setq sgb_bright_color (find_rgb 255 0 0))
  184.                     (setq sgb_medium_color (find_rgb 150 0 0))
  185.                     (if creator 
  186.                         (progn
  187.                           (setq sgb_speed (+ sgb_speed (/ (xvel) 2)))
  188.                           (link_object creator)))
  189.                     (sgun_ai)
  190.                     )))
  191.  
  192.       ))
  193.  
  194.  
  195. (defun spray_fire ()
  196.   (fire_object (me) (aitype)
  197.            (+ (x) (* (cos spray.angle) 20))
  198.            (- (- (y) 21) (* (sin spray.angle) 22))
  199.            spray.angle
  200.            (bg)))
  201.  
  202.  
  203. (defun spray_gun_ai ()
  204.   (if (<= (hp) 0)
  205.       nil
  206.     (if (and (< (distx) 450) (< (disty) 400))
  207.     (progn
  208.       (select (aistate)
  209.           (0;; look at sensor
  210.            (if (activated)
  211.                (if (eq (state) stopped)
  212.                (progn
  213.                  (set_targetable T)
  214.                  (set_state spray.appear)
  215.                  (go_state 1))
  216.              (go_state 3))
  217.              (progn
  218.                (set_targetable nil)
  219.                (set_state stopped))))
  220.  
  221.  
  222.           (1;; unfold
  223.            (if (next_picture) T 
  224.              (progn (set_aistate 3)
  225.                 (set_state spray.aim)
  226.                 (setq spray.angle spray.start_angle)
  227.                 (set_frame_angle 0 359 spray.angle)
  228.                 )))
  229.  
  230.           (2;; fold up
  231.            (if (next_picture) T 
  232.              (progn (set_state stopped)
  233.                 (set_aistate 0))))
  234.  
  235.          
  236.           (3;; swivel down
  237.            (if (> (state_time) spray.fire_delay)
  238.                (progn
  239.              (set_aistate 3);; reset state time
  240.              (setq spray.angle (- spray.angle spray.angle_speed))
  241.              (if (<= spray.angle spray.start_angle)
  242.                  (progn
  243.                    (setq spray.angle spray.start_angle)
  244.                    (set_aistate 4)))
  245.              (set_frame_angle 0 359 spray.angle)
  246.              (spray_fire))))
  247.  
  248.           (4;; swivel up
  249.            (if (> (state_time) spray.fire_delay)
  250.                (progn
  251.              (set_aistate 4);; reset state time
  252.              (setq spray.angle (+ spray.angle spray.angle_speed))
  253.              (if (>= spray.angle spray.end_angle)
  254.                  (progn
  255.                    (setq spray.angle spray.end_angle)
  256.                    (set_aistate 0)))
  257.              (set_frame_angle 0 359 spray.angle)
  258.  
  259.              (spray_fire)))))
  260.       T)
  261.       (progn
  262.     (set_state stopped)
  263.     T))))
  264.         
  265.  
  266.           
  267.           
  268.     (defun spray_gun_cons () 
  269.       (setq spray.bullet_speed 20)
  270.       (setq spray.angle_speed  10)
  271.       (setq spray.start_angle  270)
  272.       (setq spray.end_angle    350)
  273.       (setq spray.fire_delay 4))
  274.  
  275. (def_char SPRAY_GUN
  276.   (funs (ai_fun       spray_gun_ai)
  277.     (damage_fun   guner_damage)
  278.     (draw_fun     gun_draw)
  279.     (constructor spray_gun_cons))
  280.  
  281.   (flags (can_block  T)
  282.      (hurtable   T))
  283.   (abilities (start_hp 20)
  284.          )
  285.   (vars spray.fire_delay
  286.     spray.bullet_speed
  287.     spray.start_angle
  288.     spray.end_angle
  289.     spray.angle_speed
  290.     spray.angle)     
  291.  
  292.   (fields ("hp"                "health")
  293.       ("aitype"            "aitype")
  294.       ("spray.fire_delay"  "delay")
  295.       ("spray.start_angle" "start angle")
  296.       ("spray.end_angle"   "end angle")
  297.       ("spray.angle_speed" "angle speed")
  298.       ("spray.angle"       "current angle"))
  299.  
  300.   (states "art/gun2.spe"
  301.       (stopped           "stopped")
  302.       (spray.aim         (seq "cspn" 1 24))
  303.       (spray.appear      '("csht0001.pcx" "csht0002.pcx"))
  304.       (spray.disappear   '("csht0002.pcx" "csht0001.pcx"))
  305.       ))
  306.  
  307. (defun gun_draw ()
  308.   (draw_tint (aref gun_tints (aitype))))
  309.  
  310.  
  311. (def_char TRACK_GUN
  312.   (vars 
  313.     fire_delay            ; how long between each shot
  314.     fire_delay_left
  315.         track_speed           ; how fast the gun can chage it's angle
  316.  
  317.     burst_total           ; how many shots to fire with fire_delay in between each
  318.     burst_total_left
  319.     continue_time         ; how much time to wait before continue tracking
  320.     continue_time_left
  321.     track_start_angle     ; min angle gun will track
  322.     track_end_angle       ; max
  323.     angle)
  324.  
  325.  
  326.   (funs (ai_fun      track_ai)
  327.     (constructor track_cons)
  328.     (draw_fun    gun_draw)
  329.     (damage_fun   guner_damage))    
  330.  
  331.   (flags (can_block  T)
  332.      (hurtable   T))
  333.  
  334.   (abilities (start_hp 20))
  335.  
  336.   (fields ("hp"                "health")
  337.       ("aitype"            "aitype")
  338.       ("track_speed"       "tracking speed")
  339.       ("fire_delay"        "fire speed")
  340.       ("burst_total"       "burst total")
  341.       ("continue_time"     "continue delay")
  342.       ("track_start_angle" "start angle")
  343.       ("track_end_angle"   "end   angle")
  344.       ("angle"             "current angle"))
  345.  
  346.   (states "art/gun2.spe"
  347.       (stopped  "stopped")
  348.       (opening  '("csht0001.pcx" "csht0002.pcx"))
  349.       (shuting  '("csht0002.pcx" "csht0001.pcx"))
  350.       (spinning (seq "cspn" 1 24))
  351.       (firing   (seq "cfr1" 1 24))))
  352.  
  353. (defun track_cons ()
  354.   (setq angle 270)
  355.   (setq track_speed 1)
  356.   (setq fire_delay  5)
  357.   (setq burst_total 3)
  358.   (setq continue_time 8)
  359.   (setq track_start_angle 180)
  360.   (setq track_end_angle   359))
  361.  
  362. (defun track_fire ()
  363.   (fire_object (me) (aitype)
  364.            (+ (x) (* (cos angle) 18))
  365.            (- (- (y) 15) (* (sin angle) 15))
  366.            (mod (+ angle (- 2 (random 5))) 360)
  367.            (bg))
  368.   (if (or (eq burst_total_left 0) (eq burst_total_left 1))
  369.       (setq continue_time_left continue_time)
  370.     (progn
  371.       (setq burst_total_left (- burst_total_left 1))
  372.       (setq fire_delay_left fire_delay)))
  373.  
  374.  
  375.   (set_state firing)
  376.   (set_frame_angle 0 359 angle))
  377.  
  378. (defun track_set_angle (new_angle)
  379.   (if (> track_start_angle track_end_angle)
  380.       (if (and (>= new_angle track_end_angle) (<= new_angle track_start_angle))
  381.       (setq angle new_angle))
  382.     (if (and (<= new_angle track_end_angle) (>= new_angle track_start_angle))
  383.     (setq angle new_angle))))
  384.  
  385. (defun track_ai ()   
  386.   (if (eq (hp) 0)                                                  ;; are we dead?
  387.       nil
  388.     (if (activated)                                   ;; see if we should be on
  389.     (if (eq (state) stopped)
  390.         (progn
  391.           (set_targetable T)
  392.           (set_state opening)
  393.           T)
  394.       (if (and (eq (state) opening) (next_picture))
  395.           T
  396.         (progn
  397.           (set_state spinning)
  398.           (set_frame_angle 0 359 angle)
  399.  
  400.           (if (eq continue_time_left 0);; do we need to wait?
  401.           (if (eq fire_delay_left 0)
  402.               ;; get the angle to the player
  403.               (let ((pangle (atan2 (- (- (y) (with_object (bg) (y))) -8)
  404.                        (- (with_object (bg) (x)) (x) ))))
  405.             (let ((clock_dist (if (< pangle angle);; calculate clockwise angle distance
  406.                           (- angle pangle)
  407.                         (+ angle (- 360 pangle)))))
  408.               (let ((closest_dist (if (> clock_dist 180) 
  409.                           (- 360 clock_dist)
  410.                         clock_dist)))
  411.                 (let ((angle_add (if (>= closest_dist track_speed)
  412.                          track_speed
  413.                            closest_dist)))
  414.                   (if (> clock_dist 180);; should we steer clowck wise or counter?
  415.                   (track_set_angle (mod (+ angle angle_add) 360))
  416.                 (track_set_angle (mod (+ (- angle angle_add) 360) 360)))
  417.                   (if (< angle_add 5);; pretty close to target, FIRE!                
  418.                   (track_fire))))))
  419.             (setq fire_delay_left (- fire_delay_left 1)))
  420.         (progn
  421.           (setq continue_time_left (- continue_time_left 1))
  422.           (if (eq continue_time_left 0)
  423.               (setq burst_total_left burst_total))))
  424.           T)))
  425.       (progn
  426.     (set_targetable nil)
  427.     (set_state stopped)
  428.     T))))  
  429.       
  430.     
  431.  
  432.  
  433.  
  434.