home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer 13 / 1995-12_Disc_13.iso / abuse / lisp / startup.lsp < prev    next >
Lisp/Scheme  |  1995-08-31  |  2KB  |  61 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licencing information for more details on usage rights
  3.  
  4. (setq keep_backup T)                  ;; determines if Save
  5.  
  6. (setq load_warn nil)
  7. (load "lastsave.lsp")
  8. (load "lisp/english.lsp")             ;; load language specific stuff
  9. (load "gamma.lsp")                    ;; load gamma correction values if they have been saved
  10.  
  11. (if (not (load "hardness.lsp"))       ;; load hardness, if no file set to hard
  12.     (setf difficulty        'hard))
  13. (setq load_warn T)
  14.  
  15. ; *********** Defaults **************************
  16.  
  17. (setf sfx_directory     "sfx/")
  18.  
  19. ;(load_big_font     "art/letters.spe" "letters")
  20. (load_big_font     "art/screen11.spe" "screen11")
  21. (load_small_font   "art/letters.spe" "small_font")
  22. (load_console_font "art/consfnt.spe" "fnt5x7")
  23. (load_color_filter "art/back/backgrnd.spe")
  24. (load_palette      "art/back/backgrnd.spe")
  25. (setq normal_tint (def_tint "art/back/backgrnd.spe"))
  26.  
  27.  
  28. (load_tiles "art/fore/foregrnd.spe"
  29.         "art/fore/techno.spe"
  30.         "art/fore/techno2.spe"
  31.         "art/fore/techno3.spe"
  32.         "art/fore/techno4.spe"
  33.         "art/fore/cave.spe"
  34.  
  35.         "art/back/intro.spe"
  36.         "art/back/city.spe"
  37.         "art/back/tech.spe"
  38.         "art/back/cave.spe"
  39.         "art/back/backgrnd.spe")
  40.  
  41. (setq load_warn nil)
  42. (load "register/tiles.lsp")       ;; load up registered artwork if it's there
  43. (setq load_warn T)
  44.  
  45. (setf title_screen      '("art/title.spe" . "title_screen"))
  46. (setf logo              '("art/title.spe" . "cdc_logo"))
  47.  
  48. (setf demos        '("demos/demo3"))
  49. (setq help_screens '("art/help.spe" "sell1" "sell2" "sell4"))
  50. (setq sell_screens  '(("art/help.spe" . "sell2")
  51.                      ("art/help.spe" . "sell4")
  52.                      ("art/help.spe" . "sell3")))
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.