×[مساعدة]× اضافة علي كود صف !

Pro1KiLLeR · December 20, 2016

ألـــســلام عـلـيــــــكــــــم ,,,
كــيـف ألحـال؟

شباب احتاج مساعدة
هذا مود السيارات أف3
Veliche system F3

بعد ان تدخل الماركر يطلع قائمة داخل هذة القائمة
اسم السيارات وسعرها و يطلع شكل السيارة
صورة توضحية :

انا اريد اضيف علي هذة القائمة شي جديد !

بالقائمة يظهر
Vehicle $
Nebula 1819800
Solar 1815300
,,,إلخخخ
اريد اضيف هذا
Vehicle $ name
Nebula 1819800 فراري
Solar 1815300 بي ام دبيو
,,,وإلخخخ
*( انت بعد تدخل بالماركر يطلع لك قائمة مكتوب اسم سيارة وسعرها وتشوف السيارة أريد اسوي إضافة اسم سيارة بالعربي انا احط الأسماء وهو يطلعها

انا أريد اسوي إضافة يطلع اسم سيارة بس بالعربي فراري بي ام انا احط لة اسم كل سيارة بالعربي وهو يطلع والخخخ )*

ألكـود::-

setTimer ( function ()

local theCol = getElementData(root, "BlockExportCol")
	
function isInColExport ()
	if isElement(theCol) and isElementWithinColShape(localPlayer,theCol) then
		return true else return false
	end
end

function ClientExplosionCFunction()
 if isInColExport ()  then
  cancelEvent ()
 end
end
addEventHandler("onClientExplosion", root, ClientExplosionCFunction)

end , 1000, 1 )

local screX, screY = guiGetScreenSize()
 
Window_VS = guiCreateWindow(screX/2-200,screY/2-175,400,350,"...::: Vehicle System < لـوحة ألتـحـكـم بآلـسـيـارات :::...",false)
guiSetAlpha(Window_VS, 0.88)
guiWindowSetSizable(Window_VS, false)
guiSetVisible(Window_VS, false)
Grid_VS = guiCreateGridList(8,42,380,125,false,Window_VS)
guiGridListSetSelectionMode(Grid_VS, 1)
guiGridListAddColumn(Grid_VS,"Vehicle",0.38)
guiGridListAddColumn(Grid_VS,"Price $",0.3)
guiGridListAddColumn(Grid_VS,"Health",0.2)
Label_VeS = guiCreateLabel(8,22,80,50,"Your Vehicle:",false,Window_VS)
Label_VeS = guiCreateLabel(250,22,200,50,"السيآرات ألـخـآص بيـكـ :",false,Window_VS)
Label_SVS = guiCreateLabel(150,170,189,15,"Vehicle Options:",false,Window_VS)
guiLabelSetColor(Label_VeS, 255, 125, 0)
guiLabelSetColor(Label_SVS, 255, 125, 0)
guiSetFont(Label_VeS, "default-bold-small")
guiSetFont(Label_SVS, "default-bold-small")

Button_VS_sn = guiCreateButton(8,200,188,23,"أظهار السيارة",false,Window_VS)guiSetProperty(Button_VS_sn, "NormalTextColour", "FF15EE0A")
Button_VS_dy = guiCreateButton(205,200,188,23,"إخـفاء السيارة",false,Window_VS)guiSetProperty(Button_VS_dy, "NormalTextColour", "FF0CE4F2")

Button_VS_lk = guiCreateButton(8,230,188,23,"إغـلاق/فتح ألسيارة",false,Window_VS)guiSetProperty(Button_VS_lk, "NormalTextColour", "FFF4089E")
Button_VS_lt = guiCreateButton(205,230,188,23,"تشغيل/إطفاء الأضواء",false,Window_VS)guiSetProperty(Button_VS_lt, "NormalTextColour", "FFCFBE2A")

Button_VS_bp = guiCreateButton(8,260,188,23,"وضع علامة علي سيارة",false,Window_VS)guiSetProperty(Button_VS_bp, "NormalTextColour", "FFF50202")

Button_VS_Fix = guiCreateButton(8,290,188,23,"أصـلآح ألسيارة",false,Window_VS)guiSetProperty(Button_VS_Fix, "NormalTextColour", "FF09EC09")
--guiSetProperty(Button_VS_Fix, "Disabled", "True")
Button_VS_Warp = guiCreateButton(205,290,188,23,"أظهآر السيارة بجانبك*(5,000)*",false,Window_VS)guiSetProperty(Button_VS_Warp, "NormalTextColour", "FF1462D6")

Button_VS_sl = guiCreateButton(8,320,188,23,"بيع ألسيارة",false,Window_VS)guiSetProperty(Button_VS_sl, "NormalTextColour", "FF37B179")

Button_VS_close = guiCreateButton(205,320,188,23,"إغـلاق",false,Window_VS)guiSetProperty(Button_VS_close, "NormalTextColour", "FFC7CD1A")

Window_CHK = guiCreateWindow(screX/2-155,screY/2-60,310,120,"!!! WARNING !!!",false)
guiSetVisible(Window_CHK, false)
guiSetProperty(Window_CHK, "AlwaysOnTop", "true")
guiWindowSetSizable(Window_CHK, false)
Label_CHK = guiCreateLabel(21,28,266,36,"",false,Window_CHK)
guiLabelSetColor(Label_CHK, 255, 255, 0)
guiLabelSetHorizontalAlign(Label_CHK,"center",true)
Button_CHK_Y = guiCreateButton(17,73,129,36,"Yes",false,Window_CHK)
Button_CHK_N = guiCreateButton(161,73,129,36,"No",false,Window_CHK)

function updateGridList()
	local data = getElementData(localPlayer, "VehicleInfo")
	if data then
		local rw, cl = guiGridListGetSelectedItem(Grid_VS)
		guiGridListClear(Grid_VS)
		for i, data in ipairs (data) do
			local carName = getVehicleNameFromModel(data["Model"])
			local ID = data["ID"]
			local Cost = data["Cost"]
			local HP = math.floor(data["HP"])
			local PreCost = math.ceil(Cost*.9*HP/100/10)
			local row = guiGridListAddRow(Grid_VS)
			guiGridListSetItemText(Grid_VS, row, 1, carName, false, true)
			guiGridListSetItemData(Grid_VS, row, 1, ID)
			guiGridListSetItemText(Grid_VS, row, 2, PreCost, false, true)
			guiGridListSetItemText(Grid_VS, row, 3, HP.." %", false, true)
		end
		guiGridListSetSelectedItem(Grid_VS, rw, cl)
	end
end

outputChatBox("   xXx ~ Press F3 For >Vehicle System< لشـراء سيآرات أضـغـط أف3 ~ xXx", 255, 125, 0)

bindKey("F3", "down",
function()
if getElementInterior(localPlayer) == 0 and getElementDimension(localPlayer) == 0 then
if getElementData(localPlayer, "MissionWarProtection") and getElementData(localPlayer, "MissionProtection")then return end
    guiSetVisible(Window_VS, not guiGetVisible(Window_VS))
	guiSetVisible (Window_CHK, false)
	showCursor(guiGetVisible(Window_VS))
	end
end)


triggerServerEvent("onOpenGui", localPlayer)

addEventHandler("onClientElementDataChange", root,
function(dd)
	if getElementType(source) == "player" and source == localPlayer and dd == "VehicleInfo" then
		local data = getElementData(source, dd)
		if data then
			updateGridList()
		end
	end
end)

function WINDOW_CLICK_VEHICLE (button, state, absoluteX, absoluteY)
	local id = guiGridListGetSelectedItem(Grid_VS)
	local ID = guiGridListGetItemData(Grid_VS, id, 1)
	if source == Button_VS_close then
		guiSetVisible(Window_VS, false)
		showCursor(false)
	end
	if (source == Grid_VS) then
		if id == -1 and idd then
			guiGridListSetSelectedItem(Grid_VS, idd, 1)
			return false
		else
			idd = guiGridListGetSelectedItem(Grid_VS)
		end
	elseif id == -1 then
	elseif (source == Button_VS_sn) then
	if not isInColExport () then
		triggerServerEvent("SpawnMyVehicle", localPlayer, ID)
                end
	elseif (source == Button_VS_dy) then 
		triggerServerEvent("DestroyMyVehicle", localPlayer, ID)
	elseif (source == Button_VS_lt) then 
		triggerServerEvent("LightsMyVehicle", localPlayer, ID)
	elseif (source == Button_VS_bp) then 
		triggerServerEvent("BlipMyVehicle", localPlayer, ID)
	elseif (source == Button_VS_lk) then 
		triggerServerEvent("LockMyVehicle", localPlayer, ID)
	elseif (source == Button_VS_sl) then 
		guiSetVisible(Window_CHK, true)
		local carName = guiGridListGetItemText(Grid_VS, guiGridListGetSelectedItem(Grid_VS), 1)
		local carprice = guiGridListGetItemText(Grid_VS, guiGridListGetSelectedItem(Grid_VS), 2)
		guiSetText(Label_CHK, 'Are you sure you want to sell this Vehicle "'..carName..'" for $'..carprice)
	elseif source == Button_CHK_Y then
		triggerServerEvent("SellMyVehicle", localPlayer, ID)
		guiSetVisible(Window_VS, false)
		guiSetVisible(Window_CHK, false)
		showCursor(false)
	elseif source == Button_CHK_N then
		guiSetVisible (Window_CHK, false)
	elseif source == Button_VS_Spc then
      if getElementInterior(localPlayer) == 0 then
if getElementData(localPlayer,"Stats") < 2 then
		SpecVehicle(ID)
end
end
	elseif source == Button_VS_Fix then
		triggerServerEvent("FixMyVehicle", localPlayer, ID)
	elseif source == Button_VS_Warp then
	       if not isInColExport () then
		triggerServerEvent("WarpMyVehicle", localPlayer, ID)
                      end
	end
end
addEventHandler("onClientGUIClick", resourceRoot, WINDOW_CLICK_VEHICLE)

function SpecVehicle(id)

	if spc then 
		removeEventHandler("onClientPreRender", root, Sp)
		setCameraTarget(localPlayer)
		if isTimer(freezTimer) then killTimer(freezTimer) end
		freezTimer = setTimer(function() setElementFrozen(localPlayer, false) end, 2500, 1)
		spc = false
	return end
	for i, vehicle in ipairs(getElementsByType("vehicle")) do
		if getElementData(vehicle, "Owner") == localPlayer and getElementData(vehicle, "ID") == id then
			cVeh = vehicle
			spc = true
			addEventHandler("onClientPreRender", root, Sp)
			guiSetVisible(Window_VS, false)
			showCursor(false)
			break
		  end
                        
	end
end

function Sp()
	if isElement(cVeh) then
		local x, y, z = getElementPosition(cVeh)
		setElementFrozen(localPlayer, true)
		setCameraMatrix(x, y-1, z+15, x, y, z)

	else
		removeEventHandler("onClientPreRender", root, Sp)
		setCameraTarget(localPlayer)
		if isTimer(freezTimer) then killTimer(freezTimer) end
		freezTimer = setTimer(function() setElementFrozen(localPlayer, false) end, 2500, 1)
		spc = false
      end
end

ShopMarkersTable = {}	

local ShopTable = {
	[1] = {ID = {{491, 1441400}
		,{540, 1436800}
		,{401, 1430000}
		,{546, 1527700}
		,{505, 1414000}
		,{500, 1402600}
		,{463, 1659300}
		,{492, 1459300}
		,{547, 1429600}
		,{586, 1629600}
		,{467, 1354300}
		,{479, 1244800}
		,{404, 1059900}
		,{410, 946200}
		,{471, 593600}
		,{418, 300000}
		}, vPosX = 2134, vPosY = -1170, vPosZ = 28.15, PosX = 2133, PosY = -1149, PosZ = 23.4, CamX = 2134.1, CamY = -1160, CamZ = 35, lookAtX = 2133.3, lookAtY = -1168, lookAtZ = 28},
	[2] = {ID = {{516, 1819800,'Ss'}
		,{458, 1815300}
		,{580, 1801600}
		,{421, 1801600}
		,{527, 1667300}
		,{581, 2151400}
		,{409, 1744500}
		,{585, 1696600}
		,{474, 1573800}
		,{419, 1539500}
		,{436, 1539500}
		,{545, 1530400}
		,{466, 1616700}
		,{529, 1580200}
		,{550, 1473400}
		,{468, 1966500}
		}, vPosX = 552, vPosY = -1288, vPosZ = 18, PosX = 562, PosY = -1270, PosZ = 16, CamX = 552, CamY = -1275.82, CamZ = 21.61, lookAtX = 552, lookAtY = -1276.77, lookAtZ = 21.29},
	[3] = {ID = {{533, 1973100}
		,{555, 1943400}
		,{507, 2041200}
		,{521, 2427500}
		,{461, 2427500}
		,{566, 1995500}
		,{551, 1972700}
		,{400, 1970400}
		,{558, 1863600}
		,{549, 1824800}
		,{579, 1902000}
		,{576, 1797400}
		,{526, 1781400}
		,{517, 1772300}
		,{575, 1763200}
		,{561, 1822100}
		}, vPosX = 1942.5, vPosY = 2052, vPosZ = 11, PosX = 1946, PosY = 2068, PosZ = 10, CamX = 1930.36, CamY = 2052.78, CamZ = 14.71, lookAtX = 1931.36, lookAtY = 2052.78, lookAtZ = 14.43},
	[4] = {ID = {{536, 2201300}
		,{567, 2258000}
		,{602, 2135100}
		,{534, 2128300}
		,{426, 2214600}
		,{439, 2114600}
		,{412, 2114600}
		,{587, 2087200}
		,{565, 2084900}
		,{589, 2082600}
		,{542, 2071200}
		,{496, 2043900}
		,{535, 2043900}
		,{405, 2127900}
		,{445, 2107300}
		,{518, 1980000}
		}, vPosX = -1950, vPosY = 266, vPosZ = 36.2, PosX = -1954, PosY = 299, PosZ = 34, CamX = -1960.18, CamY = 266.06, CamZ = 37.94, lookAtX = -1959.2, lookAtY = 266.06, lookAtZ = 37.73},
	[5] = {ID = {{411, 3000000}
		,{429, 2765000}
		,{541, 2746700}
		,{451, 2739900}
		,{415, 2593800}
		,{480, 2536800}
		,{402, 2525400}
		,{477, 2484300}
		,{562, 2456900}
		,{506, 2365600}
		,{522, 2856500}
		,{559, 2354200}
		,{560, 2358400}
		,{603, 2253800}
		,{475, 2215000}
		}, vPosX = -1660, vPosY = 1213, vPosZ = 7, PosX = -1634, PosY = 1199, PosZ = 6, CamX = -1648.9, CamY = 1212.27, CamZ = 10.16, lookAtX = -1649.88, lookAtY = 1212.27, lookAtZ = 9.94}
}

VehicleShop_Window = guiCreateWindow(screX-467,screY-387, 450, 375, ".:[Vehicle Shop A7bab iRaQ]:.", false)
guiSetVisible(VehicleShop_Window, false)
guiWindowSetSizable(VehicleShop_Window , false)
guiSetAlpha(VehicleShop_Window, 0.8)
carGrid = guiCreateGridList(23, 26, 430, 270, false, VehicleShop_Window)
guiGridListSetSelectionMode(carGrid, 0)
carColumn = guiGridListAddColumn(carGrid, "Vehicle", 0.5)
costColumn = guiGridListAddColumn(carGrid, "$", 0.3)
carButton = guiCreateButton(180, 340, 110, 20,"شـرآء ألسيارة", false, VehicleShop_Window)
closeButton = guiCreateButton(335, 340, 100, 20, "أغـلآق", false, VehicleShop_Window)
CarNameLabel = guiCreateLabel(305, 300, 100, 16, "أسـم السيارة :", false, VehicleShop_Window)
carColorButton = guiCreateButton(10, 340, 125, 20,"أخـتـيار لون للسيارة", false, VehicleShop_Window)
guiLabelSetColor(CarNameLabel, 255, 0, 0)
CarName = guiCreateLabel(363, 165, 82, 16, "Noun", false, VehicleShop_Window)
guiLabelSetColor(CarName, 0, 255, 0)
CarPriceLabel = guiCreateLabel(295, 310, 100, 16, "سعر ألسيارة:", false, VehicleShop_Window)
guiLabelSetColor(CarPriceLabel,255,0,0)
CarPrice = guiCreateLabel(358, 192, 82, 16, "Noun", false, VehicleShop_Window)
guiLabelSetColor(CarPrice, 0, 255, 0)

for i, M in ipairs(ShopTable) do
	ShopMarker = createMarker(M["PosX"], M["PosY"], M["PosZ"], "cylinder", 2, 255, 0, 0, 127)
	ShopMarkerShader = createMarker(M["PosX"], M["PosY"], M["PosZ"], "cylinder", 2, 200, 150, 0, 127)
	ShopMarkersTable[ShopMarker] = true
	setElementID(ShopMarker, tostring(i))
	createBlipAttachedTo(ShopMarker, 55, 2, 255, 255, 255, 255, 0, 400)
end

addEventHandler("onClientGUIClick", resourceRoot,
function()
	if (source == carGrid) then
		local carName = guiGridListGetItemText(carGrid, guiGridListGetSelectedItem(carGrid), 1)
		local carprice = guiGridListGetItemText(carGrid, guiGridListGetSelectedItem(carGrid), 2)
		if guiGridListGetSelectedItem(carGrid) ~= -1 then
			guiSetText(CarName, carName)
			guiSetText(CarPrice, "$"..carprice)
			local carID = getVehicleModelFromName(carName)
			if isElement(veh) then
				setElementModel(veh, carID)
			return end
			veh = createVehicle(carID, ShopTable[i]["vPosX"], ShopTable[i]["vPosY"], ShopTable[i]["vPosZ"])
			setVehicleDamageProof(veh, true)
			setElementFrozen(veh, true)
			setVehicleColor(veh, r1, g1, b1, r2, g2, b2)
			timer = setTimer(function() local x, y, z = getElementRotation(veh) setElementRotation(veh, x, y, z+3) end, 50, 0)
		else
			guiSetText(CarName, "Noun")
			guiSetText(CarPrice, "Noun")
			r1, g1, b1, r2, g2, b2 = math.random(0, 255), math.random(0, 255), math.random(0, 255), math.random(0, 255), math.random(0, 255), math.random(0, 255)
			if isElement(veh) then
				destroyElement(veh)
			end
			if isTimer(timer) then
				killTimer(timer)
			end
		end
		elseif (source == carColorButton) then
		openColorPicker()
	elseif (source == carButton) then
		if guiGridListGetSelectedItem(carGrid) then
			local carName = guiGridListGetItemText(carGrid, guiGridListGetSelectedItem(carGrid), 1)
			local carID = getVehicleModelFromName(carName)
			local carCost = guiGridListGetItemText (carGrid, guiGridListGetSelectedItem(carGrid), 2)
			local r1, g1, b1, r2, g2, b2 = getVehicleColor(veh, true)
			triggerServerEvent("onBuyNewVehicle", localPlayer, carID, carCost, r1, g1, b1, r2, g2, b2)
			guiSetVisible(VehicleShop_Window, false)
			showCursor(false)
			setElementFrozen(localPlayer, false)
			fadeCamera(false, 1.0)
			setTimer(function() fadeCamera(true, 0.5) setCameraTarget(localPlayer) end, 1000, 1)
			if isElement(veh) then
				destroyElement(veh)
			end
			if isTimer(timer) then
				killTimer(timer)
			end
		end
	elseif (source == closeButton) then
		if guiGetVisible(VehicleShop_Window) then 
			guiSetVisible(VehicleShop_Window, false)
			showCursor(false)
			setElementFrozen(localPlayer, false)
			fadeCamera(false, 1.0)
			setTimer(function() fadeCamera(true, 0.5) setCameraTarget(localPlayer) end, 1000, 1)
			if isElement(veh) then
				destroyElement(veh)
			end
			if isTimer(timer) then
				killTimer(timer)
			end
		end
	end
end)

function openColorPicker()
	if (colorPicker.isSelectOpen) or not isElement(veh) then return end
	colorPicker.openSelect(colors)
end

function closedColorPicker()
end

function updateColor()
	if (not colorPicker.isSelectOpen) then return end
	local r, g, b = colorPicker.updateTempColors()
	if (veh and isElement(veh)) then
		r1, g1, b1, r2, g2, b2 = getVehicleColor(veh, true)
		if (guiCheckBoxGetSelected(checkColor1)) then
			r1, g1, b1 = r, g, b
		end
		if (guiCheckBoxGetSelected(checkColor2)) then
			r2, g2, b2 = r, g, b
		end
		setVehicleColor(veh, r1, g1, b1, r2, g2, b2)
	end
end
addEventHandler("onClientRender", root, updateColor)

--[[addCommandHandler("xx", function()
	local x, y, z, lx, ly, lz = getCameraMatrix()
	setCameraMatrix(x, y, z, lx, ly, lz)
	outputChatBox(x..", "..y..", "..z..", "..lx..", "..ly..", "..z)
end)]]

addEventHandler("onClientMarkerHit", resourceRoot,
function(player)
	if getElementType(player) ~= "player" or player ~= localPlayer or isPedInVehicle(player) then return end
	if ShopMarkersTable[source] then
		i = tonumber(getElementID(source))
		guiGridListClear(carGrid)
		for i, v in ipairs(ShopTable[i]["ID"]) do
			local carName = getVehicleNameFromModel(v[1])
			local row = guiGridListAddRow(carGrid)
			guiGridListSetItemText(carGrid, row, 1, carName, false, true)
			guiGridListSetItemText(carGrid, row, 2, tostring(v[2]), false, true)
		end
		setCameraMatrix(ShopTable[i]["CamX"], ShopTable[i]["CamY"], ShopTable[i]["CamZ"], ShopTable[i]["lookAtX"], ShopTable[i]["lookAtY"], ShopTable[i]["lookAtZ"])
		guiSetVisible(VehicleShop_Window, true)
		showCursor(true)
		guiGridListSetSelectedItem(carGrid, 0, 1)
		setTimer(function()
			setElementFrozen(localPlayer, true)
			local carName = guiGridListGetItemText(carGrid, 0, 1)
			local carID = getVehicleModelFromName(carName)
			local x, y, z = ShopTable[i]["vPosX"], ShopTable[i]["vPosY"], ShopTable[i]["vPosZ"]
			if isElement(veh) then
				destroyElement(veh)
			end
			if isTimer(timer) then
				killTimer(timer)
			end
			r1, g1, b1, r2, g2, b2 = math.random(0, 255), math.random(0, 255), math.random(0, 255), math.random(0, 255), math.random(0, 255), math.random(0, 255)
			veh = createVehicle(carID, x, y, z)
			setVehicleDamageProof(veh, true)
			setElementFrozen(veh, true)
			setVehicleColor(veh, r1, g1, b1, r2, g2, b2)
			timer = setTimer(function() local x, y, z = getElementRotation(veh) setElementRotation(veh, x, y, z+3) end, 50, 0)
		end, 100, 1)
	end
end)

شـكـرآ

AE. · December 20, 2016

guiGridListAddColumn

guiGridListAddRow

guiGridListSetItemText

استخدم هدول التلاتة

Pro1KiLLeR · December 20, 2016

55 minutes ago, 3laa33 said:

guiGridListAddColumn

guiGridListAddRow

guiGridListSetItemText

استخدم هدول التلاتة

رجاء سوي انت الي

# انا فتحت التلاتة ولكن لم اعرف كيف! رجاء سويها انت

Sign In

×[مساعدة]× اضافة علي كود صف !

Recommended Posts

Pro1KiLLeR

Link to comment

AE.

Link to comment

Pro1KiLLeR

Link to comment

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

Activity

MTA Network

Social Media