home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #6 / CDRTV2N6.iso / games / abuse / disk2.dat / ABUSE.LSP < prev    next >
Lisp/Scheme  |  1996-02-15  |  1KB  |  50 lines
  1. ;; Copyright 1995 Crack dot Com,  All Rights reserved
  2. ;; See licensing information for more details on usage rights
  3.  
  4.  
  5. (perm-space)
  6.  
  7. (setq load_warn nil)
  8. (setq section 'game_section)
  9. (if (not (load "lisp/english.lsp"))             ;; load language specific stuff
  10.     (progn
  11.       (print "Please make sure you unzipped the game with the -d option")
  12.       (print "so that all directories get created properly.")      
  13.       (print "example : pkunzip -d abusXXXX.zip")      
  14.       (quit)))
  15. (setq load_warn T)
  16.  
  17.  
  18. (load "lisp/common.lsp")
  19. (load "lisp/userfuns.lsp")
  20. (load "lisp/options.lsp")     
  21. (load "lisp/startup.lsp")
  22. (if (not (local_load "lisp/input.lsp"))   ; get local copy first
  23.     (load "lisp/input.lsp"))
  24.  
  25. (load "lisp/sfx.lsp")
  26. (load "lisp/gates.lsp")
  27. (load "lisp/duong.lsp")
  28. (load "lisp/ant.lsp")
  29. (load "lisp/people.lsp")
  30. (load "lisp/weapons.lsp")
  31. (load "lisp/explo.lsp")
  32. (load "lisp/platform.lsp")
  33. (load "lisp/guns.lsp")
  34. (load "lisp/jugger.lsp")
  35. (load "lisp/flyer.lsp")
  36. (load "lisp/teleport.lsp")
  37. (load "lisp/general.lsp")
  38. (load "lisp/powerup.lsp")
  39. (load "lisp/doors.lsp")
  40. (load "lisp/light.lsp")
  41. (load "lisp/ladder.lsp")
  42. (load "lisp/switch.lsp")
  43.  
  44. (setq bad_guy_list (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER GREEN_FLYER BOSS_ANT))
  45.  
  46. (gc)              ;; garbage collection perm space
  47. (tmp-space)       ;; execute game code in tmp space which is not GC'ed
  48.  
  49. (create_players DARNEL)
  50.