شرح كامل منى فى برمجه المقرات + اى استفسارات لا تطردد

M[ROYAL]R · August 18, 2014

السلام عليكم شباب الموضوع طويل شوى بس شامل و مفيد

يلا نبدآ بسم الله

اول شئ مركر الدخول الى البيت -1

ملف سيرفر

local groupName = 'ROYALS' -- أسم العصابه او الجروب 
      
 eH = createMarker(1456.94214,2773.77466,12.82031"arrow",1.70000004,255,0,0) --احدثيات مركر الدخول 
      
    addEventHandler('onMarkerHit',eH,function(entered) 
        if getElementType(entered) == 'player' and not isPedInVehicle(entered) and getElementData(entered,'gang') == groupName then --التاكد ان الاعب فى الفريق 
            setElementPosition( entered,1264.21545,-783.05164,1091.90625) --احدثيات عند الدخول 
                setElementInterior ( entered, 5 ) -- انترو حق البيتق  
                    setElementDimension ( entered, 103050  ) --العالم الوهمى حالبيت 
            end 
        end 
    ) 
  
  
     local groupName = 'ROYALS' -- اسم العصابه 
  
     oH = createMarker(1261.07483,-785.47241,1093.90625,"arrow",2,255,0,0) -- مركر الخروج من البيت 
                  setElementInterior ( oH, 5 ) -- انترو مركر الخروج من البيت  
                    setElementDimension ( oH, 103050  ) -- العالم الوهمى حق مركر الخروج من البيت 
      
    addEventHandler('onMarkerHit',oH,function(entered) 
        if getElementType(entered) == 'player' and not isPedInVehicle(entered) and getElementData(entered,'gang') == groupName then  --التاكد ان الاعب فى الفريق 
            setElementPosition( entered,1461.08044,2774.06177,10.82031) -- احدثيات عند الخروج 
                setElementInterior ( entered, 0 ) -- انترو  عند الخروج 
                    setElementDimension ( entered, 0  ) --  عالم الوهمى عند الخروج  
            end 
        end 
    )

اثنان هو مركر السيارات و هو عباره عن ثلاث ملفات -2

اول ملف كلينت

GUIEditor_Grid = {} 
GUIEditor_Button = {} 
  
 -- لوحه حق اخذ السيارات-- 
Vehicle = guiCreateWindow(453,218,302,379,".:[ Panel Vehicle For ROYALS  ]:.",false)  -- عوان الوحه 
guiSetVisible(Vehicle,false) 
guiSetAlpha (Vehicle, 1) 
GUIEditor_Button[5] = guiCreateButton (0.0795,0.8575,0.4007,0.1135,"x[ oK ]x",true,Vehicle) 
GUIEditor_Button[4] = guiCreateButton (0.5166,0.8602,0.4007,0.1135,"x[ close ]x",true,Vehicle) 
GUIEditor_Grid[1] = guiCreateGridList(0.106,0.1214,0.7583,0.6887,true,Vehicle) 
guiGridListSetSelectionMode(GUIEditor_Grid[1],2) 
local col = guiGridListAddColumn(GUIEditor_Grid[1],"Vehicle  ",0.9) 
guiSetAlpha(GUIEditor_Grid[1],0.89999997615814) 
  
 ---لوحة السيارات ---- 
CarsTable = {        
    { "Infernus" }, 
    { "NRG-500" }, 
    { "Elegy" }, 
    { "Cheetah" }, 
    { "Turismo" }, 
    { "Maverick" }, 
    { "BF Injection" }, 
    { "Merit" }, 
} 
 --- لوحة السيارات ملاحظه لأدخال سياره ب الأسم و ليس ID---- 
        
        
------ينصح بعدم تغير شئ --------      
for i, v in ipairs ( CarsTable ) do 
    local row = guiGridListAddRow ( GUIEditor_Grid[1] ) 
    guiGridListSetItemText ( GUIEditor_Grid[1], row, 1, v[1], false, true ) 
end 
  
function onWaste() 
     guiSetVisible(Vehicle, false) 
     showCursor(false) 
end 
addEventHandler("onClientPlayerWasted", getLocalPlayer(), onWaste) 
  
function OpenWindowsCar () 
     guiSetVisible(Vehicle, true) 
     showCursor(true) 
end 
addEvent("OpenWindowsW7h1", true) 
addEventHandler("OpenWindowsW7h1", getLocalPlayer(), OpenWindowsCar ) 
  
  
function createTheChoosenCar () 
     local row = guiGridListGetSelectedItem(GUIEditor_Grid[1]) 
     if row and row >= 0 then 
          guiSetVisible(Vehicle, false) 
          showCursor(false) 
          triggerServerEvent("CreateCarW7h1", localPlayer, guiGridListGetItemText(GUIEditor_Grid[1], row, col)) 
     end 
end 
addEventHandler("onClientGUIClick", GUIEditor_Button[5], createTheChoosenCar , false) 
  
  
  
  
addEventHandler("onClientGUIClick",GUIEditor_Button[4], 
function () 
            guiSetVisible(Vehicle,false) 
            showCursor(false) 
end,false) 
  
  
addEvent("NssoR1",true) 
addEventHandler("NssoR1",root, 
function() 
setPedCanBeKnockedOffBike ( getLocalPlayer(), false ) 
end) 
  
addEvent("d5wl1",true) 
addEventHandler("d5wl1",root, 
function() 
setPedCanBeKnockedOffBike ( getLocalPlayer(), true ) 
end) 
  
addEvent("Tool1",true) 
addEventHandler("Tool1",root, 
function() 
setPedCanBeKnockedOffBike ( getLocalPlayer(), false ) 
end) 
  
  
  
  
addEvent("oooo1",true) 
addEventHandler("oooo1",root, 
function() 
setPedCanBeKnockedOffBike ( getLocalPlayer(), true ) 
end) 
  
------ينصح بعدم تغير شئ --------

ثانى ملف

سيرفر

---اظن الكود واضح لوحده هوضح الحجات المهمه 
  
  
local upgrades = {} 
upgrades[560] = {1138,1031,1033,1029,1170,1140} 
upgrades[559] = {1162,1072,1068,1066,1173,1161} 
upgrades[562] = {1147,1041,1038,1037,1172,1148} 
upgrades[575] = {1099,1044,1175,1177} 
upgrades[565] = {1050,1052,1054,1046,1153,1151} 
upgrades[561] = {1058,1063,1061,1064,1157,1156} 
upgrades[558] = {1164,1095,1091,1092,1166,1167} 
upgrades[534] = {1124,1127,1185,1180,1125} 
upgrades[567] = {1133,1132,1189,1187} 
upgrades[536] = {1108,1128,1105,1182,1184} 
upgrades[535] = {1121,1116,1114,1117} 
upgrades[576] = {1137,1136,1191,1193} 
  
upgrades[576] = {1137,1136,1191,1193,} 
MarkerCreateXX = 0 
MarkerCreateYY = 6 
  
                    MxXx1 = createMarker(2838.1005859375,1900.7998046875,27.799999237061, "cylinder", 1.8, 200,200,0, 255 ) -- مكان مركر السياره رقم واحد 
                    local x,y,z = getElementPosition ( MxXx1 ) 
                    MxXx2 = createMarker(2823.7001953125,1900.599609375,27.799999237061, "cylinder",  1.8, 200,200,0, 255 ) -- مكان مركر السياره رقم اثنان 
                    local x,y,z = getElementPosition ( MxXx2 ) 
                    MxXx3 = createMarker(2823.7001953125,1900.599609375,27.799999237061, "cylinder",  1.8, 200,200,0, 255 ) -- مكان مركر السياره رقم ثلاثة 
                    local x,y,z = getElementPosition ( MxXx3 ) 
                    MxXx4 = createMarker(2823.7001953125,1900.599609375,27.799999237061, "cylinder",  1.8, 200,200,0, 255 ) -- مكان مركر السياره رقم اربعه 
                    local x,y,z = getElementPosition ( MxXx4 ) 
                     
  
  
addEventHandler("onMarkerHit", getResourceRootElement(), 
function(player) 
if( getElementData ( player, "gang" ) == "ROYALS" ) then -- التأكد ان اللاعب فى العصابة 
     if source == MxXx1 or source == MxXx2 or source == MxXx3 or source == MxXx4 or source == MxXx5 or source == MxXx6 or source == MxXx11 or source == MxXx22 or source == MxXx33 or source == MxXx44 or source == MxXx55 or source == MxXx66 then     
setTimer( 
function(player,source) 
 local x, y, z = getElementPosition(source) 
local xx, yy, zz = getElementPosition(player) 
setElementPosition(player, xx, yy, z+0.5) 
triggerClientEvent ( player, "OpenWindowsW7h1", player)        
end,150,1,player,source) 
end 
     end 
end) 
  
function upgradeCar ( car ) 
    addVehicleUpgrade ( car, 1010 ) 
    addVehicleUpgrade ( car, 1098 ) 
    local model = getElementModel(car) 
    if ( upgrades[model] ) then 
        for id, v in ipairs ( upgrades[model] ) do 
            addVehicleUpgrade ( car, v ) 
        end 
    end 
end 
  
----------------------------------- 
  
cars = {} 
carsTimer = {} 
function onExplorerW7h ()  
       setTimer( 
             function(car)  
                  if (isElement(car)) then 
                           destroyElement(car)  
                  end  
        end,5000, 1, source)  
end 
  
  
function onEnterCarW7h(player,seat)  
                  if (seat >= 0 ) and ( getElementData ( player , "Group" ) ~= "SFS" ) then 
                                 cancelEvent() 
                                 outputChatBox("This Only For Group SFS",player, 255, 0, 0, true)   
                 end 
 end   
  
  
function xxxcrete (carName) 
local id = getVehicleModelFromName(carName) 
   if (id) then 
        if (isElement(cars[source])) then 
            destroyElement(cars[source]) 
        end 
          if ( getVehicleType ( id ) == "Helicopter" ) then 
    local place = getElementByID( "AirW7h"..tostring(math.random(1,6)) ) 
    local x,y,z = getElementPosition ( place ) 
    local rx,ry,rz = getElementRotation ( place ) 
     
        cars[source] = createVehicle(id, 2815.5,1991.5,31.299999237061, xz) -- مكان ريسوان الطائرات 
            else 
                                local x, y, z = getElementPosition(source) 
        cars[source] = createVehicle(id, x-5,y ,z , 0, 0, 276) 
                                 upgradeCar ( cars[source] ) 
         end 
                                                                                       setVehicleColor( cars[source], 255,0,0 ) 
                                                                                       setVehiclePaintjob ( cars[source], 2 )  
                                                                                       warpPedIntoVehicle(source, cars[source])      
                                                                                       addEventHandler("onVehicleExplode", cars[source], onExplorerW7h1 ) 
                                                                                       addEventHandler ("onVehicleStartEnter", cars[source], onEnterCarW7h1 ) 
   end 
  
end 
addEvent("CreateCarW7h1", true) 
addEventHandler("CreateCarW7h1", root, xxxcrete ) 
  
  
function isVehicleEmpty(veh) 
     local cc = false 
     local occupants = getVehicleOccupants(veh) 
     local seats = getVehicleMaxPassengers(veh) 
     for seat = 0, seats do 
          if occupants[seat] then cc = true end 
     end 
     return  
end

الملف الثالث سيرفر بردو بس لا تعدلو فى شئ افضل

addEvent("carx",true) 
addEventHandler("carx",root, 
 function (carxx) 
        if getElementData ( source, "destroy" ) then 
            destroyElement ( getElementData ( source, "destroy")) 
        end  
        local carname = getVehicleIDFromName(carxx) 
            local x, y, z = getElementPosition ( source ) 
            Vehicle = createVehicle (carname, x+2, y, z ) 
            warpPedIntoVehicle ( source, Vehicle) 
         setElementData ( source, "destroy", Vehicle ) 
        end 
)

تمام كده مركر السيارت خلصو

الأن مركر الدم و الدرع -3

ملف سيرفر

marker1 = createMarker (2092.6000976563,2859.3999023438,34.700000762939, "cylinder", 1.7, 75 , 243, 1, 255 ) --مكان المركر حق الدم و الدرع 
  
      
addEventHandler ( "onMarkerHit", marker1, 
function ( player ) 
if getElementType ( player ) == "player" then 
if getElementData( player ,'gang') == 'ROYALS' then -- التحقق  ان اللاعب فى العصابة 
   setElementHealth ( player, 200 ) -- عند لمس المركر اعطاء اللاعب 200 دم 
   setPedArmor ( player, 100 ) -- عند لمس اللاعب المركر اعطائه 100 درع 
   setPedSkin ( player, 230 ) -- عند لمس اللاعب المركر اعطائه شخصيه رقم 230 
   else 
   outputChatBox ( "هادا  لعصابه الملوك فقط ابتعد ", player, 244 , 87, 10, true ) -- عند لمس المركر من شخص ليس فى العصابه يظهله الكلام ده 
end 
end 
end 
, false )

مكان الريسوان بعد الموت -4

ملف سيرفر

addEventHandler('onPlayerSpawn', root, 
function() 
    if getTeamName(getPlayerTeam(source)) == "No Team" and getElementData(source, "gang") == "ROYALS" then -- التاكد ان اللاعب فى العصابه 
    setTimer(setElementPosition, 500, 1, source,2092.6000976563,2859.3999023438,34.700000762939)   -- مكان الريسوان 
     
    setPedSkin (source, 230 ) -- اعطائه شخصيه 230 بعد الريسوان  
    setElementHealth ( player, 200 ) -- اعطائه دم 200 بعد الريسوان 
    setPedArmor ( player, 100 ) -- اعطائة درع 100 بعد الريسوان 
    end       
    end 
    )

بوابة المقر-4

ملف سيرفر

Door1 = createObject(980,2097.1999511719,1719.9000244141,12.5,0,0,62) -- مكان عمل البوابة 
markerDoor1 = createMarker(2097.1999511719,1719.9000244141,12.5,'cylinder',15.5,0,0,255,0) --  مكان عمل المركر الذى عن لمسه تفتح البوابة 
      
    addEventHandler('onMarkerHit',markerDoor1, 
    function ( hitElement ) 
 if getElementData(hitElement,'gang') == 'ROYALS' then -- التأكد ان الاعب  فى  العصابة 
    moveObject(Door1,1000,2097.1999511719,1719.9000244141,17.10000038147) -- مكان البوابة عندما تكون مفتوحه + 1000= سرعت الفتح 
    end 
 end 
    ) 
      
    addEventHandler('onMarkerLeave',markerDoor1, 
    function ( hitElement ) 
  if getElementData(hitElement,'gang') == 'ROYALS' then -- التأكد ان الاعب  فى  العصابة 
         moveObject(Door1,1000,2097.1999511719,1719.9000244141,12.5) -- مكان البوابة عندما تكون مغلفه+ 1000= سرعت الغلق 
    end 
 end 
    )

اخر شئ علامه المقر

ملف سيرفر

createBlip ( 2127.1000976563,2826.5,36.700000762939 , 23 ) -- مكان علامه المقر + 23 ID العلامه

اخر شئ و هو اهم شئ ليشتغل جميع الأكواد

هى ان لو مود القروبات

1-حق سيرفر سرك

2-حق حرب الشوارع

3-حق احمد فيف

"Group"بدل "gang"تحط

و باقى المودات تحط "Group"

و بكده يكون الموضوع انتهى اتمنى ان اكون افتكم

اعذرونى لو فى اخطآ املائيه عشان الموضوع طويل

اسيبكم فى امان الله

#DRAGON!FIRE · August 18, 2014

ارجع واكرر كلامي .. عندكـ اخطاء ! .

AboShanab · August 18, 2014

هريسة + اكواد قديمة

setPedSkin

Wizard_Gamer · August 18, 2014

هريسة + اكواد قديمة
setPedSkin

معك حق

الناس تضل تسرق اكواد

ذا مسروق

اخخ بس

nxFairlywell · August 18, 2014

انت المبرمج الي فاتح موضوع في جراند العرب

Arabic Useful Function

Simba · August 19, 2014

هادا لعصابه الملوك فقط ابتعد

وانا غاسل يدي منك ومن اكوادك المسروقة القديمة

Sign In

شرح كامل منى فى برمجه المقرات + اى استفسارات لا تطردد

Recommended Posts

M[ROYAL]R

Link to comment

#DRAGON!FIRE

Link to comment

AboShanab

Link to comment

Wizard_Gamer

Link to comment

nxFairlywell

Link to comment

Simba

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