-- LUA Script - precede every function and global member with lowercase name of script + '_main'

-- Player Enters occlusion Zone

 

--set veiw range here (anything beyond this range will be invisible while player is inside the 'zone'

local distance = 1000

--set this to the (e) value of your startmarker

local startmarkerE = 1

--anything below this HP will not be shown (i.e. markers for zones)

local health_limit = 2

 

function occlusion_zone_init(e) 

end

 

function occlusion_zone_main(e)

if g_Entity[e]['plrinzone']==1 then

for a = 1, 1999 do

if g_Entity[a] ~= nil then

 PlayerDX = g_Entity[a]['x'] - g_PlayerPosX;

 PlayerDY = g_Entity[a]['y'] - g_PlayerPosY;

 PlayerDZ = g_Entity[a]['z'] - g_PlayerPosZ;

 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));

if g_Entity[a]['health'] >= health_limit and a ~= startmarkerE then

if PlayerDist < distance then

 Show(a)

else

 Hide(a)

end --end distance check

end --end HP check

end --end nil check

end --end for loop

 

--if player isnt inside the zone

else

for a = 1, 1999 do

if g_Entity[a] ~= nil then

if g_Entity[a]['health'] >= health_limit and a ~= startmarkerE then

Show(a)

end --end marker check

end --end entity exists check

end --end for loop

end --end player in zone

 

end --end function

-- LUA Script - precede every function and global member with lowercase name of script + '_main'

-- Player Enters occlusion Zone



--set veiw range here (anything beyond this range will be invisible while player is inside the 'zone'

local distance = 1000

--set this to the (e) value of your startmarker

local startmarkerE = 1

--anything below this HP will not be shown (i.e. markers for zones)

local health_limit = 2



function occlusion_init(e) 

end



function occlusion_main(e)

for a = 1, 1999 do

if g_Entity[a] ~= nil then

 PlayerDX = g_Entity[a]['x'] - g_PlayerPosX;

 PlayerDY = g_Entity[a]['y'] - g_PlayerPosY;

 PlayerDZ = g_Entity[a]['z'] - g_PlayerPosZ;

 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));

if g_Entity[a]['health'] >= health_limit and a ~= startmarkerE then

if PlayerDist < distance then 

 Show(a)

else

 Hide(a)

end --end distance check

end --end HP check

end --end nil check

end --end for loop

end --end function

function killquest_init(e)
end

--change this to however many enemies you want the player to kill to complete the quest

local killedmax = 10



-----------

local enemyEN = 1

local enemyendEN = 1999

local pressed = 0

local queststarted = 0

local reward = 0

local killed = 0

local killsremaining = killedmax

local checked = {}

for a = enemyEN, enemyendEN do

checked[a] = 0

end

------------

function killquest_init(e)

end



function killquest_main(e)



if queststarted == 1 then

Prompt("killed = " .. killed .. " / " .. killedmax .. " baddies!")

for a = enemyEN , enemyendEN do

if g_Entity[a] ~= nil then

if g_Entity[a]['health'] > 26 then

if checked[a] == 0 then

	checked[a] = 1

end

end

if g_Entity[a]['health'] < 1 and checked[a] == 1 then

 checked[a] = 2

 if killed < killedmax then

   killed = killed + 1

 end

end --end HP below 1 check

end --end (e) exists check

end --end for loop

end



PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;

PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;

PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;

PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));

if PlayerDist < 100 then

if queststarted == 2 then

Prompt("Rewards given " .. reward)

else

if killed < killedmax then

  killsremaining = killedmax - killed

  Prompt("Please Kill " .. killsremaining .. " more baddies for me!")

end

if killed == 0 and queststarted == 0 then

  Prompt("Please Kill " .. killedmax .. " baddies for me!   *press E to accept*")

if g_KeyPressE == 1 and pressed == 0 then

  queststarted = 1

  pressed = 1

end

end



if killed == killedmax then

  if g_KeyPressE == 1 and pressed == 0 then

    reward = reward + 1 --change this to desired reward

    queststarted = 2 --quest finished

    pressed = 1

  else

    Prompt("Thanks!!   *press E to accept reward*")

  end

end

end

end

if g_KeyPressE == 0 then

  pressed = 0

end



end --end of function

--set to 0 if u want all rocks to land upright otherwise it will be more random

local random_landing = 0

--set to amount of damage to apply per falling rock

local damage = 100

--set to range player needs to be within to start the landslide

start_fall_range = 300

--set to range player needs to be within to get hit by a rock

local in_damage_range = 100

--set to height of the terrain the rocks will land onto (600 is default flat)

local terrain_height = 600

--set to amount you want the rocks to spin/rotate while falling (if you want them to spin the other direction use a negative)

local spin = 10

--set to the starting height you require

local startingY = 1000

--set to the starting Y rotation you require

local starting_rotation = 180

--set to the speed at which rocks will fall

local speed = 10





local landslide_started = {}

local fall_speed = {}

local fall_delay = {}

local time_set = {}

local time_1 = {}

local time_2 = {}

local time_passed = {}

local x = {}

local damaged = {}



function landslide_init(e)

MoveUp(e, startingY)

RotateX(e,starting_rotation)

landslide_started[e] = 0

fall_speed[e] = -speed

--applies a random amount of speed to make rocks fall in a less organised way, remove if u require a controlled fall

fall_speed[e] = fall_speed[e] - math.random(speed * 2)

fall_delay[e] = 10

time_set[e] = 0

time_1[e] = 0

time_2[e] = 0

time_passed[e] = 0

Hide(e)

x[e] = 0

damaged[e] = 0

end







function landslide_main(e)

 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;

 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;

 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;

 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDZ*PlayerDZ));



 if PlayerDist < start_fall_range and landslide_started[e] == 0 then

 landslide_started[e] = 1

 end

 

 if landslide_started[e] == 1 then

 Show(e)

 if time_set[e] == 0 then

	time_1[e] = g_Time

	time_set[e] = 1

 end --initial time set

 time_2[e] = g_Time

 time_passed[e] = time_2[e] - time_1[e]

 

 if time_passed[e] > fall_delay[e] then

  MoveUp(e,fall_speed[e])

  RotateX(e,-spin)

  x[e] = x[e] + 1

  time_set[e] = 0

  PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));

  if PlayerDist < in_damage_range and damaged[e] == 0 then

	HurtPlayer(e,damage)

	damaged[e] = 1

  end --end damage check

 end --end time reached delay



if g_Entity[e]['y'] < terrain_height then

	MoveUp(e,-(g_Entity[e]['y'] - terrain_height)) --move rock back above ground if it is travelling too fast and goes below (especially noticeable on small rocks)

   landslide_started[e] = 2

   if math.random(5) == 5 or random_landing == 0 then

   while x[e] > 0 do

	RotateX(e,spin)

	x[e] = x[e] - 1

	end

	RotateX(e,starting_rotation)

	end

end --end landslide ended





end --end landslide happening



end --end function

-- LUA Script - precede every function and global member with lowercase name of script + '_main'

-- Player Enters occlusion Zone

--script by smallg



--set veiw range here (anything beyond this range will be invisible while player is inside the 'zone'

local distance = 1000

--set this to the (e) value of your startmarker

local startmarkerE = 1

--anything below this HP will not be shown (i.e. markers for zones)

local health_lower_limit = 2

local health_upper_limit = 26 --HP limit to show (keeps enemies and stuff from being included at all times)



function occlusion_minus_enemies_init(e) 

end



function occlusion_minus_enemies_main(e)

for a = 1, 1999 do

if g_Entity[a] ~= nil then

 PlayerDX = g_Entity[a]['x'] - g_PlayerPosX;

 PlayerDY = g_Entity[a]['y'] - g_PlayerPosY;

 PlayerDZ = g_Entity[a]['z'] - g_PlayerPosZ;

 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));

if g_Entity[a]['health'] >= health_lower_limit and a ~= startmarkerE then

if PlayerDist < distance or g_Entity[a]['health'] >= health_upper_limit then 

 Show(a)

else

 Hide(a)

end --end distance check

end --end HP check

end --end nil check

end --end for loop

end --end function

-- LUA Script - precede every function and global member with lowercase name of script + '_main'

-- Player Enters occlusion Zone

--script by smallg



--set veiw range here (anything beyond this range will be invisible while player is inside the 'zone'

local distance = 1000

--set this to the (e) value of your startmarker

local startmarkerE = 1

--anything below this HP will not be shown (i.e. markers for zones)

local health_lower_limit = 2

local health_upper_limit = 26 --HP limit to show (keeps enemies and stuff from being included at all times)



function occlusion_minus_enemies_init(e) 

end



function occlusion_minus_enemies_main(e)

for a = 1, 1999 do

if g_Entity[a] ~= nil then

 PlayerDX = g_Entity[a]['x'] - g_PlayerPosX;

 PlayerDY = g_Entity[a]['y'] - g_PlayerPosY;

 PlayerDZ = g_Entity[a]['z'] - g_PlayerPosZ;

 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));

if g_Entity[a]['health'] >= health_lower_limit and a ~= startmarkerE then

if PlayerDist < distance or g_Entity[a]['health'] >= health_upper_limit then 

 Show(a)

else

 Hide(a)

end --end distance check

end --end HP check

end --end nil check

end --end for loop

end --end function

function flying_init(e)

end

function flying_main(e)



MoveForward(e,1)

MoveUp(e,100)



end

function HurtPlayer(e,v)
 SendMessageI("hurtplayer",e,v);
end

--landslide script by smallg



--set to 0 if u want all rocks to land upright otherwise it will be more random

local random_landing = 0

--set to amount of damage to apply per falling rock

local damage = 100

--set to range player needs to be within to start the landslide

start_fall_range = 300

--set to range player needs to be within to get hit by a rock

local in_damage_range = 100

--set to height of the terrain the rocks will land onto (600 is default flat)

local terrain_height = 600

--set to amount you want the rocks to spin/rotate while falling (if you want them to spin the other direction use a negative)

local spin_min = 10

local spin_random = 20 --random value to add to spin_min

--set to zero if u want all rocks to "spin" the same speed while falling (spin_min value will be used) otherwise they'll rotate a random amount between spin_min + spin_random (above)

local random_spin = 1

--set to the starting height you require

local startingY = 1000

--set to the starting Y rotation you require

local starting_rotation = 180

--set to the speed at which rocks will fall

local speed = 10

 

 

local landslide_started = {}

local fall_speed = {}

local fall_delay = {}

local time_set = {}

local time_1 = {}

local time_2 = {}

local time_passed = {}

local x = {}

local damaged = {}

local spin = {}

 

function landslide_init(e)

if random_spin == 1 then

spin[e] = spin_min + math.random(spin_random)

else

spin[e] = spin_min

end

MoveUp(e, startingY)

RotateX(e,starting_rotation)

landslide_started[e] = 0

fall_speed[e] = -speed

--applies a random amount of speed to make rocks fall in a less organised way, remove if u require a controlled fall

fall_speed[e] = fall_speed[e] - math.random(speed * 2)

fall_delay[e] = 10

time_set[e] = 0

time_1[e] = 0

time_2[e] = 0

time_passed[e] = 0

Hide(e)

x[e] = 0

damaged[e] = 0

end

 

 

 

function landslide_main(e)

 PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;

 PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;

 PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;

 PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDZ*PlayerDZ));

 

 if PlayerDist < start_fall_range and landslide_started[e] == 0 then

 landslide_started[e] = 1

 end

  

 if landslide_started[e] == 1 then

 Show(e)

 if time_set[e] == 0 then

    time_1[e] = g_Time

    time_set[e] = 1

 end --initial time set

 time_2[e] = g_Time

 time_passed[e] = time_2[e] - time_1[e]

  

 if time_passed[e] > fall_delay[e] then

  MoveUp(e,fall_speed[e])

  RotateX(e,-spin[e])

  x[e] = x[e] + 1

  time_set[e] = 0

  PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));

  if PlayerDist < in_damage_range and damaged[e] == 0 then

    HurtPlayer(e,damage)

    damaged[e] = 1

  end --end damage check

 end --end time reached delay

 

if g_Entity[e]['y'] < terrain_height then

    MoveUp(e,-(g_Entity[e]['y'] - terrain_height)) --move rock back above ground if it is travelling too fast and goes below (especially noticeable on small rocks)

   landslide_started[e] = 2

   if math.random(5) == 5 or random_landing == 0 then

   while x[e] > 0 do

    RotateX(e,spin[e])

    x[e] = x[e] - 1

    end

    RotateX(e,starting_rotation)

    end

end --end landslide ended

 

 

end --end landslide happening

 

end --end function

--fading soundzone by smallg



local sound_triggered = {}

local original_loc = {}

local location1 = {}

local new_loc = {}

local distance = {}

local max_distance = {}



function soundinzone2_init(e)

sound_triggered[e] = 0

max_distance[e] = 400 --controls how far out of the zone you can go before sound stops

location1[e] = 0

distance[e] = 0

original_loc[e] = 0

new_loc[e] = 0

end



function soundinzone2_main(e)



if sound_triggered[e] == 1 then

LoopSound(e,0)

distance[e] = 0

location1[e] = 0

elseif sound_triggered[e] == 2 then

PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;

PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;

PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;

PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));

if location1[e] == 0 then

original_loc[e] = round(PlayerDist)

location1[e] = 1

end

new_loc[e] = round(PlayerDist)

if new_loc[e] > original_loc[e] then

distance[e] = distance[e] + 1

original_loc[e] = round(PlayerDist)

elseif new_loc[e] < original_loc[e] and distance[e] > 0 then

distance[e] = distance[e] - 1

original_loc[e] = round(PlayerDist)

end



if distance[e] > max_distance[e] then

StopSound(e,0)

sound_triggered[e] = 0

end

end



if g_Entity[e]['plrinzone'] == 1 then

	sound_triggered[e] = 1

elseif sound_triggered[e] == 1 then

	sound_triggered[e] = 2

end



--Prompt("dis = " .. distance[e] .. "  orig loc = " .. original_loc[e] .. " new loc = " .. new_loc[e])

end



function round(num, idp)

  local mult = 10^(idp or 0)

  return math.floor(num * mult + 0.5) / mult

end

--tank des script by smallg

local tank = {}

local a = 0

local speed = 2 --speed tank will "chase" at

local max_tanks = 0

local timer_running = 0

local ignored = {}

local RX = {}

local time1 = 0

local time2 = 0

local timeP = 0

local speed_multi = speed --penalty used when blockade is hit (basically divides speed by this value)

local Sspeed = speed

local RV = {}

local checks = 0

local time_set = {}

local timec1 = {}

local timec2 = {}

local timeP2 = {}

local nearest = 3

function tank_des_init(e)

a = a + 1

tank[a] = e

for a = 2, 1999 do

ignored[a] = 0

RX[a] = 1

RV[a] = 0

end



end

max_tanks = max_tanks + 1

function tank_des_main(e)



CollisionOn(e)

RotateToPlayer(e)



PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;  PlayerDY = g_Entity[e]['y'] - g_PlayerPosY; PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;

PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));

if PlayerDist > 100 then

if a < max_tanks then

a = a + 1

else

a = 1

end

MoveForward(e,speed)

else

HurtPlayer(e,500)

for a = 1, 99 do

if tank[a] ~= nil then

moveback_dis = 4000 - PlayerDist

MoveForward(tank[a],moveback_dis)

end

end

end





--check if tank hits an entity

for a = 2, 1999 do

--check entity exists

if g_Entity[a] ~= nil and a ~= e then

--check distance

aX = g_Entity[e]['x'] - g_Entity[a]['x']

aY = g_Entity[e]['y'] - g_Entity[a]['y']

aZ = g_Entity[e]['z'] - g_Entity[a]['z']

tankDist = math.sqrt(math.abs(aX*aX)+math.abs(aY*aY)+math.abs(aZ*aZ));

--if entity hit by tank

if tankDist < 150 and ignored[a] ~= 1 then

nearest = a

if RV[a] < 1 then

RotateToPlayer(a)

end

if RV[a] < 4 then

RV[a] = RV[a] + (RX[a] / 100)

end

RX[a] = RX[a] + RV[a]

RotateX(a,RV[a])

if RX[a] > 90 then

RX[a] = 0

RV[a] = 0

Destroy(a)

ignored[a] = 1

end

if speed > 1 then

speed = (speed / speed_multi) + 1

end

end

end

end





if speed < Sspeed then

if timer_running == 0 then

time1 = g_Time

timer_running = 1

end

time2 = g_Time

timeP = time2 - time1

if timeP > 2000 then

speed = (speed * speed_multi) - 1

timer_running = 0

end

end

--Prompt(RV[nearest])

PlayerDist = round(PlayerDist)

Prompt("Tank Distance: " .. round(PlayerDist) .. "  :  Tank Speed " .. round(speed))

end



function round(num, idp)

  local mult = 10^(idp or 0)

  return math.floor(num * mult + 0.5) / mult

end

--lift script by smallg
function lift_init(e)
end
lift_max = 719 --set upper height to stop lift at
lift_min = 600 --set lower height to stop lift at
pressed = 0
triggered = 0
up = 1
show_prompt = 1
timeset = 0
time1 = 0
time2 = 0
timepassed = 0

function lift_main(e)
if timeset == 0 then
time1 = g_Time
timeset = 1
end

time2 = g_Time
timepassed = time2 - time1

CollisionOn(e)
PlayerDX = g_Entity[e]['x'] - g_PlayerPosX;
PlayerDY = g_Entity[e]['y'] - g_PlayerPosY;
PlayerDZ = g_Entity[e]['z'] - g_PlayerPosZ;
PlayerDist = math.sqrt(math.abs(PlayerDX*PlayerDX)+math.abs(PlayerDZ*PlayerDZ));
if PlayerDist <= 80 then
if show_prompt == 1 then
Prompt("Press E to activate lift")
end
if g_Entity[e]['y'] >= lift_max then
up = 0
show_prompt = 1
triggered = 0
elseif g_Entity[e]['y'] <= lift_min then
up = 1
show_prompt = 1
triggered = 0
elseif g_Entity[e]['y'] > lift_min + 2 then
show_prompt = 0
end
if g_KeyPressE == 1 and pressed == 0 then
pressed = 1
triggered = 1
end
if triggered == 1 then

if timepassed >= 10 then
if g_Entity[e]['y'] < lift_max and up == 1 then
MoveUp(e,.5)
end
if g_Entity[e]['y'] > lift_min and up == 0 then
MoveUp(e,-.5)
end
timeset = 0
end
end

end
if g_KeyPressE == 0 then
pressed = 0
end

end