share/hedgewars/Data/Scripts/Multiplayer/WxW.lua
changeset 13687 a8b2a5e7e9db
parent 13685 09ea1faf97ca
child 13740 2bb7141496a9
equal deleted inserted replaced
13686:3651c63f3c84 13687:a8b2a5e7e9db
   703 	else
   703 	else
   704 		radius = 40
   704 		radius = 40
   705 		baseColor = GetClanColor(GetHogClan(CurrentHedgehog))
   705 		baseColor = GetClanColor(GetHogClan(CurrentHedgehog))
   706 		alpha = rAlpha
   706 		alpha = rAlpha
   707 	end
   707 	end
   708 	SetVisualGearValues(getGearValue(gear,"CIRC"), getGearValue(gear,"RX"), getGearValue(gear,"RY"), 100, 255, 1, 10, 0, radius, 3, baseColor-alpha)
   708 	if getGearValue(gear,"CIRC") ~= nil then
       
   709 		SetVisualGearValues(getGearValue(gear,"CIRC"), getGearValue(gear,"RX"), getGearValue(gear,"RY"), 100, 255, 1, 10, 0, radius, 3, baseColor-alpha)
       
   710 	end
   709 end
   711 end
   710 
   712 
   711 function TrackRadarBlip(gear)
   713 function TrackRadarBlip(gear)
   712 	if GetGearType(gear) ~= gtCase then
   714 	if GetGearType(gear) ~= gtCase then
   713 		return
   715 		return
  1638 		crates[gear] = true
  1640 		crates[gear] = true
  1639 		crateGearsInGame = crateGearsInGame + 1
  1641 		crateGearsInGame = crateGearsInGame + 1
  1640 
  1642 
  1641 		trackGear(gear)
  1643 		trackGear(gear)
  1642 
  1644 
  1643 		table.insert(rCirc, AddVisualGear(0,0,vgtCircle,0,true) )
  1645 		local vg = AddVisualGear(0, 0, vgtCircle, 0, true)
  1644 		setGearValue(gear,"CIRC",rCirc[#rCirc])
  1646 		if vg then
       
  1647 			table.insert(rCirc, vg)
       
  1648 			setGearValue(gear,"CIRC",vg)
       
  1649 			SetVisualGearValues(vg, 0, 0, 100, 255, 1, 10, 0, 40, 3, 0xff00ffff)
       
  1650 		end
  1645 		setGearValue(gear,"RX",0)
  1651 		setGearValue(gear,"RX",0)
  1646 		setGearValue(gear,"RY",0)
  1652 		setGearValue(gear,"RY",0)
  1647 		SetVisualGearValues(rCirc[#rCirc], 0, 0, 100, 255, 1, 10, 0, 40, 3, 0xff00ffff)
       
  1648 
  1653 
  1649 		allowCrate = false
  1654 		allowCrate = false
  1650 		crateSpawned = true
  1655 		crateSpawned = true
  1651 
  1656 
  1652 		rPingTimer = 0
  1657 		rPingTimer = 0
  1679 
  1684 
  1680 		crates[gear] = nil
  1685 		crates[gear] = nil
  1681 		crateGearsInGame = crateGearsInGame - 1
  1686 		crateGearsInGame = crateGearsInGame - 1
  1682 
  1687 
  1683 		for i = 1, #rCirc do
  1688 		for i = 1, #rCirc do
  1684 			if rCirc[i] == getGearValue(gear,"CIRC") then
  1689 			local CIRC = getGearValue(gear,"CIRC")
       
  1690 			if CIRC ~= nil and rCirc[i] == CIRC then
  1685 				DeleteVisualGear(rCirc[i])
  1691 				DeleteVisualGear(rCirc[i])
  1686 				table.remove(rCirc, i)
  1692 				table.remove(rCirc, i)
  1687 			end
  1693 			end
  1688 		end
  1694 		end
  1689 
  1695