type gozer
normal_model as integer
damaged_model as integer
dead_model as integer
health_left as integer
time_left as integer
lives_left as integer
current_level as integer
current_rage as integer
weapon1_radius as integer
weapon2_radius as integer
weapon1_ammo as integer
weapon2_ammo as integer
gozer_level as integer
gozer_front_blade as integer
gozer_back_blade as integer
gozer_engine as integer
gozer_tires as integer
gozer_weapon1 as integer
gozer_weapon2 as integer
gozer_special1 as integer
gozer_special2 as integer
gozer_armortype as integer
gozer_armorlevel as integer
gozer_locx as float
gozer_locy as float
gozer_locz as float
gozer_rotx as float
gozer_roty as float
gozer_rotz as float
gozer_cam_distance1 as float
gozer_cam_distance2 as float
gozer_cam_mode as integer
gozer_number_particles as integer
gozer_particle_model1 as integer
gozer_particle_model2 as integer
gozer_particle_model3 as integer
gozer_particle_life as integer
gozer_particle_randomness as integer
gozer_particle_status as integer
gozer_status as integer
gozer_controller as integer
gozer_path_1x as float
gozer_path_1z as float
gozer_path_2x as float
gozer_path_2z as float
gozer_path_3x as float
gozer_path_3z as float
gozer_path_4x as float
gozer_path_4z as float
gozer_ai_level as integer
gozer_ai_action as integer
gozer_ai_next as integer
gozer_ai_randomness as integer
gozer_speed_min as integer
gozer_speed_max as integer
gozer_speed_cur as integer
endtype
type LEVEL
model as integer
skybox as integer
texture as integer
sizex as integer
sizez as integer
number as integer
timelimit as integer
endtype
global Level1 as LEVEL
global Gozer1 as gozer
Game_Setup()
Setup_Level(1)
Paint_Terrain()
wait key
function Setup_Level(lvlnum)
Level1.model = 50 + lvlnum
Level1.skybox = 90 + lvlnum
Level1.texture = 70 + lvlnum
Level1.sizex = 5000
Level1.sizez = 5000
Level1.number = lvlnum
select lvlnum
case 1:Level1.timelimit = 1200000:endcase
case 2:Level1.timelimit = 18 * 60000 : endcase
case 3:Level1.timelimit = 17 * 60000 : endcase
case 4:Level1.timelimit = 16 * 60000 : endcase
case 5:Level1.timelimit = 15 * 60000 : endcase
case 6:Level1.timelimit = 14 * 60000 : endcase
case 7:Level1.timelimit = 13 * 60000 : endcase
case 8:Level1.timelimit = 12 * 60000 : endcase
case 9:Level1.timelimit = 11 * 60000 : endcase
case 10:Level1.timelimit = 10 * 60000 : endcase
endselect
make object plain Level1.model,Level1.sizex,Level1.sizez
position object Level1.model,0,0,15.0
select lvlnum
case 1: load image "grass_t.bmp",Level1.texture,0 : endcase
endselect
endfunction
function Game_Setup()
SYNC ON
SYNC RATE 60
Set display mode 1024,768,16
autocam off
make light 1
make camera 1
position camera 1,0,10.0,0
randomize timer()
endfunction
function Paint_Terrain()
texture object Level1.model, Level1.texture
endfunction
Phew.. There.. I had to retype all of that by hand.. whoa, hands are a little sore after that.
Hope this helps you figure out what I am doing wrong with the camera and why I can't see the plain or land object in the view.
Thanks
Ken
[PKE] Pain Killa Entertainment(tm) [PKE]
Pain Brings Reality...
[PKE] Pain Killa Entertainment(tm) [PKE]