loadfile(GetDataPath() .. "Scripts/Locale.lua")()
loadfile(GetDataPath() .. "Scripts/Tracker.lua")()
---------------------------------------------------
---------------------------------------------------
---------------------------------------------------
--- Space Invasion Code Follows (1.1)
---------------------------------------------------
---------------------------------------------------
-- VERSION HISTORY
----------------
-- version 0.1
----------------
-- conversion of tumbler into space invasion
-- a million and one changes
-- bells and whistles
----------------
-- version 0.2
----------------
-- code slowly getting cleaner, it still looks like a spaghetti monster tho
-- lots of console tracking :/
-- all visual gears are now compulsary (will probably revert this)
-- implemented fMod to try combat desyncs and bring this in line with dev
----------------
-- version 0.3
----------------
-- values of scoring changed to 3:10, and now based on vCircScore
-- time gained from killing a red circ increased from 3 to 4
-- circles now spawn at a distance of at least 800 or until sanity limit
-- roundsLimit now based off MinesTime (kinda, its an experiment)
-----------------
--0.4
-----------------
-- commented out a lot of WriteLnToConsoles (dont need them at this point)
-- added some different WriteLnToConsoles
-- changed some of the collision detect for explosives in checkvarious()
-----------------
--0.5
-----------------
-- added implementation for a projectile shield
-- added a "bonus" orange invader that partially recharges player shield
-- added a tough "blueboss" blue invader
-- expanded user feedback
-- circles now have health and are capable of being merely "damaged"
-- redid a lot of the collision code and added CircleDamaged
-- added more sounds to events
-- added more visual gears
-----------------
--0.6
-----------------
-- removed a few WriteLns
-- added randomized grunts on circ damage
-- added (mostly) graceful fading out of circles :D:
-- changed odds for circles
-- changed user feedback
-- fixed the location of the explosion where player bashes into circ
-----------------
--0.7
-----------------
-- added PlaySound(sndSuddenDeath) when ammo gets depleted
-- added an extra "Ammo Depleted" note if user presses fire while empty
-- specified how much shield power is gained on shield powerup collection
-- changed odds for circles AGAIN, ammo is now sliiightly more common
-- switched most of the explosions/smoke effects back to non-critical vgears (with a few exceptions)
-- tumbletime is now based off turntime and is variable
-- delete explosives in DeleteFarFlungBarrel rather than explode them on map boundaries to save on performance
-- utilized the improved AddCaption to tint / prevent overrides
-- temporarily disabled bugged sort that displays teams according to their score
-- reluctantly changed the colour of the bonus circ to purple
-- standarized point notation
-- added some missing locs
-- commented out remaining WriteLnToConsoles for the meanwhile with the prefix "nw"
-- ACHIEIVEMENTS added
-- (during one turn) aka repeatable
-- Ammo Manic (Destroy 3 green circles for + 5 points)
-- Drone Hunter (Destroy 5 red circles for + 10 points)
-- Shield Seeker (Destroy 3 purple circles for +10 points)
-- Boss Slayer (Destroy 2 blue circles for +25 points)
-- Shield Master (disolve 5 shells for +10 points)
-- Shield Miser (don't use your shield at all (3.5*roundkills)+2 points)
-- Depleted Kamikaze! (kamikaze into a blue/red circ when you are out of ammo) 5pts
-- Timed Kamikaze! (kamikaze into a blue/red circ when you only have 5s left) 10pts
-- Kamikaze Expert (combination of the above two) 15pts
-- Multi-shot (destroy more than 1 invader with a single bullet) 15pts
-- X-Hit Combo (destroy another invader in less than 3 seconds) chainLength*2 points
-- Accuracy Bonus (80% accuracy at the end of your turn with more than 5 shots fired) 15pts
--(during the length of the game) aka non-repeatable
-- 10/25/50 kills (+25/+50/+100 points)
-----------------
--0.8
-----------------
-- added a HUD for turntimeleft, ammo, shield
-- shieldhealth hits 0 properly
------------------------
-- version 0.8.1
------------------------
-- stop hiding non-existant 4th Tag
-- redraw HUD on screen resolution change
------------------------
-- version 0.9
------------------------
-- time for more 'EXPERIMENTS' mwahahahahahaha D:
-- (hopefully) balanced Shield Miser
-- bosses are no longer a redunkulous 50 points, but toned down to 30
-- experimental radar (it's INTERACTIVE and math-heavy :D) (visual gears are safe... right? D:)
-- bugfix and balance for multishot
------------------------
-- version 1.0
------------------------
-- if only version numbers actually worked like this, wouldn't that be awful :D
-- added surfer achievement
-- increased value of shield miser by 1 point per kill (OP?)
------------------------
-- version 1.1
------------------------
-- fixed radar so that blips dont go past circs when you get very close
-- added a missing loc for shield depletion
-- increased delay to 1000 to try stop noobies missing their turn
-- added sniper achievement for hits from over a 1000000 away
-- added achievement for 3 "sniper" shots in a round
-- added achievement for 3 "point blank" shots in a round
-- added "fierce Competition" achievement for shooting an enemy hog (once per round)
-- some support for more weapons later
--------------------------
--notes for later
--------------------------
-- maybe add a check for a tie, IMPOSSIBRU THERE ARE NO TIES
-- more achievements? (3 kamikazes in a row, supreme shield expert/miser etc?)
-- if more weps are added, replace primshotsfired all over the place
-- look for derp and let invaders shoot again
-- more weps? flamer/machineballgun,
-- some kind of bomb that just drops straight down
-- "fire and forget" missile
-- shockwave
-- some kind of ability-meter that lets you do something awesome when you are
-- doing really well in a given round.
-- probably new kind of shield that pops any invaders who come near
-- fix game never ending bug
-- fix radar
-- new invader: golden snitch, doesn't show up on your radar
-- maybe replace (48/100*vCircRadius[i])/2 with something better
--[[CAPTION CATEGORIES
-----------------
capgrpGameState
-----------------
AddCaption(LOC_NOT("Sniper!") .. " +10 " .. LOC_NOT("points") .. "!",0xffba00ff,capgrpAmmostate)
--they call me bullsye
--point blank combo
--fierce Competition
-----------------
capgrpAmmostate
-----------------
AddCaption( chainLength .. LOC_NOT("-chain! +") .. chainLength*2 .. LOC_NOT(" points!"),0xffba00ff,capgrpAmmostate)
AddCaption(LOC_NOT("Multi-shot! +15 points!"),0xffba00ff,capgrpAmmostate)
-----------------
capgrpAmmoinfo
-----------------
AddCaption(LOC_NOT("Shield Miser! +20 points!"),0xffba00ff,capgrpAmmoinfo)
AddCaption(LOC_NOT("Shield Master! +10 points!"),0xffba00ff,capgrpAmmoinfo)
-----------------
capgrpVolume
-----------------
AddCaption(LOC_NOT("Boom! +25 points!"),0xffba00ff,capgrpVolume)
AddCaption(LOC_NOT("BOOM! +50 points!"),0xffba00ff,capgrpVolume)
AddCaption(LOC_NOT("BOOM! BOOM! BOOM! +100 points!"),0xffba00ff,capgrpVolume)
AddCaption(LOC_NOT("Accuracy Bonus! +15 points!"),0xffba00ff,capgrpVolume)
AddCaption(LOC_NOT("Surfer! +15 points!"),0xffba00ff,capgrpVolume)
-----------------
capgrpMessage
-----------------
AddCaption(LOC_NOT("Ammo Depleted!"),0xff0000ff,capgrpMessage)
AddCaption(LOC_NOT("Ammo: ") .. primShotsLeft)
AddCaption(LOC_NOT("Shield Depleted"),0xff0000ff,capgrpMessage)
AddCaption( LOC_NOT("Shield ON:") .. " " .. shieldHealth - 80 .. " " .. LOC_NOT("Power Remaining") )
AddCaption(LOC_NOT("Shield OFF:") .. " " .. shieldHealth - 80 .. " " .. LOC_NOT("Power Remaining") )
AddCaption(LOC_NOT("Time Extended!") .. "+" .. 4 .. LOC_NOT("s"), 0xff0000ff,capgrpMessage )
AddCaption("+" .. 3 .. " " .. LOC_NOT("Ammo"), 0x00ff00ff,capgrpMessage)
AddCaption(LOC_NOT("Shield boosted! +30 power"), 0xff00ffff,capgrpMessage)
AddCaption(LOC_NOT("Shield is fully recharged!"), 0xffae00ff,capgrpMessage)
AddCaption(LOC_NOT("Boss defeated! +50 points!"), 0x0050ffff,capgrpMessage)
AddCaption(LOC_NOT("GOTCHA!"))
AddCaption(LOC_NOT("Kamikaze Expert! +15 points!"),0xffba00ff,capgrpMessage)
AddCaption(LOC_NOT("Depleted Kamikaze! +5 points!"),0xffba00ff,capgrpMessage)
AddCaption(LOC_NOT("Timed Kamikaze! +10 points!"),0xffba00ff,capgrpMessage)
-----------------
capgrpMessage2
-----------------
AddCaption(LOC_NOT("Drone Hunter! +10 points!"),0xffba00ff,capgrpMessage2)
AddCaption(LOC_NOT("Ammo Maniac! +5 points!"),0xffba00ff,capgrpMessage2)
AddCaption(LOC_NOT("Shield Seeker! +10 points!"),0xffba00ff,capgrpMessage2)
AddCaption(LOC_NOT("Boss Slayer! +25 points!"),0xffba00ff,capgrpMessage2)
]]
----------------------------------
-- so I herd u liek wariables
----------------------------------
--local fMod = 1 -- for use in .15 single player only, otherwise desync
local fMod = 1000000 -- use this for dev and .16+ games
-- some console stuff
local shellID = 0
local explosivesID = 0
-- gaudyRacer
local boosterOn = false
local roundLimit = 3 -- no longer set here (see version history)
local roundNumber = 0
local firstClan = 10
local gameOver = false
local gameBegun = false
local bestClan = 10
local bestScore = 0
local sdScore = {}
local sdName = {}
local sdKills = {}
local roundN = 0
local lastRound
local RoundHasChanged = true
--------------------------
-- hog and team tracking variales
--------------------------
local numhhs = 0
local hhs = {}
local numTeams
local teamNameArr = {}
local teamClan = {}
local teamSize = {}
local teamIndex = {}
local teamComment = {}
local teamScore = {}
local teamCircsKilled = {}
local teamSurfer = {}
-- stats variables
--local teamRed = {}
--local teamBlue = {}
--local teamOrange = {}
--local teamGreen = {}
local roundKills = 0
local RK = 0
local GK = 0
local BK = 0
local OK = 0
local SK = 0
local shieldMiser = true
local fierceComp = false
local chainCounter = 0
local chainLength = 0
local shotsFired = 0
local shotsHit = 0
local SurfTime = 0
local sniperHits = 0
local pointBlankHits = 0
---------------------
-- tumbler goods
---------------------
local leftOn = false
local rightOn = false
local upOn = false
local downOn = false
----------------
-- TUMBLER
local wep = {}
local wepAmmo = {}
local wepCol = {}
local wepIndex = 0
local wepCount = 0
local fireTimer = 0
----------------
local primShotsMax = 5
local primShotsLeft = 0
local TimeLeft = 0
local stopMovement = false
local tumbleStarted = false
local beam = false
local pShield
local shieldHealth
local shockwave
local shockwaveHealth = 0
local shockwaveRad = 300
local vTag = {}
-----------------------------------------------
-- CIRCLY GOODIES
-----------------------------------------------
local CirclesAreGo = false
local playerIsFine = true
local targetHit = false
local FadeAlpha = 0 -- used to fade the circles out gracefully when player dies
local pTimer = 0 -- tracking projectiles following player
--local m2Count = 0 -- handle speed of circs
local vCirc = {}
local vCCount = 0
local rCirc = {}
local rCircX = {}
local rCircY = {}
local rAlpha = 255
local radShotsLeft = 0
local vCircActive = {}
local vCircHealth = {}
local vType = {}
local vCounter = {} -- how often this circ gets to "fire" etc
local vCounterLim = {} -- when vCounter == vCounterLim circle performs its special
local vCircScore = {} -- how many points killing this invader gives
local vCircRadMax = {}
local vCircRadMin = {}
local vCircRadDir = {}
local vCircRadCounter = {}
local vCircDX = {}
local vCircDY = {}
local vCircX = {}
local vCircY = {}
local vCircMinA = {}
local vCircMaxA = {}
local vCircType = {}
local vCircPulse = {}
local vCircFuckAll = {}
local vCircRadius = {}
local vCircWidth = {}
local vCircCol = {}
-------------------------------------------
-- some lazy copypasta/modified methods
-------------------------------------------
function HideTags()
for i = 0, 2 do
SetVisualGearValues(vTag[i],0,0,0,0,0,1,0, 0, 240000, 0xffffff00)
end
end
function DrawTag(i)
zoomL = 1.3
xOffset = 40
if i == 0 then
yOffset = 40
tCol = 0xffba00ff
tValue = TimeLeft
elseif i == 1 then
zoomL = 1.1
yOffset = 70
tCol = 0x00ff00ff
tValue = wepAmmo[wepIndex] --primShotsLeft
elseif i == 2 then
zoomL = 1.1
xOffset = 40 + 35
yOffset = 70
tCol = 0xa800ffff
tValue = shieldHealth - 80
end
DeleteVisualGear(vTag[i])
vTag[i] = AddVisualGear(0, 0, vgtHealthTag, 0, false)
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(vTag[i])
SetVisualGearValues (
vTag[i], --id
-(ScreenWidth/2) + xOffset, --xoffset
ScreenHeight - yOffset, --yoffset
0, --dx
0, --dy
zoomL, --zoom
1, --~= 0 means align to screen
g7, --frameticks
tValue, --value
240000, --timer
tCol --GetClanColor( GetHogClan(CurrentHedgehog) )
)
end
function RebuildTeamInfo()
-- make a list of individual team names
for i = 0, (TeamsCount-1) do
teamNameArr[i] = " " -- = i
teamSize[i] = 0
teamIndex[i] = 0
teamScore[i] = 0
teamCircsKilled[i] = 0
teamSurfer[i] = false
end
numTeams = 0
for i = 0, (numhhs-1) do
z = 0
unfinished = true
while(unfinished == true) do
newTeam = true
tempHogTeamName = GetHogTeamName(hhs[i]) -- this is the new name
if tempHogTeamName == teamNameArr[z] then
newTeam = false
unfinished = false
end
z = z + 1
if z == (TeamsCount-1) then
unfinished = false
if newTeam == true then
teamNameArr[numTeams] = tempHogTeamName
numTeams = numTeams + 1
end
end
end
end
-- find out how many hogs per team, and the index of the first hog in hhs
for i = 0, (TeamsCount-1) do
for z = 0, (numhhs-1) do
if GetHogTeamName(hhs[z]) == teamNameArr[i] then
teamClan[i] = GetHogClan(hhs[z])
if teamSize[i] == 0 then
teamIndex[i] = z -- should give starting index
end
teamSize[i] = teamSize[i] + 1
--add a pointer so this hog appears at i in hhs
end
end
end
end
-- control
function AwardPoints(p)
for i = 0,(TeamsCount-1) do
if teamClan[i] == GetHogClan(CurrentHedgehog) then
teamScore[i] = teamScore[i] + p
end
end
end
function AwardKills(t)
roundKills = roundKills + 1
for i = 0,(TeamsCount-1) do
if teamClan[i] == GetHogClan(CurrentHedgehog) then
teamCircsKilled[i] = teamCircsKilled[i] + 1
if teamCircsKilled[i] == 10 then
AddCaption(loc("Boom!") .. " +25 " .. loc("points").."!",0xffba00ff,capgrpVolume)
AwardPoints(25)
elseif teamCircsKilled[i] == 25 then
AddCaption(loc("BOOM!") .. " +50 " .. loc("points") .. "!",0xffba00ff,capgrpVolume)
AwardPoints(50)
elseif teamCircsKilled[i] == 50 then
AddCaption(loc("BOOM!") .. loc("BOOM!") .. loc("BOOM!") .. " +100 " .. loc("points") .. "!",0xffba00ff,capgrpVolume)
AwardPoints(100)
end
--[[
if t == "R" then
redCircsKilled[i] = redCircsKilled[i] + 1
end
--etc
--etc
]]
end
end
end
-----------------
function bubbleSort(table)
for i = 1, #table do
for j = 2, #table do
if table[j] < table[j-1] then
temp = table[j-1]
t2 = sdName[j-1]
t3 = sdKills[j-1]
table[j-1] = table[j]
sdName[j-1] = sdName[j]
sdKills[j-1] = sdKills[j]
table[j] = temp
sdName[j] = t2
sdKills[j] = t3
end
end
end
return
end
-----------------
function CommentOnScore()
for i = 0,(TeamsCount-1) do
sdScore[i] = teamScore[i]
sdKills[i] = teamCircsKilled[i]
sdName[i] = teamNameArr[i]
end
--bubbleSort(sdScore)
for i = 0,(TeamsCount-1) do
if sdName[i] ~= " " then
teamComment[i] = sdName[i] .. " |" ..
loc("SCORE") .. ": " .. sdScore[i] .. " " .. loc("points") .. "|" ..
loc("KILLS") .. ": " .. sdKills[i] .. " " .. loc("invaders destroyed") .. "|" ..
" " .. "|"
elseif sdName[i] == " " then
teamComment[i] = "|"
end
end
entireC = ""
for i = (TeamsCount-1),0,-1 do
entireC = entireC .. teamComment[i]
end
ShowMission("SPACE INVASION", loc("STATUS UPDATE"), loc("Rounds Complete") .. ": " .. roundNumber .. "/" .. roundLimit .. "| " .. "|" .. loc("Team Scores") .. ": |" ..entireC, 4, 1)
end
function onNewRound()
roundNumber = roundNumber + 1
CommentOnScore()
-- end game if its at round limit
if roundNumber == roundLimit then
for i = 0, (TeamsCount-1) do
if teamScore[i] > bestScore then
bestScore = teamScore[i]
bestClan = teamClan[i]
end
end
for i = 0, (numhhs-1) do
if GetHogClan(hhs[i]) ~= bestClan then
SetEffect(hhs[i], heResurrectable, false)
SetHealth(hhs[i],0)
end
end
gameOver = true
TurnTimeLeft = 0 --1
TimeLeft = 0
end
end
-- gaudy racer
function CheckForNewRound()
----------
-- new
----------
--[[if gameBegun == true then
if RoundHasChanged == true then
roundN = roundN + 1
RoundHasChanged = false
onNewRound()
end
if lastRound ~= TotalRounds then -- new round, but not really
if RoundHasChanged == false then
RoundHasChanged = true
end
end
--AddCaption("RoundN:" .. roundN .. "; " .. "TR: " .. TotalRounds)
lastRound = TotalRounds
end]]
----------
-- old
----------
if GetHogClan(CurrentHedgehog) == firstClan then
onNewRound()
end
end
----------------------------------------
-- some tumbler/space invaders methods
----------------------------------------
function isATrackedGear(gear)
if (GetGearType(gear) == gtExplosives) or
(GetGearType(gear) == gtShell) or
(GetGearType(gear) == gtFlame) or-- new -- gtBall
(GetGearType(gear) == gtBall)
then
return(true)
else
return(false)
end
end
function setNewGearValues(gear)
if GetGearType(gear) == gtShell then
lfs = 50 -- roughly 5 seconds
shellID = shellID + 1
setGearValue(gear,"ID",shellID)
--nw WriteLnToConsole("Just assigned ID " .. getGearValue(gear,"ID") .. " to this shell")
elseif GetGearType(gear) == gtBall then
lfs = 5 --70 -- 7s
elseif GetGearType(gear) == gtExplosives then
lfs = 15 -- 1.5s
explosivesID = explosivesID + 1
setGearValue(gear,"ID",explosivesID)
setGearValue(gear,"XP", GetX(gear))
setGearValue(gear,"YP", GetY(gear))
--nw WriteLnToConsole("Just assigned ID " .. getGearValue(gear,"ID") .. " to this explosives")
elseif GetGearType(gear) == gtFlame then
lfs = 5 -- 0.5s
else
lfs = 100
end
setGearValue(gear,"lifespan",lfs)
--WriteLnToConsole("I also set its lifespan to " .. lfs)
end
function HandleLifeSpan(gear)
decreaseGearValue(gear,"lifespan")
--WriteLnToConsole("Just decreased the lifespan of a gear to " .. getGearValue(gear,"lifespan"))
--WriteLnToConsole("The above event occured game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
if getGearValue(gear,"lifespan") == 0 then
if GetGearType(gear) == gtShell then
AddVisualGear(GetX(gear), GetY(gear), vgtExplosion, 0, false)
WriteLnToConsole("about to delete a shell due to lifespan == 0")
--elseif GetGearType(gear) == gtBall then
-- AddVisualGear(GetX(gear), GetY(gear), vgtSmoke, 0, true)
elseif GetGearType(gear) == gtExplosives then
AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false)
--nw WriteLnToConsole("about to delete a explosive due to lifespan == 0")
elseif GetGearType(gear) == gtFlame then
AddVisualGear(GetX(gear), GetY(gear), vgtSmoke, 0, false)
--WriteLnToConsole("about to delete flame due to lifespan == 0")
end
DeleteGear(gear)
end
end
-- this prevents ugly barrel clipping sounds when a barrel flies off map limits
function DeleteFarFlungBarrel(gear)
if GetGearType(gear) == gtExplosives then
if (GetX(gear) < -1900) or
(GetX(gear) > 6200) or
(GetY(gear) < -3400)
then
AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false)
DeleteGear(gear)
--SetHealth(gear, 0)
--WriteLnToConsole("I'm setting barrel ID " .. getGearValue(gear,"ID") .. " to 0 health because it's been flung too close to the map edges. at Game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
end
end
end
-----------------------
--EVENT HANDLERS
-- action keys
-----------------------
function HandleFlameThrower()
--
--flamer
fireTimer = fireTimer + 1
if fireTimer == 6 then -- 6
fireTimer = 0
if (wep[wepIndex] == loc("Flamer") ) and (preciseOn == true) and (wepAmmo[wepIndex] > 0) and (stopMovement == false) and (tumbleStarted == true) then
wepAmmo[wepIndex] = wepAmmo[wepIndex] - 1
AddCaption(
loc("Flamer") .. ": " ..
(wepAmmo[wepIndex]/800*100) - (wepAmmo[wepIndex]/800*100)%2 .. "%",
wepCol[2],
capgrpMessage2
)
DrawTag(3)
dx, dy = GetGearVelocity(CurrentHedgehog) --gtFlame -- gtSnowball -- gtAirBomb
shell = AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), gtFlame, 0, 0, 0, 0)
xdev = 1 + GetRandom(35) --25
xdev = xdev / 100
r = GetRandom(2)
if r == 1 then
xdev = xdev*-1
end
ydev = 1 + GetRandom(35) --25
ydev = ydev / 100
r = GetRandom(2)
if r == 1 then
ydev = ydev*-1
end
--4.5 or 2.5 nonflames --4.5
SetGearVelocity(shell, (dx*4.5)+(xdev*fMod), (dy*4.5)+(ydev*fMod)) --10
end
end
end
function ChangeWeapon()
wepIndex = wepIndex + 1
if wepIndex == wepCount then
wepIndex = 0
end
AddCaption(wep[wepIndex] .. " " .. loc("selected!"), wepCol[wepIndex],capgrpAmmoinfo )
AddCaption(wepAmmo[wepIndex] .. " " .. loc("shots remaining."), wepCol[wepIndex],capgrpMessage2)
end
--function onTimer()
-- experimental wep
--[[SetVisualGearValues(shockwave, GetX(CurrentHedgehog), GetY(CurrentHedgehog), 40, 255, 1, 10, 0, 300, 1, 0xff33ffff)
AddCaption("boom")
PlaySound(sndWarp)
shockwaveHealth = 100
shockwaveRad = 100]]
--change wep
--ChangeWeapon()
-- booster
--[[if boosterOn == false then
boosterOn = true
else
boosterOn = false
end]]
--end
-- o rite dis wan iz liek synched n stuff hope full lee
-- old method
--[[function onPrecise()
-- Fire Barrel
if (primShotsLeft > 0) and (CurrentHedgehog ~= nil) and (stopMovement == false) and (tumbleStarted == true) then
shotsFired = shotsFired +1
morte = AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), gtExplosives, 0, 0, 0, 1)
primShotsLeft = primShotsLeft - 1
if primShotsLeft == 0 then
PlaySound(sndSuddenDeath)
AddCaption(loc("Ammo Depleted!"),0xff0000ff,capgrpMessage)
else
AddCaption(loc("Ammo") .. ": " .. primShotsLeft)
end
DrawTag(1)
CopyPV(CurrentHedgehog, morte) -- new addition
x,y = GetGearVelocity(morte)
x = x*2
y = y*2
SetGearVelocity(morte, x, y)
elseif (primShotsLeft == 0) and (CurrentHedgehog ~= nil) and (stopMovement == false) and (tumbleStarted == true) then
AddCaption(loc("Ammo Depleted!"),0xff0000ff,capgrpMessage)
end
end]]
-- derp tumbler
function onPrecise()
if (CurrentHedgehog ~= nil) and (stopMovement == false) and (tumbleStarted == true) and (wepAmmo[wepIndex] > 0) then
wepAmmo[wepIndex] = wepAmmo[wepIndex] - 1
--AddCaption(wepAmmo[wepIndex] .. " " .. loc("shots remaining."), wepCol[wepIndex],capgrpMessage2)
if wep[wepIndex] == loc("Barrel Launcher") then
shotsFired = shotsFired +1
morte = AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), gtExplosives, 0, 0, 0, 1)
CopyPV(CurrentHedgehog, morte) -- new addition
x,y = GetGearVelocity(morte)
x = x*2
y = y*2
SetGearVelocity(morte, x, y)
if wepAmmo[wepIndex] == 0 then
PlaySound(sndSuddenDeath)
AddCaption(loc("Ammo Depleted!"),0xff0000ff,capgrpMessage)
else
--AddCaption(loc("Ammo") .. ": " .. wepAmmo[wepIndex])
end
DrawTag(1)
elseif wep[wepIndex] == loc("Mine Deployer") then
morte = AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), gtAirBomb, 0, 0, 0, 0)
SetTimer(morte, 1000)
DrawTag(1)
end
elseif (wepAmmo[wepIndex] == 0) and (CurrentHedgehog ~= nil) and (stopMovement == false) and (tumbleStarted == true) then
AddCaption(loc("Ammo Depleted!"),0xff0000ff,capgrpMessage)
end
preciseOn = true
end
function onPreciseUp()
preciseOn = false
end
function onLJump()
if (CurrentHedgehog ~= nil) and (stopMovement == false) and (tumbleStarted == true) then
shieldMiser = false
if shieldHealth == 80 then
AddCaption(loc("Shield Depleted"),0xff0000ff,capgrpMessage)
PlaySound(sndMineTick)
PlaySound(sndSwitchHog)
elseif (beam == false) and (shieldHealth > 80) then
beam = true
SetVisualGearValues(pShield, GetX(CurrentHedgehog), GetY(CurrentHedgehog), 40, 255, 1, 10, 0, 300, 1, 0xa800ffff)
AddCaption( loc("Shield ON:") .. " " .. shieldHealth - 80 .. " " .. loc("Power Remaining") )
PlaySound(sndWarp)
else
beam = false
SetVisualGearValues(pShield, GetX(CurrentHedgehog), GetY(CurrentHedgehog), 0, 0, 1, 10, 0, 0, 0, 0xa800ffff)
AddCaption(loc("Shield OFF:") .. " " .. shieldHealth - 80 .. " " .. loc("Power Remaining") )
end
end
end
function onHJump()
if (CurrentHedgehog ~= nil) and (stopMovement == false) and (tumbleStarted == true) and
(rAlpha == 255) and (radShotsLeft > 0) then
rPingTimer = 0
rAlpha = 0
radShotsLeft = radShotsLeft -1
AddCaption(loc("Pings left:") .. " " .. radShotsLeft,GetClanColor(GetHogClan(CurrentHedgehog)),capgrpMessage)
end
end
-----------------
-- movement keys
-----------------
function onLeft()
leftOn = true
end
function onRight()
rightOn = true
end
function onUp()
upOn = true
end
function onDown()
downOn = true
end
function onDownUp()
downOn = false
end
function onUpUp()
upOn = false
end
function onLeftUp()
leftOn = false
end
function onRightUp()
rightOn = false
end
--------------------------
-- other event handlers
--------------------------
function onGameInit()
GameFlags = 0 + gfRandomOrder
Theme = "EarthRise"
CaseFreq = 0
HealthCaseProb = 0
MinesNum = 0
Explosives = 0
Delay = 1000
for i = 0, 3 do
vTag[0] = AddVisualGear(0, 0, vgtHealthTag, 0, false)
end
HideTags()
wep[0] = loc("Barrel Launcher")
wep[1] = loc("Mine Deployer")
wep[2] = loc("Flamer")
wepCol[0] = 0x78818eff
wepCol[1] = 0xa12a77ff
wepCol[2] = 0xf49318ff
wepCount = 3
end
function onGameStart()
if (MinesTime == -1000) or (MinesTime == 0) then
roundLimit = 3
else
roundLimit = (MinesTime / 1000)
end
ShowMission (
"SPACE INVASION",
loc("a Hedgewars mini-game"),
loc("Destroy invaders to score points.") .. "|" ..
" " .. "|" ..
loc("Round Limit") .. ": " .. roundLimit .. "|" ..
loc("Turn Time") .. ": " .. (TurnTime/1000) .. loc("sec") .. "|" ..
" " .. "|" ..
loc("Movement: [Up], [Down], [Left], [Right]") .. "|" ..
loc("Fire") .. ": " .. loc("[Left Shift]") .. "|" ..
loc("Toggle Shield") .. ": " .. loc("[Enter]") .. "|" ..
loc("Radar Ping") .. ": " .. loc("[Backspace]") .. "|" ..
--" " .. "|" ..
--LOC_NOT("Invaders List: ") .. "|" ..
--LOC_NOT("Blue Jabberwock: (50 points)") .. "|" ..
--LOC_NOT("Red Warbler: (10 points)") .. "|" ..
--LOC_NOT("Orange Gob: (5 points)") .. "|" ..
--LOC_NOT("Green Wrangler: (3 points)") .. "|" ..
"", 4, 4000
)
CreateMeSomeCircles()
RebuildTeamInfo() -- control
lastRound = TotalRounds
end
function onScreenResize()
-- redraw Tags so that their screen locations are updated
if (CurrentHedgehog ~= nil) and (tumbleStarted == true) then
DrawTag(0)
DrawTag(1)
DrawTag(2)
end
end
function onNewTurn()
--primShotsLeft = primShotsMax
radShotsLeft = 2
stopMovement = false
tumbleStarted = false
boosterOn = false
beam = false
shieldHealth = 30 + 80 -- 50 = 5 secs, roughly
shockwaveHealth = 0
RK = 0
GK = 0
BK = 0
OK = 0
SK = 0
roundKills = 0
shieldMiser = true
fierceComp = false
shotsFired = 0
shotsHit = 0
sniperHits = 0
pointBlankHits = 0
chainLength = 0
chainCounter = 0
SurfTime = 12
-------------------------
-- gaudy racer
-------------------------
CheckForNewRound()
-- Handle Starting Stage of Game
if (gameOver == false) and (gameBegun == false) then
gameBegun = true
roundNumber = 0 -- 0
firstClan = GetHogClan(CurrentHedgehog)
end
if gameOver == true then
gameBegun = false
stopMovement = true
tumbleStarted = false
SetMyCircles(false)
end
-------
-- tumbler
----
wepAmmo[0] = 5
wepAmmo[1] = 2
wepAmmo[2] = 5000
wepIndex = 2
ChangeWeapon()
HideTags()
---------------
---------------
--AddCaption("num g: " .. numGears() )
--WriteLnToConsole("onNewTurn, I just set a bunch of variables to their necessary states. This was done at:")
--WriteLnToConsole("The above occured at Game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
end
function ThingsToBeRunOnGears(gear)
HandleLifeSpan(gear)
DeleteFarFlungBarrel(gear)
if CirclesAreGo == true then
CheckVarious(gear)
ProjectileTrack(gear)
end
end
function onGameTick20()
--WriteLnToConsole("Start of GameTick")
HandleCircles()
-- derp
--if shockwaveHealth > 0 then
-- shockwaveHealth = shockwaveHealth - 1
-- shockwaveRad = shockwaveRad + 5
--end
if GameTime%100 == 0 then
if beam == true then
shieldHealth = shieldHealth - 1
if shieldHealth < 80 then -- <= 80
shieldHealth = 80
beam = false
AddCaption(loc("Shield Depleted"),0xff0000ff,capgrpMessage)
PlaySound(sndMineTick)
PlaySound(sndSwitchHog)
end
end
--nw WriteLnToConsole("Starting ThingsToBeRunOnGears()")
runOnGears(ThingsToBeRunOnGears)
--nw WriteLnToConsole("Finished ThingsToBeRunOnGears()")
--runOnGears(HandleLifeSpan)
--runOnGears(DeleteFarFlungBarrel)
if CirclesAreGo == true and CurrentHedgehog ~= nil then
CheckDistances()
--runOnGears(CheckVarious) -- used to be in handletracking for some bizarre reason
--runOnGears(ProjectileTrack)
end
-- white smoke trail as player falls from the sky
if (TimeLeft <= 0) and (stopMovement == true) and (CurrentHedgehog ~= nil) then
j,k = GetGearVelocity(CurrentHedgehog)
if (j ~= 0) and (k ~= 0) then
AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), vgtSmoke, 0, true)
end
end
--nw WriteLnToConsole("Finished 100Timer")
end
-- start the player tumbling with a boom once their turn has actually begun
if (tumbleStarted == false) and (gameOver == false) then
if (TurnTimeLeft > 0) and (TurnTimeLeft ~= TurnTime) then
--AddCaption(LOC_NOT("Good to go!"))
tumbleStarted = true
TimeLeft = div(TurnTime, 1000) --45
FadeAlpha = 0
rAlpha = 255
AddGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), gtGrenade, 0, 0, 0, 1)
DrawTag(0)
DrawTag(1)
DrawTag(2)
SetMyCircles(true)
end
end
--WriteLnToConsole("Finished initial check")
if (CurrentHedgehog ~= nil) and (tumbleStarted == true) then
--AddCaption(GetX(CurrentHedgehog) .. ";" .. GetY(CurrentHedgehog) )
-- Calculate and display turn time
if GameTime%1000 == 0 then
TimeLeft = TimeLeft - 1
if TimeLeft >= 0 then
--AddCaption(LOC_NOT("Time Left: ") .. TimeLeft)
DrawTag(0)
end
end
--WriteLnToConsole("Finished timeleft calculations")
-------------------------------
-- Player has run out of luck (out of time or hit by gtShell)
-------------------------------
-- checks in FloatyThings
if PlayerIsFine() == false then
TimeLeft = 0
end
--WriteLnToConsole("successfully checked playerIsFine")
if (TimeLeft == 0) then
if (stopMovement == false) then --time to stop the player
stopMovement = true
boosterOn = false
beam = false
upOn = false
down = false
leftOn = false
rightOn = false
SetMyCircles(false)
HideTags()
rAlpha = 255
--nw WriteLnToConsole("Player is out of luck")
if shieldMiser == true then
p = (roundKills*3.5) - ((roundKills*3.5)%1) + 2
AddCaption(loc("Shield Miser!") .." +" .. p .." ".. loc("points") .. "!",0xffba00ff,capgrpAmmoinfo)
AwardPoints(p)
end
if ((shotsHit / shotsFired * 100) >= 80) and (shotsFired > 4) then
AddCaption(loc("Accuracy Bonus!") .. " +15 " .. loc("points") .. "!",0xffba00ff,capgrpVolume)
AwardPoints(15)
end
end
else -- remove this if you want tumbler to fall slowly on death
-------------------------------
-- Player is still in luck
-------------------------------
--WriteLnToConsole("about to do chainCounter checks")
if chainCounter > 0 then
chainCounter = chainCounter -1
if chainCounter == 0 then
chainLength = 0
end
end
-- handle movement based on IO
if GameTime%100 == 0 then -- 100
--nw WriteLnToConsole("Start of Player MoveTimer")
---------------
-- new trail code
---------------
-- the trail lets you know you have 5s left to pilot, akin to birdy feathers
if (TimeLeft <= 5) and (TimeLeft > 0) then --vgtSmoke
tempE = AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), vgtSmoke, 0, true)
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, g8, g9, GetClanColor(GetHogClan(CurrentHedgehog)) )
end
--------------
--------------
------------------------
-- surfer achievement
------------------------
if (WaterLine - GetY(CurrentHedgehog)) < 15 then
SurfTime = SurfTime -1
end
if SurfTime ~= 12 then
SurfTime = SurfTime - 1
if SurfTime <= 0 then
for i = 0,(TeamsCount-1) do
if teamClan[i] == GetHogClan(CurrentHedgehog) and (teamSurfer[i] == false) then
teamSurfer[i] = true
SurfTime = 12
AddCaption(loc("Surfer! +15 points!"),0xffba00ff,capgrpVolume)
AwardPoints(15)
end
end
end
end
dx, dy = GetGearVelocity(CurrentHedgehog)
--WriteLnToConsole("I just got the velocity of currenthedgehog. It is dx: " .. dx .. "; dy: " .. dy)
--WriteLnToConsole("The above event occured game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
if boosterOn == true then
tempE = AddVisualGear(GetX(CurrentHedgehog), GetY(CurrentHedgehog), vgtDust, 0, false)
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, 1, g9, GetClanColor(GetHogClan(CurrentHedgehog)) )
dxlimit = 0.8*fMod
dylimit = 0.8*fMod
else
dxlimit = 0.4*fMod
dylimit = 0.4*fMod
end
if dx > dxlimit then
dx = dxlimit
end
if dy > dylimit then
dy = dylimit
end
if dx < -dxlimit then
dx = -dxlimit
end
if dy < -dylimit then
dy = -dylimit
end
if leftOn == true then
dx = dx - 0.1*fMod
end
if rightOn == true then
dx = dx + 0.1*fMod
end
if upOn == true then
dy = dy - 0.1*fMod
end
if downOn == true then
dy = dy + 0.1*fMod
end
SetGearVelocity(CurrentHedgehog, dx, dy)
--WriteLnToConsole("I just SET the velocity of currenthedgehog. It is now dx: " .. dx .. "; dy: " .. dy)
--WriteLnToConsole("The above event occured game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
--nw WriteLnToConsole("End of Player MoveTimer")
end
HandleFlameThrower()
end -- new end I put here to check if he's still alive or not
end
--WriteLnToConsole("End of GameTick")
end
function onGearDamage(gear, damage)
if GetGearType(gear) == gtHedgehog then
if (fierceComp == false) and (damage >= 60) and (GetHogClan(gear) ~= GetHogClan(CurrentHedgehog)) then
fierceComp = true
AddCaption(loc("Fierce Competition!") .. " +8 " .. loc("points") .. "!",0xffba00ff,capgrpGameState)
AwardPoints(8)
end
end
end
function onGearResurrect(gear)
-- did I fall into the water? well, that was a stupid thing to do
if gear == CurrentHedgehog then
TimeLeft = 0
--WriteLnToConsole("Current hedgehog just drowned himself")
--WriteLnToConsole("The above event occured game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
end
end
function onGearAdd(gear)
if isATrackedGear(gear) then
trackGear(gear)
setNewGearValues(gear)
end
--if GetGearType(gear) == gtBall then
-- SetTimer(gear, 5000)
--end
if GetGearType(gear) == gtHedgehog then
SetEffect(gear, heResurrectable, true)
-----------
-- control
hhs[numhhs] = gear
numhhs = numhhs + 1
-----------
end
end
function onGearDelete(gear)
--[[if GetGearType(gear) == gtShell then
--nw WriteLnToConsole("on GearDelete call. Shell ID: " .. getGearValue(gear,"ID"))
--WriteLnToConsole("The above event occured game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
--if CurrentHedgehog ~= nil then
-- WriteLnToConsole("As it happens, player is at: " .. GetX(CurrentHedgehog) .. "; " .. GetY(CurrentHedgehog))
--end
elseif GetGearType(gear) == gtExplosives then
--nw WriteLnToConsole("on GearDelete call. Explosives ID: " .. getGearValue(gear,"ID"))
--WriteLnToConsole("The above event occured game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
--if CurrentHedgehog ~= nil then
-- WriteLnToConsole("As it happens, player is at: " .. GetX(CurrentHedgehog) .. "; " .. GetY(CurrentHedgehog))
--end
elseif GetGearType(gear) == gtFlame then
--WriteLnToConsole("on GearDelete flame")
end]]
if isATrackedGear(gear) then
trackDeletion(gear)
end
if CurrentHedgehog ~= nil then
FollowGear(CurrentHedgehog)
end
end
------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------
-- FLOATY THINGS
-- "I'll make this into a generic library and code properly
-- when I have more time and feel less lazy"
------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------
------------------------------------------------------------
function DoHorribleThings(cUID)
-- work out the distance to the target
g1X, g1Y = GetGearPosition(CurrentHedgehog)
g2X, g2Y = vCircX[cUID], vCircY[cUID]
q = g1X - g2X
w = g1Y - g2Y
r = math.sqrt( (q*q) + (w*w) ) --alternate
opp = w
if opp < 0 then
opp = opp*-1
end
-- work out the angle (theta) to the target
t = math.deg ( math.asin(opp / r) )
-- based on the radius of the radar, calculate what x/y displacement should be
NR = 150 -- radius at which to draw circs
NX = math.cos( math.rad(t) ) * NR
NY = math.sin( math.rad(t) ) * NR
-- displace xy based on where this thing actually is
if r < NR then
rCircX[cUID] = g2X
elseif q > 0 then
rCircX[cUID] = g1X - NX
else
rCircX[cUID] = g1X + NX
end
if r < NR then
rCircY[cUID] = g2Y
elseif w > 0 then
rCircY[cUID] = g1Y - NY
else
rCircY[cUID] = g1Y + NY
end
end
function PlayerIsFine()
return (playerIsFine)
end
function GetDistFromXYtoXY(a, b, c, d)
q = a - c
w = b - d
return ( (q*q) + (w*w) )
end
function GetDistFromGearToGear(gear, gear2)
g1X, g1Y = GetGearPosition(gear)
g2X, g2Y = GetGearPosition(gear2)
q = g1X - g2X
w = g1Y - g2Y
--[[
WriteLnToConsole("I just got the position of two gears and calculated the distance betwen them")
if gear == CurrentHedgehog then
WriteLnToConsole("Gear 1 is CurrentHedgehog.")
end
if gear2 == CurrentHedgehog then
WriteLnToConsole("Gear 2 is CurrentHedgehog.")
end
WriteLnToConsole("G1X: " .. g1X .. "; G1Y: " .. g1Y)
WriteLnToConsole("G2X: " .. g2X .. "; G2Y: " .. g2Y)
WriteLnToConsole("Their distance is " .. (q*q) + (w*w) )
WriteLnToConsole("The above events occured game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
]]
return ( (q*q) + (w*w) )
end
function GetDistFromGearToXY(gear, g2X, g2Y)
g1X, g1Y = GetGearPosition(gear)
q = g1X - g2X
w = g1Y - g2Y
--[[WriteLnToConsole("I just got the position of a gear and calculated the distance betwen it and another xy")
if gear == CurrentHedgehog then
WriteLnToConsole("Gear 1 is CurrentHedgehog.")
end
WriteLnToConsole("G1X: " .. g1X .. "; G1Y: " .. g1Y)
WriteLnToConsole("Other X: " .. g2X .. "; Other Y: " .. g2Y)
WriteLnToConsole("Their distance is " .. (q*q) + (w*w) )
WriteLnToConsole("The above events occured game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
]]
return ( (q*q) + (w*w) )
end
function CreateMeSomeCircles()
for i = 0, 7 do
vCCount = vCCount +1
vCirc[i] = AddVisualGear(0,0,vgtCircle,0,true)
rCirc[i] = AddVisualGear(0,0,vgtCircle,0,true)
rCircX[i] = 0
rCircY[i] = 0
vCircDX[i] = 0
vCircDY[i] = 0
vType[i] = "generic"
vCounter[i] = 0
vCounterLim[i] = 3000
vCircScore[i] = 0
vCircHealth[i] = 1
vCircMinA[i] = 80 --80 --20
vCircMaxA[i] = 255
vCircType[i] = 1 --1
vCircPulse[i] = 10
vCircFuckAll[i] = 0
vCircRadius[i] = 0
vCircWidth[i] = 3 --5
vCircRadMax[i] = 0
vCircRadMin[i] = 0
vCircRadDir[i] = -1
vCircRadCounter[i] = 0
vCircX[i], vCircY[i] = 0,0
vCircCol[i] = 0xff00ffff
SetVisualGearValues(vCirc[i], vCircX[i], vCircY[i], vCircMinA[i], vCircMaxA[i], vCircType[i], vCircPulse[i], vCircFuckAll[i], vCircRadius[i], vCircWidth[i], vCircCol[i])
SetVisualGearValues(rCirc[i], 0, 0, 100, 255, 1, 10, 0, 40, 3, vCircCol[i])
end
pShield = AddVisualGear(0,0,vgtCircle,0,true)
--SetVisualGearValues(pShield, GetX(CurrentHedgehog), GetY(CurrentHedgehog), 80, 200, 1, 10, 0, 200, 5, 0xff00ffff)
shockwave = AddVisualGear(0,0,vgtCircle,0,true)
end
function IGotMeASafeXYValue(i)
acceptibleDistance = 800
-- put this in here to thwart attempts at repositioning and test sanity limit
--vCircX[i] = GetX(CurrentHedgehog)+250
--vCircY[i] = GetY(CurrentHedgehog)+250
vCircX[i] = GetRandom(5000)
vCircY[i] = GetRandom(2000)
dist = GetDistFromGearToXY(CurrentHedgehog, vCircX[i], vCircY[i])
if dist > acceptibleDistance*acceptibleDistance then
return(true)
else
return(false)
end
end
function CircleDamaged(i)
res = ""
vCircHealth[i] = vCircHealth[i] -1
if vCircHealth[i] <= 0 then
-- circle is dead, do death effects/consequences
vCircActive[i] = false
if (vType[i] == "drone") then
PlaySound(sndHellishImpact4)
TimeLeft = TimeLeft + 4
AddCaption(loc("Time Extended!") .. "+" .. 4 .. loc("sec"), 0xff0000ff,capgrpMessage )
DrawTag(0)
morte = AddGear(vCircX[i], vCircY[i], gtExplosives, 0, 0, 0, 1)
SetHealth(morte, 0)
RK = RK + 1
if RK == 5 then
RK = 0
AddCaption(loc("Drone Hunter!") .. " +10 " .. loc("points") .. "!",0xffba00ff,capgrpMessage2)
AwardPoints(10)
end
elseif (vType[i] == "ammo") then
AddVisualGear(vCircX[i], vCircY[i], vgtExplosion, 0, false)
PlaySound(sndExplosion)
PlaySound(sndShotgunReload)
wepAmmo[0] = wepAmmo[0] +3
--primShotsLeft = primShotsLeft + 3
AddCaption("+" .. 3 .. " " .. loc("Ammo"), 0x00ff00ff,capgrpMessage)
DrawTag(1)
GK = GK + 1
if GK == 3 then
GK = 0
AddCaption(loc("Ammo Maniac!") .. " +5 " .. loc("points") .. "!",0xffba00ff,capgrpMessage2)
AwardPoints(5)
end
elseif (vType[i] == "bonus") then
AddVisualGear(vCircX[i], vCircY[i], vgtExplosion, 0, false)
PlaySound(sndExplosion)
AddVisualGear(vCircX[i], vCircY[i], vgtFire, 0, false)
AddVisualGear(vCircX[i], vCircY[i], vgtFire, 0, false)
AddVisualGear(vCircX[i], vCircY[i], vgtFire, 0, false)
AddVisualGear(vCircX[i], vCircY[i], vgtFire, 0, false)
AddVisualGear(vCircX[i], vCircY[i], vgtFire, 0, false)
AddVisualGear(vCircX[i], vCircY[i], vgtSmoke, 0, false)
PlaySound(sndVaporize)
--sndWarp sndMineTick --sndSwitchHog --sndSuddenDeath
shieldHealth = shieldHealth + 30
AddCaption(loc("Shield boosted! +30 power"), 0xa800ffff,capgrpMessage)
if shieldHealth >= 250 then
shieldHealth = 250
AddCaption(loc("Shield is fully recharged!"),0xa800ffff,capgrpMessage)
end
DrawTag(2)
OK = OK + 1
if OK == 3 then
OK = 0
AddCaption(loc("Shield Seeker!") .. " + 10 " .. loc("points") .. "!",0xffba00ff,capgrpMessage2)
AwardPoints(10)
end
elseif (vType[i] == "blueboss") then
PlaySound(sndHellishImpact3)
AddCaption(loc("Boss defeated!") .. " +30 " .. loc("points") .. "!", 0x0050ffff,capgrpMessage)
morte = AddGear(vCircX[i], vCircY[i], gtExplosives, 0, 0, 0, 1)
SetHealth(morte, 0)
BK = BK + 1
if BK == 2 then
BK = 0
AddCaption(loc("Boss Slayer!") .. " +25 " .. loc("points") .. "!",0xffba00ff,capgrpMessage2)
AwardPoints(25)
end
end
AwardPoints(vCircScore[i])
AwardKills()
SetUpCircle(i)
res = "fatal"
chainCounter = 3000
chainLength = chainLength + 1
if chainLength > 1 then
AddCaption( chainLength .. "-" .. loc("Hit Combo!") .. " +" .. chainLength*2 .. " " .. loc("points") .. "!",0xffba00ff,capgrpAmmostate)
AwardPoints(chainLength*2)
end
else
-- circle is merely damaged
-- do damage effects/sounds
AddVisualGear(vCircX[i], vCircY[i], vgtSteam, 0, false)
r = GetRandom(4)
if r == 0 then
PlaySound(sndHellishImpact1)
elseif r == 1 then
PlaySound(sndHellishImpact2)
elseif r == 2 then
PlaySound(sndHellishImpact3)
elseif r == 3 then
PlaySound(sndHellishImpact4)
end
res = "non-fatal"
end
return(res)
end
function SetUpCircle(i)
r = GetRandom(10)
--r = 8
-- 80% of spawning either red/green
if r <= 7 then
--r = GetRandom(5)
r = GetRandom(2)
--r = 1
if r == 0 then
--if r <= 2 then
vCircCol[i] = 0xff0000ff -- red
vType[i] = "drone"
vCircRadMin[i] = 50 *5
vCircRadMax[i] = 90 *5
vCounterLim[i] = 3000
vCircScore[i] = 10
vCircHealth[i] = 1
--else
elseif r == 1 then
vCircCol[i] = 0x00ff00ff -- green
vType[i] = "ammo"
vCircRadMin[i] = 25 *7
vCircRadMax[i] = 30 *7
vCircScore[i] = 3
vCircHealth[i] = 1
end
-- 20% chance of spawning boss or bonus
else
r = GetRandom(5)
--r = GetRandom(2)
--r = 0
if r <= 1 then
--if r == 0 then
vCircCol[i] = 0x0050ffff -- sexy blue
vType[i] = "blueboss"
vCircRadMin[i] = 100*5
vCircRadMax[i] = 180*5
vCircWidth[i] = 1
vCounterLim[i] = 2000
vCircScore[i] = 30
vCircHealth[i] = 3
else
--elseif r == 1 then
--vCircCol[i] = 0xffae00ff -- orange
vCircCol[i] = 0xa800ffff -- purp
vType[i] = "bonus"
vCircRadMin[i] = 20 *7
vCircRadMax[i] = 40 *7
vCircScore[i] = 5
vCircHealth[i] = 1
end
end
-- regenerate circle xy if too close to player or until sanity limit kicks in
reN = 0
--zzz = 0
while (reN < 10) do
if IGotMeASafeXYValue(i) == false then
reN = reN + 1
--zzz = zzz + 1
else
reN = 15
end
end
--AddCaption("Took me this many retries: " .. zzz) -- number of times it took to work
vCircRadius[i] = vCircRadMax[i] - GetRandom(vCircRadMin[i])
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(vCirc[i])
SetVisualGearValues(vCirc[i], vCircX[i], vCircY[i], g3, g4, g5, g6, g7, vCircRadius[i], vCircWidth[i], vCircCol[i]-0x000000ff)
-- - -0x000000ff
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(rCirc[i])
SetVisualGearValues(rCirc[i], 0, 0, g3, g4, g5, g6, g7, g8, g9, vCircCol[i]-0x000000ff)
vCircActive[i] = true -- new
--nw WriteLnToConsole("CIRC " .. i .. ": X: " .. vCircX[i] .. "; Y: " .. vCircY[i])
--nw WriteLnToConsole("CIRC " .. i .. ": dX: " .. vCircDX[i] .. "; dY: " .. vCircDY[i])
--nw WriteLnToConsole("CIRC " .. i .. ": RAD:" .. vCircRadius[i])
end
function SetMyCircles(s)
CirclesAreGo = s
playerIsFine = s
if s == true then
--nw WriteLnToConsole("About to set up all circles, old values are here:")
for i = 0,(vCCount-1) do
--nw WriteLnToConsole("CIRC " .. i .. ": X: " .. vCircX[i] .. "; Y: " .. vCircY[i])
--nw WriteLnToConsole("CIRC " .. i .. ": dX: " .. vCircDX[i] .. "; dY: " .. vCircDY[i])
--nw WriteLnToConsole("CIRC " .. i .. ": RAD:" .. vCircRadius[i])
end
--nw WriteLnToConsole("Old values given, new values to follow...")
end
for i = 0,(vCCount-1) do
if s == false then
--vCircCol[i] = 0xffffffff
vCircActive[i] = false
elseif s == true then
SetUpCircle(i)
end
end
end
function WellHeAintGonnaJumpNoMore(x,y)
AddVisualGear(x, y, vgtBigExplosion, 0, false)
playerIsFine = false
AddCaption(loc("GOTCHA!"))
PlaySound(sndExplosion)
PlaySound(sndHellish)
targetHit = true
end
--- collision detection for weapons fire
function CheckVarious(gear)
--if (GetGearType(gear) == gtExplosives) then
--nw WriteLnToConsole("Start of CheckVarious(): Exp ID: " .. getGearValue(gear,"ID"))
--elseif (GetGearType(gear) == gtShell) then
--nw WriteLnToConsole("Start of CheckVarious(): Shell ID: " .. getGearValue(gear,"ID"))
--end
targetHit = false
-- if circle is hit by player fire
if (GetGearType(gear) == gtExplosives) then
circsHit = 0
for i = 0,(vCCount-1) do
--nw WriteLnToConsole("Is it neccessary to check for collision with circ " .. i)
--if (vCircActive[i] == true) and ( (vType[i] == "drone") ) then
--nw WriteLnToConsole("YES. about to calc distance between gtExplosives and circ " .. i)
dist = GetDistFromGearToXY(gear, vCircX[i], vCircY[i])
-- calculate my real radius if I am an aura
if vCircType[i] == 0 then
NR = vCircRadius[i]
else
NR = (48/100*vCircRadius[i])/2
end
if dist <= NR*NR then
--nw WriteLnToConsole("Collision confirmed. The gtExplosives is within the circ radius!")
dist = (GetDistFromXYtoXY(vCircX[i], vCircY[i], getGearValue(gear,"XP"), getGearValue(gear,"YP")) - (NR*NR))
--AddCaption(loc("Dist: ") .. dist .. "!",0xffba00ff,capgrpGameState)
if dist >= 1000000 then
sniperHits = sniperHits +1
AddCaption(loc("Sniper!") .. " +8 " .. loc("points") .. "!",0xffba00ff,capgrpGameState)
AwardPoints(8)
if sniperHits == 3 then
sniperHits = 0
AddCaption(loc("They Call Me Bullseye!") .. " +16 " .. loc("points") .. "!",0xffba00ff,capgrpGameState)
AwardPoints(15)
end
elseif dist <= 6000 then
pointBlankHits = pointBlankHits +1
if pointBlankHits == 3 then
pointBlankHits = 0
AddCaption(loc("Point Blank Combo!") .. " +5 " .. loc("points") .. "!",0xffba00ff,capgrpGameState)
AwardPoints(5)
end
end
AddVisualGear(GetX(gear), GetY(gear), vgtBigExplosion, 0, false)
targetHit = true
--DeleteGear(gear)
--SetHealth(gear,0)
--WriteLnToConsole("set " .. "Exp ID: " .. getGearValue(gear,"ID") .. " health to 0")
--WriteLnToConsole("targetHit set to true, explosive is at distance " .. dist .. "(within range " .. NR*NR.. ") of circ" )
CircleDamaged(i)
circsHit = circsHit + 1
if circsHit > 1 then
AddCaption(loc("Multi-shot!") .. " +15 " .. loc("points") .. "!",0xffba00ff,capgrpAmmostate)
AwardPoints(15)
circsHit = 0
end
shotsHit = shotsHit + 1
end
--end
end
-- if player is hit by circle bazooka
elseif (GetGearType(gear) == gtShell) then --or (GetGearType(gear) == gtBall) then
dist = GetDistFromGearToGear(gear, CurrentHedgehog)
if beam == true then
if dist < 3000 then
tempE = AddVisualGear(GetX(gear), GetY(gear), vgtSmoke, 0, true)
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, g8, g9, 0xff00ffff )
PlaySound(sndVaporize)
DeleteGear(gear)
SK = SK + 1
if SK == 5 then
SK = 0
AddCaption(loc("Shield Master!") .. " +10 " .. loc("points") .. "!",0xffba00ff,capgrpAmmoinfo)
AwardPoints(10)
end
end
elseif dist < 1600 then
WellHeAintGonnaJumpNoMore(GetX(gear), GetY(gear))
end
--[[if targetHit == true then
WriteLnToConsole("about to delete shell due to targetHit being set to true earlier")
DeleteGear(gear)
WriteLnToConsole("there, I deleted it")
end]]
end
if targetHit == true then
--nw WriteLnToConsole("about to delete something due to targetHit being set to true earlier")
DeleteGear(gear)
--nw WriteLnToConsole("there, I deleted it")
end
--nw WriteLnToConsole("End of CheckVarious()")
end
-- collision detection for player entering a circle
function CheckDistances()
--nw WriteLnToConsole("Start of CheckDistances()")
for i = 0,(vCCount-1) do
--nw WriteLnToConsole("Attempting to calculate dist of circ " .. i)
g1X, g1Y = GetGearPosition(CurrentHedgehog)
g2X, g2Y = vCircX[i], vCircY[i]
g1X = g1X - g2X
g1Y = g1Y - g2Y
dist = (g1X*g1X) + (g1Y*g1Y)
--DoHorribleThings(i, g1X, g1Y, g2X, g2Y, dist)
--nw WriteLnToConsole("Calcs done. Dist to CurrentHedgehog is " .. dist)
-- calculate my real radius if I am an aura
if vCircType[i] == 0 then
NR = vCircRadius[i]
else
NR = (48/100*vCircRadius[i])/2
end
if dist <= NR*NR then
if (vCircActive[i] == true) and
((vType[i] == "ammo") or (vType[i] == "bonus") )
then
CircleDamaged(i)
elseif (vCircActive[i] == true) and
( (vType[i] == "drone") or (vType[i] == "blueboss") )
then
ss = CircleDamaged(i)
WellHeAintGonnaJumpNoMore(GetX(CurrentHedgehog),GetY(CurrentHedgehog))
if ss == "fatal" then
if (wepAmmo[0] == 0) and (TimeLeft <= 9) then
--if (primShotsLeft == 0) and (TimeLeft <= 9) then
AddCaption(loc("Kamikaze Expert!") .. " +15 " .. loc("points") .. "!",0xffba00ff,capgrpMessage)
AwardPoints(15)
elseif (wepAmmo[0] == 0) then
AddCaption(loc("Depleted Kamikaze!") .. " +5 " .. loc("points") .. "!",0xffba00ff,capgrpMessage)
AwardPoints(5)
elseif TimeLeft <= 9 then
AddCaption(loc("Timed Kamikaze!") .. " +10 " .. loc("points") .. "!",0xffba00ff,capgrpMessage)
AwardPoints(10)
end
end
end
end
end
--nw WriteLnToConsole("End of CheckDistances()")
end
function HandleCircles()
--[[if CirclesAreGo == true then
--CheckDistances()
--runOnGears(CheckVarious) -- used to be in handletracking for some bizarre reason
--pTimer = pTimer + 1
--if pTimer == 100 then
-- pTimer = 0
-- runOnGears(ProjectileTrack)
--end
end]]
if rAlpha ~= 255 then
if GameTime%100 == 0 then
rAlpha = rAlpha + 5
if rAlpha >= 255 then
rAlpha = 255
end
end
end
for i = 0,(vCCount-1) do
--if (vCircActive[i] == true) then
SetVisualGearValues(rCirc[i], rCircX[i], rCircY[i], 100, 255, 1, 10, 0, 40, 3, vCircCol[i]-rAlpha)
--end
vCounter[i] = vCounter[i] + 1
if vCounter[i] >= vCounterLim[i] then
vCounter[i] = 0
if ((vType[i] == "drone") or (vType[i] == "blueboss") ) and
(vCircActive[i] == true) then
AddGear(vCircX[i], vCircY[i], gtShell, 0, 0, 0, 1)
--WriteLnToConsole("Circle " .. i .. " just fired/added a gtShell")
--WriteLnToConsole("The above event occured game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
--elseif (vType[i] == "bluebottle") and (vCircActive[i] == true) then
-- AddGear(vCircX[i], vCircY[i]-vCircRadius[i], gtBall, 0, 0, 0, 1)
-- AddGear(vCircX[i], vCircY[i]+vCircRadius[i], gtBall, 0, 0, 0, 1)
-- AddGear(vCircX[i]-vCircRadius[i], vCircY[i], gtBall, 0, 0, 0, 1)
-- AddGear(vCircX[i]+vCircRadius[i], vCircY[i], gtBall, 0, 0, 0, 1)
end
end
if (vCircActive[i] == true) then
vCircRadCounter[i] = vCircRadCounter[i] + 1
if vCircRadCounter[i] == 100 then
vCircRadCounter[i] = 0
-- make my radius increase/decrease faster if I am an aura
if vCircType[i] == 0 then
M = 1
else
M = 10
end
vCircRadius[i] = vCircRadius[i] + vCircRadDir[i]
if vCircRadius[i] > vCircRadMax[i] then
vCircRadDir[i] = -M
elseif vCircRadius[i] < vCircRadMin[i] then
vCircRadDir[i] = M
end
-- random effect test
-- maybe use this to tell the difference between circs
-- you can kill by shooting or not
--vgtSmoke vgtSmokeWhite
--vgtSteam -- nice long trail
--vgtDust -- short trail on earthrise
--vgtSmokeTrace
if vType[i] == "ammo" then
tempE = AddVisualGear(vCircX[i], vCircY[i], vgtSmoke, 0, true)
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE) --0xff00ffff --0x00ff00ff
SetVisualGearValues(tempE, vCircX[i], vCircY[i], g3, g4, g5, g6, g7, g8, g9, vCircCol[i] )
--AddVisualGear(vCircX[i], vCircY[i], vgtDust, 0, true)
elseif vType[i] == "bonus" then
tempE = AddVisualGear(vCircX[i], vCircY[i], vgtDust, 0, true)
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE) --0xff00ffff --0x00ff00ff --vCircCol[i]
SetVisualGearValues(tempE, vCircX[i], vCircY[i], g3, g4, g5, g6, g7, 1, g9, 0xff00ffff )
elseif vType[i] == "blueboss" then
k = 25
g = vgtSteam
trailColour = 0xae00ffff
-- 0xffae00ff -- orange
-- 0xae00ffff -- purp
tempE = AddVisualGear(vCircX[i], vCircY[i], g, 0, true)
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE) --0xff00ffff --0x00ff00ff
SetVisualGearValues(tempE, vCircX[i], vCircY[i]+k, g3, g4, g5, g6, g7, g8, g9, trailColour-75 )
tempE = AddVisualGear(vCircX[i], vCircY[i], g, 0, true)
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE) --0xff00ffff --0x00ff00ff
SetVisualGearValues(tempE, vCircX[i]+k, vCircY[i]-k, g3, g4, g5, g6, g7, g8, g9, trailColour-75 )
tempE = AddVisualGear(vCircX[i], vCircY[i], g, 0, true)
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE) --0xff00ffff --0x00ff00ff
SetVisualGearValues(tempE, vCircX[i]-k, vCircY[i]-k, g3, g4, g5, g6, g7, g8, g9, trailColour-75 )
end
end
end
end
-- alter the circles velocities
if GameTime%2000 == 0 then
for i = 0,(vCCount-1) do
-- bounce the circles off the edges if they go too far
-- or make them move in random directions
if vCircX[i] > 5500 then
vCircDX[i] = -4 --5 circmovchange
elseif vCircX[i] < -1500 then
vCircDX[i] = 4 --5 circmovchange
else
z = GetRandom(2)
if z == 1 then
z = 1
else
z = -1
end
vCircDX[i] = vCircDX[i] + GetRandom(3)*z --3 circmovchange
end
if vCircY[i] > 1500 then
vCircDY[i] = -4 --5 circmovchange
elseif vCircY[i] < -2900 then
vCircDY[i] = 4 --5 circmovchange
else
z = GetRandom(2)
if z == 1 then
z = 1
else
z = -1
end
vCircDY[i] = vCircDY[i] + GetRandom(3)*z --3 circmovchange
end
end
end
-- move the circles according to their current velocities
--m2Count = m2Count + 1
--if m2Count == 25 then --25 circmovchange
-- m2Count = 0
for i = 0,(vCCount-1) do
vCircX[i] = vCircX[i] + vCircDX[i]
vCircY[i] = vCircY[i] + vCircDY[i]
if (CurrentHedgehog ~= nil) and (rAlpha ~= 255) then
DoHorribleThings(i)--(i, g1X, g1Y, g2X, g2Y, dist)
end
end
if (TimeLeft == 0) and (tumbleStarted == true) then
FadeAlpha = FadeAlpha + 1
if FadeAlpha >= 255 then
FadeAlpha = 255
end
--new
--if FadeAlpha == 1 then
-- AddCaption("GOT IT")
-- for i = 0,(vCCount-1) do
-- g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(vCirc[i])
-- vCircCol[i] = g10
-- end
--end
end
-- derp
if shockwaveHealth > 0 then
shockwaveHealth = shockwaveHealth - 1
shockwaveRad = shockwaveRad + 80
--mrm = ((48/100*shockwaveRad)/2)
--AddVisualGear(GetX(CurrentHedgehog)-mrm+GetRandom(mrm*2),GetY(CurrentHedgehog)-mrm+GetRandom(mrm*2), vgtSmoke, 0, false)
end
--end
for i = 0,(vCCount-1) do
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(vCirc[i]) -- vCircCol[i] g10
SetVisualGearValues(vCirc[i], vCircX[i], vCircY[i], g3, g4, g5, g6, g7, vCircRadius[i], g9, g10)
end
if (TimeLeft == 0) or
((tumbleStarted == false)) then
for i = 0,(vCCount-1) do
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(vCirc[i]) -- vCircCol[i] g10
SetVisualGearValues(vCirc[i], vCircX[i], vCircY[i], g3, g4, g5, g6, g7, vCircRadius[i], g9, (vCircCol[i]-FadeAlpha))
end
end
if (CurrentHedgehog ~= nil) then
if beam == true then
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(pShield)
--SetVisualGearValues(pShield, GetX(CurrentHedgehog), GetY(CurrentHedgehog), g3, g4, g5, g6, g7, 200, g9, g10 )
SetVisualGearValues(pShield, GetX(CurrentHedgehog), GetY(CurrentHedgehog), g3, g4, g5, g6, g7, 200, g9, 0xa800ffff-0x000000ff - -shieldHealth )
DrawTag(2)
else
SetVisualGearValues(pShield, GetX(CurrentHedgehog), GetY(CurrentHedgehog), g3, g4, g5, g6, g7, 0, g9, g10 )
end
if shockwaveHealth > 0 then
g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(shockwave)
SetVisualGearValues(shockwave, GetX(CurrentHedgehog), GetY(CurrentHedgehog), g3, g4, g5, g6, g7, shockwaveRad, g9, 0xff3300ff-0x000000ff - -shockwaveHealth )
else
SetVisualGearValues(shockwave, GetX(CurrentHedgehog), GetY(CurrentHedgehog), g3, g4, g5, g6, g7, 0, g9, g10 )
end
end
end
function ProjectileTrack(gear)
if (GetGearType(gear) == gtShell) then
--nw WriteLnToConsole("ProjectileTrack() for Shell ID: " .. getGearValue(gear,"ID"))
-- newnew
if (GetGearType(gear) == gtShell) then
turningSpeed = 0.1*fMod
--elseif (GetGearType(gear) == gtBall) then
-- turningSpeed = 0.2*fMod
end
dx, dy = GetGearVelocity(gear)
--WriteLnToConsole("I'm trying to track currenthedge with shell ID: " .. getGearValue(gear,"ID"))
--WriteLnToConsole("I just got the velocity of the shell. It is dx: " .. dx .. "; dy: " .. dy)
--WriteLnToConsole("CurrentHedgehog is at X: " .. GetX(CurrentHedgehog) .. "; Y: " .. GetY(CurrentHedgehog) )
if GetX(gear) > GetX(CurrentHedgehog) then
dx = dx - turningSpeed--0.1
else
dx = dx + turningSpeed--0.1
end
if GetY(gear) > GetY(CurrentHedgehog) then
dy = dy - turningSpeed--0.1
else
dy = dy + turningSpeed--0.1
end
if (GetGearType(gear) == gtShell) then
dxlimit = 0.4*fMod
dylimit = 0.4*fMod
--elseif (GetGearType(gear) == gtBall) then
-- dxlimit = 0.5 -- 0.5 is about the same
-- dylimit = 0.5 -- 0.6 is faster than player
end
if dx > dxlimit then
dx = dxlimit
end
if dy > dylimit then
dy = dylimit
end
if dx < -dxlimit then
dx = -dxlimit
end
if dy < -dylimit then
dy = -dylimit
end
SetGearVelocity(gear, dx, dy)
--WriteLnToConsole("I just SET the velocity of shell towards currenthegdge. It is now dx: " .. dx .. "; dy: " .. dy)
--WriteLnToConsole("The above events occured game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
--nw WriteLnToConsole("ProjectileTrack() finished successfully")
end
end