source: abuse/trunk/data/lisp/startup.lsp @ 590

Last change on this file since 590 was 590, checked in by Sam Hocevar, 11 years ago

data: merge registered data into the main data directory.

File size: 3.0 KB
Line 
1;; Copyright 1995 Crack dot Com,  All Rights reserved
2;; See licensing information for more details on usage rights
3
4(setq keep_backup T)                  ;; determines if Save
5
6(setq load_warn nil)
7
8(if (local_load "config/username.lsp")
9  (set_login username))
10
11(if (local_load "config/gamename.lsp")
12  (set_game_name gamename)
13  (set_game_name "Abuse Net Game"))
14
15(load "demo.lsp")
16
17(local_load "gamma.lsp")              ;; load gamma correction values if they have been saved
18
19(if (not (load "hardness.lsp"))       ;; load hardness, if no file set to hard
20    (setf difficulty        'hard))
21(setq load_warn T)
22
23; *********** Defaults **************************
24
25(setf sfx_directory     "sfx/")
26
27;(load_big_font     "art/letters.spe" "letters")
28(load_big_font     "art/fonts.spe" "screen11")
29(load_small_font   "art/fonts.spe" "small_font")
30(load_console_font "art/fonts.spe" "fnt5x7")
31(load_color_filter "art/back/backgrnd.spe")
32(load_palette      "art/back/backgrnd.spe")
33(setq normal_tint (def_tint "art/back/backgrnd.spe"))
34
35
36(load_tiles "art/fore/foregrnd.spe"  ;; 0
37            "art/fore/techno.spe"    ;; 1-99
38            "art/fore/techno2.spe"   ;; 100-167
39            "art/fore/techno3.spe"   ;; 200-236
40            "art/fore/techno4.spe"   ;; 300-460
41            "art/fore/cave.spe"      ;; 500-634
42            "art/fore/alien.spe"    ;; 700-774
43            "art/fore/trees.spe"    ;; 800-931
44            "art/fore/endgame.spe"  ;; 950-1014
45            "art/fore/trees2.spe"   ;; 1100-1134
46
47            "art/back/backgrnd.spe"  ;; 0
48            "art/back/intro.spe"     ;; 5-37
49            "art/back/city.spe"      ;; 40-70
50            "art/back/cave.spe"      ;; 84-103
51            "art/back/tech.spe"      ;; 110-139
52            "art/back/alienb.spe"   ;; 150-179
53            "art/back/green2.spe"   ;; 200-268
54            "art/back/galien.spe"   ;; 300-320
55            )
56
57(defun end_game_ai ()
58  (if (activated)
59      (if (eq (aistate) 8)
60          (if (not (next_picture))
61              (request_end_game))
62        (set_aistate (+ (aistate) 1))))
63  T)
64
65
66(def_char END_GAME
67  (funs (ai_fun end_game_ai))
68  (range 0 0)
69  (states "art/fore/endgame.spe"
70          (stopped (app (seq "pipe" 1 9)
71                        (seq "pipe" 1 9)
72                        (seq "pipe" 1 9)
73                        (seq "pipe" 1 9)
74                        (seq "pipe" 1 9)
75                        (seq "pipe" 1 9)
76                        (seq "pipe" 1 9)
77                        (seq "pipe" 1 9)
78                        (seq "pipe" 1 9)))))
79
80
81(setf title_screen      '("art/title.spe" . "title_screen"))
82;; XXX: Frabs uses a random title screen
83;(select (random 6)
84;  (0 (setf title_screen '("art/title.spe" . "frabs_screen1")))
85;  (1 (setf title_screen '("art/title.spe" . "frabs_screen2")))
86;  (2 (setf title_screen '("art/title.spe" . "frabs_screen3")))
87;  (3 (setf title_screen '("art/title.spe" . "frabs_screen4")))
88;  (4 (setf title_screen '("art/title.spe" . "frabs_screen5")))
89;  (5 (setf title_screen '("art/title.spe" . "frabs_screen6"))))
90(setf logo              '("art/title.spe" . "cdc_logo"))
91
92(setf demos        '("levels/demo1.dat" "levels/demo3.dat" "levels/demo4.dat" "levels/demo5.dat"))
93(setq help_screens '("art/help.spe" "sell1"))
94
95(if (not (get_option "-f"))
96    (progn
97      (if skip_trainer_level
98          (set_first_level "levels/level01.spe")
99        (set_first_level "levels/level00.spe"))))
100
101
Note: See TracBrowser for help on using the repository browser.