| 1 | ;; Copyright 1995 Crack dot Com, All Rights reserved
|
|---|
| 2 | ;; See licensing information for more details on usage rights
|
|---|
| 3 |
|
|---|
| 4 | (defun other_door_opening ()
|
|---|
| 5 | (if (eq (total_objects) 0)
|
|---|
| 6 | nil
|
|---|
| 7 | (with_object (get_object 0)
|
|---|
| 8 | (if (eq (otype) TP_DOOR)
|
|---|
| 9 | (if (eq is_opening 0)
|
|---|
| 10 | (if (and (< (distx) 100) (< (disty) 80))
|
|---|
| 11 | T
|
|---|
| 12 | nil)
|
|---|
| 13 | T)
|
|---|
| 14 | nil))))
|
|---|
| 15 |
|
|---|
| 16 | (defun open_door ()
|
|---|
| 17 |
|
|---|
| 18 | (setq is_opening 1)
|
|---|
| 19 | (if (eq (current_frame) 4)
|
|---|
| 20 | (setq is_opening 0)
|
|---|
| 21 | (progn
|
|---|
| 22 | (if (eq (current_frame) 0)
|
|---|
| 23 | (play_sound DOOR_UP 127 (x) (y)))
|
|---|
| 24 | (next_picture))))
|
|---|
| 25 |
|
|---|
| 26 | (defun close_door ()
|
|---|
| 27 | (setq is_opening 0)
|
|---|
| 28 | (if (eq (current_frame) 0)
|
|---|
| 29 | nil
|
|---|
| 30 | (progn
|
|---|
| 31 | (if (eq (current_frame) 4)
|
|---|
| 32 | (play_sound DOOR_DOWN 127 (x) (y)))
|
|---|
| 33 | (set_current_frame (- (current_frame) 1)))))
|
|---|
| 34 |
|
|---|
| 35 |
|
|---|
| 36 | (defun tpd_ai () ;; teleporting door ai
|
|---|
| 37 | (if (or (and (< (distx) 100) (< (disty) 80))
|
|---|
| 38 | (other_door_opening))
|
|---|
| 39 | (open_door)
|
|---|
| 40 | (close_door))
|
|---|
| 41 |
|
|---|
| 42 | (let ((player (bg)))
|
|---|
| 43 | (if (has_object player)
|
|---|
| 44 | (if (not (with_object player (pressing_action_key)))
|
|---|
| 45 | (remove_object player))
|
|---|
| 46 | (if (and (< (distx) 20) (< (disty) 30) (with_object player (pressing_action_key))
|
|---|
| 47 | (> (total_objects) 0))
|
|---|
| 48 | (let ((otherx (with_object (get_object 0) (x)))
|
|---|
| 49 | (othery (with_object (get_object 0) (y))))
|
|---|
| 50 | (with_object (get_object 0) (link_object player))
|
|---|
| 51 | (with_object player (progn
|
|---|
| 52 | (set_x otherx)
|
|---|
| 53 | (set_y othery)))))))
|
|---|
| 54 | T)
|
|---|
| 55 |
|
|---|
| 56 |
|
|---|
| 57 | (defun tp_door_cons () (set_xvel -1))
|
|---|
| 58 | (defun tp_door_draw () (set_ambient_light (bg) (xvel)) (draw))
|
|---|
| 59 |
|
|---|
| 60 | (def_char TP_DOOR
|
|---|
| 61 | (range 0 0)
|
|---|
| 62 | (vars is_opening)
|
|---|
| 63 | (funs (ai_fun tpd_ai)
|
|---|
| 64 | (constructor tp_door_cons)
|
|---|
| 65 | (reload_fun lower_reload)
|
|---|
| 66 | (draw_fun tp_door_draw))
|
|---|
| 67 | (fields ("xvel" tp_amb))
|
|---|
| 68 | (states "art/door.spe" (stopped (seq "door" 1 5))))
|
|---|
| 69 |
|
|---|
| 70 |
|
|---|
| 71 | (defun tpdi_ai () ;; teleporting door ai
|
|---|
| 72 | (let ( (player (bg)) )
|
|---|
| 73 | (if (has_object player)
|
|---|
| 74 | (if (not (with_object player (pressing_action_key) ) )
|
|---|
| 75 | (remove_object player)
|
|---|
| 76 | )
|
|---|
| 77 | (if (and (< (distx) 15) (< (disty) 20) (with_object player (pressing_action_key) ) (> (total_objects) 0))
|
|---|
| 78 | (let ((otherx (with_object (get_object 0) (x))) (othery (with_object (get_object 0) (y))))
|
|---|
| 79 | (with_object (get_object 0) (link_object player))
|
|---|
| 80 | (with_object player
|
|---|
| 81 | (progn
|
|---|
| 82 | (set_x otherx)
|
|---|
| 83 | (set_y othery)
|
|---|
| 84 | )
|
|---|
| 85 | )
|
|---|
| 86 | )
|
|---|
| 87 | )
|
|---|
| 88 | )
|
|---|
| 89 | )
|
|---|
| 90 | T)
|
|---|
| 91 |
|
|---|
| 92 | (def_char TP_DOOR_INVIS
|
|---|
| 93 | (range 0 0)
|
|---|
| 94 | (funs (ai_fun tpdi_ai)
|
|---|
| 95 | (draw_fun dev_draw))
|
|---|
| 96 | (fields ("xvel" tp_amb))
|
|---|
| 97 | (states "art/misc.spe" (stopped "clone_icon")))
|
|---|
