source: abuse-frabs/trunk/register/tiles.lsp @ 44

Last change on this file since 44 was 44, checked in by Sam Hocevar, 15 years ago
  • Importing abuse-frabs 2.10.
File size: 771 bytes
RevLine 
[44]1
2(load_tiles
3            "register/alien.spe"    ;; 700-774
4            "register/trees.spe"    ;; 800-931
5            "art/endgame.spe"       ;; 950-1014
6            "register/trees2.spe"   ;; 1100-1134
7
8            "register/alienb.spe"   ;; 150-179
9            "register/green2.spe"   ;; 200-268
10            "register/galien.spe"   ;; 300-320
11            )
12
13(defun end_game_ai ()
14  (if (activated)
15      (if (eq (aistate) 8)
16          (if (not (next_picture))
17              (request_end_game))
18        (set_aistate (+ (aistate) 1))))
19  T)
20     
21
22
23(def_char END_GAME
24  (funs (ai_fun end_game_ai))
25  (range 0 0) 
26  (states "art/endgame.spe"
27          (stopped (app (seq "pipe" 1 9)
28                        (seq "pipe" 1 9)
29                        (seq "pipe" 1 9)
30                        (seq "pipe" 1 9)
31                        (seq "pipe" 1 9)
32                        (seq "pipe" 1 9)
33                        (seq "pipe" 1 9)
34                        (seq "pipe" 1 9)
35                        (seq "pipe" 1 9)))))
36
37
38
39
40
Note: See TracBrowser for help on using the repository browser.