source: golgotha/src/golg/scheme/start.scm @ 80

Last change on this file since 80 was 80, checked in by Sam Hocevar, 12 years ago
  • Adding the Golgotha source code. Not sure what's going to be interesting in there, but since it's all public domain, there's certainly stuff to pick up.
File size: 3.3 KB
Line 
1(setf normal_unlimited '(list_box normal unlimited))
2
3
4(def_class player_vars nil
5  (num_points        0)
6  (num_stank_deaths  0)
7  (num_stank_lives   3)
8
9  (income_multipler  1)       ; computer players get an advantage
10  (income_rate       0)
11  (money             10000)
12
13  (continue          0)       ; after stank dies
14  (team_flag "team_flag")
15)
16
17(setf radar_darkness 1.0)   ; 0-1 scales the birghtness of the radar map
18(setf editor_pan_accel 0.05)
19(setf editor_rotate_accel 0.01)  ; in radians
20
21
22
23; **************************** Border frame config *******************************
24(setf strategy_camera_border 7)
25
26
27 
28; defines which weapons go with which upgrade levels and the border image to use
29; weapons are defined in scheme/balance.scm
30(setf default_frame "bitmaps/stank/def_frame.jpg")
31(setf upgrade_levels
32;     '(("bitmaps/stank/frame_level_0.jpg" guided_missile heavy_rocket  bolt kevlar)))
33     '(("bitmaps/stank/frame_level_0.jpg" b120mm heavy_rocket    chain_gun kevlar)
34       ("bitmaps/stank/frame_level_1.jpg" acid   vortex_missile  chain_gun reactive)
35       ("bitmaps/stank/frame_level_2.jpg" napalm nuke_missile    chain_gun titanium)))
36
37(setf upgrade_colors
38      '(0xffffff     ; no stank - white
39        0x005fff     ; cyan - level 0
40        0xff00       ; green - level 1 (acid)
41        0xff0000))    ; red  - level 2  (fire)
42
43; locations relative to status bar top left graphic
44(setf action_mode_locations
45      '((276   10)  ; lives
46        (-10   500) ; money
47        (92    34)  ; main
48        (341   37)  ; missiles
49        (369   6)   ; chain
50        (92    6))) ; health
51
52; locations relative to strategy-bar top left graphic
53(setf strategy_mode_locations
54      '((7 172)     ; lives
55        (99 126)    ; money
56        (37 270)    ; main
57        (100 299)   ; missiles
58        (101 218)   ; chain
59        (37  218))) ; health
60
61
62; *************************** Preferences ******************************
63(setf team_tinting       nil)
64(setf team_icons         nil)
65(setf allow_follow_mode  nil)
66
67
68;(set_default_ai "ai_builder")
69(set_default_ai "ai_jim")
70
71
72(setf watch_camera_accel 0.01)
73(setf watch_camera_max_speed  0.3)
74(setf watch_camera_turn_speed 0.04)
75
76(setf font "bitmaps/golgotha_font.tga")
77
78
79(def_class music_class nil
80  (songs  "none" '(list_box
81
82                   ; ************ music list ***********
83                   "music/splash_screen_opus_22khz.wav"
84
85                   "music/roselyn_Chapel_scotland_ii.wav"
86                   "music/rome_italy.wav"
87
88
89;                   "music/frankfurt_germany_22khz.wav"
90;                   "music/norway_nephelim_battle_22khz.wav"
91;                   "music/rome_italy_22khz.wav"
92;                   "music/roselyn_chapel_scotland_ii_22khz.wav"
93;                   "music/naples_italy.wav"
94;                   "music/turin_italy_22khz.wav"
95;                   "music/vienna_austria_22khz.wav"
96                   ; ************************************
97                   ))
98  (volume 63))
99
100(setf music (new music_class))
101
102(setf enemy_buildable  '(peon_tank bomb_truck engineer))
103(setf player_buildable '(peon_tank bomb_truck stank engineer))
104   
105
106
107(load "scheme/classes.scm")
108
109;(set_default_level "/u/ddt/src/dlev/d.level")
110
111
112(setf mouse_left_button "Main Gun")
113(setf mouse_right_button "Chain Gun")
114
115
116
117
Note: See TracBrowser for help on using the repository browser.