Make Highlander mission text consistent with other game mode messages
---------------------------------- HIGHLANDER / HOGS OF WAR-- version 0.4b+-- by mikade---------------------------------------------0.1------------- concept test-------------0.2------------- remove tardis till Henek fixes his tracker-- change wep crates to health crates-- reset arb turntimevalue-- include randomOrder-- Until fixed .17 methods come out, remove switches and resurrector-- on request, removed kamikaze and piano weapons-- provisional fixing of bugs that can't actually be fixed yet-------------0.3------------- meh, update incorrect display-- may change this in the future to have switches-- but for now people are used to it without, so~-- mudball is now counted as a utility-------------0.3b------------- cleaned up code and got rid of unneccessary vars-- mudball is a weapon again-- landgun is now a utility-- extra time, vampirism utility removed-- hammer wep removed-- all hogs have kamikaze-------------0.3c------------- restructured some code-- added napalm (whoops) to list of possible weapons you can get-- hogs no longer recieve airstrike-related weps on border maps-------------0.4------------- fix same name/blank weapon transfer bug (issue 541)-- show next hog ammo set in full (issue 312)-- allow mid-kill multi-shot weapon transfers (issue 503)-- allow users to configure hog health-- remove 'switched to' message-- remove some extraeneous code-- add more whitespace-- break everything-------------0.4b------------- as per request, add ice-gun--------------------------- ideas for the future--------------------------- add structure-- allow switcher, resurrector-- add abuse-- nerf teleport-- allow more customization-- poison hogs using the default team? :/-- balance weapon distribution across entire team / all teams-- add other inequalities/bonuses like... ???-- some hogs start off with an extra 25 health?-- some hogs start off poisoned?-- some hogs start off with a rope and 2 drills but die after their turn?--------------------------------- derp, script follows-------------------------------HedgewarsScriptLoad("/Scripts/Locale.lua")HedgewarsScriptLoad("/Scripts/Tracker.lua")HedgewarsScriptLoad("/Scripts/Params.lua")-- These define weps allowed by the script. At present Tardis and Resurrection is banned for example-- These were arbitrarily defined out-of-order in initial script, so that was preserved here, resulting -- in a moderately odd syntax.local atkWeps = { [amBazooka]=true, [amBee]=true, [amMortar]=true, [amDrill]=true, [amSnowball]=true, [amGrenade]=true, [amClusterBomb]=true, [amMolotov]=true, [amWatermelon]=true, [amHellishBomb]=true, [amGasBomb]=true, [amShotgun]=true, [amDEagle]=true, [amFlamethrower]=true, [amSniperRifle]=true, [amSineGun]=true, [amFirePunch]=true, [amWhip]=true, [amBaseballBat]=true, [amKamikaze]=true, [amSeduction]=true, [amHammer]=true, [amMine]=true, [amDynamite]=true, [amCake]=true, [amBallgun]=true, [amSMine]=true, [amRCPlane]=true, [amBirdy]=true, [amKnife]=true, [amAirAttack]=true, [amMineStrike]=true, [amNapalm]=true, [amDrillStrike]=true, [amPiano]=true, [amAirMine] = true, }local utilWeps = { [amBlowTorch]=true, [amPickHammer]=true, [amGirder]=true, [amPortalGun]=true, [amRope]=true, [amParachute]=true, [amTeleport]=true, [amJetpack]=true, [amInvulnerable]=true, [amLaserSight]=true, [amVampiric]=true, [amLowGravity]=true, [amExtraDamage]=true, [amExtraTime]=true, [amLandGun]=true, [amRubber]=true, [amIceGun]=true, }local wepArray = {}local atkChoices = {}local utilChoices = {}local currHoglocal lastHoglocal started = falselocal switchStage = 0local lastWep = amNothinglocal shotsFired = 0local probability = {1,2,5,10,20,50,200,500,1000000};local atktot = 0local utiltot = 0local maxWep = 57 -- game crashes if you exceed supported #local someHog = nil -- just for looking up the wepslocal mode = nilfunction onParameters() parseParams() mode = params["mode"]endfunction CheckForWeaponSwap() if GetCurAmmoType() ~= lastWep then shotsFired = 0 end lastWep = GetCurAmmoType()endfunction onSlot() CheckForWeaponSwap()endfunction onSetWeapon() CheckForWeaponSwap()endfunction onHogAttack() CheckForWeaponSwap() shotsFired = shotsFired + 1endfunction StartingSetUp(gear) for i = 1,maxWep do setGearValue(gear,i,0) end for w,c in pairs(wepArray) do if c == 9 and (atkWeps[w] or utilWeps[w]) then setGearValue(gear,w,1) end end setGearValue(gear,amSkip,100) local r = 0 if atktot > 0 then r = GetRandom(atktot)+1 for i = 1,maxWep do --for w,c in pairs(atkChoices) do --WriteLnToConsole(' c: '..c..' w:'..w..' r:'..r) if atkChoices[i] >= r then setGearValue(gear,i,1) break end end end if utiltot > 0 then r = GetRandom(utiltot)+1 for i = 1,maxWep do -- for w,c in pairs(utilChoices) do --WriteLnToConsole('util c: '..c..' w:'..w..' r:'..r) if utilChoices[i] >= r then setGearValue(gear,i,1) break end end endend--[[function SaveWeapons(gear)-- er, this has no 0 check so presumably if you use a weapon then when it saves you wont have it for i = 1, (#wepArray) do setGearValue(gear, wepArray[i], GetAmmoCount(gear, wepArray[i]) ) --AddAmmo(gear, wepArray[i], getGearValue(gear,wepArray[i]) ) endend]]function ConvertValues(gear) for w,c in pairs(wepArray) do AddAmmo(gear, w, getGearValue(gear,w) ) endend-- this is called when a hog diesfunction TransferWeps(gear) if CurrentHedgehog ~= nil and CurrentHedgehog ~= gear then local x,y,color local vgear local vgtX, vgtY, vgtdX, vgtdY, vgtAngle, vgtFrame, vgtFrameTicks, vgtState, vgtTimer, vgtTint local dspl = IsHogLocal(CurrentHedgehog) local ammolist = '' if dspl then x,y = GetGearPosition(CurrentHedgehog) color = GetClanColor(GetHogClan(CurrentHedgehog)) end for w,c in pairs(wepArray) do val = getGearValue(gear,w) if val ~= 0 and (mode == "orig" or (wepArray[w] ~= 9 and getGearValue(CurrentHedgehog, w) == 0)) then setGearValue(CurrentHedgehog, w, val) -- if you are using multi-shot weapon, gimme one more if (GetCurAmmoType() == w) and (shotsFired ~= 0) then AddAmmo(CurrentHedgehog, w, val+1) -- assign ammo as per normal else AddAmmo(CurrentHedgehog, w, val) end if dspl then if ammolist == '' then ammolist = GetAmmoName(w) else ammolist = ammolist .. ' • ' .. GetAmmoName(w) end x = x + 2 y = y + 32 vgear = AddVisualGear(x, y, vgtAmmo, 0, true) if vgear ~= nil then vgtX,vgtY,vgtdX,vgtdY,vgtAngle,vgtFrame,vgtFrameTicks,vgtState,vgtTimer,vgtTint = GetVisualGearValues(vgear) vgtFrame = w SetVisualGearValues(vgear,vgtX,vgtY,vgtdX,vgtdY,vgtAngle,vgtFrame,vgtFrameTicks,vgtState,vgtTimer,vgtTint) end end end end PlaySound(sndShotgunReload); if dspl and ammolist ~= '' then AddCaption(ammolist, color, capgrpAmmoinfo) end endendfunction onGameInit() EnableGameFlags(gfInfAttack, gfRandomOrder, gfPerHogAmmo) DisableGameFlags(gfResetWeps, gfSharedAmmo) HealthCaseProb = 100 Goals = loc("Highlander: Eliminate enemy hogs and take their weapons") .."|" .. loc("Constant Weaponry: Weapons are reset on end of turn")endfunction onGameStart() utilChoices[amSkip] = 0 local c = 0 for i = 1,maxWep do atkChoices[i] = 0 utilChoices[i] = 0 if i ~= 7 then wepArray[i] = 0 c = GetAmmoCount(someHog, i) if c > 8 then c = 9 end wepArray[i] = c if c < 9 and c > 0 then if atkWeps[i] then --WriteLnToConsole('a c: '..c..' w:'..i) atktot = atktot + probability[c] atkChoices[i] = atktot elseif utilWeps[i] then --WriteLnToConsole('u c: '..c..' w:'..i) utiltot = utiltot + probability[c] utilChoices[i] = utiltot end end end end --WriteLnToConsole('utiltot:'..utiltot..' atktot:'..atktot) runOnGears(StartingSetUp) runOnGears(ConvertValues)endfunction CheckForHogSwitch() if (CurrentHedgehog ~= nil) then currHog = CurrentHedgehog if currHog ~= lastHog then -- re-assign ammo to this guy, so that his entire ammo set will -- be visible during another player's turn if lastHog ~= nil then ConvertValues(lastHog) end -- give the new hog what he is supposed to have, too ConvertValues(CurrentHedgehog) end lastHog = currHog endendfunction onNewTurn() CheckForHogSwitch()end--function onGameTick20()--CheckForHogSwitch()-- if we use gfPerHogAmmo is this even needed? Err, well, weapons reset, so... yes?-- orrrr, should we rather call the re-assignment of weapons onNewTurn()? probably not because-- then you cant switch hogs... unless we add a thing in onSwitch or whatever-- ye, that is probably better actually, but I'll add that when/if I add switch--end--[[function onHogHide(gear) -- waiting for Henekendfunction onHogRestore(gear) -- waiting for Henekend]]function onGearAdd(gear) --if GetGearType(gear) == gtSwitcher then -- SaveWeapons(CurrentHedgehog) --end if (GetGearType(gear) == gtHedgehog) then trackGear(gear) if someHog == nil then someHog = gear end endendfunction onGearDelete(gear) if (GetGearType(gear) == gtHedgehog) then --or (GetGearType(gear) == gtResurrector) then TransferWeps(gear) trackDeletion(gear) endend