source: abuse-frabs/trunk/addon/leon/lisp/text.lsp @ 44

Last change on this file since 44 was 44, checked in by Sam Hocevar, 14 years ago
  • Importing abuse-frabs 2.10.
File size: 1.1 KB
Line 
1   ;  0123456789012345678901234567890123456789012345678901234567890123456789
2   ;  "--------------------------------------------------------------------"
3   ; Please keep all strings below shorter than the above line.
4   ; Add as many strings as you like.
5     
6     
7(defun get_message (message_num)
8  (select message_num     
9   (0 "Dammit! I gotta get out of here!")
10   (1 "What the...")
11   (2 "Damn!")
12   (3 "Holy Shit!")
13   (4 "I don't like the looks of this...")
14   (5 "I have a bad feeling about this.")
15  )
16)
17
18(defun msg_ai ()
19  (if (eq (aistate) 0)
20      (if (activated)
21          (progn
22            (with_object (bg)
23                         (progn nil
24;                          (if (local_player) ;; Doesnt work for some reason
25;                              (show_help (get_message (aitype))))
26                           ))                       
27            (set_aistate 1)
28            T)
29        T)
30    (if (eq (aistate) 20)
31        nil
32      (progn
33        (if (with_object (bg) (local_player))
34            (show_help (get_message (aitype))))
35        (set_aistate (+ (aistate) 1))
36        T))))
37
38(def_char MESSAGE
39  (funs (ai_fun msg_ai)
40        (draw_fun dev_draw))
41  (fields ("aitype" train_msg_num))
42  (states "art/misc.spe"
43          (stopped "bubble")))
Note: See TracBrowser for help on using the repository browser.