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 HogsAreInvulnerable = 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 if GetEffect(h,heInvulnerable) == 0 then SetEffect(h,heInvulnerable,1) else HogsAreInvulnerable = true 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) if not HogsAreInvulnerable then SetEffect(CurrentHedgehog,heInvulnerable,0) end 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) -- should approximate circle by removing corners if BoomFire == nil then BoomFire = {} end for i = 0,50 do fx = GetRandom(d)-div(d,2) fy = GetRandom(d)-div(d,2) if fx<0 then fdx = -5000-GetRandom(3000) else fdx = 5000+GetRandom(3000) end if fy<0 then fdy = -5000-GetRandom(3000) else fdy = 5000+GetRandom(3000) end flame = AddGear(x+fx, y+fy, gtFlame, gsttmpFlag, fdx, fdy, 0) 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 FireBoom(cx,cy,200) -- todo animate 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) CakeTries = CakeTries + 1 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