-- LUA Script - precede every function and global member with lowercase name of script + '_main'
--based on  Player Enters Hurt Zone, by Northern

function soundrandom_init(e)
end

function soundrandom_main(e)
 if g_Entity[e]['plrinzone']==1 then
    mynumRnd = math.random(1,99) --Random number 
    --
    if mynumRnd==2 or mynumRnd==7 then
    PlaySound(e,0);
    end
    
end
end 

displaymode=0
delay=0
g_woodcollected=0
g_rootscollected=0
roots=0
g_fiberscollected =0
fibers=0
g_tuberscollected =0
tubers=0
g_goldnuggetscollected =0
goldnuggets=0
g_rockscollected=0
--gravelcollected=0
g_ironscollected=0
g_gemscollected=0
g_zincscollected=0
g_zinc=0
g_sodiumcollected=0
g_sodium=0
g_potassiumcollected=0
g_potassium=0
rocks=0
iron=0
g_watercollected=0
g_water=0
g_titanite=0
g_titanitecollected=0
g_promethium =0
g_promethiumcollected=0
g_coppercollected=0
g_copper=0
g_tungstencollected=0
g_tugsten=0
g_RPG_Gold=0
g_kills=0
g_alien_items=0
g_animal_items=0
g_robot_items=0
g_RPG_Gold=0
g_kills=0
g_mk1_auto_miner_schematic=0
g_mk1_scanner_miner=0
g_base_beacon_schematic=0
g_base_beacon_active=0
g_base_factory_schematic=0
g_base_factory_active=0
g_base_med_bay_schematic=0
g_base_med_bay_active=0
g_base_crafting_schematic=0
g_base_crafting_active=0
g_base_command_schematic=0
g_base_command_active=0
g_medipack_schematic=0
g_ammo_schematic=0
g_food_schematic=0
g_water_schematic=0
g_adrenaline_schematic=0

function items_display_init(e)
--Hide(e)

end


function items_display_main(e)
if GetTimer(e)>250 then
delay=0
end
if GetInKey()=="i" then
--if g_KeyPress==1 then
StartTimer(e)
if displaymode==0 and delay==0 then
displaymode=1
delay=1
end
if displaymode==1 and delay==0 then
displaymode=0
delay=1
end
end

if displaymode==1 then
Panel(0,0,100,88)--background
Panel(37,1,60,10)--Top
Panel(1,12,13,28)-- foraged items
Panel(1,32,13,47)--loot drops
Panel(85,12,99,28)--mining
Panel(85,32,99,48)--minerals
Panel(1,78,10,87)--kills & creds
Panel(85,52,99,68)--chemicals
Panel(1,52,13,70)--rare items
Panel(85,70,99,87)--schematics
Panel(35,70,62,87)--Tools
Panel(18,13,80,68)-- base schematics

Text(42,3,1,"RESOURCE INVENTORY ")
Text(40,7,1,"Press (i) to toggle on and off ")
--foraged items
Text(2,15,1,"Foraged items: ")
Text(2,18,1,"Roots "..math.floor(g_rootscollected))
Text(2,21,1,"Fibers "..math.floor(g_fiberscollected))
Text(2,24,1,"Tubers "..math.floor(g_tuberscollected))
--mining & felling
Text(86,15,1,"Scavenged Items: ")
Text(86,18,1,"Wood "..math.floor(g_woodcollected))
Text(86,21,1,"Rocks "..math.floor(g_rockscollected))
Text(86,24,1,"Water "..math.floor(g_watercollected))
--minerals
Text(86,35,1,"Minerals: ")
Text(86,38,1,"Iron  "..math.floor(g_ironscollected))
Text(86,41,1,"Copper  "..math.floor(g_coppercollected))
Text(86,44,1,"Tungsten   "..math.floor(g_tungstencollected))
--rare items
Text(2,55,1,"Rare items: ")
Text(2,58,1,"Gem Stones "..math.floor(g_gemscollected))
Text(2,61,1,"Gold Nuggets "..math.floor(g_goldnuggetscollected))
Text(2,64,1,"Titanite "..math.floor(g_titanitecollected))
Text(2,67,1,"Promethium "..math.floor(g_promethiumcollected))
--loot items
Text(2,35,1,"Loot drop items: ")
Text(2,38,1,"Animal Items  "..g_animal_items)
Text(2,41,1,"Robot Items  "..g_robot_items)
Text(2,44,1,"Alien Items   "..g_alien_items)
--chemicals
Text(86,55,1,"Chemicals: ")
Text(86,58,1,"Zinc  "..math.floor(g_zincscollected))
Text(86,61,1,"Sodium  "..math.floor(g_sodiumcollected))
Text(86,64,1,"Potassium   "..math.floor(g_potassiumcollected))

Text(2,81,1,"Kills   "..g_kills)
Text(2,85,1,"Credits  "..g_RPG_Gold)

Text(86,73,1,"Tool Schematics   ")
Text(86,76,1,"MK1 Auto Miner  "..g_mk1_auto_miner_schematic)

Text(45,73,1,"   Tools:   ")
Text(38,76,1,"MK1 Resource Scanner / Miner   "..g_mk1_scanner_miner)

Text(44,18,1,"Base Schematics: ")
Text(20,23,1,"Base Beacon Schematic "..g_base_beacon_schematic)
Text(60,23,1,"Base Beacon Active: "..g_base_beacon_active)
Text(20,26,1,"Base Factory Schematic "..g_base_factory_schematic)
Text(60,26,1,"Base Factory Active: "..g_base_factory_active)
Text(20,29,1,"Base Med Bay Schematic "..g_base_med_bay_schematic)
Text(60,29,1,"Base Med Bay Active: "..g_base_med_bay_active)
Text(20,32,1,"Base Crafting Room Schematic "..g_base_crafting_schematic)
Text(60,32,1,"Base Crafting Room Active: "..g_base_crafting_active)
Text(20,35,1,"Base Command Center Schematic "..g_base_command_schematic)
Text(60,35,1,"Base Command Center Active: "..g_base_command_active)


Text(44,43,1,"Crafting Schematics: ")
Text(20,46,1,"MediPack Schematic "..g_medipack_schematic)
Text(60,46,1,"Generic Ammo "..g_ammo_schematic)
Text(20,49,1,"Food "..g_food_schematic)
Text(60,49,1,"Purified Water "..g_water_schematic)
Text(20,52,1,"Adrenaline Booster "..g_adrenaline_schematic)


end
end

g_water_schematic=0
g_RPG_Gold=0
pressed = 0


function water_schematic_terminal_init(e)
end

function water_schematic_terminal_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(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
 
 if PlayerDist < 80 then
 
 Text(27,65,1,"Welcome to the Purified Water Schematic Terminal Press E to buy the Schematic.",3000)
if g_KeyPressE == 1 and pressed == 0 then
if g_RPG_Gold >= 0 then
g_water_schematic = g_water_schematic + 1
g_RPG_Gold = g_RPG_Gold - 50
 pressed = 1
end
end
end 
end

g_water_schematic=0
g_RPG_Gold=0
pressed = 0
 
 
function water_schematic_terminal_init(e)
end
 
function water_schematic_terminal_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(PlayerDY*PlayerDY)+math.abs(PlayerDZ*PlayerDZ));
  
 if PlayerDist < 80 then
  
 Text(27,65,1,"Welcome to the Purified Water Schematic Terminal Press E to buy the Schematic.",3000)
if g_KeyPressE == 1 and pressed == 0 then
  if g_RPG_Gold >= 50 then
    g_water_schematic = g_water_schematic + 1
    g_RPG_Gold = g_RPG_Gold - 50
     pressed = 1
  end
end
if g_KeyPressE == 0 then 
  pressed = 0
end
end
end

local nearest = nil
local nearest_dist = 80
local init_nearest_dist = nearest_dist
local cmode = 0
local new_y = 0
local prop_x = 0
local prop_z = 0
function carry_object_init(e)
  cmode = 0
end
  
function carry_object_main(e)
if cmode == 0 then
if nearest == nil then
  nearest_dist = init_nearest_dist
elseif GetPlayerDistance(nearest) > nearest_dist then
  nearest_dist = init_nearest_dist
end
if GetPlayerDistance(e) < nearest_dist then
nearest_dist = GetPlayerDistance(e)
nearest = e
end
  if (GetPlayerDistance(e) <= nearest_dist) then
    Prompt("Press E to carry")
    if g_KeyPressE == 1 then
      cmode = 1
      nearest = e
      return
    end
  end
 
   
  elseif (cmode == 1) then
    new_y = math.rad(g_PlayerAngY)
    prop_x = g_PlayerPosX + (math.sin(new_y) * 70)
    prop_z = g_PlayerPosZ + (math.cos(new_y) * 70)
    CollisionOff(nearest)
    SetPosition(nearest , prop_x, g_PlayerPosY , prop_z)
    RotateToCamera(nearest)
    CollisionOn(nearest)
    Prompt("Release E to drop")
    if g_KeyPressE == 0 or GetPlayerDistance(nearest) > init_nearest_dist then
      cmode = 0
      CollisionOff(nearest)
      SetPosition(nearest , prop_x , g_PlayerPosY , prop_z)
      CollisionOn(nearest)
      nearest_dist = init_nearest_dist
      nearest = nil
    end
  end

ModulateSpeed(e,1.0)

if GetPlayerVisible(e) == 1 then

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

--sniper script by smallg
--change value here to adjust how fast he goes up and down (2500 = 2.5secs)
local peek_delay = 2500
local init_peek_delay = peek_delay
local stood = {}
local shootdelay = 1000
local init_shootdelay = shootdelay
timeshot = 0 -- just added in to readout with another script to make sure the code was cycling through

function sniper2_init(e)
 ai_starting_heath[e] = nil
 ModulateSpeed(e,1.0)
 CharacterControlArmed(e)
 CharacterControlDucked(e)
 LockCharacterPosition(e)
 stood[e] = 0
end

function sniper2_main(e)
 -- Detect player distance
 PlayerDist = GetPlayerDistance(e)
 
 -- Entity Object Number
 EntObjNo = g_Entity[e]['obj'];
   if ai_starting_heath[e] == nil then
	ai_starting_heath[e] = g_Entity[e]['health']
  end
 
 --if we can't see the player
 if g_Entity[e]['plrvisible'] == 0 then
    --try standing for better view
    if stood[e] == 0 then
	CharacterControlStand(e)
	if GetTimer(e) > peek_delay then
	peek_delay = GetTimer(e) + init_peek_delay
	stood[e] = 1
	end
	--still can't see him, duck again until ready to look again
	elseif stood[e] == 1 then
	CharacterControlDucked(e)
	if GetTimer(e) > peek_delay then
	peek_delay = GetTimer(e) + init_peek_delay
	stood[e] = 0
	end
    end
 end

    --always face player
	LookAtPlayer(e)
	RotateToPlayerSlowly(e,10)
	--fire soon as possible -- modified -- modified to have a delay if required i.e make game easier
	if GetTimer(e) > shootdelay then
	FireWeapon(e)
	shootdelay = GetTimer(e) + init_shootdelay
	timeshot = GetTimer(e)
	end
	
	
if string.find(string.lower(g_Entity[e]['limbhit']), "head") ~= nil then
  SetEntityHealth(e,0)
  ResetLimbHit(e)
 end
	
end

if g_Entity[e]['plrvisible'] == 0 and already_seen == 1 then
  Prompt ("I'm afraid you need an appointment sir",3000)
  PlayNon3DSound(e,0)
  TransportToIfUsed(e)
 already_seen =1
 end

if g_Entity[e]['plrvisible'] == 1 and already_seen == 1 then
  Prompt ("You have been ejected from the building. You might want to try sneaking past the guard.",3000)
  PlayNon3DSound(e,0)
  TransportToIfUsed(e)
 end