[54] | 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 |
---|
[601] | 11 | (print "Abuse data files not found. Maybe try the `-datadir' option?") |
---|
[54] | 12 | (quit))) |
---|
| 13 | (setq load_warn T) |
---|
| 14 | |
---|
| 15 | (load "lisp/common.lsp") |
---|
| 16 | (load "lisp/userfuns.lsp") |
---|
[582] | 17 | (load "lisp/options.lsp") |
---|
[54] | 18 | (load "lisp/startup.lsp") |
---|
[594] | 19 | (load "lisp/input.lsp") |
---|
[54] | 20 | |
---|
| 21 | (load "lisp/sfx.lsp") |
---|
| 22 | (load "lisp/gates.lsp") |
---|
| 23 | (load "lisp/duong.lsp") |
---|
| 24 | (load "lisp/ant.lsp") |
---|
| 25 | (load "lisp/people.lsp") |
---|
| 26 | (load "lisp/weapons.lsp") |
---|
| 27 | (load "lisp/explo.lsp") |
---|
| 28 | (load "lisp/platform.lsp") |
---|
| 29 | (load "lisp/guns.lsp") |
---|
| 30 | (load "lisp/jugger.lsp") |
---|
| 31 | (load "lisp/flyer.lsp") |
---|
| 32 | (load "lisp/teleport.lsp") |
---|
| 33 | (load "lisp/general.lsp") |
---|
| 34 | (load "lisp/powerup.lsp") |
---|
| 35 | (load "lisp/doors.lsp") |
---|
| 36 | (load "lisp/light.lsp") |
---|
| 37 | (load "lisp/ladder.lsp") |
---|
| 38 | (load "lisp/switch.lsp") |
---|
| 39 | |
---|
[594] | 40 | ;; From the fRaBs addons. This is required in case we load a save file |
---|
| 41 | ;; from a fRaBs install, it will miss graphic tiles. |
---|
| 42 | (load "addon/twist/f2chars.lsp") |
---|
| 43 | (load "addon/twist/f2ai.lsp") |
---|
| 44 | (load "addon/aliens/astartup.lsp") |
---|
| 45 | (load "addon/claudio/claudio.lsp") |
---|
| 46 | (load "addon/twist/lisp/dray.lsp") |
---|
| 47 | (load "addon/twist/lisp/mario.lsp") |
---|
| 48 | (load "addon/leon/4frabs.lsp") |
---|
| 49 | (load "addon/newart/newart.lsp") |
---|
[54] | 50 | |
---|
[594] | 51 | (setq bad_guy_list |
---|
| 52 | (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER |
---|
| 53 | GREEN_FLYER BOSS_ANT DROID_JUGGER DROID DEATH_SKULL DEATH_UMBRELLA |
---|
| 54 | ANT_SHIP WALK_ROB T_REX FACE_HUGGER ALIEN_DRONE ALIEN_WARRIOR ANT |
---|
| 55 | ANT_JUMPER ANT_PRED ANT_GREATER2 WALK_ROB2 WALK_ROBHEAD)) |
---|
| 56 | (setq object_destroyable_list |
---|
| 57 | (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER |
---|
| 58 | GREEN_FLYER BOSS_ANT DROID_JUGGER DROID DEATH_SKULL DEATH_UMBRELLA |
---|
| 59 | ANT_SHIP WALK_ROB T_REX FACE_HUGGER ALIEN_DRONE ALIEN_WARRIOR ANT |
---|
| 60 | ANT_JUMPER ANT_PRED ANT_GREATER2 WALK_ROB2 WALK_ROBHEAD)) |
---|
| 61 | |
---|
[54] | 62 | (gc) ;; garbage collection perm space |
---|
| 63 | (tmp-space) ;; execute game code in tmp space which is not GC'ed |
---|
| 64 | |
---|
| 65 | (create_players DARNEL) |
---|
[594] | 66 | |
---|