.Map :: MoHAA Mapping

Code: Select all

main:

Code: Select all

// Comms Bunker
// ARCHITECTURE: billandben
// SCRIPTING: billandben

// Bjarne says: There was no main.
// You need a main, because there is where it all starts.
main:
	setcvar "g_obj_alliedtext1" "We need to distrupt"
	setcvar "g_obj_alliedtext2" "their communications"
	setcvar "g_obj_alliedtext3" ""
	setcvar "g_obj_axistext1" "Protect the dish"
	setcvar "g_obj_axistext2" ""
	setcvar "g_obj_axistext3" ""
	setcvar "g_scoreboardpic" ""

	level waittill prespawn

	exec global/DMprecache.scr
	level.script = maps/obj/obj_lol_CommsBunker.scr
	exec global/ambient.scr m5l1b
	thread global/exploder.scr::main
	$world farplane 2750
	$world farplane_color (0.333 0.333 0.333)
	$door1_nopulse hide
	$door1_off hide
	$door2_nopulse hide
	$door3_nopulse hide
	$b_pipe1 anim hide
	level.defusing_team = "axis"
	level.planting_team = "allies"
	level.targets_to_destroy = 1
	level.bomb_damage = 200
	level.bomb_explosion_radius = 2048
	level.dmrespawning = 0
	level.dmroundlimit = 5
	level.clockside = axis
	thread rowboat_prep
	
	// Commented this back in... my guess is that
	// you took it out because it didnt work...
	// ...should work now. The Canal :)
	thread open_piano_lid
	
	exec global/door_locked.scr::lock

	level waittill spawn

	$church_door lock
	level.church = getcvar church
	if (level.church == "lock")
	$church_door lock
	if (level.church == "unlock")
	$church_door unlock

	// Not sure it matters, but i think level needs
	// a small 'L' to work
	
	// level waittill roundstart

	$radar_bomb thread global/obj_dm.scr::bomb_thinker
	thread allies_win_bomb
	$radar_bomb thread axis_win_timer
	thread bombs_setup
	thread remove_radar
end

allies_win_bomb:
	while(level.targets_destroyed < level.targets_to_destroy)
		waitframe
	teamwin allies
end

axis_win_timer:
	level waittill axiswin
end


bombs_setup:
	thread bomb1_start
	thread bomb2_start
	thread bomb3_start
end

bomb1_start:
	while(1)
	{
		$door1_trigger waittill trigger
		local.player = parm.other
		if (local.player.dmteam != axis)
		{
			// Bjarne hates the GOTO command :)
			waitthread door1
			// Not sure, but you want this one time, right?
			/ If so, you should break the while looping here
			// with an 'end'
		}
	}
end

door1:
	$door1_trigger playsound plantbomb
	$door1_nopulse show
	$door1_pulse hide
	local.player = parm.other
	local.player stopwatch 5
	$door1_nopulse playsound plantbomb
	wait .5
	$door1_nopulse loopsound final_countdown
	wait 5
	$door1_nopulse stoploopsound
	radiusdamage $door1_nopulse.origin 120 256
	thread jitter_large
	$door1_explosion_fx anim start
	$door1 remove
	$door1_off show
	$door1_nopulse remove
	$door1_pulse remove
	iprintlnbold "Allies have gained access to the passages"
end

bomb2_start:
	while(1)
	{
		$door2_trigger waittill trigger
		local.player = parm.other
		if (local.player.dmteam != axis)
		{
			// Bjarne hates the GOTO command :)
			waitthread door2
			// Not sure, but you want this one time, right?
			// If so, you should break the while looping here
			// with an 'end'
		}
	}
end

door2:
	$door2_trigger playsound plantbomb
	$door2_nopulse show
	$door2_pulse hide
	local.player = parm.other
	local.player stopwatch 5
	$door2_nopulse playsound plantbomb
	wait .5
	$door2_nopulse loopsound final_countdown
	wait 5
	$door2_nopulse stoploopsound
	radiusdamage $door1_nopulse.origin 120 256
	thread jitter_large
	$door2_explosion_fx anim start
	$door2 remove
	$door2_nopulse remove
	$door2_pulse remove
	$door2_trigger remove
	$b_pipe2 anim start
	iprintlnbold "The allies have blown a hole in the ground"
end

bomb3_start:
	while(1)
	{
		$door3_trigger waittill trigger
		local.player = parm.other
		if (local.player.dmteam != axis)
		{
			// Bjarne hates the GOTO command :)
			waitthread door3
			// Not sure, but you want this one time, right?
			// If so, you should break the while looping here
			// with an 'end'
		}
	}
end

door3:
	$door3_trigger playsound plantbomb
	$door3_nopulse show
	$door3_pulse hide
	local.player = parm.other
	local.player stopwatch 5
	wait .5
	$door3_nopulse loopsound final_countdown
	wait 5
	$door3_nopulse stoploopsound
	radiusdamage $door3_nopulse.origin 120 256
	thread jitter_large
	$door3_explosion_fx anim start
	$door3 remove
	$door3_nopulse remove
	$door3_pulse remove
	$door3_trigger remove
	$b_pipe3 anim start
	iprintlnbold "The allies have blown a hole in the ground"
end

jitter_large:
	waitexec global/earthquake.scr .35 10 0 0
	waitexec global/earthquake.scr .23 6 0 0
	waitexec global/earthquake.scr 1 1 0 0
	waitexec global/earthquake.scr 1.25 .3 0 1
end


remove_radar:
	while !($radar_bomb.exploded)
	{
		waitframe
	}
	$radar remove
end


rowboat_prep:
	$row_boat_ores bind $row_boat
	$row_boat speed 100

	// Bjarne hates the GOTO command :)
	while(1)
	{
		$row_boat_trigger waittill trigger
		$row_boat_ores rotatez -360
		wait .5
		$row_boat moveto waypoint_rb_2
		$row_boat waitmove
		$row_boat moveto waypoint_rb_1
		$row_boat waitmove
		$row_boat_ores rotatez 360
		$row_boat_ores stop
	}
end

// Bjarne says: Next line was commented out. Not right. Right?
open_piano_lid:
	while(1)
	{
		$piano waitTill trigger
		$piano nottriggerable
		$piano playsound moh_piano
		wait 8
		$piano triggerable
	}
end

Code: Select all

$piano_trigger waitTIll trigger
$piano_speaker playsound snd_melody

Code: Select all

local.master = spawn ScriptMaster

	local.master aliascache snd_shutter sound/mechanics/GateWoodOpen_01.wav soundparms 2.0 0.2 1.0 0.2 200 2000 auto loaded maps "obj dm"
	local.master aliascache snd_shutter_close sound/mechanics/GateWoodClose_01.wav soundparms 2.0 0.2 1.0 0.2 200 2000 auto loaded maps "obj dm"
     local.master aliascache snd_melody sound/thesting.mp3 soundparms 5.0 0.2 1.0 0.2 200 2000 auto loaded maps "obj dm"

Code: Select all

church_door:
	while(1)
	{
	  level.church = getcvar church
	  if (level.church == "lock")
             $church_door unlock
	  else if (level.church == "unlock")
             $church_door lock
          
          wait 0.5
	}
end