hedgewars: comparison share/hedgewars/Data/Scripts/Multiplayer/Battalion.lua

equal deleted inserted replaced

-:b6d67e975b51
+:263d006c56a9
 ########################################################################
 ]]--
 --[[
 ########################################################################
-Todo/Idea-List
+TODO / ideas list
 ########################################################################
 - Make Hogs sorted by rareness for teams with less hogs (more fair)
 - Keep first picked up unused crate utitlity until next round
 - Ship default scheme but let user overwrite it
 -- List of all hog variants with belonging weapons,
 --  hitpoints, chances and more
 local variants = {}
 local varName = ""
-local newLine = ""--string.char(0x0A)
+local newLine = ""
 local gmAny = 0xFFFFFFFF
-local version = "0.33"
 --[[
 ##############################################################################
 ### VARIANT SETUP                                                          ###
 ##############################################################################
 end
 end
 function AddHogAmmo(hog, ammo)
 -- Add weapons of variant
---for key, val in pairs(variants[var]["weapons"]) do
 for key, val in pairs(ammo) do
---AddAmmo(hog, val, 1)
 AddAmmo(hog, val, GetAmmoCount(hog, val) +1)
 end
 end
 function GetRandomAmmo(hog, sourceType)
 SetHealth(hog, variants[hogVar]["hp"])
 end
 function getHogInfo(hog, info)
 if hog == nil then
-WriteLnToChat("ERROR [getHogInfo]: Hog is nil!")
+WriteLnToChat("ERROR [getHogInfo]: hog is nil!")
-WriteLnToConsole("ERROR [getHogInfo]: Hog is nil!")
+WriteLnToConsole("ERROR [getHogInfo]: hog is nil!")
 return
 end
 if hogInfo[hog] == nil then
 return nil
 return hogInfo[hog][info]
 end
 function setHogInfo(hog)
 if hog == nil then
-WriteLnToChat("ERROR [getHogInfo]: Hog is nil!")
+WriteLnToChat("ERROR [setHogInfo]: hog is nil!")
-WriteLnToConsole("ERROR [getHogInfo]: Hog is nil!")
+WriteLnToConsole("ERROR [setHogInfo]: hog is nil!")
 return
 end
 hogInfo[hog] = {}
 hogInfo[hog]['maxHp'] = GetHealth(hog)
 if gearType == gtHedgehog then
 trackGear(gear)
 elseif gearType == gtRCPlane then
 SetHealth(gear, 2)
 elseif gearType == gtAirBomb then
--- gearUid, Angle, Power, WDTimer, Radius, Density, Karma, DirAngle, AdvBounce, ImpactSound, ImpactSounds, Tint, Damage, Boom
+-- Set Boom
 SetGearValues(gear, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 20)
 elseif gearType == gtCake then
--- gearUid, Angle, Power, WDTimer, Radius, Density, Karma, DirAngle, AdvBounce, ImpactSound, ImpactSounds, Tint, Damage, Boom
+-- Set Boom
 SetGearValues(gear, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 50)
 elseif gearType == gtDEagleShot then
--- gearUid, Angle, Power, WDTimer, Radius, Density, Karma, DirAngle, AdvBounce, ImpactSound, ImpactSounds, Tint, Damage, Boom
+-- Set Boom
 SetGearValues(gear, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 12)
 end
 end
 function onHighlandKill(gear)
 hpDiff = div(deathMaxHP * highEnemyKillHPBonus, 100)
 newHP = curHP + hpDiff
 SetHealth(CurHog, newHP)
 local effect = AddVisualGear(GetX(CurHog), GetY(CurHog) - cratePickupGap, vgtHealthTag, hpDiff, false)
--- (vgUid, X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint)
+-- Set Tint
 SetVisualGearValues(effect, nil, nil, nil, nil, nil, nil, nil, nil, nil, GetClanColor(GetHogClan(CurHog)))
 -- Friendly fire! Remove all weapons and helpers from pool
 else
 highWeapons[CurHog] = {}
 highHelpers[CurHog] = {}
 else
 SetHealth(CurHog, 0)
 end
 local effect = AddVisualGear(GetX(CurHog), GetY(CurHog) - cratePickupGap, vgtHealthTag, hpDiff, false)
--- (vgUid, X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint)
+-- Set Tint
 SetVisualGearValues(effect, nil, nil, nil, nil, nil, nil, nil, nil, nil, GetClanColor(GetHogClan(CurHog)))
 end
 end
 function onKingDeath(KingHog)
 pointsPerTeam[team]['weapons'] = pointsPerTeam[team]['weapons'] + 2
 pointsPerTeam[team]['helpers'] = pointsPerTeam[team]['helpers'] + 1
 local effect = AddVisualGear(GetX(CurHog) - (cratePickupGap / 2), GetY(CurHog), vgtHealthTag, 2, false)
--- (vgUid, X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint)
+-- Set Tint
 SetVisualGearValues(effect, nil, nil, nil, nil, nil, nil, nil, nil, nil, 0xFFFFFFFF)
 local effect = AddVisualGear(GetX(CurHog) + (cratePickupGap / 2), GetY(CurHog), vgtHealthTag, 1, false)
--- (vgUid, X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint)
+-- Set Tint
 SetVisualGearValues(effect, nil, nil, nil, nil, nil, nil, nil, nil, nil, 0x444444FF)
 end
 function onGearDelete(gear)
 trackDeletion(gear)
 end
 if hp ~= newHP then
 SetHealth(hog, newHP)
 local effect = AddVisualGear(GetX(hog), GetY(hog) - cratePickupGap, vgtHealthTag, diff, false)
--- (vgUid, X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint)
+-- Set Tint
 SetVisualGearValues(effect, nil, nil, nil, nil, nil, nil, nil, nil, nil, GetClanColor(GetHogClan(hog)))
 end
 end
 end
 pointsPerTeam[team]['weapons'] = pointsPerTeam[team]['weaponsRem'] + wepWoTax + div(wepToTax * pointsKeepSDPerc, 100)
 pointsPerTeam[team]['helpers'] = pointsPerTeam[team]['helpersRem'] + hlpWoTax + div(hlpToTax * pointsKeepSDPerc, 100)
 end
 local effect = AddVisualGear(GetX(hog) - (cratePickupGap / 2), GetY(hog), vgtHealthTag, pointsPerTeam[team]['weapons'], false)
--- (vgUid, X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint)
+-- Set Tint
 SetVisualGearValues(effect, nil, nil, nil, nil, nil, nil, nil, nil, nil, 0xFFFFFFFF)
 local effect = AddVisualGear(GetX(hog) + (cratePickupGap / 2), GetY(hog), vgtHealthTag, pointsPerTeam[team]['helpers'], false)
--- (vgUid, X, Y, dX, dY, Angle, Frame, FrameTicks, State, Timer, Tint)
+-- Set Tint
 SetVisualGearValues(effect, nil, nil, nil, nil, nil, nil, nil, nil, nil, 0x444444FF)
 end
 function onPointsTurn()
 local hogWepPoints = 0
 -- Shuffle group for more randomness
 shuffle(group['all'])
 -- We are in points mode, setup other weapons
 elseif mode == 'points' then
---variants['King']['chance'] = 0
---if variants['Air General'] ~= nil then
---  variants['Air General']['chance'] = 0
---end
 -- Translate [ammo] -> points to [points] -> {ammo1, ammo2}
 for ammoType, ammoPoints in pairs(pointsWeaponVal) do
 if pointsToWep[ammoPoints] == nil then
 pointsToWep[ammoPoints] = {}
 end
 table.insert(hlpPoints, points)
 end
 table.sort(wepPoints)
 table.sort(hlpPoints)
--- All done, sort the table
---table.sort(pointsToWep)
---table.sort(pointsToHlp)
 end
 -- Initial Hog Setup
 runOnGears(countTeamHogs)
 elseif mode == 'king' then
 txt = txt .. " |"
 txt = txt .. loc("--- King ---").."|"
 txt = txt .. loc("Variants: The last hog of each team will be a king").."|"
 txt = txt .. string.format(loc("Turns: King's health is set to %d%% of the team health"), kingLinkPerc).."|"
-icon = 0 -- Golen Crown
+icon = 0 -- Golden Crown
 elseif mode == 'points' then
 txt = txt .. " |"
 txt = txt .. loc("--- Points ---").."|"
 txt = txt .. loc("Variants: Kings and air generals are disabled").."|"
 txt = txt .. string.format(loc("Weapons: Each team starts with %d weapon points"), pointsWepBase).."|"
 icon = 4 -- Golden Star
 else
 icon = -amGrenade -- Grenade
 end
---txt = txt .. "Switch: Max. 3 times a game per team, cooldown of 5 turns|"
 txt = txt .. " |"
 txt = txt .. loc("--- Sudden Death ---").."|"
 txt = txt .. loc("Weapons: Nearly every hog variant gets 1 kamikaze").."|"
 txt = txt .. loc("Crates: Crates drop more often with a higher chance of bonus ammo").."|"
 txt = txt .. loc("Water: Rises by 37 per turn").."|"

changeset 12980	263d006c56a9
parent 12979	b6d67e975b51
child 12981	4c7472d3d483