1;; Copyright 1999 Profound Corp,  All Rights reserved
2;; See licensing information for more details on usage rights
3
4
5(setq keep_backup T)                  ;; determines if Save
6
7(setq load_warn nil)
8
9(if (local_load "addon/deathmat/username.lsp")
10  (set_login username))
11
12(if (local_load "addon/deathmat/gamename.lsp")
13  (set_game_name gamename)
14  (set_game_name "Munir's Game"))
15
16(load "demo.lsp")
17
18(local_load "gamma.lsp")              ;; load gamma correction values if they have been saved
19
20(if (not (load "hardness.lsp"))       ;; load hardness, if no file set to hard
21    (setf difficulty        'normal))
22(setq load_warn T)
23
24; *********** Defaults **************************
25
26(setf sfx_directory     "sfx/")
27
28;(load_big_font     "art/letters.spe" "letters")
29(load_big_font     "art/fonts.spe" "screen11")
30(load_small_font   "art/fonts.spe" "small_font")
31(load_console_font "art/fonts.spe" "fnt5x7")
32(load_color_filter "art/back/backgrnd.spe")
33(load_palette      "addon/twist/art/palette.spe")
34(setq normal_tint (def_tint "art/back/backgrnd.spe"))
35
36
37(load_tiles "art/fore/foregrnd.spe"  ;; 0
38	    "art/fore/techno.spe"    ;; 1-99
39	    "art/fore/techno2.spe"   ;; 100-167
40	    "art/fore/techno3.spe"   ;; 200-236
41	    "art/fore/techno4.spe"   ;; 300-460
42	    "art/fore/cave.spe"      ;; 500-634
43	    "art/fore/alien.spe"    ;; 700-774
44	    "art/fore/trees.spe"    ;; 800-931
45	    "art/fore/endgame.spe"  ;; 950-1014
46	    "art/fore/trees2.spe"   ;; 1100-1134
47
48	    "art/back/backgrnd.spe"  ;; 0
49	    "art/back/intro.spe"     ;; 5-37
50	    "art/back/city.spe"      ;; 40-70
51	    "art/back/cave.spe"      ;; 84-103
52	    "art/back/tech.spe"      ;; 110-139
53	    "art/back/alienb.spe"   ;; 150-179
54	    "art/back/green2.spe"   ;; 200-268
55	    "art/back/galien.spe"   ;; 300-320
56	    )
57
58(defun end_game_ai ()
59  (if (activated)
60      (if (eq (aistate) 8)
61	  (if (not (next_picture))
62	      (request_end_game))
63	(set_aistate (+ (aistate) 1))))
64  T)
65
66
67(def_char END_GAME
68  (funs (ai_fun end_game_ai))
69  (range 0 0)
70  (states "art/fore/endgame.spe"
71	  (stopped (app (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			(seq "pipe" 1 9)))))
80
81
82(setf demos        '("levels/demo1.dat" "levels/demo3.dat" "levels/demo4.dat" "levels/demo5.dat"))
83
84(if (not (get_option "-f"))
85    (progn
86      (if skip_trainer_level
87	  (set_first_level "addon/twist/levels/l01s01.lvl")
88	(set_first_level "addon/twist/levels/l01s01.lvl"))))
89
90