ai_soldier_state[a] = ""

dead = {}
function ai_respawn_init(e)
require('scriptbank\\ai_soldier') --name of AI script to use (no .lua needed)
ai_soldier_init(e) --init(e) call from the AI script used
dead[e] = 0
end
 
--script to be used in conjunction with ai_respawner.lua
function ai_respawn_main(e)
if dead[e] == 0 then
Show(e)
ai_soldier_main(e) --main(e) call from the AI script used
elseif dead[e] > 2 then
ai_soldier_init(e) --init(e) call from the AI script used
Hide(e)
CollisionOff(e)
end
end
 
function ai_respawn_exit(e)
dead[e] = 1 
ai_soldier_exit(e) --exit(e) call from the AI script used
end

--time to wait before removing the dead bodies (in seconds)
--note, dont set too long or it may get removed by the system and then there will be no possibility of respawn
local body_removal_delay = 2
--time to wait before respawning the enemies (in seconds)
local respawn_delay = 6
 
--amount of variation in x,y and z placements when enemies are respawned (in percent)
--note this is taken from where they die
--note2  y position doesnt currently work due to a GG bug
local xmod = 0.02
local zmod = 0.02
local ymod = 0
 
--time to wait between checks (for performance reasons)
local delay = 1000
 
---------
local x = {}
local y = {}
local z = {}
local timer = {}
 
--script to work in conjunction with ai_respawn.lua
--set always active
function ai_respawner_init(e)
Hide(e)
CollisionOff(e)
end
 
function ai_respawner_main(e)
Hide(e)
CollisionOff(e)
if GetTimer(e) > delay then
StartTimer(e)
for a = 1,9999 do
if g_Entity[a] ~= nil and a ~= e then
if dead[a] ~= nil then
if dead[a] == 1 then
if xmod <= 0 or xmod > 99 then
x[a] = g_Entity[a]['x']
else
x[a] = g_Entity[a]['x'] * math.random(1-(xmod/10),1+(xmod/10))
end
if ymod <= 0 or ymod > 99 then
y[a] = g_Entity[a]['y']
else
y[a] = g_Entity[a]['y'] * math.random(1-(ymod/10),1+(ymod/10))
end
if zmod <= 0 or zmod > 99 then
z[a] = g_Entity[a]['z']
else
z[a] = g_Entity[a]['z'] * math.random(1-(zmod/10),1+(zmod/10))
end
dead[a] = 2 
timer[a] = g_Time + (body_removal_delay*1000)
 
--check body for removal
elseif dead[a] == 2 then
if g_Time >= timer[a] then
--PromptDuration("removed body",500)
timer[a] = g_Time + (respawn_delay*1000)
Spawn(a)
Hide(a)
CollisionOff(a)
SetPosition(a,x[a],y[a],z[a])
ResetPosition(a,x[a],y[a],z[a])
AIEntityGoToPosition(g_Entity[a]['obj'],x[a],z[a])
dead[a] = 3
end
 
--check for respawn
elseif dead[a] == 3 then
if g_Time >= timer[a] then
--PromptDuration("respawned enemy",500)
Show(a)
CollisionOn(a)
dead[a] = 0
end
end
end
end
end
end
 
 
end
 
 
function ai_respawner_exit(e)
end

dead = {}
require "scriptbank\\ai_soldier" --name of AI script to use (no .lua needed)
function ai_respawn_init(e)

end
  
--script to be used in conjunction with ai_respawner.lua
function ai_respawn_main(e)
if dead[e] == nil then
	dead[e] = 0 
	ai_soldier_init(e) --init(e) call from the AI script used
end 
--PromptDuration(dead[e],20000)
if dead[e] == 0 then
Show(e)
ai_soldier_main(e) --main(e) call from the AI script used
elseif dead[e] > 2 then
ai_soldier_init(e) --init(e) call from the AI script used
Hide(e)
CollisionOff(e)
end

end
  
function ai_respawn_exit(e)
dead[e] = 1 
ai_soldier_exit(e) --exit(e) call from the AI script used
end

g_infamy = 0


function guardspawn_init(e)

  entity_number1 = 6
  entity_number2 = 7
  entity_number3 = 8
  entity_number4 = 9
  --etc
end
  
function guardspawn_main(e)
   if g_infamy => 0 then
     Spawn(entity_number1)
     Spawn(entity_number2)
     Spawn(entity_number3)
     Spawn(entity_number4)
     --etc
  end
end
end

function guardspawn_init(e)
 
  entity_number1 = 6
  entity_number2 = 7
  entity_number3 = 8
  entity_number4 = 9
  --etc
end
   
function guardspawn_main(e)
   if g_infamy => 0 then
     Spawn(entity_number1)
     Spawn(entity_number2)
     Spawn(entity_number3)
     Spawn(entity_number4)
     --etc
     Destroy(e)
  end
end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
 
local timeset = 0; local time1 = 0; local time2 = 0
 
 
 
--set value here to delay desired between each cycle (in seconds)
 
--60 = 1 min ... / ... 120 = 2mins ... etc 
 
local cycle_time = 60
 
 
 
--turn fog on/pff (1/0)
 
local fogon = 1
 
--set to 0 if you want to use a custom fog colour)
 
local fogcolouron = 0
 
--set to 0 if you want to use the ambiance slider (set to 1 for quicker darkness at night)
 
local ambi = 0
 
 
 
 
 
--set to 1 to start during the day, 0 to start at night
 
local daytime = 1
 
--time of day/night (0 = midday/midnight)
 
local change = 50
 
 
 
--set to 1 to display the prompt on screen
 
local optional_prompt = 1
 
 
 
---------do not change below unless you understand :)
 
cycle_time = (cycle_time / 60) * 1000
 
 
 
function day_night_init(e)
 
end
 
 
 
function day_night_main(e)
 
if timeset == 0 then
 
time1 = GetTimer(e)
 
timeset = 1
 
end
 
 
 
 
 
--optional prompt to show speed of change in numbers
 
if optional_prompt == 1 then
 
Prompt(change) --optional prompt to show how quickly day/night is changing
 
end
 
 
 
time2 = GetTimer(e)
 
 
 
if fogon == 1 then
 
  SetFogNearest(change * 100)
 
  SetFogDistance(change * 400)
 
end
 
if fogcolour == 1 then
 
  SetFogRed(4)
 
  SetFogGreen(4)
 
  SetFogBlue(4)
 
end
 
 
 
if ambi == 1 then
 
  SetAmbienceIntensity(change)
 
end
 
  SetAmbienceRed(change)
 
  SetAmbienceGreen(change)
 
  SetAmbienceBlue(change)
 
  SetSurfaceRed(change)
 
  SetSurfaceGreen(change)
 
  SetSurfaceBlue(change)
 
 
 
if time1 + cycle_time < time2 then
 
time1 = GetTimer(e)
 
 
 
 
 
if daytime == 0 then
 
if change == 0 then
 
  daytime = 1
 
else
 
  change = change - 1
 
end
 
end
 
 
 
if daytime == 1 then
 
 if change == 100 then
 
   daytime = 0
 
 else
 
  change = change + 1
 
 end
 
end
 
end
 
end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- fish merchant script
function fish_merchant1_init(e)
end

function fish_merchant1_main(e)
		if PlayerLooking(e,200,20) == 1 then
			RotateToPlayer(e)
  TextCenterOnX(50,94,1,"Press E to sell Fish.") 
  end
   if g_KeyPressE == 0 then
  pressed = 0
  if g_KeyPressE == 1 then
  pressed = 1
   if g_fish >= 0 then
   g_fish = g_fish - 1
   g_RPG_Gold = g_RPG_Gold +50

 end
end
end
end

-- fish merchant script
pressed = 0
function fish_merchant1_init(e)
end
 
function fish_merchant1_main(e)
        if PlayerLooking(e,200,20) == 1 then
            RotateToPlayer(e)
  TextCenterOnX(50,94,1,"Press E to sell Fish.") 
  if g_KeyPressE == 1 and pressed == 0 then
  pressed = 1
   if g_fish >= 0 then
   g_fish = g_fish - 1
   g_RPG_Gold = g_RPG_Gold +50
 
 end
end
 if g_KeyPressE == 0 then
  pressed = 0
 end
end

end