hedgewars-draft: comparison share/hedgewars/Data/Scripts/Multiplayer/HedgeEditor.lua

equal deleted inserted replaced

-:39b7b3ed619e
+:ffbd31afed96
 HedgewarsScriptLoad("/Scripts/Params.lua")
 HedgewarsScriptLoad("/Scripts/TechMaps.lua")
 -- experimental crap
 --local destroyMap = false
+-- Fake ammo type for the gear placement tool
+local amCMGearPlacementTool = amAirAttack
 -- Special frames in Ammos.png/Ammos_bw.png
 local ammoFrameAirAttack = 63
 -----------------------------------------
 function updateHelp(curAmmoType)
 	if curAmmoType == nil then
 		curAmmoType = GetCurAmmoType()
 	end
-	if (curAmmoType ~= amGirder) and (curAmmoType ~= amRubber) and (curAmmoType ~= amAirAttack) then
+	if (curAmmoType ~= amGirder) and (curAmmoType ~= amRubber) and (curAmmoType ~= amCMGearPlacementTool) then
 		if not hedgeEditorMissionPanelShown then
 			showHedgeEditorMissionPanel()
 		end
 				loc("Toggle Placement/Deletion: [Left], [Right]") .. "|" ..
 				" " .. "|" ..
 				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
 				loc("Toggle Help: [Precise]+[1]") .. "|" ..
 				loc("Toggle Gear Information: [Precise]+[3]") .. "|" ..
-				"", -amAirAttack, 60000
+				"", -amCMGearPlacementTool, 60000
 				)
 		hedgeEditorMissionPanelShown = false
 	elseif cat[cIndex] == loc("Mine Placement Mode") then
 				loc("Choose Selection/Placement/Deletion: [Left], [Right]") .. "|" ..
 				" " .. "|" ..
 				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
 				loc("Toggle Help: [Precise]+[1]") .. "|" ..
 				loc("Toggle Gear Information: [Precise]+[3]") .. "|" ..
-				"", -amAirAttack, 60000
+				"", -amCMGearPlacementTool, 60000
 				)
 		hedgeEditorMissionPanelShown = false
 	elseif cat[cIndex] == loc("Sprite Modification Mode") then
 				loc("Bouncy Land: [4]") .. "|" ..
 				" " .. "|" ..
 				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
 				loc("Toggle Help: [Precise]+[1]") .. "|" ..
 				loc("Toggle Gear Information: [Precise]+[3]") .. "|" ..
-				"", -amAirAttack, 60000
+				"", -amCMGearPlacementTool, 60000
 				)
 		hedgeEditorMissionPanelShown = false
 	elseif cat[cIndex] == loc("Goal Definition Mode") then
 		tSprCol = 0x00000000
 		tempFrame = 0
 		xDisplacement = 42
 		yDisplacement = 42
-		if (curWep == amAirAttack) then
+		if (curWep == amCMGearPlacementTool) then
 			--wowaweewa, holyeeeee shite this is badly hacked (please rewrite when less lazy/morefeatures)
 			dCol = 0xFFFFFFFF
 			dFrame = 0
 			dAngle = 0
 				dAngle = 270
 				dSprite = sprKnife
 			elseif (cat[cIndex] == loc("Sprite Placement Mode")) then
 				dSprite = reducedSpriteIDArray[pIndex]
 				dFrame = sFrame
-				if ((dSprite == sprAMAmmos) or (dSprite == sprAMAmmosBW)) and (dFrame == (amAirAttack - 1)) then
+				if ((dSprite == sprAMAmmos) or (dSprite == sprAMAmmosBW)) and (dFrame == (amCMGearPlacementTool - 1)) then
 					-- Special case: Air attack icon of ammos sprite needs to be fixed (since this icon is overwritten)
 					dFrame = ammoFrameAirAttack
 				end
 			else
 				dCol = 0xFFFFFF00
 				cIndex = 3 --new
 				RedefineSubset()
 			end
 			-- update display selection criteria
-			if (curWep == amGirder) or (curWep == amRubber) or (curWep == amAirAttack) then
+			if (curWep == amGirder) or (curWep == amRubber) or (curWep == amCMGearPlacementTool) then
 				AddCaption(cat[cIndex],0xffba00ff,capgrpMessage)
 				showSecondaryMessage()
 				if superDelete == true then
 					AddCaption(loc("Deletition Mode"),0xffba00ff,capgrpAmmoinfo)
 				end
 	-- some kind of target detected, tell me your story
 	if cGear ~= nil then
 		x,y = GetGearTarget(cGear)
-		if GetGearType(cGear) == gtAirAttack and GetCurAmmoType() == amAirAttack then
+		if GetGearType(cGear) == gtAirAttack and GetCurAmmoType() == amCMGearPlacementTool then
 			DeleteGear(cGear)
 			PlaceObject(x, y)
 		elseif GetGearType(cGear) == gtGirder then
 			CGR = GetState(cGear)
 	superDelete = false
 	if (commandMode() == true) and (s == 4) then
 		SaveLevelData() -- positions of crates, etc
 	elseif (commandMode() == true) and (s == 2) then
-		if GetAmmoCount(CurrentHedgehog, amAirAttack) == 100 then
+		if GetAmmoCount(CurrentHedgehog, amCMGearPlacementTool) == 100 then
 			SetEditingWeps(0)
 			AddCaption(loc("The editor weapons and tools have been removed!"))
 		else
 			SetEditingWeps(100)
 			AddCaption(loc("The editor weapons and tools have been added!"))
 --		timer of mines
 --		contents of crates etc.
 ---------------------------------------------------------------
 function onLeft()
-	if (curWep == amAirAttack) then
+	if (curWep == amCMGearPlacementTool) then
 		leftHeld = true
 		rightHeld = false
 		if preciseOn then
 			if cat[cIndex] == loc("Sprite Placement Mode") then
 			end
 			if cat[cIndex] == loc("Sprite Placement Mode") then
 				sFrame = math.min(sFrame, reducedSpriteIDArrayFrames[pIndex] - 1)
 			end
-			if (curWep == amGirder) or (curWep == amRubber) or (curWep == amAirAttack) then
+			if (curWep == amGirder) or (curWep == amRubber) or (curWep == amCMGearPlacementTool) then
 				showSecondaryMessage()
 			end
 		end
 	end
 end
 function onRight()
-	if (curWep == amAirAttack) then
+	if (curWep == amCMGearPlacementTool) then
 		leftHeld = false
 		rightHeld = true
 		if preciseOn then
 			if cat[cIndex] == loc("Sprite Placement Mode") then
 			end
 			if cat[cIndex] == loc("Sprite Placement Mode") then
 				sFrame = math.min(sFrame, reducedSpriteIDArrayFrames[pIndex] - 1)
 			end
-			if (curWep == amGirder) or (curWep == amRubber) or (curWep == amAirAttack) then
+			if (curWep == amGirder) or (curWep == amRubber) or (curWep == amCMGearPlacementTool) then
 				showSecondaryMessage()
 			end
 		end
 	end
 -- i.e 	mine, sticky mine, barrels
 --		health/weapon/utility crate, placement of gears
 ---------------------------------------------------------
 function onUp()
-	if (curWep == amAirAttack) then
+	if (curWep == amCMGearPlacementTool) then
 		cIndex = cIndex - 1
 		if (cIndex == 1) or (cIndex == 2) then --1	--we no longer hit girder by normal means
 			cIndex = #cat
 		end
 end
 function onDown()
-	if (curWep == amAirAttack) then
+	if (curWep == amCMGearPlacementTool) then
 		cIndex = cIndex + 1
 		if cIndex > #cat then
 			cIndex = 3	 -- 2 ----we no longer hit girder by normal means
 		end
 		loc("Save Level: [Precise]+[4]") .. "|" ..
 		loc("Toggle Editing Weapons and Tools: [Precise]+[2]")
 		, 4, 5000
 		)
-	SetAmmoTexts(amAirAttack,
+	SetAmmoTexts(amCMGearPlacementTool,
 		loc("Gear Placement Tool"),
 		loc("HedgeEditor tool"),
 		loc("Place, modify and delete gears (e.g. objects)|and waypoints, edit hedgehog settings, values,|victory conditions, and more.") .. "|" ..
 		loc("Select a placement mode and read the infos|in the mission panel to learn how to use it.") .. "|" ..
 		loc("Up/Down: Change placement mode") .. "|" ..
 	frameID = 1
 	visualSprite = sprAmGirder
 	sSprite = AddVisualGear(0, 0, vgtStraightShot, 0, true,1)
 	SetVisualGearValues(sSprite, 1, 1, 0, 0, nil, frameID, 20000, visualSprite, 20000, 0 )
-	SetAmmoDelay(amAirAttack,0)
+	SetAmmoDelay(amCMGearPlacementTool,0)
 	SetAmmoDelay(amGirder,0)
 	SetAmmoDelay(amRubber,0)
 end
 function SetEditingWeps(ammoCount)
-	AddAmmo(CurrentHedgehog, amAirAttack, ammoCount)
+	AddAmmo(CurrentHedgehog, amCMGearPlacementTool, ammoCount)
 	AddAmmo(CurrentHedgehog, amGirder, ammoCount)
 	AddAmmo(CurrentHedgehog, amRubber, ammoCount)
 	AddAmmo(CurrentHedgehog, amTeleport, ammoCount)
 	AddAmmo(CurrentHedgehog, amRope, ammoCount)
 	AddAmmo(CurrentHedgehog, amSwitch, 100)
 		if (ufoFuel ~= 0) then
 			SetHealth(ufoGear, ufoFuel)
 		end
 	end
-	if (GetGearType(gear) == gtAirAttack and GetCurAmmoType() == amAirAttack) or (GetGearType(gear) == gtGirder) then
+	if (GetGearType(gear) == gtAirAttack and GetCurAmmoType() == amCMGearPlacementTool) or (GetGearType(gear) == gtGirder) then
 		cGear = gear
 	end
 	local tagTint
 	if showGearTags then

changeset 12941	ffbd31afed96
parent 12792	8fa21750470f
child 12956	89930daecaab