mirror of
https://github.com/Abdess/retroarch_system.git
synced 2026-10-10 21:43:23 -05:00
52 lines
1.3 KiB
Common Lisp
52 lines
1.3 KiB
Common Lisp
;; Copyright 1995 Crack dot Com, All Rights reserved
|
|
;; See licensing information for more details on usage rights
|
|
|
|
|
|
(perm-space)
|
|
|
|
(setq load_warn nil)
|
|
(setq section 'game_section)
|
|
(if (not (load "lisp/english.lsp")) ;; load language specific stuff
|
|
(progn
|
|
(print "Abuse data files not found. Maybe try the `-datadir' option?")
|
|
(quit)))
|
|
(setq load_warn T)
|
|
|
|
(load "lisp/common.lsp")
|
|
(load "lisp/userfuns.lsp")
|
|
(load "lisp/options.lsp")
|
|
(load "lisp/startup.lsp")
|
|
(load "lisp/input.lsp")
|
|
|
|
(load "lisp/sfx.lsp")
|
|
(load "lisp/gates.lsp")
|
|
(load "lisp/duong.lsp")
|
|
(load "lisp/ant.lsp")
|
|
(load "lisp/people.lsp")
|
|
(load "lisp/weapons.lsp")
|
|
(load "lisp/explo.lsp")
|
|
(load "lisp/platform.lsp")
|
|
(load "lisp/guns.lsp")
|
|
(load "lisp/jugger.lsp")
|
|
(load "lisp/flyer.lsp")
|
|
(load "lisp/teleport.lsp")
|
|
(load "lisp/general.lsp")
|
|
(load "lisp/powerup.lsp")
|
|
(load "lisp/doors.lsp")
|
|
(load "lisp/light.lsp")
|
|
(load "lisp/ladder.lsp")
|
|
(load "lisp/switch.lsp")
|
|
|
|
(setq bad_guy_list
|
|
(list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER
|
|
GREEN_FLYER BOSS_ANT))
|
|
(setq object_destroyable_list
|
|
(list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER
|
|
GREEN_FLYER BOSS_ANT))
|
|
|
|
(gc) ;; garbage collection perm space
|
|
(tmp-space) ;; execute game code in tmp space which is not GC'ed
|
|
|
|
(create_players DARNEL)
|
|
|