function CarryObject(e)
  AngPlr = math.floor(g_PlayerAngY)
  while AngPlr > 340 do
    AngPlr = AngPlr - 360
  end
  while AngPlr < 0.0 do
    AngPlr = AngPlr + 360
  end
  x1 = g_PlayerPosX + 50*math.sin(math.rad(AngPlr))
  y1 = g_PlayerPosY - 25
  z1 = g_PlayerPosZ + 50*math.cos(math.rad(AngPlr))
  GravityOff(e)
  CollisionOff(e)
  RotateToPlayer(e)
  ResetPosition(e,x1,y1,z1)
  SetPosition(e,x1,y1,z1)
end

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

local PlrInGameZone=0
local Time = 6000
local Message = "Radioaktive Area. Reenter the Save Zone or you die"

function gamezone_init(e)
end

function gamezone_main(e)

  if g_Entity[e]['plrinzone']==1 and PlrInGameZone==0 then
    PlrInGameZone=1
  end

  if g_Entity[e]['plrinzone']==0 then
    if PlrInGameZone==1 then
      StartTimer(e)
      PlrInGameZone=0
    else
      TextCenterOnX(50,50,5,Message)
      if GetTimer(e) > Time then
        SetPlayerHealth(0)
      end
    end
  end
end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Player Collects Weapon which float

function weaponquake_init_name(e,name)
  weapon_name[e] = name
  StartTimer(e)
end

local moveSpeedUp = 20 --Speed for move on y-axis
local rotateSpeed = 20 --Speed for rotation
local timeToFloatUp = 1000 -- Time to fly up
local timeToFloatDown = 2 -- Multiply how much of the moveUp time is used to fly down(

function weaponquake_main(e)
  if n ~= 1 then
    CollisionOff(e)
    GravityOff(e)
    n=1
  end

  RotateY(e,rotateSpeed) --Higher number increase rotate speed

  if GetTimer(e) < timeToFloatUp then 
    MoveUp(e,moveSpeedUp) --Higher number increase move up speed
  end
  if GetTimer(e) >= timeToFloatUp and GetTimer(e) < timeToFloatUp*timeToFloatDown then
    MoveUp(e,-moveSpeedUp) --Higher number increase move up speed
  end
  if GetTimer(e) >= timeToFloatUp*timeToFloatDown then
    StartTimer(e)
  end

  PlayerDist = GetDistanceToPlayer(e)
  if PlayerDist < 100.0 then -- Higher number increase range from where you can pick up weapons
    PromptDuration("Collected the " .. weapon_name[e],3000)
    PlaySound(e,0)
    AddPlayerWeapon(e)
    Destroy(e)
    ActivateIfUsed(e)
  end
end


function GetDistanceToPlayer(e)
  tPlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
  tPlayerDY = (g_Entity[e]['y'] - g_PlayerPosY)
  tPlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
  if math.abs(tPlayerDY) > 100 then 
    tPlayerDY = tPlayerDY * 4
  end
  return math.sqrt(math.abs(tPlayerDX*tPlayerDX)+math.abs(tPlayerDY*tPlayerDY)+math.abs(tPlayerDZ*tPlayerDZ));
end

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

local Timer_Started = 0
local Timer_Intervall=200                         --How fast the dots are added
local Timer_String="Press E To Search Through"
local old_Timer=Timer_Intervall
local Result = 100                                -- If you use this script in a different folder than scriptbank

function key_search_init(e)
  CollisionOff(e)
end

function key_search_main(e)
  PlayerDist = GetPlayerDistance(e)
  if PlayerDist < 150 and g_PlayerHealth > 0 then
    SourceAngle = g_PlayerAngY
    while SourceAngle < 0.0 do
      SourceAngle = SourceAngle + 360.0
    end	
    while SourceAngle > 340.0 do
      SourceAngle = SourceAngle - 360.0
    end
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
    DestAngle = math.atan2( PlayerDZ , PlayerDX )
    -- Convert to degrees
    DestAngle = (DestAngle * 57.2957795) - 90.0

    Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
    if Result > 180 then
      Result = 0
    end	
  end


  if Result < 20.0 then
    Prompt(Timer_String)

    if g_KeyPressE == 1 and Timer_Started == 0 then
      StartTimer(e)
      Timer_Started = 1
      Timer_String = "Searching."
    end

    --Some animations for the text(doesn´t look so boring)
    if g_KeyPressE == 1 and Timer_Started == 1 and GetTimer(e) > old_Timer then
      Timer_String= Timer_String .. "."
      old_Timer = old_Timer + Timer_Intervall
    end

    if g_KeyPressE == 1 and GetTimer(e) > 2000 and Timer_Started == 1 then
      PromptDuration("Collected key",3000)
      PlaySound(e,0)
      Collected(e)
      Destroy(e)
      ActivateIfUsed(e)
    end
  end
  if g_KeyPressE == 0 then
    Timer_Started = 0
  end
end