hedgewars: comparison share/hedgewars/Data/Scripts/Multiplayer/Space

equal deleted inserted replaced

-:a6eab1b7c00d
+:a416f1070fdf
 -- 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
 -----------------
 capgrpAmmostate
 -----------------
 AddCaption( chainLength .. LOC_NOT("-chain! +") .. chainLength*2 .. LOC_NOT(" points!"),0xffba00ff,capgrpAmmostate)
 AddCaption(LOC_NOT("Multi-shot! +5 points!"),0xffba00ff,capgrpAmmostate)
 -----------------
 capgrpAmmoinfo
 -----------------
 AddCaption(LOC_NOT("Shield Miser! +20 points!"),0xffba00ff,capgrpAmmoinfo)
 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)
 -----------------
 capgrpMessage
 -----------------
 AddCaption(LOC_NOT("Ammo Depleted!"),0xff0000ff,capgrpMessage)
 AddCaption(LOC_NOT("Ammo: ") .. primShotsLeft)
 AddCaption("Shield Depleted",0xff0000ff,capgrpMessage)
 AddCaption( LOC_NOT("Shield ON:") .. " " .. shieldHealth - 80 .. " " .. LOC_NOT("Power Remaining") )
 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)
 local BK = 0
 local OK = 0
 local SK = 0
 local shieldMiser = true
 local chainCounter = 0
 local chainLength = 0
 local shotsFired = 0
 local shotsHit = 0
 ---------------------
 -- tumbler goods
 	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 = 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
 	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
 	--WriteLnToConsole("onPrecise event handler at Game Time: " .. GameTime .. "; luaTicks: " .. luaGameTicks)
 	-- 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
 	CaseFreq = 0
 	HealthCaseProb = 0
 	MinesNum = 0
 	Explosives = 0
 	for i = 0, 3 do
 		vTag[0] = AddVisualGear(0, 0, vgtHealthTag, 0, false)
 	end
 	HideTags()
 end
 		gameBegun = false
 		stopMovement = true
 		tumbleStarted = false
 		SetMyCircles(false)
 	end
 	HideTags()
 	---------------
 	---------------
 	--AddCaption("num g: " .. numGears() )
 end
 function onGameTick()
 	--WriteLnToConsole("Start of GameTick")
 	luaGameTicks = luaGameTicks + 1 -- GameTime
 	HandleCircles()
 	Timer100 = Timer100 + 1
 		-------------------------------
 		-- 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
 				beam = false
 				upOn = false
 			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
 			moveTimer = moveTimer + 1
 			if moveTimer == 100 then -- 100
 				--nw WriteLnToConsole("Start of Player MoveTimer")
 				moveTimer = 0
 					CircleDamaged(i)
 					circsHit = circsHit + 1
 					if circsHit > 1 then
 						AddCaption(loc("Multi-shot!") .. " +5 " .. loc("points") .. "!",0xffba00ff,capgrpAmmostate)
 					end
 					shotsHit = shotsHit + 1
 				end
 			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

changeset 5827	a416f1070fdf
parent 5825	a6eab1b7c00d
child 5894	86c59c34cdd5