--key to cycle left
local left = "o"
--key to cycle right
local right = "p"
--key to purchase item
local confirm = "["

--distance to shop (to interact)
local shop = 120

--variable used for in game currency
money = 1000

local pressed = 0
local item = 1
local item_name = {}
local max_item = 3
local item_number = {}
local cost = {}

function shop_init(e)

item_name[1] = "Pistol"
item_name[2] = "Pistol Ammo"
item_name[3] = "Med Kit"

--set item number here of items to be sold (if weapon or ammo etc - if not a real item then enter 0)
item_number[1] = 11
item_number[2] = 12
item_number[3] = 13

--set cost of each item here
cost[1] = 250
cost[2] = 50
cost[3] = 100

--folder containing images
LoadImages("shop",1)

end

function shop_main(e)

--if player near shop
if GetPlayerDistance(e) <= shop then
if pressed == 0 then
if GetInKey() == confirm then
--check player has enough to purchase item
if money >= cost[item] then
--update money and give item
money = money - cost[item]
PlaySound(e,1)
AddPlayerWeapon(item_number[item])
AddPlayerAmmo(item_number[item])
AddPlayerHealth(item_number[item])
pressed = 1
end
end
--cycle through items
if GetInKey() ==  right then
pressed = 1
if item < max_item then
item = item + 1
else
item = 1
end
elseif GetInKey() == left then
pressed = 1
if item > 1 then
item = item - 1
else
item = max_item
end
end

--show prompt while near shop
Prompt(item_name[item] .. " Costs " .. cost[item] .. " , You have " .. money .. "$")
else

--reset input if key's are released
if GetInKey() ~= left and GetInKey() ~= right and GetInKey() ~= confirm then
pressed = 0
end
end

--update images
SetImageAlignment(0)
SetImagePosition(50,50)
ShowImage(item)
else
HideImage(item)
end
end

--key to cycle left
local left = "o"
--key to cycle right
local right = "p"
--key to purchase item
local confirm = "["
 
--distance to shop (to interact)
local shop = 120
 
--variable used for in game currency
money = 1000
 
local pressed = 0
local item = 1
local item_name = {}
local item_type = {}
local max_item = 3
local item_number = {}
local cost = {}
 
function shop_init(e)
 
 --give items a name and specify the type of item here
item_name[1] = "Pistol"
item_type[1] = "Weapon"
item_name[2] = "Pistol Ammo"
item_type[2] = "Ammo"
item_name[3] = "Med Kit"
item_type[3] = "Medical"
 
--set item number here of items to be sold (if weapon or ammo etc - if not a real item then enter 0)
item_number[1] = 11
item_number[2] = 12
item_number[3] = 13
 
--set cost of each item here
cost[1] = 250
cost[2] = 50
cost[3] = 100
 
--folder containing images
LoadImages("shop",1)
 
end
 
function shop_main(e)
 
--if player near shop
if GetPlayerDistance(e) <= shop then
if pressed == 0 then
if GetInKey() == confirm then
--check player has enough to purchase item
if money >= cost[item] then
--update money and give item
money = money - cost[item]
PlaySound(e,1)
if item_type[item] == "Weapon" then
AddPlayerWeapon(item_number[item])
elseif item_type[item] == "Ammo" then
AddPlayerAmmo(item_number[item])
elseif item_type[item] == "Medical" then
AddPlayerHealth(item_number[item])
else
--other sort of item effect here
end
pressed = 1
end
end
--cycle through items
if GetInKey() ==  right then
pressed = 1
if item < max_item then
item = item + 1
else
item = 1
end
elseif GetInKey() == left then
pressed = 1
if item > 1 then
item = item - 1
else
item = max_item
end
end
 
--show prompt while near shop
Prompt(item_name[item] .. " Costs " .. cost[item] .. " , You have " .. money .. "$")
else
 
--reset input if key's are released
if GetInKey() ~= left and GetInKey() ~= right and GetInKey() ~= confirm then
pressed = 0
end
end
 
--update images
SetImageAlignment(0)
SetImagePosition(50,50)
ShowImage(item)
else
HideImage(item)
end
end

function ai_zombiewalk_exit(e)
 PlayCharacterSound(e,"onDeath")
 CollisionOff(e)
money = money + 100
PromptDuration("You got $100",1000)
end

--script by smallg


local input = "e"
local pressed = 0
local waypoint_angle = {}
local state = {}
local taxi_angle = {}
local turn_speed = {}
local taxi_speed = {}
local start_point = {}
local delay = 250
local top_speed = 1000
local brake_power = top_speed / 100
local accel = top_speed / 200

function taxi_init(e)
CharacterControlUnarmed(e)
ai_soldier_pathindex[e] = -1
state[e] = "wait"
turn_speed[e] = top_speed / 400
taxi_speed[e] = 0
LoadImages("car",0)
end

function taxi_main(e)
EntObjNo = g_Entity[e]['obj']
CollisionOff(e)




if state[e] == "wait" then
StopSound(e,1)
HideImage(0)
if GetTimer(e) > delay then
Show(e)
end
if GetPlayerDistance(e) < 300 then
PromptLocal(e,"press " .. input .. " to get in the taxi")
if g_InKey == input and pressed == 0 then
pressed = 1
state[e] = "taxi"
Hide(e)
end
end

elseif state[e] == "taxi" then
SetImageAlignment(0)
SetImagePosition(50,50)
ShowImage(0)

LoopSound(e,1)
if g_InKey == input and pressed == 0 then
SetRotation(e,0,g_PlayerAngY,0)
pressed = 1
state[e] = "wait"
--AIEntityGoToPosition(EntObjNo,g_Entity[e]['x'],g_Entity[e]['y'])
delay = GetTimer(e) + 500

end
Panel(44,66,60,75)
TextCenterOnX(51,71,1,"Taxi Speed = "..taxi_speed[e])
if ai_soldier_pathindex[e] == -1 then
   ai_soldier_pathindex[e] = -2
   PathIndex = -1
   PathPointIndex = -1
   pClosest = 99999
   for pa = 1, AIGetTotalPaths(), 1 do
    for po = 1 , AIGetPathCountPoints(pa), 1 do
     pDX = g_Entity[e]['x'] - AIPathGetPointX(pa,po)
     pDZ = g_Entity[e]['z'] - AIPathGetPointZ(pa,po)
     pDist = math.sqrt(math.abs(pDX*pDX)+math.abs(pDZ*pDZ))
     if pDist < pClosest and pDist < 100 then
      pClosest = pDist
      PathIndex = pa
	  PathPointIndex = po
     end
    end -- po
   end -- pa
   if PathIndex > -1 then
    ai_soldier_pathindex[e] = PathIndex
	ai_path_point_index[e] = PathPointIndex
	if start_point[e] == nil then
	start_point[e] = ai_path_point_index[e]
	end
	ai_path_point_direction[e] = 1
	ai_path_point_max[e] = AIGetPathCountPoints(ai_soldier_pathindex[e])
   end   
  end
  if ai_soldier_pathindex[e] > -1 then 
   ai_patrol_x[e] = AIPathGetPointX(ai_soldier_pathindex[e],ai_path_point_index[e])
   ai_patrol_z[e] = AIPathGetPointZ(ai_soldier_pathindex[e],ai_path_point_index[e])
   waypoint_angle[e] = RotateToPoint(e,ai_patrol_x[e],ai_patrol_z[e])
   if taxi_angle[e] == nil then
   taxi_angle[e] = waypoint_angle[e]
   end
   if waypoint_angle[e] < taxi_angle[e] - (turn_speed[e] * 2.1) or waypoint_angle[e] > taxi_angle[e] + (turn_speed[e] * 2.1) then
   if taxi_angle[e] > 180 then
   if waypoint_angle[e] > taxi_angle[e] - 180 and waypoint_angle[e] < taxi_angle[e] then
   taxi_angle[e] = taxi_angle[e] - turn_speed[e]
   else
   taxi_angle[e] = taxi_angle[e] + turn_speed[e]
   end
   else
   if waypoint_angle[e] < taxi_angle[e] + 180 and waypoint_angle[e] > taxi_angle[e] then
   taxi_angle[e] = taxi_angle[e] + turn_speed[e]
   else
   taxi_angle[e] = taxi_angle[e] - turn_speed[e]
   end
   end
   end
   --keep angle within 0 ~ 360
	if taxi_angle[e] < -taxi_angle[e] then
	taxi_angle[e] = 360 + taxi_angle[e]
	elseif taxi_angle[e] >= 365 then
	taxi_angle[e] = taxi_angle[e] - 360
	end
   SetRotation(e,0,taxi_angle[e],0)
   turn_speed[e] = top_speed / 400
   tDistX = g_Entity[e]['x'] - ai_patrol_x[e]
   tDistZ = g_Entity[e]['z'] - ai_patrol_z[e]
   DistFromPath = math.sqrt(math.abs(tDistX*tDistX)+math.abs(tDistZ*tDistZ))	
   if DistFromPath < 100 then
   turn_speed[e] = top_speed / 100
   if taxi_speed[e] > top_speed * 0.25 then
   taxi_speed[e] = taxi_speed[e] - (brake_power * 2)
   else
   taxi_speed[e] = taxi_speed[e] + accel
   end
   elseif DistFromPath < top_speed / 3 then
   if taxi_speed[e] > top_speed * 0.5 then
   taxi_speed[e] = taxi_speed[e] - brake_power
   end
   else
   if taxi_speed[e] < top_speed then
   taxi_speed[e] = taxi_speed[e] + accel
   end
   end
   MoveForward(e,taxi_speed[e])
   TransportToIfUsed(e)
   if DistFromPath < 45 then
	if ai_path_point_direction[e] == 1 then
	 ai_path_point_index[e] = ai_path_point_index[e] + 1
	 if ( ai_path_point_index[e] > ai_path_point_max[e] ) then
	  ai_path_point_index[e] = start_point[e]
	  ai_path_point_direction[e] = 1
	 end
	else
	 ai_path_point_index[e] = ai_path_point_index[e] - 1
	 if ( ai_path_point_index[e] < 1 ) then
	  ai_path_point_index[e] = 2
	  ai_path_point_direction[e] = 1
	 end		
	end
   end
  end
if g_InKey ~= input then
  pressed = 0
  end
  end
 if g_InKey ~= input then
  pressed = 0
  end
  
end --main

function taxi_exit(e)

end

function RotateToEntity(e,v)
if g_Entity[e] ~= nil and g_Entity[e] ~= 0 and g_Entity[v] ~= nil and g_Entity[v] ~= 0 then
local x = g_Entity[v]['x'] - g_Entity[e]['x']
local z = g_Entity[v]['z'] - g_Entity[e]['z']
local angle = math.atan2(x,z)
angle = angle * (180.0 / math.pi)
if angle < 0 then
angle = 360 + angle
elseif angle > 360 then
angle = angle - 360
end
--SetRotation(e,0,angle,0)
return angle
end
end

function RotateToPoint(e,x,z)
if g_Entity[e] ~= nil and x > 0 and z > 0 then
local destx = x - g_Entity[e]['x']
local destz = z - g_Entity[e]['z']
local angle = math.atan2(destx,destz)
angle = angle * (180.0 / math.pi)
if angle < 0 then
angle = 360 + angle
elseif angle > 360 then
angle = angle - 360
end
--SetRotation(e,0,angle+180,0)
return angle
end
end

function facingobject_init_name(e,name)
 facingobject_name[e] = name
end
 
function facingobject_main(e)
 
if PlayerLooking(e,2000,5) == 1 then

PromptLocal(e,""..facingobject_name[e].. " - Distance is " ..math.floor(g_Entity[e]['plrdist']).. "") -- works with values rounded to a whole number

end
 
end
 
function facingobject_exit(e)
 
end

--script by smallg
--how long to shake camera for
local duration = 500

--how far down camera can move in 1 update
local vertical_low = -5
--how far up camera can move in 1 update
local vertical_high = 5
--how far left camera can move in 1 update
local horizontal_low = -5
--how far right camera can move in 1 update
local horizontal_high = 5


local x = 0
local y = 0
local state = ""

function shake_camera_init(e)
CollisionOff(e)
Hide(e)
end

function shake_camera_main(e)

if GetInKey() == "e" then
state = "shake"
end

if state == "shake" then
if x < duration then
SetPosition(e,g_PlayerPosX,g_Entity[e]['y']-g_PlayerPosY+600,g_PlayerPosZ)
SetRotation(e,g_PlayerAngX-math.random(vertical_low,vertical_high),g_PlayerAngY+math.random(horizontal_low,horizontal_high),g_PlayerAngZ)
if y >= 5 then
TransportToIfUsed(e)
y = 0
else
y = y + 1 
end
x = x + 1 
else
x = 0
y = 0
state = ""
end
end

end --main

function shake_camera_exit(e)

end

local bullet_range = 50000
--local killcount = 1
function multikill_init(e)


end

function multikill_main(e)

if killed > 0 then
if g_PlayerGunID == 2 then
for a = 1, 3999 do
if g_Entity[a] ~= nil then
if ai_soldier_state[a] ~= nil then
if PlayerLooking(a,bullet_range,0.1) == 1 then
if g_Entity[a]['health'] > 0 then
SetEntityHealth(a,0)
--killcount = killcount + 1
end
end
end
end
end
end
--PromptDuration("you killed " ..killcount.. " enemies",2000)
killed = 0
--killcount = 1
end


end


function PlayerLooking(e,dis,v)
if g_Entity[e] ~= nil then
if dis == nil then
dis = 3000
end
if v == nil then
v = 0.5
end
if GetPlayerDistance(e) <= dis then
local destx = g_Entity[e]['x'] - g_PlayerPosX
local destz = g_Entity[e]['z'] - g_PlayerPosZ
local angle = math.atan2(destx,destz)
angle = angle * (180.0 / math.pi)

if angle <= 0 then
angle = 360 + angle
elseif angle > 360 then
angle = angle - 360
end
while g_PlayerAngY < 0 or g_PlayerAngY > 360 do
if g_PlayerAngY <= 0 then
g_PlayerAngY = 360 + g_PlayerAngY
elseif g_PlayerAngY > 360 then
g_PlayerAngY = g_PlayerAngY - 360
end
end
local L = angle - v
local R = angle + v
if L <= 0 then
L = 360 + L 
elseif L > 360 then
L = L - 360
end
if R <= 0 then
R = 360 + R
elseif R > 360 then
R = R - 360
end

if (L < R and math.abs(g_PlayerAngY) > L and math.abs(g_PlayerAngY) < R) then
return 1
elseif (L > R and (math.abs(g_PlayerAngY) > L or math.abs(g_PlayerAngY) < R)) then
return 1
else
return 0
end
else
return 0
end
end
end

--message to display when triggered
local message = "You have a halberd"
--id of the halberd given by GG
local weapon_id = 13
--time delay to show text for
local remove_delay = 5000
local new_remove_delay = remove_delay
local collected = 0

function trigger_text_init(e)

end


function trigger_text_main(e)

--remove this line once you have the weapon id of the halberd
Prompt(g_PlayerGunID)
------


if g_PlayerGunID == weapon_id then
collected = 1
end
if GetPlayerInZone(e) == 1 then
if collected == 1 then
collected = 2
PromptDuration(message,remove_delay)
end
end

if collected ~= 2 then
new_remove_delay = GetTimer(e) + remove_delay
end
if GetTimer(e) >= new_remove_delay then
Destroy(e)
end

end

    --  door_no_lock.lua
    --
    --  this script has no lock - make sure the door does not have a Use Key entry in editor
    --  can open and close door
    --
 
-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Door Prompts 'Closed' can be opened with entity collected specified by 'USE KEY'
 
    -- state to ensure user must release E key before can open/close again
    door_pressed = 0
 
    -- player must be inside this distance to have access to door
    nearDistance = 100;  
     
    -- door states
    closed_locked     = 0;
    closed_unlocked   = 1;
    open_unlocked     = 2;
     
    -- door animations
    door_open_anim  = 0;
    door_close_anim = 1;
     
    -- want to use lock then set to  0
    -- don't want to use lock set to 1   
    door_no_lock_Lock_not_required = 0;
 
 --set to entity number of items inside crate
 local ammoE = 5
 local weaponE = 4
 local healthE = 3
 --set these to 1 if item is inside the crate
 local IsWeapon = 1
 local IsAmmo = 1
 local IsHealth = 1
 ----
 local item_taken = 0
 
function supply_crate_main(e)
--{ start function code


    
    -- compute the player distance from our door
    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));
     
    -- is the player near our door
    if PlayerDist < nearDistance then
       
if g_Entity[e]['activated'] == open_unlocked and item_taken == 0 then
	Prompt("Press E to take item(s)")
	if g_KeyPressE == 1 and door_pressed == 0 then
		door_pressed = 1
		item_taken = 1
		if IsWeapon == 1 then
			AddPlayerWeapon(weaponE)
			PlaySound(weaponE,0)
			Destroy(weaponE)
		end
		if IsAmmo == 1 then
			AddPlayerAmmo(ammoE)
			PlaySound(ammoE,0)
			Destroy(ammoE)
		end
		if IsHealth == 1 then
			AddPlayerHealth(healthE)
			PlaySound(healthE,0)
			Destroy(healthE)
		end
	end
end
         if g_Entity[e]['activated'] == closed_locked then
              -- door is closed and locked       
              if door_no_lock_Lock_not_required == 1 then
                    SetActivated(e,closed_unlocked)
              else        
                   if g_Entity[e]['haskey'] == 1 then
                      Prompt("The supply crate is locked. Press E to unlock it");
                      if g_KeyPressE == 1 and door_pressed == 0 then
                         Prompt("supply crate unlocked");
                         SetActivated(e,closed_unlocked)
                         door_pressed = 1;
                      end
                   else
                      Prompt("The supply crate is locked. Find a key to unlock it");
                   end          
             end
         
         elseif g_Entity[e]['activated'] == closed_unlocked then
                -- door is unlocked and closed
                Prompt("Press E to open the supply crate");
                if g_KeyPressE == 1 and g_Entity[e]['animating'] == 0 and door_pressed == 0 then
                    -- set the animation to door_open
                    SetAnimation(door_open_anim);
                    PlayAnimation(e);
                    g_Entity[e]['animating'] = 1;
                    SetActivated(e,open_unlocked)
                    -- play door open sound
                    PlaySound(e,0);
                    --CollisionOff(e);
                    door_pressed = 1;
                end
             
         elseif g_Entity[e]['activated'] == open_unlocked and item_taken == 1 then
                 -- door is open
                 Prompt("Press E to close the supply crate");
                 if g_KeyPressE == 1 and g_Entity[e]['animating'] == 0 and door_pressed == 0 then
                        -- set the animation to door close
                        SetAnimation(door_close_anim);
                        PlayAnimation(e);
                        g_Entity[e]['animating'] = 1;
                        SetActivated(e,closed_unlocked)
                        PlaySound(e,1);
                        --CollisionOn(e);
                        door_pressed = 1;
                 end
         end
         -- end door state checks  
    end
    -- end player distance test
     
    -- state of the E key
    -- if E is not being pressed then reset the door_pressed variable back to zero
    if g_KeyPressE == 0 then
        door_pressed = 0;
    end
     
end
--} end function code

Function yourscript_exit(e)
   If  killcount == nil then
      killcount = 1
  else
     killcount = killcount + 1
end
end