|
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.
