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