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 "addon/twist/lisp/input.lsp"))
|
---|
23 | (load "addon/twist/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 interfere T)
|
---|
45 |
|
---|
46 | ;; This is fRaBs addon LISP.
|
---|
47 |
|
---|
48 | (load "addon/twist/f2chars.lsp")
|
---|
49 | (load "addon/twist/f2ai.lsp")
|
---|
50 | (load "addon/aliens/astartup.lsp")
|
---|
51 | (load "addon/claudio/claudio.lsp")
|
---|
52 | (load "addon/twist/lisp/dray.lsp")
|
---|
53 | (load "addon/twist/lisp/mario.lsp")
|
---|
54 | (load "addon/leon/4frabs.lsp")
|
---|
55 | (load "addon/newart/newart.lsp")
|
---|
56 |
|
---|
57 | (setq bad_guy_list (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER GREEN_FLYER BOSS_ANT DROID_JUGGER DROID DEATH_SKULL DEATH_UMBRELLA ANT_SHIP WALK_ROB T_REX FACE_HUGGER ALIEN_DRONE ALIEN_WARRIOR ANT ANT_JUMPER ANT_PRED ANT_GREATER2 WALK_ROB2 WALK_ROBHEAD))
|
---|
58 | (setq object_destroyable_list (list DARNEL ANT_ROOF TRACK_GUN SPRAY_GUN JUGGER ROB1 WHO ROCKET FLYER GREEN_FLYER BOSS_ANT DROID_JUGGER DROID DEATH_SKULL DEATH_UMBRELLA ANT_SHIP WALK_ROB T_REX FACE_HUGGER ALIEN_DRONE ALIEN_WARRIOR ANT ANT_JUMPER ANT_PRED ANT_GREATER2 WALK_ROB2 WALK_ROBHEAD))
|
---|
59 |
|
---|
60 | (gc) ;; garbage collection perm space
|
---|
61 | (tmp-space) ;; execute game code in tmp space which is not GC'ed
|
---|
62 |
|
---|
63 | (create_players DARNEL) |
---|