local repeating = 1 --set to 0 if you want trap to only happen once
local reset_delay = 3 --how many seconds before a fallen platform gets replaced (if repeating set to 1)
local activate_range = 100 --when player is "on" the trap
local fall_distance = 450 --how far down the trap will fall
local fall_speed = 325 --how fast the trap falls
local fall_delay = 1 --how many seconds before the trap begins to fall
local force_player_damage = 1 --set to 1 if you want to control player damage (if you're not using terrain below the platforms etc)
local forced_damage = 100 --how much damage to apply (if force_player_damage = 1)
local startx = {}
local starty = {}
local startz = {}
local state = {}
local fall_dist = {}
local counted = {}
fall_delay = fall_delay * 1000
reset_delay = reset_delay * 1000

function falling_platform_init(e)
state[e] = "wait"
fall_dist[e] = 0
end


function falling_platform_main(e)
if startx[e] == nil or starty[e] == nil or startz[e] == nil then
StartTimer(e)
fall_dist[e] = g_Entity[e]['y'] - fall_distance
startx[e] = g_Entity[e]['x']
starty[e] = g_Entity[e]['y']
startz[e] = g_Entity[e]['z']
else
if state[e] == "wait" then
counted[e] = 0
if GetPlayerDistance(e) < activate_range then
if GetTimer(e) > fall_delay then
state[e] = "falling"
else
CollisionOff(e)
MoveUp(e,math.random(-fall_speed/5,fall_speed/5))
CollisionOn(e)
end
else
StartTimer(e)
end

elseif state[e] == "falling" then
if g_Entity[e]['y'] > fall_dist[e] then
StartTimer(e)
CollisionOff(e)
MoveUp(e,-fall_speed)
else
if force_player_damage == 1 and counted[e] == 0 then
if g_PlayerPosY < g_Entity[e]['y'] + 10 then
counted[e] = 1 
HurtPlayer(e,forced_damage)
end
end
if repeating == 1 then
if GetTimer(e) > reset_delay then
StartTimer(e)
CollisionOff(e)
SetPosition(e,startx[e],starty[e],startz[e])
CollisionOn(e)
state[e] = "wait"
end
else
Destroy(e)
end

end

end --state

end --initial position set 

if GetPlayerDistance(e) < 100 then
--Prompt(state[e])
end
end --main(e)


function falling_platform_exit(e)
end

local state = {}
local hit = {}

local damage_range = 100 --how close player needs to be to take damage from spikes
local activate_delay = 3 --how long til trap triggers
local damage = 25 --how much damage the trap will apply to the player (set to 0 to automatically kill player)
local reset_time = 0.5 --how long after trap has activated til it will reset (if repeating)
local anim_speed = 150 --adjusts how fast the spikes move

activate_delay = activate_delay * 1000
reset_time = reset_time * 1000
function spike_trap_auto_init(e)
state[e] = "wait"
hit[e] = 0
end

function spike_trap_auto_main(e)
ModulateSpeed(e,anim_speed)
if state[e] == "wait" then
hit[e] = 0
if g_Entity[e]['animating'] == 0 then
if GetTimer(e) > activate_delay then
StartTimer(e)
state[e] = "activate trap"
SetAnimation(0)
PlayAnimation(e)
g_Entity[e]['animating'] = 1 
end
end


elseif state[e] == "activate trap" then
if GetPlayerDistance(e) < damage_range and hit[e] == 0 then
if damage == 0 then
HurtPlayer(e,g_PlayerHealth)
else
HurtPlayer(e,damage)
end
hit[e] = 1 
end
if g_Entity[e]['animating'] == 0 then
if GetTimer(e) > reset_time then
StartTimer(e)
SetAnimation(1)
PlayAnimation(e)
state[e] = "wait"
g_Entity[e]['animating'] = 1 
end
end
end --state
end --main

function spike_trap_auto_exit(e)
end

dead = {}
package.path = "scriptbank/?.lua;"
require('ai_fastzombie') --name of AI script to use (no .lua needed)
weapon_name = {}
--script works with wave_timer.lua
function wave_ai_init_name(e,name)
weapon_name[e] = tostring(name)
dead[e] = 0
ai_fastzombie_init(e) --init(e) call from the AI script used
Hide(e)
CollisionOff(e)
end

function wave_ai_main(e)

if g_Entity[e]['activated'] == 1 then
Show(e)
CollisionOn(e)
ai_fastzombie_main(e) --main(e) call from the AI script used
else
--SetActivated(e,0)
end

end

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

package.path = "scriptbank/?.lua;"
require('ai_zombiewalk') --name of AI script to use (no .lua needed)


--57 ~ 2 = fat & clown zombie

local trigger_range = 300 -- when zombie begins to stand up
local delay = 0.1 --if animation is too fast increase delay here
local min_frame = 2 --dead frame
local max_frame = 57 --standing up frame
local speed = 1 --how many frames to change in 1 step

local current_frame = {}
local state = {}

function ai_fake_dead_init(e)
state[e] = "wait"
current_frame[e] = max_frame
SetAnimationFrame(e,max_frame)
end

function ai_fake_dead_main(e)

if state[e] == "wait" then
StartTimer(e)
if g_Entity[e]['animating'] == 0 then
SetAnimationFrames(current_frame[e],current_frame[e])
PlayAnimation(e)
g_Entity[e]['animating'] = 1 
end
--SetAnimationFrame(e,max_frame)
if GetPlayerDistance(e) < trigger_range then
ai_soldier_state[e] = "patrol"
SetAnimationFrame(e,57)
--radarFoundEnemies = 0
enemyCount = enemyCount + 1
radarEnemies[enemyCount] = e
radarEnemySprites[enemyCount] = CreateSprite( radarImageRed )
SetSpriteOffset ( radarEnemySprites[enemyCount] , 0.25 , -1 )
SetSpriteSize ( radarEnemySprites[enemyCount] , 0.5 , -1 )
SetSpritePosition ( radarEnemySprites[enemyCount] , 200 , 200 )
state[e] = "get up"
PlaySound(e,1)
end

elseif state[e] == "get up" then

if current_frame[e] > min_frame then
if GetTimer(e) > delay then
StartTimer(e)
if current_frame[e] < 40 and current_frame[e] > 30 then
current_frame[e] = 30
end
if g_Entity[e]['animating'] == 0 then
SetAnimationFrames(current_frame[e],current_frame[e])
PlayAnimation(e)
g_Entity[e]['animating'] = 1 
current_frame[e] = current_frame[e] - speed
end
end
else
ai_zombiewalk_init(e)
RotateToPlayer(e)
AIEntityGoToPosition(g_Entity[e]['obj'],g_PlayerPosX,g_PlayerPosZ)
state[e] = "alive"
end

elseif state[e] == "alive" then
ai_zombiewalk_main(e)
end --state

--Prompt(GetAnimationFrame(e))
end 


function ai_fake_dead_exit(e)
ai_zombiewalk_exit(e)
end

flashlight_battery_life = {}
flashlight_battery_drain_delay = {}
local new_flashlight_battery_drain_delay = {}
local new_flicker_delay_off = nil
local new_flicker_delay_on = nil

local replace_battery_delay = 3 --how many seconds til battery reloading is complete
flashlight_batteries = 0 --number of batteries player starts with (can be 0, forcing player to have no flashlight until a battery is found *note, the flashlight will still have a battery inside it so remember to set regen_delay to a very high number)
max_flashlight_batteries = 5 --maximum batteries player can hold at one time
local flickering_on = 1 --set to 1 for flickering effect, 0 for constant on (when state is on)
local flickering_perc_start = 40 --what % of battery life the flickering will begin
local flicker_delay_off = math.random(1,3) --how many seconds before flashlight can go off again while flickering
local flicker_delay_on = 0.2 --how long til light comes back on while flickering

local current_battery = 0
local state = "off"
fpressed = 0
local timer = {}

flashlight_batteries_txt = flashlight_batteries
--sound at slot 0 is for replacing batteries
--sound at slot 1 is for clicking on/off
--set entity always active & use with flashlight_battery.lua for extra batteries
function flashlight_init(e)
flashlight_battery_life[0] = 0
flashlight_battery_drain_delay[0] = 0

if flashlight_batteries > 0 then
for a = 1,flashlight_batteries do
flashlight_battery_life[a] = 100 --starting amount of life for the batteries
flashlight_battery_drain_delay[a] = 0.2 --how fast the batteries drain (in seconds)
end
end
timer[e] = 0
end


function flashlight_main(e)
SetFlashLightKeyEnabled(0)
if g_KeyPressF == 1 and fpressed < 3 then
fpressed = 2
if os.time() > timer[e] + (replace_battery_delay * 0.35) then
if current_battery < flashlight_batteries then
TextCenterOnX(50,85,3,"Replacing flash light batteries...")
if os.time() > timer[e] + replace_battery_delay then
PlaySoundIfSilent(e,1)
flashlight_batteries_txt = flashlight_batteries_txt - 1
current_battery = current_battery + 1
timer[e] = os.time()
fpressed = 3 
end
else
TextCenterOnX(50,85,3,"No spare batteries remaining...")
end
end
end 

if state == "on" then
if flashlight_battery_life[current_battery] > 0 then
if new_flashlight_battery_drain_delay[current_battery] == nil then
new_flashlight_battery_drain_delay[current_battery] = g_Time + (flashlight_battery_drain_delay[current_battery]*1000)
end
if flickering_on == 1 then
if flashlight_battery_life[current_battery] <= flickering_perc_start then
if new_flicker_delay_off == nil then
new_flicker_delay_off = g_Time + (flicker_delay_off*1000)
new_flicker_delay_on = g_Time + (flicker_delay_off*1000)
end
if g_Time > new_flicker_delay_off then
SetFlashLight(0)
new_flicker_delay_on = g_Time + (flicker_delay_on*1000)
new_flicker_delay_off = g_Time + (math.random(flicker_delay_off*0.8,flicker_delay_off*1.2)*1000)
end
if g_Time > new_flicker_delay_on then
SetFlashLight(1)
end
end
end
if g_Time > new_flashlight_battery_drain_delay[current_battery] then
flashlight_battery_life[current_battery] = flashlight_battery_life[current_battery] - 1 
new_flashlight_battery_drain_delay[current_battery] = g_Time +  (flashlight_battery_drain_delay[current_battery]*1000)
end
else
SetFlashLight(0)
state = "off"
end
elseif state == "off" then

end

if g_KeyPressF == 0 then
timer[e] = os.time()
if fpressed == 2 then
PlaySound(e,0)
if state == "off" then
state = "on"
SetFlashLight(1)
else
state = "off"
SetFlashLight(0)
end
fpressed = 0
elseif fpressed == 3 then
SetFlashLight(0)
state = "off"
fpressed = 0
end
end

TextCenterOnX(50,90,3,"spare batteries = "..flashlight_batteries_txt.."  ,  current battery life = "..flashlight_battery_life[current_battery].."%  ,  current drain per sec = 1% per "..flashlight_battery_drain_delay[current_battery].."s")
end --main

function flashlight_exit(e)

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

--these allow the pick up batteries to have different life to stock
--and with a renamed script you can easily have different types of battery with different settings working with the same flashlight.lua
local drain_delay = {}
local battery_life = 100 --starting charge on the battery
pressed = 0
--sound slot 1 for pick up noise
function flashlight_battery_init_name(e,name)
weapon_name[e] = name
if tonumber(weapon_name[e]) ~= nil then
drain_delay[e] = tonumber(weapon_name[e])
else
drain_delay[e] = 0.5 --how fast the battery drains (in seconds)
end

end

function flashlight_battery_main(e)

if PlayerLooking(e,100,10) == 1 then
if flashlight_batteries_txt < max_flashlight_batteries then
TextCenterOnX(50,95,3,"Collect the flash light battery?  (1% per "..drain_delay[e].."s)")
if GetScancode() == 18 and pressed == 0 then
PlaySound(e,1)
pressed = 1 
flashlight_batteries = flashlight_batteries + 1 
flashlight_batteries_txt = flashlight_batteries_txt + 1
flashlight_battery_life[flashlight_batteries] = battery_life
flashlight_battery_drain_delay[flashlight_batteries] = drain_delay[e]
Hide(e)
Destroy(e)
end
else
TextCenterOnX(50,95,3,"Can't carry any more flash light batteries")
end
end

if GetScancode() == 0 then
pressed = 0
end

end --main


function flashlight_battery_exit(e)

end

-- https://forum.game-guru.com/thread/213433?page=1#msg2529879
-- script by Smallg adapted for my game purpose
-- setting in the entity options at "Used = Player", and "if Used = UH-1escape" (or the name of your transport).
-- Allows Player To ride a platform (or any entity) that moves from A to B in straight line (and then B to A / optional).
-- Make sure platform entity has the IfUsed properties field the same as its Name field
-- Orientate the entity's forward aspect towards the required direction of travel.
-- Set Static Mode to 'No' 
-- Set Physics On to 'No'
-- Tested with "Floor (Mystery)" and other assets...
planes = planes or {}
SndPlaying = SndPlaying or {}
--adjust these two fields for the speed of the platforkm and how far it needs to move to get the playe from A to B
local platformSpeed = 300
local distanceToTravel = 8100
local oneWayTrip = 1 -- set to 1 if Player can move from B to A once at B from A
local distanceTravelled = 0
local state = 0
local initialX = 0
local initialZ = 0
--local timer = aTimer:new(e) -- initialize timer (doesn't need in this case, but I'm not sure)
 
function heli_escape_init(e)
end
 
function heli_escape_main(e)
  planes[e] = planes[e] or {} --initialize plane (helicopter) data
  planes[e]['speed'] = planes[e]['speed'] or 150 + math.random(150,151) -- set helicopter speed (100-200)or greater
  planes[e]['takeoffspeed'] = planes[e]['takeoffspeed'] or 150 -- set takeoff speed
  PlayerDist = GetPlayerDistance(e)
        if PlayerDist < 1600 then
         --timer:start() -- start timer(!?!)
         LoopSound(e,0)
         end
--Prompt(state .. "  " .. distanceTravelled .. "  " .. distanceToTravel)
 
if PlayerDist < 250 and state == 0 then
    state = 1 -- start moving platform with player associated to it
    GravityOff(e)
    CollisionOff(e)
    MoveUp(e, planes[e]['takeoffspeed'] - (planes[e]['takeoffspeed'] *3) ) -- first fly height, not sure...
    --this is more fly height
    MoveUp(e, planes[e]['takeoffspeed'] *373) -- go at your desidered flying height 
    -- I've used the same weapon crosshair fly height with a bell of the church,
    -- because in the transport mode can't move up or down any weapon, you can just rotate with your weapon...
    initialX = g_Entity[e]['x']
    initialZ = g_Entity[e]['z']
    --MoveUp(e,1) --this is not neeeded in my case
    SetRotation(e,0,0,0) --the heli flying direction 
    --MoveForward(e,100)--this is not neeeded in my case
end
 
if state == 1 then
   TransportToIfUsed(e)
   MoveForward(e,platformSpeed)
   --PlaySound(e,0)
   distanceTravelled = g_c2c_distance(initialX,initialZ,g_Entity[e]['x'],g_Entity[e]['z']) 
   if distanceTravelled >= distanceToTravel then
        GravityOn(e)
        CollisionOn(e)
        state = 2
   end
   return
end
 
if state == 2 and PlayerDist > 500 and oneWayTrip == 0 then
    state = 0
    platformSpeed = platformSpeed * -1
    distanceTravelled = 0
end
 
end
function g_c2c_distance(x1,z1,x2,z2)
    --get horiz distance from one set of coords to another
     tPlayerDX = (x2-x1)
     tPlayerDZ = (z2-z1)
     return math.sqrt(math.abs(tPlayerDX^1)+math.abs(tPlayerDZ^1));
end

--these allow the pick up batteries to have different life to stock
--and with a renamed script you can easily have different types of battery with different settings working with the same flashlight.lua
local drain_delay = {}
local battery_life = 100 --starting charge on the battery
pressed = 0
--sound slot 1 for pick up noise
function flashlight_battery_init_name(e,name)
weapon_name[e] = name
if tonumber(weapon_name[e]) ~= nil then
drain_delay[e] = tonumber(weapon_name[e])
else
drain_delay[e] = 0.5 --how fast the battery drains (in seconds)
end

end

function flashlight_battery_main(e)

if PlayerLooking(e,100,10) == 1 then
if flashlight_batteries < max_flashlight_batteries then
TextCenterOnX(50,95,3,"Collect the flash light battery?  (1% per "..drain_delay[e].."s)")
if GetScancode() == 18 and pressed == 0 then
PlaySound(e,1)
pressed = 1 
flashlight_batteries = flashlight_batteries + 1 
flashlight_battery_life[flashlight_batteries] = battery_life
flashlight_battery_drain_delay[flashlight_batteries] = drain_delay[e]
Hide(e)
Destroy(e)
end
else
TextCenterOnX(50,95,3,"Can't carry any more flash light batteries")
end
end

if GetScancode() == 0 then
pressed = 0
end

end --main


function flashlight_battery_exit(e)

end

--dont need to change
local map_sprite = nil
local player_sprite = nil
local enemy_sprite = {}
local cursor_sprite = nil
local enemyCount = 0
local map_enemies = {}
local fog_sprite = {}
local fog_explored = {}
local posx = 50
local iposx = 50
local posy = 50
local iposy = 50
pressed = 0
local fogx = 0
local fogy = 0
local fx = 0
local oldmx = 0
local oldmy = 0
--------------------------------

--show map (1 = yes, 0 = no)
--press M in game to toggle
local show_map = 0

--image locations and names
local map_image = "scriptbank\\images\\map\\map.png"
local player_marker = "scriptbank\\images\\map\\player marker.png"
local enemy_marker = "scriptbank\\images\\map\\enemy marker.png" --not needed if you aren't showing enemies
--not needed if you aren't using fog
local fog_i = "scriptbank\\images\\map\\fog.png"
--not needed if you dont want a moveable map
local mouse_i = "scriptbank\\images\\map\\cursor.png"

--how much of the game map you are using (entire map is 0,0,51100,51100)
--this should match the viewable area on the map image (so you can use smaller maps/levels if you know the size in GG)
local game_map_size_min_x = 0
local game_map_size_min_z = 0
local game_map_size_max_x = 51100
local game_map_size_max_z = 51100

--where the map should appear on the screen (top left of image)
--if you want an even gap of screen space use; 100 - (map_image_size_x / 2)
local map_posx = 0
local map_posy = 50

--how much % of the screen the map image takes up
local map_image_size_x = 30
local map_image_size_y = 50

--how big the player marker is on screen (%)
local player_marker_size = 0.5

--display markers for enemies on the map (1 = yes, 0 = no)
local show_enemies = 1
--how far away to stop displaying enemies (0 = always, 3000 is about when the enemy script will turn off/become active, 1500 is the maximum distance they can fire at you from)
local enemy_range = 3000

--how big the enemy markers are (5)
local enemy_marker_size = 0.25

--set fog of war (0 = off, 1 = on)
local fog = 1
--fog will reappear once player leaves area (0 = no, 1 = yes)
local fog_restore = 0

--important; fog_in_row x fog_in_column must be less than 98
--how many images to use in 1 row
local fog_in_row = 13
--how many images to use in 1 column
local fog_in_column = 7

--sets map moveable (1 = yes, 0 = no)
local moveable_map = 1
--size of the cursor/mouse on the screen
local mouse_size = 1.5

--map script by smallg
--place object always active

function map_init(e)
Hide(e)
CollisionOff(e)
end

function map_main(e)
--load map images when game starts
if map_sprite == nil then
Hide(e)
CollisionOff(e)
map_sprite = CreateSprite(LoadImage(map_image))
SetSpritePosition(map_sprite,200,200)
SetSpriteSize(map_sprite,map_image_size_x,map_image_size_y)
player_sprite = CreateSprite(LoadImage(player_marker))
SetSpritePosition(player_sprite,200,200)
SetSpriteOffset(player_sprite,player_marker_size/2,-1)
SetSpriteSize(player_sprite,player_marker_size,-1)
enemy_image = LoadImage(enemy_marker)

--find all enemies loaded at start of game
if show_enemies == 1 then
for c = 1, 9999 do
if ai_soldier_state[c] ~= nil then
enemyCount = enemyCount + 1
map_enemies[enemyCount] = c	
enemy_sprite[enemyCount] = CreateSprite( enemy_image )
SetSpriteSize ( enemy_sprite[enemyCount] , enemy_marker_size , -1 )
SetSpritePosition ( enemy_sprite[enemyCount] , 200 , 200 )
end
end		
end

if fog == 1 then
for a = 1,fog_in_row*fog_in_column do
fog_sprite[a] = CreateSprite(LoadImage(fog_i))
SetSpritePosition(fog_sprite[a],200,200)
SetSpriteSize(fog_sprite[a],map_image_size_x/fog_in_row,map_image_size_y/fog_in_column)
--SetSpriteSize(fog_corner_sprite[a],map_image_size_x/fog_in_row,-1)
fog_explored[fog_sprite[a]] = 0
end
end

if moveable_map == 1 then
cursor_sprite = CreateSprite(LoadImage(mouse_i))
SetSpritePosition(cursor_sprite,200,200)
SetSpriteSize(cursor_sprite,mouse_size,-1)
end

else
SetPosition(e,g_PlayerPosX,g_PlayerPosY,g_PlayerPosZ)

--if a new enemy is spawned then add a new marker sprite (if we're showing enemies)
if show_enemies == 1 then
if GetFirstEntitySpawn() ~= 0 then
if ai_soldier_state[newEntity] ~= nil then
enemyCount = enemyCount + 1
map_enemies[enemyCount] = c	
enemy_sprite[enemyCount] = CreateSprite( enemy_image )
SetSpriteSize ( enemy_sprite[enemyCount] , enemy_marker_size , -1 )
SetSpritePosition ( enemy_sprite[enemyCount] , 200 , 200 )
end
end	
end	

--player presses m
if GetScancode() == 50 and pressed == 0 then
pressed = 1 
--if we're currently showing the map then hide it
if show_map == 1 then
show_map = 0
SetSpritePosition(map_sprite,200,200)
SetSpritePosition(player_sprite,200,200)
if show_enemies == 1 then
for a = 1,enemyCount do
if enemy_sprite[a] ~= nil then
SetSpritePosition(enemy_sprite[a],200,200)
end
end
end
if fog == 1 then
for a = 1, fog_in_row*fog_in_column do
if fog_sprite[a] ~= nil then
SetSpritePosition(fog_sprite[a],200,200)
end
end
end --fog
if moveable_map == 1 then
DeactivateMouse(e)
SetSpritePosition(cursor_sprite,200,200)
end


--else show the map
else
show_map = 1 
if moveable_map == 1 and g_PlayerGunID == 0 then
ActivateMouse()
oldmx = -10
oldmy = -10
end
end
end --press m to toggle map

if show_map == 1 then
SetSpritePosition(map_sprite,map_posx,map_posy)
posx = ((g_PlayerPosX - game_map_size_min_x)/(game_map_size_max_x - game_map_size_min_x)) * 100
posy = ((g_PlayerPosZ - game_map_size_min_z)/(game_map_size_max_z - game_map_size_min_z)) * 100
iposx = (posx*(map_image_size_x / 100))+map_posx
iposy = ((map_image_size_y-((posy*(map_image_size_y / 100))))+map_posy)
SetSpritePosition(player_sprite,iposx,iposy)
SetSpriteAngle(player_sprite,g_PlayerAngY)

if show_enemies == 1 then
for a = 1, enemyCount do
if enemy_sprite[a] ~= nil then
if g_Entity[map_enemies[a]]['health'] > 0 then
if GetPlayerDistance(map_enemies[a]) < enemy_range or enemy_range < 1 then
posx = ((g_Entity[map_enemies[a]]['x'] - game_map_size_min_x)/(game_map_size_max_x - game_map_size_min_x)) * 100
posy = ((g_Entity[map_enemies[a]]['z'] - game_map_size_min_z)/(game_map_size_max_z - game_map_size_min_z)) * 100
iposx = (posx*(map_image_size_x / 100))+map_posx
iposy = ((map_image_size_y-((posy*(map_image_size_y / 100))))+map_posy)
SetSpritePosition(enemy_sprite[a],iposx,iposy)
else
SetSpritePosition(enemy_sprite[a],200,200)
end
else
SetSpritePosition(enemy_sprite[a],200,200)
end
end
end
end --enemies

if fog == 1 then
fogx = map_posx
fogy = map_posy
fx = 0
for a = 1, fog_in_row*fog_in_column do
if fog_sprite[a] ~= nil then
if fx > 0 then
if fx < fog_in_row then
fogx = fogx + (map_image_size_x/fog_in_row)
else
fogx = map_posx 
fogy = fogy + (map_image_size_y/fog_in_column)
fx = 0
end
end
if fog_explored[fog_sprite[a]] == 0 then
SetSpritePosition(fog_sprite[a],fogx,fogy)
end
fx = fx + 1
if fogx + ((map_image_size_x/fog_in_row)/2) > iposx - (map_image_size_x/fog_in_row) and fogx + ((map_image_size_x/fog_in_row)/2) < iposx + (map_image_size_x/fog_in_row) and fogy + ((map_image_size_y/fog_in_column)/2) > iposy - (map_image_size_y/fog_in_column) and fogy + ((map_image_size_y/fog_in_column)/2) < iposy + (map_image_size_y/fog_in_column) then
if fog_restore == 0 then
fog_explored[fog_sprite[a]] = 1 
end
SetSpritePosition(fog_sprite[a],200,200)
end
end
end
end --fog

if moveable_map == 1 then
if g_PlayerGunID == 0 then
if g_MouseClick == 2 then
DeactivateMouse(e)
SetSpritePosition(cursor_sprite,200,200)
else
ActivateMouse(e)
if (oldmx ~= g_MouseX or oldmy ~= g_MouseY) and g_MouseClick ~= 1 then
oldmx = g_MouseX
oldmy = g_MouseY
SetSpritePosition(cursor_sprite,g_MouseX,g_MouseY)
end
if g_MouseClick == 1 then
if g_MouseX < oldmx then
map_posx = map_posx - (oldmx-g_MouseX) 
elseif g_MouseX > oldmx then
map_posx = map_posx - (oldmx-g_MouseX)
end
if g_MouseY < oldmy then
map_posy = map_posy - (oldmy-g_MouseY) 
elseif g_MouseY > oldmy then
map_posy = map_posy - (oldmy-g_MouseY) 
end
oldmx = g_MouseX
oldmy = g_MouseY
SetSpritePosition(cursor_sprite,g_MouseX,g_MouseY)
end 
end
else
DeactivateMouse(e)
SetSpritePosition(cursor_sprite,200,200)
end
end--moveable map

else
posx = ((g_PlayerPosX - game_map_size_min_x)/(game_map_size_max_x - game_map_size_min_x)) * 100
posy = ((g_PlayerPosZ - game_map_size_min_z)/(game_map_size_max_z - game_map_size_min_z)) * 100
iposx = (posx*(map_image_size_x / 100))+map_posx
iposy = ((map_image_size_y-((posy*(map_image_size_y / 100))))+map_posy)
if fog == 1 then
fogx = map_posx
fogy = map_posy
fx = 0
for a = 1, fog_in_row*fog_in_column do
if fog_sprite[a] ~= nil then
if fx > 0 then
if fx < fog_in_row then
fogx = fogx + (map_image_size_x/fog_in_row)
else
fogx = map_posx 
fogy = fogy + (map_image_size_y/fog_in_column)
fx = 0
end
end
if fog_explored[fog_sprite[a]] == 0 then
--SetSpritePosition(fog_sprite[a],fogx,fogy)
end
fx = fx + 1
if fogx + ((map_image_size_x/fog_in_row)/2) > iposx - (map_image_size_x/fog_in_row) and fogx + ((map_image_size_x/fog_in_row)/2) < iposx + (map_image_size_x/fog_in_row) and fogy + ((map_image_size_y/fog_in_column)/2) > iposy - (map_image_size_y/fog_in_column) and fogy + ((map_image_size_y/fog_in_column)/2) < iposy + (map_image_size_y/fog_in_column) then
if fog_restore == 0 then
fog_explored[fog_sprite[a]] = 1 
end
SetSpritePosition(fog_sprite[a],200,200)
end
end
end
end --fog

end --map on screen

end --images loaded
if GetScancode() == 0 then
pressed = 0
end

end --main


function map_exit(e)

end