share/hedgewars/Data/Scripts/Multiplayer/HedgeEditor.lua
changeset 12002 6a67e76d0f1d
parent 12001 936ac92cb67a
child 12003 7d8dcac2eae1
equal deleted inserted replaced
12001:936ac92cb67a 12002:6a67e76d0f1d
   159 							"Weapon Crate Placement Mode",
   159 							"Weapon Crate Placement Mode",
   160 							"Utility Crate Placement Mode",
   160 							"Utility Crate Placement Mode",
   161 
   161 
   162 
   162 
   163 			napalm =		arrow sprite (selection/modification/deletion mode)
   163 			napalm =		arrow sprite (selection/modification/deletion mode)
   164 							"Advanced Repositioning Mode",  -- also include a delete
   164 							"Repositioning Mode",  -- also include a delete
   165 							"Tagging Mode",
   165 							"Goal Mode",
   166 							"Hog Identity Mode",
   166 							"Hog Identity Mode",
   167 							"Team Identity Mode",
   167 							"Team Identity Mode",
   168 							"Health Modification Mode",
   168 							"Health Modification Mode",
   169 							"Sprite Testing Mode",
   169 							"Sprite Testing Mode",
   170 							"Sprite Modification Mode",
   170 							"Sprite Modification Mode",
   634 				loc("Health Crate Placement Mode"),
   634 				loc("Health Crate Placement Mode"),
   635 				loc("Weapon Crate Placement Mode"),
   635 				loc("Weapon Crate Placement Mode"),
   636 				loc("Utility Crate Placement Mode"),
   636 				loc("Utility Crate Placement Mode"),
   637 				loc("Target Placement Mode"),
   637 				loc("Target Placement Mode"),
   638 				loc("Cleaver Placement Mode"),
   638 				loc("Cleaver Placement Mode"),
   639 				loc("Advanced Repositioning Mode"),
   639 				loc("Repositioning Mode"),
   640 				loc("Tagging Mode"),
   640 				loc("Goal Mode"),
   641 				loc("Hog Identity Mode"),
   641 				loc("Hog Identity Mode"),
   642 				loc("Team Identity Mode"),
   642 				loc("Team Identity Mode"),
   643 				loc("Health Modification Mode"),
   643 				loc("Health Modification Mode"),
   644 				--loc("Sprite Testing Mode"),
   644 				--loc("Sprite Testing Mode"),
   645 				loc("Sprite Placement Mode"),
   645 				loc("Sprite Placement Mode"),
  1186 		gear = AddGear(x, y, gtSMine, 0, 0, 0, 0)
  1186 		gear = AddGear(x, y, gtSMine, 0, 0, 0, 0)
  1187 		SetTimer(gear, pMode[pIndex])
  1187 		SetTimer(gear, pMode[pIndex])
  1188 	elseif cat[cIndex] == loc("Air Mine Placement Mode") then
  1188 	elseif cat[cIndex] == loc("Air Mine Placement Mode") then
  1189 		gear = AddGear(x, y, gtAirMine, 0, 0, 0, 0)
  1189 		gear = AddGear(x, y, gtAirMine, 0, 0, 0, 0)
  1190 		SetTimer(gear, pMode[pIndex])
  1190 		SetTimer(gear, pMode[pIndex])
  1191 	elseif cat[cIndex] == loc("Advanced Repositioning Mode") then
  1191 	elseif cat[cIndex] == loc("Repositioning Mode") then
  1192 
  1192 
  1193 		if pMode[pIndex] == loc("Selection Mode") then
  1193 		if pMode[pIndex] == loc("Selection Mode") then
  1194 			sGear = GetClosestGear()
  1194 			sGear = GetClosestGear()
  1195 		elseif pMode[pIndex] == loc("Placement Mode") then
  1195 		elseif pMode[pIndex] == loc("Placement Mode") then
  1196 			if sGear ~= nil then
  1196 			if sGear ~= nil then
  1250 
  1250 
  1251 			end
  1251 			end
  1252 		end
  1252 		end
  1253 
  1253 
  1254 
  1254 
  1255 	elseif cat[cIndex] == loc("Tagging Mode") then
  1255 	elseif cat[cIndex] == loc("Goal Mode") then
  1256 
  1256 
  1257 		sGear = GetClosestGear()
  1257 		sGear = GetClosestGear()
  1258 		if sGear ~= nil then  -- used to be closestGear
  1258 		if sGear ~= nil then  -- used to be closestGear
  1259 
  1259 
  1260 			if getGearValue(sGear,"tag") == nil then
  1260 			if getGearValue(sGear,"tag") == nil then
  1261 
  1261 
  1262 				if pMode[pIndex] == loc("Tag Collection Mode") then
  1262 				if pMode[pIndex] == loc("Victory Condition: Collect") then
  1263 					if GetGearType(sGear) == gtCase then
  1263 					if GetGearType(sGear) == gtCase then
  1264 						setGearValue(sGear, "tag","collection")
  1264 						setGearValue(sGear, "tag","collection")
  1265 					else
  1265 					else
  1266 						AddCaption(loc("Please click on a crate."),0xffba00ff,capgrpVolume)
  1266 						AddCaption(loc("Please click on a crate."),0xffba00ff,capgrpVolume)
  1267 					end
  1267 					end
  1268 				else
  1268 				else
  1269 					if pMode[pIndex] == loc("Tag Victory Mode") then
  1269 					if pMode[pIndex] == loc("Victory Condition: Destroy") then
  1270 						setGearValue(sGear, "tag","victory")
  1270 						setGearValue(sGear, "tag","victory")
  1271 					elseif pMode[pIndex] == loc("Tag Failure Mode") then
  1271 					elseif pMode[pIndex] == loc("Losing Condition: Destroy") then
  1272 						setGearValue(sGear, "tag","failure")
  1272 						setGearValue(sGear, "tag","failure")
  1273 					end
  1273 					end
  1274 				end
  1274 				end
  1275 
  1275 
  1276 			else
  1276 			else
  1354 		pMode = {3000,4000,5000,0,1000,2000}
  1354 		pMode = {3000,4000,5000,0,1000,2000}
  1355 	elseif cat[cIndex] == loc("Sticky Mine Placement Mode") then
  1355 	elseif cat[cIndex] == loc("Sticky Mine Placement Mode") then
  1356 		pMode = {500,1000,1500,2000,2500,0}
  1356 		pMode = {500,1000,1500,2000,2500,0}
  1357 	elseif cat[cIndex] == loc("Air Mine Placement Mode") then
  1357 	elseif cat[cIndex] == loc("Air Mine Placement Mode") then
  1358 		pMode = {750,1000,1250,0,250,500}
  1358 		pMode = {750,1000,1250,0,250,500}
  1359 	elseif cat[cIndex] == loc("Advanced Repositioning Mode") then
  1359 	elseif cat[cIndex] == loc("Repositioning Mode") then
  1360 		pMode = {loc("Selection Mode"),loc("Placement Mode"), loc("Deletion Mode")}
  1360 		pMode = {loc("Selection Mode"),loc("Placement Mode"), loc("Deletion Mode")}
  1361 	elseif cat[cIndex] == loc("Tagging Mode") then
  1361 	elseif cat[cIndex] == loc("Goal Mode") then
  1362 		pMode = {loc("Tag Victory Mode"),loc("Tag Failure Mode"),loc("Tag Collection Mode")}
  1362 		pMode = {loc("Victory Condition: Destroy"),loc("Losing Condition: Destroy"),loc("Victory Condition: Collect")}
  1363 	elseif cat[cIndex] == loc("Hog Identity Mode") then
  1363 	elseif cat[cIndex] == loc("Hog Identity Mode") then
  1364 		pMode = {loc("Soldier"),loc("Grenadier"),loc("Sniper"),loc("Pyro"),loc("Ninja"),loc("Commander"),loc("Chef"),loc("Engineer"),loc("Physicist"),loc("Trapper"),loc("Saint"),loc("Clown")}
  1364 		pMode = {loc("Soldier"),loc("Grenadier"),loc("Sniper"),loc("Pyro"),loc("Ninja"),loc("Commander"),loc("Chef"),loc("Engineer"),loc("Physicist"),loc("Trapper"),loc("Saint"),loc("Clown")}
  1365 	elseif cat[cIndex] == loc("Team Identity Mode") then
  1365 	elseif cat[cIndex] == loc("Team Identity Mode") then
  1366 		pMode = {"Clowns","Street Fighters","Cybernetic Empire","Color Squad","Fruit","The Police","The Ninja-Samurai Alliance","Pokemon","The Zoo","The Devs","Mushroom Kingdom","Pirates","Gangsters","Twenty-Twenty","Monsters","The Iron Curtain","The Hospital"}
  1366 		pMode = {"Clowns","Street Fighters","Cybernetic Empire","Color Squad","Fruit","The Police","The Ninja-Samurai Alliance","Pokemon","The Zoo","The Devs","Mushroom Kingdom","Pirates","Gangsters","Twenty-Twenty","Monsters","The Iron Curtain","The Hospital"}
  1367 	elseif cat[cIndex] == loc("Health Modification Mode") then
  1367 	elseif cat[cIndex] == loc("Health Modification Mode") then
  2379 
  2379 
  2380 function UpdateTagCircles(gear)
  2380 function UpdateTagCircles(gear)
  2381 
  2381 
  2382 	if getGearValue(gear,"tag") ~= nil then
  2382 	if getGearValue(gear,"tag") ~= nil then
  2383 
  2383 
  2384 		if cat[cIndex] == loc("Tagging Mode") then
  2384 		if cat[cIndex] == loc("Goal Mode") then
  2385 
  2385 
  2386 			-- generate circs for tagged gears that don't have a circ yet (new)
  2386 			-- generate circs for tagged gears that don't have a circ yet (new)
  2387 			if getGearValue(gear,"tCirc") == nil then
  2387 			if getGearValue(gear,"tCirc") == nil then
  2388 				setGearValue(gear, "tCirc",AddVisualGear(0,0,vgtCircle,0,true))
  2388 				setGearValue(gear, "tCirc",AddVisualGear(0,0,vgtCircle,0,true))
  2389 			end
  2389 			end
  2644 				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
  2644 				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
  2645 				loc("Toggle Help: Precise+1") .. "|" ..
  2645 				loc("Toggle Help: Precise+1") .. "|" ..
  2646 				"", 6, 60000
  2646 				"", 6, 60000
  2647 				)
  2647 				)
  2648 
  2648 
  2649 	elseif cat[cIndex] == loc("Advanced Repositioning Mode") then
  2649 	elseif cat[cIndex] == loc("Repositioning Mode") then
  2650 
  2650 
  2651 		ShowMission	(
  2651 		ShowMission	(
  2652 				loc("ADVANCED REPOSITIONING MODE"),
  2652 				loc("REPOSITIONING MODE"),
  2653 				loc("Use this mode to select and reposition gears"),
  2653 				loc("Use this mode to select and reposition gears"),
  2654 				loc("[Left], [Right]: Change between selection and placement mode.") .. "|" ..
  2654 				loc("[Left], [Right]: Change between selection and placement mode.") .. "|" ..
  2655 				" " .. "|" ..
  2655 				" " .. "|" ..
  2656 				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
  2656 				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
  2657 				loc("Toggle Help: Precise+1") .. "|" ..
  2657 				loc("Toggle Help: Precise+1") .. "|" ..
  2697 				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
  2697 				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
  2698 				loc("Toggle Help: Precise+1") .. "|" ..
  2698 				loc("Toggle Help: Precise+1") .. "|" ..
  2699 				"", 2, 60000
  2699 				"", 2, 60000
  2700 				)
  2700 				)
  2701 
  2701 
  2702 	elseif cat[cIndex] == loc("Tagging Mode") then
  2702 	elseif cat[cIndex] == loc("Goal Mode") then
  2703 
  2703 
  2704 		ShowMission	(
  2704 		ShowMission	(
  2705 				loc("TAGGING MODE"),
  2705 				loc("GOAL MODE"),
  2706 				loc("Use this mode to tag gears for win/lose conditions."),
  2706 				loc("Use this mode to mark gears for win/lose conditions."),
  2707 				loc("Tag Gear: [Left Click]") .. "|" ..
  2707 				loc("Mark/unmark gear: [Left Click]") .. "|" ..
  2708 				loc("[Left], [Right]: Change between tagging modes.") .. "|" ..
  2708 				loc("[Left], [Right]: Change between win/lose conditions.") .. "|" ..
  2709 				" " .. "|" ..
  2709 				" " .. "|" ..
  2710 				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
  2710 				loc("Change Placement Mode: [Up], [Down]") .. "|" ..
  2711 				loc("Toggle Help: Precise+1") .. "|" ..
  2711 				loc("Toggle Help: Precise+1") .. "|" ..
  2712 				"", 3, 60000
  2712 				"", 3, 60000
  2713 				)
  2713 				)
  2910 	end
  2910 	end
  2911 
  2911 
  2912 	-- kinda lazy, but at least we don't have to do elaborate tacking elsewhere
  2912 	-- kinda lazy, but at least we don't have to do elaborate tacking elsewhere
  2913 	SetVisualGearValues(sCirc, 0, 0, 0, 1, 1, 10, 0, 1, 1, 0x00000000)
  2913 	SetVisualGearValues(sCirc, 0, 0, 0, 1, 1, 10, 0, 1, 1, 0x00000000)
  2914 	--update selected gear display
  2914 	--update selected gear display
  2915 	if (cat[cIndex] == loc("Advanced Repositioning Mode")) and (sGear ~= nil) then
  2915 	if (cat[cIndex] == loc("Repositioning Mode")) and (sGear ~= nil) then
  2916 		SetVisualGearValues(sCirc, GetX(sGear), GetY(sGear), 100, 255, 1, 10, 0, 300, 3, 0xff00ffff)
  2916 		SetVisualGearValues(sCirc, GetX(sGear), GetY(sGear), 100, 255, 1, 10, 0, 300, 3, 0xff00ffff)
  2917 	elseif (cat[cIndex] == loc("Sprite Modification Mode")) and (sSprite ~= nil) then
  2917 	elseif (cat[cIndex] == loc("Sprite Modification Mode")) and (sSprite ~= nil) then
  2918 		SetVisualGearValues(sSprite, nil, nil, 0, 0, nil, nil, 10000, nil, 10000)
  2918 		SetVisualGearValues(sSprite, nil, nil, 0, 0, nil, nil, 10000, nil, 10000)
  2919 	elseif (cat[cIndex] == loc("Tagging Mode")) then
  2919 	elseif (cat[cIndex] == loc("Goal Mode")) then
  2920 		if (sGear ~= nil) or (closestGear ~= nil) then
  2920 		if (sGear ~= nil) or (closestGear ~= nil) then
  2921 			closestGear = nil
  2921 			closestGear = nil
  2922 			sGear = nil
  2922 			sGear = nil
  2923 		end
  2923 		end
  2924 	end
  2924 	end