Jump to content

x[مشكلة]x الرجاء


Jw8.

Recommended Posts

سلام عليكم 

معي كود سيارت طبعا لقروبات اضغط موفق متجي سيارت ؟؟

 

الكود 

local screenW, screenH = guiGetScreenSize()
----#عدل هنا فقط
local GroupName = "[xCode]"
----
mainWindow = guiCreateWindow((screenW - 368) / 2, (screenH - 415) / 2, 368, 415, "[ "..GroupName.." ] |  Vehicles", false)
guiWindowSetSizable(mainWindow, false)
guiSetAlpha(mainWindow, 1.00)
guiSetVisible(mainWindow, false)

mainTab = guiCreateTabPanel(9, 21, 350, 320, false, mainWindow)
local vehicles = {
cars = {
tab = guiCreateTab("Cars", mainTab),
list = {
{"Cheetah", 415},
{"Bullet", 541},
{"Infernus", 411},
{"Sultan", 560},
{"Super GT", 506},
{"Turismo", 451},
{"Comet", 480},
{"Huntley", 579},
--
{"Hustler", 545},
{"Bus", 431},
{"Landstalker", 400},
{"Blade", 536},
{"Phoenix", 603},
{"Sabre", 475},
--
{"Bandito", 568}
}
},
bikes = {
tab = guiCreateTab("Bikes", mainTab),
list = {
{"BF-400", 581},
{"FCR-900", 521},
{"NRG-511", 522},
{"PCJ-600", 461},
{"Sanchez", 468}
}
},
planes = {
tab = guiCreateTab("Planes", mainTab),
list = {
{"Sparrow", 469},
{"Maverick", 487}
}
}
}

vehicles.cars.gridlist = guiCreateGridList(0.02, 0.03, 0.95, 0.90, true, vehicles.cars.tab)
table.insert(vehicles.cars, guiGridListAddColumn(vehicles.cars.gridlist, "Cars", 0.9))
vehicles.bikes.gridlist = guiCreateGridList(0.02, 0.03, 0.95, 0.90, true, vehicles.bikes.tab)
table.insert(vehicles.bikes, guiGridListAddColumn(vehicles.bikes.gridlist, "Bikes", 0.9))
vehicles.planes.gridlist = guiCreateGridList(0.02, 0.03, 0.95, 0.90, true, vehicles.planes.tab)
table.insert(vehicles.planes, guiGridListAddColumn(vehicles.planes.gridlist, "Planes", 0.9))

Select = guiCreateButton(0.05, 0.84, 0.90, 0.06, "Select Vehicle", true, mainWindow)
CloseWindow = guiCreateButton(0.05, 0.92, 0.90, 0.06, "Close", true, mainWindow)

for i,v in pairs(vehicles) do
    for _,k in ipairs(v.list) do
        local row = guiGridListAddRow(v.gridlist)
        guiGridListSetItemText(v.gridlist, row, v[1], k[1], false, false)
    end
end


local car = { 411,415,451,506,560,562,603,463,522, }

function OpenWind (hitElement)
guiSetVisible(mainWindow, true)
showCursor(true)
setTimer(setElementFrozen,50,1,localPlayer,true)
end
addEvent("OpenGroupWindow:"..GroupName.."", true)
addEventHandler("OpenGroupWindow:"..GroupName.."", getLocalPlayer(), OpenWind)


function selectVehicle()
for i,v in pairs(vehicles) do
local tab = v.tab
if guiGetSelectedTab(mainTab) == tab then
local gridlist = v.gridlist
if guiGridListGetSelectedItem(gridlist) ~= -1 then
local row = guiGridListGetSelectedItem(gridlist)
local vehName = guiGridListGetItemText(gridlist, row, v[1])
for _,k in ipairs(v.list) do
if k[1] == vehName then
if i == "planes" then
triggerServerEvent("SpawnBase:"..GroupName.."", localPlayer, k[2], true)
else
triggerServerEvent("SpawnBase:"..GroupName.."", localPlayer, k[2], false)
end
break
end
end
guiSetVisible(mainWindow, false)
showCursor(false)
setElementData(localPlayer,"ShopPanel",false)
break
end
end
end
end
addEventHandler("onClientGUIClick", Select, selectVehicle, false)

function CloseWind()
setTimer(setElementFrozen,50,1,localPlayer,false)
guiSetVisible(mainWindow, false)
showCursor(false)
end
addEventHandler("onClientGUIClick", CloseWindow, CloseWind, false)

------------
addEventHandler("onClientGUIClick",Select, 
function () 
local cars = guiGridListGetItemText ( vehicles.cars.gridlist, guiGridListGetSelectedItem ( vehicles.cars.gridlist ), 1 )
 if cars == "" then return outputChatBox("الرجاء الاختيار",255, 0, 0,false) end
triggerServerEvent("cars",localPlayer,cars) 
guiSetVisible(mainWindow,false)
showCursor(false)
end,false
)

addEventHandler("onClientGUIClick",Select, 
function () 
local bikes = guiGridListGetItemText ( vehicles.bikes.gridlist, guiGridListGetSelectedItem ( vehicles.bikes.gridlist ), 1 )
 if bikes == "" then return outputChatBox("الرجاء الاختيار",255, 0, 0,false) end
triggerServerEvent("bikes",localPlayer,bikes) 
guiSetVisible(mainWindow,false)
showCursor(false)
end,false
)

addEventHandler("onClientGUIClick",Select, 
function () 
local planes = guiGridListGetItemText ( vehicles.planes.gridlist, guiGridListGetSelectedItem ( vehicles.planes.gridlist ), 1 )
 if planes == "" then return outputChatBox("الرجاء الاختيار",255, 0, 0,false) end
triggerServerEvent("planes",localPlayer,planes) 
guiSetVisible(mainWindow,false)
showCursor(false)
end,false
)

------------

local cars = createMarker (2141.6999511719,1029,10.10000038147, "cylinder", 2, 0 , 255, 0, 255 )
addEventHandler('onClientMarkerHit', cars,
function ( hitPlayer )
         if ( hitPlayer == localPlayer ) and getPlayerTeam( hitPlayer ) and getTeamName( getPlayerTeam( hitPlayer ) ) == 'No Team' and getElementData( hitPlayer, 'Group' ) == '[xCode]' then
         guiSetVisible ( mainWindow ,true )
        showCursor( true )
      guiSetInputEnabled(false)
    end
end
)

addEventHandler( "onClientGUIClick", button ,
function ()
    guiSetVisible(mainWindow,false)
    showCursor(false,false)
end
)

Link to comment
local screenW, screenH = guiGetScreenSize()
----#عدل هنا فقط
local GroupName = "[xCode]"
----
mainWindow = guiCreateWindow((screenW - 368) / 2, (screenH - 415) / 2, 368, 415, "[ "..GroupName.." ] |  Vehicles", false)
guiWindowSetSizable(mainWindow, false)
guiSetAlpha(mainWindow, 1.00)
guiSetVisible(mainWindow, false)

mainTab = guiCreateTabPanel(9, 21, 350, 320, false, mainWindow)
local vehicles = {
cars = {
tab = guiCreateTab("Cars", mainTab),
list = {
{"Cheetah", 415},
{"Bullet", 541},
{"Infernus", 411},
{"Sultan", 560},
{"Super GT", 506},
{"Turismo", 451},
{"Comet", 480},
{"Huntley", 579},
--
{"Hustler", 545},
{"Bus", 431},
{"Landstalker", 400},
{"Blade", 536},
{"Phoenix", 603},
{"Sabre", 475},
--
{"Bandito", 568}
}
},
bikes = {
tab = guiCreateTab("Bikes", mainTab),
list = {
{"BF-400", 581},
{"FCR-900", 521},
{"NRG-511", 522},
{"PCJ-600", 461},
{"Sanchez", 468}
}
},
planes = {
tab = guiCreateTab("Planes", mainTab),
list = {
{"Sparrow", 469},
{"Maverick", 487}
}
}
}

vehicles.cars.gridlist = guiCreateGridList(0.02, 0.03, 0.95, 0.90, true, vehicles.cars.tab)
table.insert(vehicles.cars, guiGridListAddColumn(vehicles.cars.gridlist, "Cars", 0.9))
vehicles.bikes.gridlist = guiCreateGridList(0.02, 0.03, 0.95, 0.90, true, vehicles.bikes.tab)
table.insert(vehicles.bikes, guiGridListAddColumn(vehicles.bikes.gridlist, "Bikes", 0.9))
vehicles.planes.gridlist = guiCreateGridList(0.02, 0.03, 0.95, 0.90, true, vehicles.planes.tab)
table.insert(vehicles.planes, guiGridListAddColumn(vehicles.planes.gridlist, "Planes", 0.9))

Select = guiCreateButton(0.05, 0.84, 0.90, 0.06, "Select Vehicle", true, mainWindow)
CloseWindow = guiCreateButton(0.05, 0.92, 0.90, 0.06, "Close", true, mainWindow)

for i,v in pairs(vehicles) do
	for _,k in ipairs(v.list) do
		local row = guiGridListAddRow(v.gridlist)
		guiGridListSetItemText(v.gridlist, row, v[1], k[1], false, false)
	end
end


local car = { 411,415,451,506,560,562,603,463,522, }

function OpenWind (hitElement)
guiSetVisible(mainWindow, true)
showCursor(true)
setTimer(setElementFrozen,50,1,localPlayer,true)
end
addEvent("OpenGroupWindow:"..GroupName.."", true)
addEventHandler("OpenGroupWindow:"..GroupName.."", getLocalPlayer(), OpenWind)


function selectVehicle()
for i,v in pairs(vehicles) do
local tab = v.tab
if guiGetSelectedTab(mainTab) == tab then
local gridlist = v.gridlist
if guiGridListGetSelectedItem(gridlist) ~= -1 then
local row = guiGridListGetSelectedItem(gridlist)
local vehName = guiGridListGetItemText(gridlist, row, v[1])
for _,k in ipairs(v.list) do
if k[1] == vehName then
if i == "planes" then
triggerServerEvent("SpawnBase:"..GroupName.."", localPlayer, k[2], true)
else
triggerServerEvent("SpawnBase:"..GroupName.."", localPlayer, k[2], false)
end
break
end
end
guiSetVisible(mainWindow, false)
showCursor(false)
setElementData(localPlayer,"ShopPanel",false)
break
end
end
end
end
addEventHandler("onClientGUIClick", Select, selectVehicle, false)

function CloseWind()
setTimer(setElementFrozen,50,1,localPlayer,false)
guiSetVisible(mainWindow, false)
showCursor(false)
end
addEventHandler("onClientGUIClick", CloseWindow, CloseWind, false)

------------
addEventHandler("onClientGUIClick",Select, 
function () 
local cars = guiGridListGetItemText ( vehicles.cars.gridlist, guiGridListGetSelectedItem ( vehicles.cars.gridlist ), 1 )
 if cars == "" then return outputChatBox("الرجاء الاختيار",255, 0, 0,false) end
triggerServerEvent("cars",localPlayer,cars) 
guiSetVisible(mainWindow,false)
showCursor(false)
end,false
)

addEventHandler("onClientGUIClick",Select, 
function () 
local bikes = guiGridListGetItemText ( vehicles.bikes.gridlist, guiGridListGetSelectedItem ( vehicles.bikes.gridlist ), 1 )
 if bikes == "" then return outputChatBox("الرجاء الاختيار",255, 0, 0,false) end
triggerServerEvent("bikes",localPlayer,bikes) 
guiSetVisible(mainWindow,false)
showCursor(false)
end,false
)

addEventHandler("onClientGUIClick",Select, 
function () 
local planes = guiGridListGetItemText ( vehicles.planes.gridlist, guiGridListGetSelectedItem ( vehicles.planes.gridlist ), 1 )
 if planes == "" then return outputChatBox("الرجاء الاختيار",255, 0, 0,false) end
triggerServerEvent("planes",localPlayer,planes) 
guiSetVisible(mainWindow,false)
showCursor(false)
end,false
)



------------

local cars = createMarker (2141.6999511719,1029,10.10000038147, "cylinder", 2, 0 , 255, 0, 255 )
addEventHandler('onClientMarkerHit', cars,
function ( hitPlayer )
         if ( hitPlayer == localPlayer ) and getPlayerTeam( hitPlayer ) and getTeamName( getPlayerTeam( hitPlayer ) ) == 'No Team' and getElementData( hitPlayer, 'Group' ) == '[xCode]' then
         guiSetVisible ( mainWindow ,true )
        showCursor( true )
      guiSetInputEnabled(false)
    end
end
)

addEventHandler( "onClientGUIClick", button ,
function ()
    guiSetVisible(mainWindow,false)
    showCursor(false,false)
end
)

--------------------------
------------------------------------------------------------------
-- BASE10 -- هذا الاسم لازم تغيره في ملف السيرفر والكلينت في كل مقر-- تسوي استبدال الكل وتحط رقم 2 و 3 و 4 الخ--
------------------------------------------------------------------
local groupName = '[xCode]' -- اسم القروب


--------------------
RadioMarkerBASE10 = createMarker(
2154.1999511719,1129.4000244141,11.60000038147, "cylinder", 1.5, 150, 0, 150, 255)
setElementInterior ( RadioMarkerBASE10, 0 )

setElementDimension ( RadioMarkerBASE10, 0 )

Window_Radio = guiCreateWindow(271, 144, 342, 453, "Radio", false)
guiSetVisible(Window_Radio, false)
guiWindowSetSizable(Window_Radio, false)

button_Play = guiCreateButton(40, 386, 61, 34, "Play", false, Window_Radio)
button_Stop = guiCreateButton(127, 386, 61, 34, "Stop", false, Window_Radio)

button_Close_Radio = guiCreateButton(290, 406, 33, 29, "x", false, Window_Radio)


songGridList = guiCreateGridList(28, 38, 293, 324, false, Window_Radio)
guiGridListSetSelectionMode(songGridList,0)
songColumn = guiGridListAddColumn(songGridList,"Artist - Title",0.8)
songs = {
{"طني ورور","http://alshira3.com/uploads/songs/gmylh_6ny_wrwr.mp3"},
{"وديع - قمر زمان","http://www.s1.bagdady.com/songs/ferqat-alorans/garatak-aldenya.mp3"},
{"جورج وسوف - كلامك يأ حبيبي","http://www.al7an.org/songs/mp3/arabic/2008/goerge-wassof-klamk-ya-7bebe/gorg_wassof_kalamak_ya_habeby.mp3"},
{"رابح صقر - شفت الحياه","http://alshira3.com/uploads/songs/shft_al7yah.mp3"},
{"زايد الصالح - ذهب ذهب ","http://alshira3.com/uploads/songs/dhb_dhb.mp3"},
{"زايد الصالح - حكم المؤبد","http://alshira3.com/uploads/songs/7km_aloabd.mp3"},
{"جورج وسوف - ادي الكانو","http://www.al7an.org/songs/mp3/arabic/2008/goerge-wassof-klamk-ya-7bebe/gorg_wassof_ady_elly_kano.mp3"},
{"زايد الصالح - شسويله عشان يحبني","http://www.alshira3.com/songs/zayd-alsalh/17.mp3"},
{"زايد الصالح - سويت فيا","http://alshira3.com/uploads/songs/swyt_fya.mp3"},
{"زايد الصالح - اه من الدنيا","http://alshira3.com/uploads/songs/ah_mn_aldnya.mp3"},
{"زايد الصالح - حبيبي نساني","http://alshira3.com/uploads/songs/7byby_nsany.mp3"},
{"هيفا وهبي -واوا","http://www.al7an.org/songs/mp3/arabic/2010/Hayfa_Wehby_Baby/Haifa_Wehbi-05.El_Wawaa.mp3"},
{"معلم","http://cdn.top4top.net/d_840ba715861.mp3"},
{"Inna - Sexy Wild","http://www.woo55.pk/adata/741/Inna%20-%20Crazy%20Sexy%20Wild%20(www.SongsLover.Pk).mp3"},
{"Akon - chammak challo","http://brit-asian.com/wp-content/uploads/2011/05/Ra-One-Chamak-Challo-Akon.mp3"},
{"Pitbull - Give Me Everything","http://a.tumblr.com/tumblr_lm8dlxNmwl1qck53eo1.mp3"},
{"PSV-Gangm","http://www.al7an.org/songs/mp3/desco/02.mp3"},


}

for i,v in ipairs (songs) do
	local row = guiGridListAddRow (songGridList)
	guiGridListSetItemText (songGridList, row, 1, tostring(v[1]), false, true)
	guiGridListSetItemData (songGridList, row, 1, tostring(v[2]))
end

function CloseTheGui()
	guiSetVisible(Window_Radio, false)
	showCursor(false)
end
addEventHandler("onClientPlayerWasted", getLocalPlayer(), CloseTheGui)
addEventHandler("onClientGUIClick", button_Close_Radio, CloseTheGui, false)

function PlayRadio()
	SongFileB = guiGridListGetItemData(songGridList, guiGridListGetSelectedItem (songGridList), 1)
	local scheck = guiGridListGetItemText(songGridList, guiGridListGetSelectedItem ( songGridList ), 1)
	outputChatBox(scheck,255, 255, 0, true )
	if scheck then
		local stationName = guiGridListGetItemText (songGridList, scheck, songColumn)
		if stationName then
			triggerServerEvent("SetSongBASE10", localPlayer, SongFileB)
		else
			outputChatBox("unknown error")
		end
	end
end
addEventHandler("onClientGUIClick", button_Play, PlayRadio, false)

addEvent("StartSongBASE10", true)
addEventHandler("StartSongBASE10", root,
function(link)
	if isElement(soundBASE10) then stopSound(soundBASE10) end
	if not link then return end
	CloseTheGui()		
	soundBASE10 = playSound3D(link, 2154.1999511719,1129.4000244141,11.60000038147, true) 
	setElementInterior ( soundBASE10, 0 )

	setElementDimension ( soundBASE10, 0 )
	setSoundVolume(soundBASE10, 2)
	setSoundMaxDistance(soundBASE10, 250)
end)

function SongPlaying (hitPlayer)
	if getElementType(hitPlayer) == "vehicle" or getElementType(hitPlayer) == "marker" or hitPlayer ~= localPlayer then return end
	local theGroup = getElementData (hitPlayer , "Group" )
		if theGroup == groupName then
		if isElement(soundBASE10) then stopSound(soundBASE10) end
		guiSetVisible(Window_Radio, true)
		showCursor(true)
		else
		outputChatBox("group "..groupName.." only",255, 0, 255, true )
		end
end
addEventHandler ("onClientMarkerHit", RadioMarkerBASE10,SongPlaying)

function StopRadio()
	if isElement(soundBASE10) then stopSound(soundBASE10) end
	triggerServerEvent("SetSongBASE10", localPlayer, false)
end
addEventHandler("onClientGUIClick", button_Stop, StopRadio, false)

 

Link to comment
1 minute ago, MR.Mosa said:

وين اكواد Server


addEvent("spawningVehicle", true)
local groupName = '[xCode]'
local activeVehicles = {}
local playersVehicles = {}
local occupiedVehicles = {}
local activeTimers = {}
local Intruders = {}
 
local function addVehicleToDestroyList(vehicleNumber)
    activeTimers[vehicleNumber] = setTimer(
        function(vehicleNumber)
            destroyElement(activeVehicles[vehicleNumber])
            activeVehicles[vehicleNumber] = nil
            activeTimers[vehicleNumber] = nil
            for i,v in pairs(playersVehicles) do
                if v == vehicleNumber then
                    playersVehicles[i] = nil
                    break
                end
            end
        end, 30000, 1, vehicleNumber
    )
end
 
local function removeVehicleFromDestroyList(vehicleNumber)
    if isTimer(activeTimers[vehicleNumber]) then
        killTimer(activeTimers[vehicleNumber])
        activeTimers[vehicleNumber] = nil
    end
end
addEventHandler("spawningVehicle", root,
    function(model, planes)
local poo = {
                  {2586.10718,2091.75415,15.67202},
                  {2586.10718,2091.75415,15.67202}
                  }
        local x, y, z = 0, 0, 0
        local rx, ry, rz = 0, 0, 0
        if planes then
         x, y, z = unpack(poo[math.random(#poo)])
            rx, ry, rz = 0.3275146484375, 359.78839111328, 271.46984863281
        else
            x, y, z = 2616.11230,2097.94360,10.81714
            rx, ry, rz = 359.54382324219, 359.99975585938, 3.48193359375
        end
        if playersVehicles[client] then
            destroyElement(activeVehicles[playersVehicles[client]])
            removeVehicleFromDestroyList(playersVehicles[client])
            playersVehicles[client] = nil
        end
        local vehicle = #activeVehicles + 1
        activeVehicles[vehicle] = createVehicle(model, x, y, z, rx, ry, rz)
        setVehicleColor(activeVehicles[vehicle], 0, 0, 255)
        warpPedIntoVehicle(client, activeVehicles[vehicle])
        addVehicleUpgrade(activeVehicles[vehicle], 1010)
        playersVehicles[client] = vehicle
        occupiedVehicles[vehicle] = nil
    end
)
 
addEventHandler("onVehicleExit", root,
    function(player, seat)
        if seat == 0 then
            if playersVehicles[player] then
                addVehicleToDestroyList(playersVehicles[player])
                occupiedVehicles[playersVehicles[player]] = nil
            else
                for i,v in pairs(activeVehicles) do
                    if v == source then
                        addVehicleToDestroyList(i)
                        occupiedVehicles[i] = nil
                    end
                end
            end
        end
    end
)
 
addEventHandler("onVehicleEnter", root,
    function(player, seat)
        if seat == 0 then
            if playersVehicles[player] then
                removeVehicleFromDestroyList(playersVehicles[player])
                occupiedVehicles[playersVehicles[player]] = true
            else
                for i,v in pairs(activeVehicles) do
                    if v == source then
                        removeVehicleFromDestroyList(i)
                        occupiedVehicles[i] = true
                        break
                    end
                end
            end
        end
    end
)
 
addEventHandler("onVehicleStartEnter", root,
    function(player, seat)
        for i,v in pairs(activeVehicles) do
            if v == source then
                if getElementData(player, "Group") ~= "[xCode]" then
                    outputChatBox("This vehicle is only for group!", player, 0, 0, 255)
                    cancelEvent()
                else
                    if seat == 0 and occupiedVehicles[i] then
                        outputChatBox("You cannot take this vehicle as someone in it already!", player, 255, 0, 0)
                        cancelEvent()
                    end
                end
                break
            end
        end
    end
)
 
addEventHandler("onVehicleExplode", root,
    function()
        for i,v in pairs(activeVehicles) do
            if v == source then
                removeVehicleFromDestroyList(i)
                activeVehicles[i] = nil
                occupiedVehicles[i] = nil
                setTimer(destroyElement, 2000, 1, source)
                for k,s in pairs(playersVehicles) do
                    if i == s then
                        playersVehicles[k] = nil
                        break
                    end
                end
                break
            end
        end
    end
)

 

Edited by DmAr511
Link to comment
1 hour ago, DmAr511 said:

محد يساعدني ؟ طيب لي كتبين هاتو كود سيرفر ؟

ما نشتغل عندك حنا عشان نكون موجودين 24 ساعة نشوف أكوادك

أتمنى يكون عندك أسلوب فالتعامل مع الناس 

  • Like 1
Link to comment

debugscript 3 

واخي الكريم هيك مايصير كدا اعطيت مود بالكامل ويسمى توزيع أكواد

المرة الجاية شوق الدي بق بالأول واطرح فقط الأسطر اللي فيها مشاكل

#بالتوفيق

Link to comment
On ٩‏/١‏/٢٠١٧ at 11:55 AM, #BrosS said:

debugscript 3 

واخي الكريم هيك مايصير كدا اعطيت مود بالكامل ويسمى توزيع أكواد

المرة الجاية شوق الدي بق بالأول واطرح فقط الأسطر اللي فيها مشاكل

#بالتوفيق

مشكور احسن شيء اسوي بنفسي اجيب لوحة حقت  سيارات واسويه مثله بزبط = مشكور بروس

  • Like 1
Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...