Mercurial Mercurial > hedgewars / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
share/hedgewars/Data/Scripts/Multiplayer/HedgeEditor.lua
changeset 11994 6fd96a5d4e6f
parent 11993 b061f4bae002
child 11995 ec3fe3068932
equal deleted inserted replaced
11993:b061f4bae002 11994:6fd96a5d4e6f 
  1434 				w = placedY[i] - placedY[placedCount]
 
  1434 				w = placedY[i] - placedY[placedCount]
 
  1435 				d = ( (q*q) + (w*w) )
 
  1435 				d = ( (q*q) + (w*w) )
 
  1436 				if d < closestDist then
 
  1436 				if d < closestDist then
 
  1437 					closestDist = d
 
  1437 					closestDist = d
 
  1438 					closestSpriteID = i
 
  1438 					closestSpriteID = i
 
  1439 					g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(sSprite)
 
  1439 
  1440 
       
  1441 					--newTint = placedTint[i]
 
       
  1442 					newTint = 0xFF00FFFF
 
  1440 					newTint = 0xFF00FFFF
 
  1443 
  1441 
  1444 					SetVisualGearValues(sSprite, placedX[i], placedY[i], 0, 0, g5, placedFrame[i], 10000, placedSprite[i], 10000, newTint )
 
  1442 					SetVisualGearValues(sSprite, placedX[i], placedY[i], 0, 0, nil, placedFrame[i], 10000, placedSprite[i], 10000, newTint )
 
  1445 
  1443 
  1446 				end
 
  1444 				end
 
  1447 		end
 
  1445 		end
 
  1448 	end
 
  1446 	end
 
  1449 
  1447 
  1484 				w = placedY[i] - placedY[placedCount]
 
  1482 				w = placedY[i] - placedY[placedCount]
 
  1485 				d = ( (q*q) + (w*w) )
 
  1483 				d = ( (q*q) + (w*w) )
 
  1486 				if d < closestDist then
 
  1484 				if d < closestDist then
 
  1487 					closestDist = d
 
  1485 					closestDist = d
 
  1488 					closestSpriteID = i
 
  1486 					closestSpriteID = i
 
  1489 					g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(sSprite)
 
       
  1490 
  1487 
  1491 					--newTint = placedTint[i]
 
  1488 					--newTint = placedTint[i]
 
  1492 					newTint = 0xFF00FFFF
 
  1489 
  1493 
  1490 					SetVisualGearValues(sSprite, placedX[i], placedY[i], 0, 0, nil, placedFrame[i], 10000, placedSprite[i], 10000, newTint )
 
  1494 					SetVisualGearValues(sSprite, placedX[i], placedY[i], 0, 0, g5, placedFrame[i], 10000, placedSprite[i], 10000, newTint )
 
       
  1495 
  1491 
  1496 				end
 
  1492 				end
 
  1497 		end
 
  1493 		end
 
  1498 	end
 
  1494 	end
 
  1499 
  1495 
  1708 
  1704 
  1709 
  1705 
  1710 		end
 
  1706 		end
 
  1711 
  1707 
  1712 
  1708 
  1713 	--elseif cat[cIndex] == loc("Sprite Testing Mode") then
 
       
  1714 
       
  1715 	--	frameID = 0
 
       
  1716 	--	visualSprite = reducedSpriteIDArray[pIndex]
 
       
  1717 	--	tempE = AddVisualGear(x, y, vgtStraightShot, 0, true,1)
 
       
  1718 	--	g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
 
       
  1719 	--	SetVisualGearValues(tempE, g1, g2, 0, 0, g5, frameID, g7, visualSprite, g9, g10 )
 
       
  1720 
       
  1721 
       
  1722 	elseif cat[cIndex] == loc("Sprite Placement Mode") then
 
  1709 	elseif cat[cIndex] == loc("Sprite Placement Mode") then
 
  1723 
  1710 
  1724 		if superDelete == false then
 
  1711 		if superDelete == false then
 
  1725 			placedFrame[placedCount] = 1
 
  1712 			placedFrame[placedCount] = 1
 
  1726 			placedSprite[placedCount] = reducedSpriteIDArray[pIndex]
 
  1713 			placedSprite[placedCount] = reducedSpriteIDArray[pIndex]
 
  2834 ----------------------------------
 
  2821 ----------------------------------
 
  2835 -- some special effects handling
 
  2822 -- some special effects handling
 
  2836 ----------------------------------
 
  2823 ----------------------------------
 
  2837 function SmokePuff(x,y,c)
 
  2824 function SmokePuff(x,y,c)
 
  2838 	tempE = AddVisualGear(x, y, vgtSmoke, 0, false)
 
  2825 	tempE = AddVisualGear(x, y, vgtSmoke, 0, false)
 
  2839 	g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
 
  2826 	SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, 1, nil, c )
 
  2840 	SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, 1, g9, c )
 
       
  2841 end
 
  2827 end
 
  2842 
  2828 
  2843 function HandleGearBasedRankingEffects(gear)
 
  2829 function HandleGearBasedRankingEffects(gear)
 
  2844 	if getGearValue(gear, "ranking") ~= nil then
 
  2830 	if getGearValue(gear, "ranking") ~= nil then
 
  2845 		SmokePuff(GetX(gear), GetY(gear),GetRankedColour(getGearValue(gear, "ranking")))
 
  2831 		SmokePuff(GetX(gear), GetY(gear),GetRankedColour(getGearValue(gear, "ranking")))
 
  2896 			col = 0xFFFF00FF  -- blue portal
 
  2882 			col = 0xFFFF00FF  -- blue portal
 
  2897 		end
 
  2883 		end
 
  2898 
  2884 
  2899 		if (tag == 0) or (tag == 2) then -- i.e ball form
 
  2885 		if (tag == 0) or (tag == 2) then -- i.e ball form
 
  2900 			tempE = AddVisualGear(GetX(gear), GetY(gear), vgtDust, 0, true)
 
  2886 			tempE = AddVisualGear(GetX(gear), GetY(gear), vgtDust, 0, true)
 
  2901 			g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
 
  2887 			SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, 1, nil, col )
 
  2902 			SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, 1, g9, col )
 
       
  2903 
  2888 
  2904 			remLife = getGearValue(gear,"life")
 
  2889 			remLife = getGearValue(gear,"life")
 
  2905 			remLife = remLife - 1
 
  2890 			remLife = remLife - 1
 
  2906 			setGearValue(gear, "life", remLife)
 
  2891 			setGearValue(gear, "life", remLife)
 
  2907 
  2892 
  2908 			if remLife == 0 then
 
  2893 			if remLife == 0 then
 
  2909 
  2894 
  2910 				tempE = AddVisualGear(GetX(gear)+15, GetY(gear), vgtSmoke, 0, true)
 
  2895 				tempE = AddVisualGear(GetX(gear)+15, GetY(gear), vgtSmoke, 0, true)
 
  2911 				g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
 
  2896 				SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, col)
 
  2912 				SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, g8, g9, col )
 
       
  2913 
  2897 
  2914 				tempE = AddVisualGear(GetX(gear)-15, GetY(gear), vgtSmoke, 0, true)
 
  2898 				tempE = AddVisualGear(GetX(gear)-15, GetY(gear), vgtSmoke, 0, true)
 
  2915 				g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
 
  2899 				SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, col)
 
  2916 				SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, g8, g9, col )
 
       
  2917 
  2900 
  2918 				tempE = AddVisualGear(GetX(gear), GetY(gear)+15, vgtSmoke, 0, true)
 
  2901 				tempE = AddVisualGear(GetX(gear), GetY(gear)+15, vgtSmoke, 0, true)
 
  2919 				g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
 
  2902 				SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, col)
 
  2920 				SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, g8, g9, col )
 
       
  2921 
  2903 
  2922 				tempE = AddVisualGear(GetX(gear), GetY(gear)-15, vgtSmoke, 0, true)
 
  2904 				tempE = AddVisualGear(GetX(gear), GetY(gear)-15, vgtSmoke, 0, true)
 
  2923 				g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(tempE)
 
  2905 				SetVisualGearValues(tempE, nil, nil, nil, nil, nil, nil, nil, nil, col)
 
  2924 				SetVisualGearValues(tempE, g1, g2, g3, g4, g5, g6, g7, g8, g9, col )
 
       
  2925 
  2906 
  2926 
  2907 
  2927 				PlaySound(sndVaporize)
 
  2908 				PlaySound(sndVaporize)
 
  2928 				DeleteGear(gear)
 
  2909 				DeleteGear(gear)
 
  2929 
  2910 
  3312 			end
 
  3293 			end
 
  3313 
  3294 
  3314 			if CG == nil then
 
  3295 			if CG == nil then
 
  3315 				CG = AddVisualGear(CursorX, CursorY, vgtStraightShot,0,true,3)
 
  3296 				CG = AddVisualGear(CursorX, CursorY, vgtStraightShot,0,true,3)
 
  3316 			end
 
  3297 			end
 
  3317 			g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(CG)
 
       
  3318 			SetVisualGearValues(CG, CursorX, CursorY, 0, 0, dAngle, dFrame, 1000, dSprite, 1000, dCol)
 
  3298 			SetVisualGearValues(CG, CursorX, CursorY, 0, 0, dAngle, dFrame, 1000, dSprite, 1000, dCol)
 
  3319 
  3299 
  3320 
  3300 
  3321 
  3301 
  3322 			if crateSprite == nil then
 
  3302 			if crateSprite == nil then
 
  3401 				end
 
  3381 				end
 
  3402 			end
 
  3382 			end
 
  3403 
  3383 
  3404 
  3384 
  3405 			if sSprite ~= nil then
 
  3385 			if sSprite ~= nil then
 
  3406 				g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(sSprite)
 
  3386 				SetVisualGearValues(sSprite, nil, nil, 0, 0, nil, nil, 10000, nil, 10000 )
 
  3407 				SetVisualGearValues(sSprite, g1, g2, 0, 0, g5, g6, 10000, g8, 10000, g10 )
 
       
  3408 				--AddCaption(g7)
 
       
  3409 			end
 
  3387 			end
 
  3410 
  3388 
  3411 		end
 
  3389 		end
 
  3412 
  3390 
  3413 	end
 
  3391 	end
 
  3423 	SetVisualGearValues(sCirc, 0, 0, 0, 1, 1, 10, 0, 1, 1, 0x00000000)
 
  3401 	SetVisualGearValues(sCirc, 0, 0, 0, 1, 1, 10, 0, 1, 1, 0x00000000)
 
  3424 	--update selected gear display
 
  3402 	--update selected gear display
 
  3425 	if (cat[cIndex] == loc("Advanced Repositioning Mode")) and (sGear ~= nil) then
 
  3403 	if (cat[cIndex] == loc("Advanced Repositioning Mode")) and (sGear ~= nil) then
 
  3426 		SetVisualGearValues(sCirc, GetX(sGear), GetY(sGear), 100, 255, 1, 10, 0, 300, 3, 0xff00ffff)
 
  3404 		SetVisualGearValues(sCirc, GetX(sGear), GetY(sGear), 100, 255, 1, 10, 0, 300, 3, 0xff00ffff)
 
  3427 	elseif (cat[cIndex] == loc("Sprite Modification Mode")) and (sSprite ~= nil) then
 
  3405 	elseif (cat[cIndex] == loc("Sprite Modification Mode")) and (sSprite ~= nil) then
 
  3428 		g1, g2, g3, g4, g5, g6, g7, g8, g9, g10 = GetVisualGearValues(sSprite)
 
  3406 		SetVisualGearValues(sSprite, nil, nil, 0, 0, nil, nil, 10000, nil, 10000)
 
  3429 		SetVisualGearValues(sSprite, g1, g2, 0, 0, g5, g6, 10000, g8, 10000, g10 )
 
       
  3430 	elseif (cat[cIndex] == loc("Tagging Mode")) then
 
  3407 	elseif (cat[cIndex] == loc("Tagging Mode")) then
 
  3431 		if (sGear ~= nil) or (closestGear ~= nil) then
 
  3408 		if (sGear ~= nil) or (closestGear ~= nil) then
 
  3432 			--recently disabled
 
  3409 			--recently disabled
 
  3433 			--SetVisualGearValues(sCirc, GetX(sGear), GetY(sGear), 0, 1, 1, 10, 0, 1, 1, 0x00000000)
 
  3410 			--SetVisualGearValues(sCirc, GetX(sGear), GetY(sGear), 0, 1, 1, 10, 0, 1, 1, 0x00000000)
 
  3434 			closestGear = nil
 
  3411 			closestGear = nil
hedgewars