[566] | 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 | |
---|
[582] | 9 | (if (local_load "addon/deathmat/username.lsp") |
---|
[566] | 10 | (set_login username)) |
---|
| 11 | |
---|
[582] | 12 | (if (local_load "addon/deathmat/gamename.lsp") |
---|
[566] | 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 |
---|
[590] | 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 |
---|
[566] | 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 |
---|
[590] | 53 | "art/back/alienb.spe" ;; 150-179 |
---|
| 54 | "art/back/green2.spe" ;; 200-268 |
---|
| 55 | "art/back/galien.spe" ;; 300-320 |
---|
[566] | 56 | ) |
---|
| 57 | |
---|
[590] | 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) |
---|
[566] | 65 | |
---|
[590] | 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 | |
---|
[566] | 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 | |
---|