Jump to content

MR.S3D

Members
  • Posts

    732
  • Joined

  • Last visited

Everything posted by MR.S3D

  1. انا داخل من جوال لما ادخل من لابتوب بشوفه لك اذكر بموضوع سايق ساعدنا واحد بنفس هالمشكله ياليت اللي عنده الموضوع يطرحه عشان يستفيد
  2. العفو بسبب ان عندي سيرفر مشهور وقليل الوقت اللي اكون فاضي فيه حياك بأي وقت
  3. local x, y = guiGetScreenSize() rRoot = getResourceRootElement(getThisResource()) Music = "Other/Intro.mp3" Anims = {"DAN_UP_A", "dnce_M_b", "DAN_Left_A", "DAN_Down_A", "DAN_Loop_A", "dance_loop"} num = 0 local TeamNameee = "" local Team = "" local Text = "" local mn = nil Color = {255, 255, 255} local NewTeam = 0 local ID, skin = nil, nil, nil TeamName = {"Grove", "Aztecas", "Police", "Ballas", "No Team", "Medic"} local WaeponID = {5, 22, 3, 1, 32, 41, 43} allPlayer = 0 local Weapon = 0 local NameWeap = "Fist" GameType = {} ColorGame = {0, 255, 255} GameNameType = "" Info = {} SkinSelectMusic = nil local foundTeam = 0 local findskin = 0 typeGame = "gang" local foundInTeam = "" local foundInall = "" Ped = {} skin = { Grove = {105, 106, 107}, Aztecas = {115, 116, 117 ,0 ,173 , 174 ,175 ,176 ,177}, Police = {283, 284, 285}, Ballas = {102, 103, 104}, ["No Team"] = {28, 34, 123, 230, 7, 15, 16, 21, 19, 22, 23, 24, 26, 28, 29, 30, 32, 33, 34, 37, 45, 46, 59, 72, 137, 189, 200, 217, 212, 240, 241, 247, 248, 261}, Medic = {274, 275, 276}, } AllTeamName = { Grove = {2494.96948, -1684.03101, 14.3313, 2494.98486, -1685.02856, 14.26363, 2495.38843, -1688.54297, 13.87171}, Aztecas = {1764.75586, -1928.03674, 15.2383, 1763.80432, -1928.0498, 14.93086, 1761.0708, -1928.08801, 13.57734}, Police = {1568.73779, -1695.54541, 7.0456, 1568.71582, -1694.55835, 6.8869, 1568.64075, -1691.68494, 5.89063}, Ballas = {2217.03027, -1167.91956, 27.0701, 2217.0166, -1168.89661, 26.85767, 2216.97534, -1171.77625, 25.72656}, ["No Team"] = {901.33551, -1208.65796, 18.4756, 901.27332, -1207.69299, 18.22063, 901.05676, -1204.8208, 16.98322}, Medic = {2022.72839, -1426.36877, 18.3914, 2023.34521, -1425.61548, 18.16297, 2025.20178, -1423.47644, 16.99219}, } Rot = {357.4391784668, 271.10339355469, 179.70733642578, 0, 179.01052856445, 132.08488464355} CamGameType = { {2454.49487, -1654.69812, 26.19402, 2541.42432, -1686.7251, -11.45641} } function dxDrawColorText(str, ax, ay, bx, by, color, scale, font, alignX, alignY) bx, by, color, scale, font = bx or ax, by or ay, color or tocolor(255,255,255,255), scale or 1, font or "default" if alignX then if alignX == "center" then ax = ax + (bx - ax - dxGetTextWidth(str:gsub("#%x%x%x%x%x%x",""), scale, font))/2 elseif alignX == "right" then ax = bx - dxGetTextWidth(str:gsub("#%x%x%x%x%x%x",""), scale, font) end end if alignY then if alignY == "center" then ay = ay + (by - ay - dxGetFontHeight(scale, font))/2 elseif alignY == "bottom" then ay = by - dxGetFontHeight(scale, font) end end local alpha = string.format("%08X", color):sub(1,2) local pat = "(.-)#(%x%x%x%x%x%x)" local s, e, cap, col = str:find(pat, 1) local last = 1 while s do if cap == "" and col then color = tocolor(getColorFromString("#"..col..alpha)) end if s ~= 1 or cap ~= "" then local w = dxGetTextWidth(cap, scale, font) dxDrawText(cap, ax, ay, ax + w, by, color, scale, font,"left", "top", false, false, true, false, false) ax = ax + w color = tocolor(getColorFromString("#"..col..alpha)) end last = e + 1 s, e, cap, col = str:find(pat, last) end if last <= #str then cap = str:sub(last) dxDrawText(cap, ax, ay, ax + dxGetTextWidth(cap, scale, font), by, color, scale, font,"left", "top", false, false, true, false, false) end end local function getTeam(team) return getTeamFromName(team) end local function count(team) return countPlayersInTeam(getTeamFromName(team)) end function onStop() resetSkyGradient() showChat(true) showPlayerHudComponent("all", true) end addEventHandler("onClientResourceStop", resourceRoot, onStop) function foundPos(nummm) local foundPo = AllTeamName[TeamName[NewTeam]][tonumber(nummm)] return foundPo end function showforallteam() fadeCamera( true ) showChat(false) SpawnGameType() --[[ foundInTeam = "There are Players" foundInall = "all Players" GameType = {"Gang Wars"} Info = {"Wlecom To Gang Wars","To Spawn press [Enter]"} GameNameType = "Gang Wars" mn = nil bindKey("enter","down",SpawnGameType) l1, l2, l3, l4, l5, l6 = unpack(CamGameType[1]) info1 = Info[1] info2 = Info[2] ShowGameType() addEventHandler("onClientRender",getRootElement(),DrawGameType) --]] end addEventHandler("onClientPlayerWasted", getLocalPlayer(), function(killer, weapon, bodypart) if getElementData(localPlayer, "WasChangeTeam") == true then showforallteam() else return false end end) function ShowGameType() ColorGame = {255,255,0} l1, l2, l3, l4, l5, l6 = unpack(CamGameType[1]) setCameraMatrix(l1, l2, l3, l4, l5, l6) SelectGame = 1 GameNameType = GameType[1] count2 = count("Grove") count3 = count("Aztecas") count4 = count("Police") count5 = count("Ballas") count6 = count("No Team") mn = count2 + count3 + count4 + count5 + count6 typeGame = "gang" end function SpawnGameType() setTimer(MakeGangWars, 500, 1) TeamNameee = "Team Name" end function MakeGangWars() Color = {0, 255, 0} Team = " " .. TeamName[1] .. " " allPlayer = count(TeamName[1]) Weapon = WaeponID[1] NameWeap = getWeaponNameFromID(Weapon) NameWeap = getWeaponNameFromID(Weapon) NewTeam = 1 local x, y, z, lx, ly, lz = foundPos(1), foundPos(2), foundPos(3), foundPos(4), foundPos(5), foundPos(6) setCameraMatrix(x, y, z, lx, ly, lz) ---removeEventHandler("onClientRender", getRootElement(), DrawGameType) bindKey("arrow_r", "down", Next) bindKey("arrow_l", "down", Next) bindKey("enter", "down", SpawnPlayer) addEventHandler("onClientRender", getRootElement(), DrawTeam) SkinSelectMusic = playSound(Music, true) local pedx, pedy, pedz = foundPos(7), foundPos(8), foundPos(9) ID = 105 Ped[1] = createPed(ID, pedx, pedy, pedz, Rot[1]) if not isElement(Ped[1]) then Ped[1] = createPed(ID, pedx, pedy, pedz, Rot[NewTeam]) end setElementFrozen(Ped[1], true) setPedAnimation(Ped[1], "DANCING", Anims[math.random(1, 6)]) foundTeam = 1 findskin = 1 end function Next(key) if key == "arrow_l" then findskin = findskin - 1 if findskin < 1 then foundTeam = foundTeam - 1 if foundTeam < 1 then foundTeam = #TeamName end findskin = #skin[TeamName[foundTeam]] end else findskin = findskin + 1 if findskin > #skin[TeamName[foundTeam]] then if findskin > #skin[TeamName[foundTeam]] then findskin = 1 end foundTeam = foundTeam + 1 if foundTeam > #TeamName then foundTeam = 1 end end end number = foundTeam ID = skin[TeamName[number]][findskin] Team = " " .. TeamName[number] .. " " NewTeam = foundTeam TextColor(number) setElementModel(Ped[1], ID) setPedAnimation(Ped[1], "DANCING", Anims[math.random(1, 5)]) if Ped[1] then destroyElement(Ped[1]) Ped[1] = nil end local x, y, z, lx, ly, lz = foundPos(1), foundPos(2), foundPos(3), foundPos(4), foundPos(5), foundPos(6) wasFoundCamAndPed = foundTeam local pedx, pedy, pedz = foundPos(7), foundPos(8), foundPos(9) Ped[1] = createPed(ID, pedx, pedy, pedz, Rot[number]) if not isElement(Ped[1]) then Ped[1] = createPed(ID, pedx, pedy, pedz, Rot[number]) end setElementFrozen(Ped[1], true) setPedAnimation(Ped[1], "DANCING", Anims[math.random(1, 6)]) setCameraMatrix(x, y, z, lx, ly, lz) end function TextColor(numbe) if TeamName[numbe] == "Grove" then Color = {0, 255, 0} elseif TeamName[numbe] == "Aztecas" then Color = {0, 150, 255} elseif TeamName[numbe] == "Police" then Color = {0, 50, 255} elseif TeamName[numbe] == "Ballas" then Color = {255, 0, 150} elseif TeamName[numbe] == "No Team" then Color = {255, 255, 255} elseif TeamName[numbe] == "Medic" then Color = {6, 183, 248} end allPlayer = count(TeamName[numbe]) or 0 Weapon = WaeponID[numbe] or 0 NameWeap = getWeaponNameFromID(Weapon) or 0 end
  4. بالغلط اتمنى حذف الردود المكرره
  5. حطة هنا عشان الكل يستفيد P.S : I'm Online \ Skype. لعيونك حبيبي تفضل أخوي صاحب الموضوع حاولت اعدله لك واختصر بقدر الأمكان وبأذن الله يكون ضابط 100% client local x, y = guiGetScreenSize() rRoot = getResourceRootElement(getThisResource()) Music = "Other/Intro.mp3" Anims = {"DAN_UP_A", "dnce_M_b", "DAN_Left_A", "DAN_Down_A", "DAN_Loop_A", "dance_loop"} num = 0 local TeamNameee = "" local Team = "" local Text = "" local mn = nil Color = {255, 255, 255} local NewTeam = 0 local ID, skin = nil, nil, nil TeamName = {"Grove", "Aztecas", "Police", "Ballas", "No Team", "Medic"} local WaeponID = {5, 22, 3, 1, 32, 41, 43} allPlayer = 0 local Weapon = 0 local NameWeap = "Fist" GameType = {} ColorGame = {0, 255, 255} GameNameType = "" Info = {} SkinSelectMusic = nil local foundTeam = 0 local findskin = 0 typeGame = "gang" local foundInTeam = "" local foundInall = "" Ped = {} skin = { Grove = {105, 106, 107}, Aztecas = {115, 116, 117}, Police = {283, 284, 285}, Ballas = {102, 103, 104}, ["No Team"] = {28, 34, 123, 230, 7, 15, 16, 21, 19, 22, 23, 24, 26, 28, 29, 30, 32, 33, 34, 37, 45, 46, 59, 72, 137, 189, 200, 217, 212, 240, 241, 247, 248, 261}, Medic = {274, 275, 276}, } AllTeamName = { Grove = {2494.96948, -1684.03101, 14.3313, 2494.98486, -1685.02856, 14.26363, 2495.38843, -1688.54297, 13.87171}, Aztecas = {1764.75586, -1928.03674, 15.2383, 1763.80432, -1928.0498, 14.93086, 1761.0708, -1928.08801, 13.57734}, Police = {1568.73779, -1695.54541, 7.0456, 1568.71582, -1694.55835, 6.8869, 1568.64075, -1691.68494, 5.89063}, Ballas = {2217.03027, -1167.91956, 27.0701, 2217.0166, -1168.89661, 26.85767, 2216.97534, -1171.77625, 25.72656}, ["No Team"] = {901.33551, -1208.65796, 18.4756, 901.27332, -1207.69299, 18.22063, 901.05676, -1204.8208, 16.98322}, Medic = {2022.72839, -1426.36877, 18.3914, 2023.34521, -1425.61548, 18.16297, 2025.20178, -1423.47644, 16.99219}, } Rot = {357.4391784668, 271.10339355469, 179.70733642578, 0, 179.01052856445, 132.08488464355} CamGameType = { {2454.49487, -1654.69812, 26.19402, 2541.42432, -1686.7251, -11.45641} } function dxDrawColorText(str, ax, ay, bx, by, color, scale, font, alignX, alignY) bx, by, color, scale, font = bx or ax, by or ay, color or tocolor(255,255,255,255), scale or 1, font or "default" if alignX then if alignX == "center" then ax = ax + (bx - ax - dxGetTextWidth(str:gsub("#%x%x%x%x%x%x",""), scale, font))/2 elseif alignX == "right" then ax = bx - dxGetTextWidth(str:gsub("#%x%x%x%x%x%x",""), scale, font) end end if alignY then if alignY == "center" then ay = ay + (by - ay - dxGetFontHeight(scale, font))/2 elseif alignY == "bottom" then ay = by - dxGetFontHeight(scale, font) end end local alpha = string.format("%08X", color):sub(1,2) local pat = "(.-)#(%x%x%x%x%x%x)" local s, e, cap, col = str:find(pat, 1) local last = 1 while s do if cap == "" and col then color = tocolor(getColorFromString("#"..col..alpha)) end if s ~= 1 or cap ~= "" then local w = dxGetTextWidth(cap, scale, font) dxDrawText(cap, ax, ay, ax + w, by, color, scale, font,"left", "top", false, false, true, false, false) ax = ax + w color = tocolor(getColorFromString("#"..col..alpha)) end last = e + 1 s, e, cap, col = str:find(pat, last) end if last <= #str then cap = str:sub(last) dxDrawText(cap, ax, ay, ax + dxGetTextWidth(cap, scale, font), by, color, scale, font,"left", "top", false, false, true, false, false) end end local function getTeam(team) return getTeamFromName(team) end local function count(team) return countPlayersInTeam(getTeamFromName(team)) end function onStop() resetSkyGradient() showChat(true) showPlayerHudComponent("all", true) end addEventHandler("onClientResourceStop", resourceRoot, onStop) function foundPos(nummm) local foundPo = AllTeamName[TeamName[NewTeam]][tonumber(nummm)] return foundPo end function showforallteam() fadeCamera( true ) showChat(false) SpawnGameType() --[[ foundInTeam = "There are Players" foundInall = "all Players" GameType = {"Gang Wars"} Info = {"Wlecom To Gang Wars","To Spawn press [Enter]"} GameNameType = "Gang Wars" mn = nil bindKey("enter","down",SpawnGameType) l1, l2, l3, l4, l5, l6 = unpack(CamGameType[1]) info1 = Info[1] info2 = Info[2] ShowGameType() addEventHandler("onClientRender",getRootElement(),DrawGameType) --]] end addEventHandler("onClientPlayerWasted", getLocalPlayer(), function(killer, weapon, bodypart) if getElementData(localPlayer, "WasChangeTeam") == true then showforallteam() else return false end end) function ShowGameType() ColorGame = {255,255,0} l1, l2, l3, l4, l5, l6 = unpack(CamGameType[1]) setCameraMatrix(l1, l2, l3, l4, l5, l6) SelectGame = 1 GameNameType = GameType[1] count2 = count("Grove") count3 = count("Aztecas") count4 = count("Police") count5 = count("Ballas") count6 = count("No Team") mn = count2 + count3 + count4 + count5 + count6 typeGame = "gang" end function SpawnGameType() setTimer(MakeGangWars, 500, 1) TeamNameee = "Team Name" end function MakeGangWars() Color = {0, 255, 0} Team = " " .. TeamName[1] .. " " allPlayer = count(TeamName[1]) Weapon = WaeponID[1] NameWeap = getWeaponNameFromID(Weapon) NameWeap = getWeaponNameFromID(Weapon) NewTeam = 1 local x, y, z, lx, ly, lz = foundPos(1), foundPos(2), foundPos(3), foundPos(4), foundPos(5), foundPos(6) setCameraMatrix(x, y, z, lx, ly, lz) ---removeEventHandler("onClientRender", getRootElement(), DrawGameType) bindKey("arrow_r", "down", Next) bindKey("arrow_l", "down", Next) bindKey("enter", "down", SpawnPlayer) addEventHandler("onClientRender", getRootElement(), DrawTeam) SkinSelectMusic = playSound(Music, true) local pedx, pedy, pedz = foundPos(7), foundPos(8), foundPos(9) ID = 105 Ped[1] = createPed(ID, pedx, pedy, pedz, Rot[1]) if not isElement(Ped[1]) then Ped[1] = createPed(ID, pedx, pedy, pedz, Rot[NewTeam]) end setElementFrozen(Ped[1], true) setPedAnimation(Ped[1], "DANCING", Anims[math.random(1, 6)]) foundTeam = 1 findskin = 1 end function Next(key) if key == "arrow_l" then findskin = findskin - 1 if findskin < 1 then foundTeam = foundTeam - 1 if foundTeam < 1 then foundTeam = #TeamName end end else findskin = findskin + 1 if findskin > #skin[TeamName[foundTeam]] then foundTeam = foundTeam + 1 if foundTeam > #TeamName then foundTeam = 1 end end end if findskin < 1 then findskin = #skin[TeamName[foundTeam]] end if findskin > #skin[TeamName[foundTeam]] then findskin = 1 end number = foundTeam ID = skin[TeamName[number]][findskin] Team = " " .. TeamName[number] .. " " NewTeam = foundTeam TextColor(number) setElementModel(Ped[1], ID) setPedAnimation(Ped[1], "DANCING", Anims[math.random(1, 5)]) if Ped[1] then destroyElement(Ped[1]) Ped[1] = nil end local x, y, z, lx, ly, lz = foundPos(1), foundPos(2), foundPos(3), foundPos(4), foundPos(5), foundPos(6) wasFoundCamAndPed = foundTeam local pedx, pedy, pedz = foundPos(7), foundPos(8), foundPos(9) Ped[1] = createPed(ID, pedx, pedy, pedz, Rot[number]) if not isElement(Ped[1]) then Ped[1] = createPed(ID, pedx, pedy, pedz, Rot[number]) end setElementFrozen(Ped[1], true) setPedAnimation(Ped[1], "DANCING", Anims[math.random(1, 6)]) setCameraMatrix(x, y, z, lx, ly, lz) end function TextColor(numbe) if TeamName[numbe] == "Grove" then Color = {0, 255, 0} elseif TeamName[numbe] == "Aztecas" then Color = {0, 150, 255} elseif TeamName[numbe] == "Police" then Color = {0, 50, 255} elseif TeamName[numbe] == "Ballas" then Color = {255, 0, 150} elseif TeamName[numbe] == "No Team" then Color = {255, 255, 255} elseif TeamName[numbe] == "Medic" then Color = {6, 183, 248} end allPlayer = count(TeamName[numbe]) or 0 Weapon = WaeponID[numbe] or 0 NameWeap =
  6. سيتم التعديل
  7. بعدله لك وارسله
  8. ارسلي المود كامل اللي تستخدمه بملف مضغوط على الخاص
  9. اشرح لي وش تبي بالضبط كامل وبحاول اعدله لك
  10. ممكن توضيح أكثر لاهنت؟
  11. الله يعطيك العافية وان شاء الله لها حل بأذن الله
  12. السالفة مو بإعادة التثبيت .. بإعادة التثبيت انته ترجع التحديث القديم .. صادق ترجع نفسها
  13. نفس المشكلة صايرة لي ومع اغلب زوار سيرفري
  14. #Server side! local vehicle = {} addEvent("Car", true) addEventHandler("Car", root, function (id) local x, y, z = getElementPosition(source) if vehicle[source] then if isElement( vehicle[source] ) then destroyElement(vehicle[source]) end vehicle[source] = nil end vehicle[source] = createVehicle ( id, x + 3, y, z ) if vehicle[source] then warpPedIntoVehicle ( source, vehicle[source] ) end setElementData(vehicle[source],'carData',{getPlayerSerial(source),getPlayerName(source)}) end ) addEventHandler("onVehicleStartEnter", resourceRoot, function ( player ) local serial = getElementData(source,'carData') if serial and serial[1] and serial[2] and getPlayerSerial ( player ) == serial[1] then outputChatBox(" منور سيارتك [".. serial[2] or '' ..']', player, math.random(0,255), math.random(0,255), math.random(0,255), true ) else cancelEvent () outputChatBox ( "* This not your car this is :[ " .. serial[2] or '' .. " ] s car", player, math.random(0,255), math.random(0,255), math.random(0,255), true ) end end ) addEventHandler("onPlayerQuit",root,function() if vehicle[source] then if isElement( vehicle[source] ) then destroyElement(vehicle[source]) end vehicle[source] = nil end end)
  15. Client Side ! wnd = guiCreateWindow(237,154,382,294,"",false) Edits = guiCreateEdit(116,54,120,36,"",false,wnd) ok = guiCreateButton(105,114,148,31,"",false,wnd) guiSetVisible(wnd, false) bindKey ( "F2", "down", function( ) local vis = not guiGetVisible( wnd ) guiSetVisible(wnd, vis); showCursor(vis); end ) addEventHandler("onClientGUIClick", root, function ( ) if ( source == ok ) then local ZA7F = guiGetText( Edits ) if ( ZA7F and string.len( ZA7F ) == 3 and tonumber( ZA7F ) ) then triggerServerEvent("Car", localPlayer, tonumber ( ZA7F )) end end end ) Server Side ! local vehicle = {} addEvent("Car", true) addEventHandler("Car", root, function (id) local x, y, z = getElementPosition(source) if vehicle[source] then if isElement( vehicle[source] ) then destroyElement(vehicle[source]) end vehicle[source] = nil end vehicle[source] = createVehicle ( id, x + 3, y, z ) if vehicle[source] then warpPedIntoVehicle ( source, vehicle[source] ) end end ) addEventHandler("onVehicleStartEnter", resourceRoot, function ( player ) if getPlayerSerial ( player ) == "سيريالك" then outputChatBox("Welome Sir", player, 255, 255, 0) else cancelEvent () outputChatBox("This not your car this is اسمك's car", player, 255, 0, 0) end end ) addEventHandler("onPlayerQuit",root,function() if vehicle[source] then if isElement( vehicle[source] ) then destroyElement(vehicle[source]) end vehicle[source] = nil end end)
  16. # Client Side wnd = guiCreateWindow(237,154,382,294,"",false) Edits = guiCreateEdit(116,54,120,36,"",false,wnd) ok = guiCreateButton(105,114,148,31,"",false,wnd) guiSetVisible(wnd, false) bindKey("F2","Down",function() local vis = not guiGetVisible(wnd) guiSetVisible(wnd, vis); showCursor( vis ); guiSetInputEnabled( vis ); end ) addEventHandler("onClientGUIClick", root, function ( ) if ( source == ok ) then local ZA7F = guiGetText( Edits ) if ( ZA7F and string.len( ZA7F ) == 3 and tonumber( ZA7F) ) then triggerServerEvent("Car", localPlayer, tonumber ( ZA7F )) end end end ) # Server Side addEvent("Car", true) addEventHandler("Car", root, function () local x,y,z= getElementPosition(source) veh = createVehicle ( id, x, y, z ) warpPedIntoVehicle ( source, veh ) end ) addEventHandler("onVehicleStartEnter", resourceRoot, function (player) if getPlayerSerial ( player ) == "سيريالك" then outputChatBox("Welome Sir", player, 255, 255, 0) else cancelEvent () outputChatBox("This not your car this is اسمك's car", player, 255, 0, 0) end end )
  17. فداك الكون ي قلبي مشتاق لك كثير ^^
  18. هههههههههههههههههههههههههههههههههههههههههههه فكر انا مافي مخ
  19. يالغلا على ما أضن أنه يحفظ بس اضن لاسويت ريست للمود مايرجعلك السلاح اللي معك لانه محطوط يعطيك مره وحده إذا ماتمت الأفاده بلغني وأحاول اعدله لك تحياتي
  20. اذا حولتة للبايبال بخسر نسبة 3 او 5 بالمية من المبلغ .. أنت زود المبلغ ماراح يكون خسارة بأذن الله يعني فرضنا سعر المود ب 50 شحن يكون ب 60 مثلا وكذا تضمن انك تكسب
  21. لو تسويه لهم بشحن أو كاش يو أفضل باي بال ماعندك أحد
  22. أخوي كل شي تمام تأكد أنك ناسخ أخر رد لي زين وتأكد من ملف server.lua
×
×
  • Create New...