HedgewarsScriptLoad("/Scripts/Locale.lua")

HedgewarsScriptLoad("/Scripts/Utils.lua")

local hTag = nil

local hTagHeight = 33000

local tTag = nil

local rTag = nil

local startTime = 0

local MaxHeight = 32640

local RecordHeight = 33000

local Fire = {}

--local BoomFire = nil

local HH = {}

local MrMine -- in honour of sparkle's first arrival in the cabin

local YouWon = false

local WaterRise = nil

local Cake = nil

local CakeTries = 0

local Stars = {}

function onGameInit()

    -- Ensure people get same map for same theme

    TurnTime = 999999999

    CaseFreq = 0

    Explosives = 0

    MineDudPercent = 0

    DisableGameFlags(gfBottomBorder+gfBorder)

    --This reduced startup time by only about 15% and looked ugly

    --EnableGameFlags(gfDisableLandObjects) 

    -- force seed instead.  Some themes will still be easier, but at least you won't luck out on the same theme

    Seed = ClimbHome

end

function onGearAdd(gear)

    if GetGearType(gear) == gtHedgehog then

        HH[gear] = 1

    end

end

function onGearDelete(gear)

    if gear == MrMine then

        AddCaption("Once you set off the proximity trigger, Mr. Mine is not your friend",0xffffff,0)

        MrMine = nil

    elseif gear == Cake then

        Cake = nil

    end

end

function onGameStart()

    ShowMission(loc("Climb Home"),

                loc("Rope to safety"),

                loc("You are far from home, and the water is rising, climb up as high as you can!"),

                -amRope, 0)

    local x = 1818

    for h,i in pairs(HH) do

       -- SetGearPosition(h,x,32549)

        SetGearPosition(h,x,108)

        SetHealth(h,1)

        if x < 1978 then x = x+32 else x = 1818 end

        SetState(h,bor(GetState(h),gstInvisible))

    end

-- 1925,263 - Mr. Mine position

    MrMine = AddGear(1925,263,gtMine,0,0,0,0)

end

function onAmmoStoreInit()

    SetAmmo(amRope, 9, 0, 0, 0)

end

function onNewTurn()

    startTime = GameTime

    --disable to preserve highest over multiple turns

    --will need to change water check too ofc

    MaxHeight = 32640

    hTagHeight = 33000

    SetWaterLine(32768)

    if CurrentHedgehog ~= nil then

        SetGearPosition(CurrentHedgehog, 1951,32640)

        AddVisualGear(19531,32640,vgtExplosion,0,false)

        SetState(CurrentHedgehog,band(GetState(CurrentHedgehog),bnot(gstInvisible)))

    end

    for f,i in pairs(Fire) do

        DeleteGear(f)

    end

    for s,i in pairs(Stars) do

        DeleteVisualGear(s)

        Stars[s] = nil

    end

    for i = 0,12 do

        flame = AddGear(2000+i*2,308, gtFlame, gsttmpFlag,  0, 0, 0)

        SetTag(flame, 999999+i)

        Fire[flame]=1

    end

    if Cake ~= nil then DeleteGear(Cake) end

    CakeTries = 0

end

--function onGearDelete(gear)

--    if gear == WaterRise and MaxHeight > 500 and CurrentHedgehog ~= nil and band(GetState(CurrentHedgehog),gstHHDriven) ~= 0 then

--        WaterRise = AddGear(0,0,gtWaterUp, 0, 0, 0, 0)

--    end

--end

function FireBoom(x,y,d) -- going to add for rockets too

    AddVisualGear(x,y,vgtExplosion,0,false)

    if BoomFire == nil then BoomFire = {} end

    for i = 0,50 do

        SetTag(flame, 999999+i)

        Fire[flame]=1

--        BoomFire[flame]=1

    end

end

function onGameTick20()

    if math.random(20) == 1 then

        AddVisualGear(2012,56,vgtSmoke,0,false)

    end

    --if BoomFire ~= nil then

    --    for f,i in pairs(BoomFire) do

    --        if band(GetState(f),gstCollision~=0) then DeleteGear(f) end

    --    end

    --    BoomFire = nil

    --end

    for s,i in pairs(Stars) do

        g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(s)

        if g1 > WaterLine + 500 then

            DeleteVisualGear(s)

            Stars[s] = nil

        end

        --else  wasn't really visible, pointless.

        --    g5 = g5+1

        --    if g5 > 360 then g5 = 0 end

        --    SetVisualGearValues(s, g1, g2, g3, g4, g5, g6, g7, g8, g9, g10)

        --end

    end

    if Cake ~= nil and CurrentHedgehog ~= nil then

        local cx,cy = GetGearPosition(Cake)

        local x,y = GetGearPosition(CurrentHedgehog)

        if y < cy-1500 then

            DeleteGear(Cake)

            Cake = nil

        end

        if gearIsInCircle(CurrentHedgehog,cx,cy,450) then

            DeleteGear(Cake)

            Cake = nil

        end

    end

    if CurrentHedgehog ~= nil and TurnTimeLeft > 0 and band(GetState(CurrentHedgehog),gstHHDriven) ~= 0 then

        if MaxHeight < 32000 and MaxHeight > 286 and WaterLine > 286  then SetWaterLine(WaterLine-2) end

        local x,y = GetGearPosition(CurrentHedgehog)

        if y > 0 and y < 30000 and MaxHeight > 286 and math.random(y) < 500 then

            local s = AddVisualGear(0, 0, vgtStraightShot, 0, true)

            local c = div(250000,y)

            if c > 255 then c = 255 end

            c = c * 0x10000 + 0xFF0000FF

            SetVisualGearValues(s,

                math.random(2048), -5000, 0, -1-(1/y*1000), 

                math.random(360),

                0,

                999999999, -- frameticks

                171, -- star

                0, c)

                --,  0xFFCC00FF) -- could be fun to make colour shift as you rise...

            Stars[s] = 1

        end    

    end

    if CurrentHedgehog ~= nil and band(GetState(CurrentHedgehog),gstHHDriven) == 0 then

        for f,i in pairs(Fire) do -- takes too long to fall otherwise

            DeleteGear(f)

        end

        if Cake ~= nil then

            DeleteGear(Cake)

            Cake = nil

        end

    end

    if GameTime % 500 == 0 and CurrentHedgehog ~= nil and TurnTimeLeft > 0 then

        --if isSinglePlayer and MaxHeight < 32000 and WaterRise == nil then

        --    WaterRise = AddGear(0,0,gtWaterUp, 0, 0, 0, 0)

        --end

        if isSinglePlayer and not YouWon and gearIsInBox(CurrentHedgehog, 1920, 252, 50, 50) then

            ShowMission(loc("Climb Home"),

                        loc("Made it!"),

                        string.format(loc("AHHh, home sweet home.  Made it in %d seconds."),(GameTime-startTime)/1000),

                        -amRope, 0)

            PlaySound(sndVictory,CurrentHedgehog)

            EndGame()

            YouWon = true

        end

        local x,y = GetGearPosition(CurrentHedgehog)

        if CakeTries < 10 and y < 32600 and y > 3000 and Cake == nil and band(GetState(CurrentHedgehog),gstHHDriven) ~= 0 then 

            -- doing this just after the start the first time to take advantage of randomness sources

            -- there's a small chance it'll jiggle the camera though, so trying not to do it too often

            -- Pick a clear y to start with

            if y > 31000 then cy = 24585 elseif

               y > 28000 then cy = 21500 elseif

               y > 24000 then cy = 19000 elseif

               y > 21500 then cy = 16000 elseif

               y > 19000 then cy = 12265 elseif

               y > 16000 then cy =  8800 elseif

               y > 12000 then cy =  5700 else

               cy = 400 end

            Cake = AddGear(GetRandom(2048), cy, gtCake, 0, 0, 0, 0)

            SetHealth(Cake,999999)

        end

        if (y > 286) or (y < 286 and MaxHeight > 286) then

            if y < MaxHeight and y > 286 then MaxHeight = y end

            if y < 286 then MaxHeight = 286 end

            if MaxHeight < hTagHeight then

                hTagHeight = MaxHeight

                if hTag ~= nil then DeleteVisualGear(hTag) end

                hTag = AddVisualGear(0, 0, vgtHealthTag, 0, true)

                local g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(hTag)

                -- snagged from space invasion

                SetVisualGearValues (

                        hTag,        --id

                        -(ScreenWidth/2) + 40, --xoffset

                        ScreenHeight - 60, --yoffset

                        0,          --dx

                        0,          --dy

                        1.1,        --zoom

                        1,          --~= 0 means align to screen

                        g7,         --frameticks

        -- 116px off bottom for lowest rock, 286 or so off top for position of chair

        -- 32650 is "0"

                        32640-hTagHeight,    --value

                        99999999999,--timer

                        GetClanColor(GetHogClan(CurrentHedgehog))

                        )

            end

            if MaxHeight < RecordHeight then

                RecordHeight = MaxHeight

                if rTag ~= nil then DeleteVisualGear(rTag) end

                rTag = AddVisualGear(0, 0, vgtHealthTag, 0, true)

                local g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(hTag)

                -- snagged from space invasion

                SetVisualGearValues (

                        rTag,        --id

                        -(ScreenWidth/2) + 100, --xoffset

                        ScreenHeight - 60, --yoffset

                        0,          --dx

                        0,          --dy

                        1.1,        --zoom

                        1,          --~= 0 means align to screen

                        g7,         --frameticks

        -- 116px off bottom for lowest rock, 286 or so off top for position of chair

        -- 32650 is "0"

                        32640-RecordHeight,    --value

                        99999999999,--timer

                        GetClanColor(GetHogClan(CurrentHedgehog))

                        )

            end

        end

        if MaxHeight > 286 then

            if tTag ~= nil then DeleteVisualGear(tTag) end

            tTag = AddVisualGear(0, 0, vgtHealthTag, 0, true)

            local g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tTag)

            -- snagged from space invasion

            SetVisualGearValues (

                    tTag,        --id

                    -(ScreenWidth/2) + 40, --xoffset

                    ScreenHeight - 100, --yoffset

                    0,          --dx

                    0,          --dy

                    1.1,        --zoom

                    1,          --~= 0 means align to screen

                    g7,         --frameticks

                    (GameTime-startTime)/1000,    --value

                    99999999999,--timer

                    0xffffffff

                    )

        end

    end

end