Ignore:
Timestamp:
May 7, 2011, 4:06:03 PM (10 years ago)
Author:
Sam Hocevar
Message:

data: remove exact duplicate Lisp files, merge all main space Lisp files,
and move most frabs addons to the main data directory.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • abuse/trunk/data/lisp/teleport.lsp

    r588 r589  
    6868  (states "art/door.spe" (stopped (seq "door" 1 5))))
    6969
     70;; Teleporting door AI
     71(defun tpdi_ai ()
     72  (let ((player (bg)))
     73       (if (has_object player)
     74           (if (not (with_object player (pressing_action_key)))
     75               (remove_object player))
     76           (if (and (< (distx) 15)
     77                    (< (disty) 20)
     78                    (with_object player (pressing_action_key))
     79                    (> (total_objects) 0))
     80               (let ((otherx (with_object (get_object 0) (x)))
     81                     (othery (with_object (get_object 0) (y))))
     82                    (with_object (get_object 0) (link_object player))
     83                    (with_object player
     84                      (progn (set_x otherx) (set_y othery)))))))
     85  T)
    7086
     87(def_char TP_DOOR_INVIS
     88  (range 0 0)
     89  (funs (ai_fun tpdi_ai)
     90        (draw_fun dev_draw))
     91  (fields ("xvel" tp_amb))
     92  (states "art/misc.spe" (stopped "clone_icon")))
     93
Note: See TracChangeset for help on using the changeset viewer.