| 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 "addon/deathmat/username.lsp")
|
|---|
| 9 | (set_login username))
|
|---|
| 10 |
|
|---|
| 11 | (if (local_load "addon/deathmat/gamename.lsp")
|
|---|
| 12 | (set_game_name gamename)
|
|---|
| 13 | (set_game_name "Joe's 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 |
|
|---|
| 43 | "art/back/backgrnd.spe" ;; 0
|
|---|
| 44 | "art/back/intro.spe" ;; 5-37
|
|---|
| 45 | "art/back/city.spe" ;; 40-70
|
|---|
| 46 | "art/back/cave.spe" ;; 84-103
|
|---|
| 47 | "art/back/tech.spe" ;; 110-139
|
|---|
| 48 | )
|
|---|
| 49 |
|
|---|
| 50 | (setq load_warn nil)
|
|---|
| 51 | (load "register/tiles.lsp") ;; load up registered artwork if it's there
|
|---|
| 52 | (setq load_warn T)
|
|---|
| 53 |
|
|---|
| 54 | (select (random 6)
|
|---|
| 55 | (0 (setf title_screen '("art/title.spe" . "title_screen1")))
|
|---|
| 56 | (1 (setf title_screen '("art/title.spe" . "title_screen2")))
|
|---|
| 57 | (2 (setf title_screen '("art/title.spe" . "title_screen3")))
|
|---|
| 58 | (3 (setf title_screen '("art/title.spe" . "title_screen4")))
|
|---|
| 59 | (4 (setf title_screen '("art/title.spe" . "title_screen5")))
|
|---|
| 60 | (5 (setf title_screen '("art/title.spe" . "title_screen6")))
|
|---|
| 61 | )
|
|---|
| 62 |
|
|---|
| 63 | (setf logo '("art/title.spe" . "cdc_logo"))
|
|---|
| 64 |
|
|---|
| 65 | (setf demos '("levels/demo1.dat" "levels/demo3.dat" "levels/demo4.dat" "levels/demo5.dat"))
|
|---|
| 66 | (setq help_screens '("art/help.spe" "sell1"))
|
|---|
| 67 |
|
|---|
| 68 | (if (not (get_option "-f"))
|
|---|
| 69 | (progn
|
|---|
| 70 | (if skip_trainer_level
|
|---|
| 71 | (set_first_level "levels/level01.spe")
|
|---|
| 72 | (set_first_level "levels/level00.spe"))))
|
|---|
| 73 |
|
|---|
| 74 |
|
|---|
