| 1 | (perm-space) |
|---|
| 2 | |
|---|
| 3 | (setq load_warn nil) |
|---|
| 4 | (setq section 'game_section) |
|---|
| 5 | (if (not (load "lisp/english.lsp")) ;; load language specific stuff |
|---|
| 6 | (progn (print "Please make sure you unzipped the game with the -d option")(quit))) |
|---|
| 7 | (setq load_warn T) |
|---|
| 8 | (load "lisp/common.lsp") |
|---|
| 9 | (load "lisp/userfuns.lsp") |
|---|
| 10 | (load "lisp/options.lsp") |
|---|
| 11 | (load "lisp/startup.lsp") |
|---|
| 12 | |
|---|
| 13 | |
|---|
| 14 | ;************************************* |
|---|
| 15 | ;************************************* |
|---|
| 16 | ;************************************* |
|---|
| 17 | (if (not (local_load "lisp/input.lsp")) ; get local copy first |
|---|
| 18 | (load "lisp/input.lsp")) |
|---|
| 19 | ;************************************* |
|---|
| 20 | ;************************************* |
|---|
| 21 | ;************************************* |
|---|
| 22 | ;************************************* |
|---|
| 23 | ;************************************* |
|---|
| 24 | ;************************************* |
|---|
| 25 | (load "lisp/sfx.lsp") |
|---|
| 26 | ;************************************* |
|---|
| 27 | ;************************************* |
|---|
| 28 | ;************************************* |
|---|
| 29 | (load "lisp/gates.lsp") |
|---|
| 30 | ;************************************* |
|---|
| 31 | ;************************************* |
|---|
| 32 | ;************************************* |
|---|
| 33 | (load "lisp/duong.lsp") |
|---|
| 34 | ;************************************* |
|---|
| 35 | ;************************************* |
|---|
| 36 | ;************************************* |
|---|
| 37 | (load "lisp/ant.lsp") |
|---|
| 38 | ;************************************* |
|---|
| 39 | ;************************************* |
|---|
| 40 | ;************************************* |
|---|
| 41 | (load "lisp/people.lsp") |
|---|
| 42 | ;************************************* |
|---|
| 43 | ;************************************* |
|---|
| 44 | ;************************************* |
|---|
| 45 | (load "lisp/weapons.lsp") |
|---|
| 46 | ;************************************* |
|---|
| 47 | ;************************************* |
|---|
| 48 | ;************************************* |
|---|
| 49 | (load "lisp/explo.lsp") |
|---|
| 50 | ;************************************* |
|---|
| 51 | ;************************************* |
|---|
| 52 | ;************************************* |
|---|
| 53 | (load "lisp/platform.lsp") |
|---|
| 54 | (load "lisp/guns.lsp") |
|---|
| 55 | (load "lisp/jugger.lsp") |
|---|
| 56 | (load "lisp/flyer.lsp") |
|---|
| 57 | (load "lisp/teleport.lsp") |
|---|
| 58 | (load "lisp/general.lsp") |
|---|
| 59 | (load "lisp/powerup.lsp") |
|---|
| 60 | (load "lisp/doors.lsp") |
|---|
| 61 | (load "lisp/light.lsp")(load "lisp/ladder.lsp")(load "lisp/switch.lsp") |
|---|
| 62 | (setq bad_guy_list (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER GREEN_FLYER BOSS_ANT)) |
|---|
| 63 | (gc)(tmp-space)(create_players DARNEL) |
|---|
