Jw8. Posted January 9, 2017 Share Posted January 9, 2017 سلام عليكم معي كود سيارت طبعا لقروبات اضغط موفق متجي سيارت ؟؟ الكود 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
Abu-Solo Posted January 9, 2017 Share Posted January 9, 2017 ياريت تحط الاكواد داخل <> عشان نففهم شوي شوي ادري اني اقدر احطه فـ مفكرة ولكن عشان اللي يدخلون ما يحسون ان فيه شئ ملخبط Link to comment
Jw8. Posted January 9, 2017 Author Share Posted January 9, 2017 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
Jw8. Posted January 9, 2017 Author Share Posted January 9, 2017 (edited) 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 January 9, 2017 by DmAr511 Link to comment
Jw8. Posted January 9, 2017 Author Share Posted January 9, 2017 محد يساعدني ؟ طيب لي كتبين هاتو كود سيرفر ؟ Link to comment
N3xT Posted January 9, 2017 Share Posted January 9, 2017 1 hour ago, DmAr511 said: محد يساعدني ؟ طيب لي كتبين هاتو كود سيرفر ؟ ما نشتغل عندك حنا عشان نكون موجودين 24 ساعة نشوف أكوادك أتمنى يكون عندك أسلوب فالتعامل مع الناس 1 Link to comment
#BrosS Posted January 9, 2017 Share Posted January 9, 2017 debugscript 3 واخي الكريم هيك مايصير كدا اعطيت مود بالكامل ويسمى توزيع أكواد المرة الجاية شوق الدي بق بالأول واطرح فقط الأسطر اللي فيها مشاكل #بالتوفيق Link to comment
Jw8. Posted January 14, 2017 Author Share Posted January 14, 2017 On ٩/١/٢٠١٧ at 11:55 AM, #BrosS said: debugscript 3 واخي الكريم هيك مايصير كدا اعطيت مود بالكامل ويسمى توزيع أكواد المرة الجاية شوق الدي بق بالأول واطرح فقط الأسطر اللي فيها مشاكل #بالتوفيق مشكور احسن شيء اسوي بنفسي اجيب لوحة حقت سيارات واسويه مثله بزبط = مشكور بروس 1 Link to comment
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now