Jump to content

تصليح

ayman1998

By ayman1998
in البرمجة

Recommended Posts

ayman1998 Busta

ayman1998

Posted
Posted

السلام علكم هاد كود جيم مود مستر سعد انة يلي علية نجوم ميقدر يدخل شرطي مس مو شغال

ابية اذا علية نجوم ما يقدر يدخل شرطي

  
function SpawnPlayer() 
    if ID == nil then 
      exports.TopBarChat:sendClientMessage("please Select Your Team", 255, 255, 0) 
      return false 
    end 
    if Team == "Police" and getPlayerWantedLevel() > 0 then return false  end 
    triggerServerEvent("onClientWantsToSpawn", getLocalPlayer(), getLocalPlayer(), ID, TeamName[NewTeam]) 
    setTime(12, 0) 
    unbindKey("arrow_r", "down", Next) 
    unbindKey("arrow_l", "down", Next) 
    unbindKey("enter", "down", SpawnPlayer) 
    if Ped[1] then 
      destroyElement(Ped[1]) 
      Ped[1] = nil 
    end 
    removeEventHandler("onClientRender", getRootElement(), DrawTeam) 
    showCursor(false) 
    showChat(true) 
    destroyElement(SkinSelectMusic) 
    SkinSelectMusic = nil 
    showPlayerHudComponent("all", true) 
    setElementData(localPlayer, "WasChangeTeam", false) 
end

Link to comment
ayman1998 Busta

ayman1998

Posted
  • Author
Posted

هاد الكود يخليني ما اقدر ادخل تيم الشرطة و علي نجوم

بس انا ابي انة اذا علي نجو م ما اقدر ادخل الشرطة

+

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

و هي الاكود

سيرفر

  
ver = "v3.0" 
rRoot = getResourceRootElement(getThisResource()) 
local root = getRootElement() 
local Key = "F4" 
Teams = {  -- here all team name -- الوان التيمات 
{"Grove", 0, 255, 0}, 
{"Aztecas", 0, 150, 255}, 
{"Police", 0, 50, 255}, 
{"Ballas", 255, 0, 150}, 
{"No Team", 255, 255, 255}, 
{"Medic", 6, 183, 248} 
} 
  
local function set(plr, data, bole) 
  if not isElement(plr) then 
    return 
  end 
  return setElementData(plr, data, bole) 
end 
  
local function get(plr, data) 
  if not isElement(plr) then 
    return 
  end 
  return getElementData(plr, data) 
end 
  
addEventHandler("onResourceStart", resourceRoot, function() 
  setGameType("Gang Wars v3.0") 
  outputChatBox(".:[ GameMode ]:. " .. ver .. "", root, 0, 255, 0, true) 
  setTimer(OutPut, 50, 1, ".:[ GameMode ]:By MR.S3D " .. ver .. "", root, 0, 255, 0) 
  for _,theTeam in ipairs(Teams) do 
    createTeam(theTeam[1], theTeam[2], theTeam[3], theTeam[4]) 
  end 
  for _,AllTeams in ipairs(getElementsByType("team")) do 
    if getTeamFriendlyFire(AllTeams) == true then 
      setTeamFriendlyFire(AllTeams, false) 
    end 
  end 
  setTeamFriendlyFire(getTeamFromName("No Team"), true) 
  for i,v in ipairs(getElementsByType("player")) do 
    bindKey(v, Key, "down", "changeTeame") 
    setElementData(v, "OnJoinFirstSpawn", false) 
  end 
  setElementData(rRoot,"maxPlayer",getMaxPlayers()) 
end 
) 
  
addEventHandler("onResourceStop", resourceRoot, function() 
  local players = getElementsByType("player") 
  for k,v in ipairs(players) do 
    set(v, "hjwalah", false) 
    set(v, "Grove", false) 
    set(v, "Aztecs", false) 
    set(v, "Police", false) 
    set(v, "Ballas", false) 
    set(v, "noTeam", false) 
    set(v, "Medic", false) 
    set(v, "GameModeActive", false) 
  end 
end 
) 
  
addEvent("onLoadedClient", true) 
addEventHandler("onLoadedClient", root, function(player) 
  versionDisplay = textCreateDisplay() 
  local versionText = textCreateTextItem(".:[ Game Mode ]:. By MR.S3D| " .. ver .. "]:.", 0.975, 0.02, "medium", 255, 0, 0, 255, 1.1, "right") 
  textDisplayAddText(versionDisplay, versionText) 
  textDisplayAddObserver(versionDisplay, player) 
  setElementData(player, "CancleFirstSpawn", true) 
  playSoundFrontEnd(player, 16) 
  OutPut("The download was successful|", player, 255, 255, 0) 
  setElementData(player, "OnJoinFirstSpawn", false) 
end 
) 
  
addEventHandler("onPlayerJoin", root, function() 
    showTextForPlayer ( source, 6000, 255, 0, 0, 1.5, "Wlecom To Server Gangs War") 
    showTextForPlayer1 ( source, 6000, 255, 0, 0, 1.5, "Please wait to download all server resources....!")             
    setCameraMatrix(source,512.2, -1263.57, 32.53,542.16, -1287.07, 17.24)   
end 
) 
  
addEventHandler("onPlayerSpawn", root, function() 
  checkWeapon(source) 
end 
) 
        
function checkWeapon(player) 
  setTimer(function(player) 
    if isElement(player) then 
      if getElementData(player, "Police") == true then 
        giveWeapon(player, 3) 
      end 
    else 
      takeWeapon(player, 3) 
    end 
  end, 800, 1, player) 
end 
  
addEvent("onClientWantsToSpawn", true) 
addEventHandler("onClientWantsToSpawn", getRootElement(), function(player, ID, TeamName) 
  if TeamName == "Grove" then 
    setElementData(player, "ID", ID) 
    GroveTeam(player) 
  elseif TeamName == "Aztecas" then 
    setElementData(player, "ID", ID) 
    AztecsTeam(player) 
  elseif TeamName == "Police" then 
    setElementData(player, "ID", ID) 
    PoliceTeam(player) 
  elseif TeamName == "Ballas" then 
    setElementData(player, "ID", ID) 
    Ballas(player) 
  elseif TeamName == "No Team" then 
    setElementData(player, "ID", ID) 
    NoTeam(player) 
  elseif TeamName == "Medic" then 
    setElementData(player, "ID", ID) 
    MedicTeam(player) 
  elseif TeamName == "Drift" then 
    setElementData(player, "ID", ID) 
    hjwalah(player) 
  end 
end 
) 
  
function checkWeapon(player) 
  setTimer(function(player) 
    if isElement(player) then 
      if getElementData(player, "Police") == true then 
        giveWeapon(player, 3) 
      end 
    else 
      takeWeapon(player, 3) 
    end 
  end, 800, 2, player) 
end 
  
function onSelectTeam(player) 
  if not isElement(player) then 
    return 
  end 
  local playerTeam = getPlayerTeam(player) 
  showTextForPlayer(player, 5000, 255, 0, 0, 1.5, "You have been assigned to team [" .. tostring(getTeamName(playerTeam)) .. "]") 
  OutPut("To return to spawn press["..Key.."]", player, 255, 255, 255) 
  local playeraccount = getPlayerAccount(player) 
  if playeraccount and not isGuestAccount(getPlayerAccount(player)) then 
    if getElementData(player, "hjwalah") == true then 
      return false 
    end 
    if getElementData(player, "wasgied") == true then 
      return false 
    end 
    setElementData(player, "wasgied", true) 
    local weap0 = getAccountData(playeraccount, "s.weap0") 
    local weap1 = getAccountData(playeraccount, "s.weap1") 
    local weap2 = getAccountData(playeraccount, "s.weap2") 
    local ammo2 = getAccountData(playeraccount, "s.ammo2") 
    local weap3 = getAccountData(playeraccount, "s.weap3") 
    local ammo3 = getAccountData(playeraccount, "s.ammo3") 
    local weap4 = getAccountData(playeraccount, "s.weap4") 
    local ammo4 = getAccountData(playeraccount, "s.ammo4") 
    local weap5 = getAccountData(playeraccount, "s.weap5") 
    local ammo5 = getAccountData(playeraccount, "s.ammo5") 
    local weap6 = getAccountData(playeraccount, "s.weap6") 
    local ammo6 = getAccountData(playeraccount, "s.ammo6") 
    local weap7 = getAccountData(playeraccount, "s.weap7") 
    local ammo7 = getAccountData(playeraccount, "s.ammo7") 
    local weap8 = getAccountData(playeraccount, "s.weap8") 
    local ammo8 = getAccountData(playeraccount, "s.ammo8") 
    local weap9 = getAccountData(playeraccount, "s.weap9") 
    local ammo9 = getAccountData(playeraccount, "s.ammo9") 
    local weap10 = getAccountData(playeraccount, "s.weap10") 
    local weap11 = getAccountData(playeraccount, "s.weap11") 
    local weap12 = getAccountData(playeraccount, "s.weap12") 
    local wanted = getAccountData(playeraccount, "WantedLevel") 
    if tonumber(wanted) then 
      setPlayerWantedLevel(player, wanted) 
   elseif tonumber(weap0) then 
      giveWeapon(player, weap0, 1) 
  elseif tonumber(weap1) then 
      giveWeapon(player, weap1, 1) 
  elseif tonumber(weap2) and tonumber(ammo2) then 
      giveWeapon(player, weap2, ammo2) 
  elseif tonumber(weap3) and tonumber(ammo3) then 
      giveWeapon(player, weap3, ammo3) 
  elseif tonumber(weap4) and tonumber(ammo4) then 
      giveWeapon(player, weap4, ammo4) 
  elseif tonumber(weap6) and tonumber(ammo5) then 
      giveWeapon(player, weap5, ammo5) 
  elseif tonumber(weap6) and tonumber(ammo6) then 
      giveWeapon(player, weap6, ammo6) 
  elseif tonumber(weap7) and tonumber(ammo7) then 
      giveWeapon(player, weap7, ammo7) 
  elseif tonumber(weap8) and tonumber(ammo8) then 
      giveWeapon(player, weap8, ammo8) 
  elseif tonumber(weap9) and tonumber(ammo9) then 
      giveWeapon(player, weap9, ammo9) 
    elseif tonumber(weap10) then 
      giveWeapon(player, weap10, 30) 
    elseif tonumber(weap11) then 
      giveWeapon(player, weap11, 30) 
    elseif tonumber(weap12) then 
      giveWeapon(player, weap12, 10) 
      end 
  end 
end 
  
function camera(plr) 
  if not isElement(plr) then 
    return 
  end 
  setTimer(fadeCamera, 50, 1, plr, false, 1) 
  setTimer(fadeCamera, 100, 1, plr, true, 3) 
  setCameraTarget(plr, plr) 
  showChat(plr, true) 
end 
  
addEventHandler("onPlayerSpawn", root, function() 
  setElementData(source, "FristTimeSpawn", false) 
  bindKey(source, Key, "down", "changeTeame") 
  setElementData(source, "WasChangeTeam", false) 
end 
) 
  
Change = false 
  
addCommandHandler("changeTeame", function(plr) 
  if getElementData(plr, "WasChangeTeam") == false then 
    setElementData(plr, "ChangeTeam", true) 
    OutPut("The team will change after you die", plr, 255, 0, 255) 
    setTimer(cancleTeam, 1700, 1, plr) 
    setElementData(plr, "WasChangeTeam", true) 
  else 
    OutPut("Change the team has been canceled", plr, 255, 255, 0) 
    setElementData(plr, "ChangeTeam", false) 
    setElementData(plr, "WasChangeTeam", false) 
  end 
  Change = not Change 
end 
) 
  
function cancleTeam(plr) 
  if Change == false then 
    return false 
  end 
  OutPut("To cancel the change team press again", plr, 255, 255, 0) 
end 
 
Link to comment
iPrestege Boss Hawg

iPrestege

Posted
Posted
هاد الكود يخليني ما اقدر ادخل تيم الشرطة و علي نجوم

بس انا ابي انة اذا علي نجو م ما اقدر ادخل الشرطة

وش الفرق بعد اذنك بين الأول و الثاني .. :mrgreen: ??

ملاحظة : يفضل تتحدث بالعربية الفصــحـــى .

بالنسبة لـ الطلب الثاني :

مافهمت ققصدك والسكنات بالكلنت حطة باستخدم تاج [ Lua ]

~

Link to comment
ayman1998 Busta

ayman1998

Posted
  • Author
Posted

اخي انسا كل يلي قلتلك اياه

1----- ابي اذا واحد علية نجوم و كان بدو يدخل في تيم الشرطة يجيلة لا تستطيع لانة عليك مجوم اما اذا ما علية يقدر يدحل

2----- skin ابي ازيد عدد السكن

جربت اضيف على الاي دي

ما نفع

ابي اسوي الشرطة 8

و باقي الافرقة 5 سكنات بدل 3

هون لو ضفت لهم الاي دي ما بجي الا 3

حتا لو حطيط 100 اي دي

اتمنا انك فهمت

الاكود

سيرفر

  
ver = "v3.0" 
rRoot = getResourceRootElement(getThisResource()) 
local root = getRootElement() 
local Key = "F4" 
Teams = {  -- here all team name -- الوان التيمات 
{"Grove", 0, 255, 0}, 
{"Aztecas", 0, 150, 255}, 
{"Police", 0, 50, 255}, 
{"Ballas", 255, 0, 150}, 
{"No Team", 255, 255, 255}, 
{"Medic", 6, 183, 248} 
} 
  
local function set(plr, data, bole) 
  if not isElement(plr) then 
    return 
  end 
  return setElementData(plr, data, bole) 
end 
  
local function get(plr, data) 
  if not isElement(plr) then 
    return 
  end 
  return getElementData(plr, data) 
end 
  
addEventHandler("onResourceStart", resourceRoot, function() 
  setGameType("Gang Wars v3.0") 
  outputChatBox(".:[ GameMode ]:. " .. ver .. "", root, 0, 255, 0, true) 
  setTimer(OutPut, 50, 1, ".:[ GameMode ]:By MR.S3D " .. ver .. "", root, 0, 255, 0) 
  for _,theTeam in ipairs(Teams) do 
    createTeam(theTeam[1], theTeam[2], theTeam[3], theTeam[4]) 
  end 
  for _,AllTeams in ipairs(getElementsByType("team")) do 
    if getTeamFriendlyFire(AllTeams) == true then 
      setTeamFriendlyFire(AllTeams, false) 
    end 
  end 
  setTeamFriendlyFire(getTeamFromName("No Team"), true) 
  for i,v in ipairs(getElementsByType("player")) do 
    bindKey(v, Key, "down", "changeTeame") 
    setElementData(v, "OnJoinFirstSpawn", false) 
  end 
  setElementData(rRoot,"maxPlayer",getMaxPlayers()) 
end 
) 
  
addEventHandler("onResourceStop", resourceRoot, function() 
  local players = getElementsByType("player") 
  for k,v in ipairs(players) do 
    set(v, "hjwalah", false) 
    set(v, "Grove", false) 
    set(v, "Aztecs", false) 
    set(v, "Police", false) 
    set(v, "Ballas", false) 
    set(v, "noTeam", false) 
    set(v, "Medic", false) 
    set(v, "GameModeActive", false) 
  end 
end 
) 
  
addEvent("onLoadedClient", true) 
addEventHandler("onLoadedClient", root, function(player) 
  versionDisplay = textCreateDisplay() 
  local versionText = textCreateTextItem(".:[ Game Mode ]:. By MR.S3D| " .. ver .. "]:.", 0.975, 0.02, "medium", 255, 0, 0, 255, 1.1, "right") 
  textDisplayAddText(versionDisplay, versionText) 
  textDisplayAddObserver(versionDisplay, player) 
  setElementData(player, "CancleFirstSpawn", true) 
  playSoundFrontEnd(player, 16) 
  OutPut("The download was successful|", player, 255, 255, 0) 
  setElementData(player, "OnJoinFirstSpawn", false) 
end 
) 
  
addEventHandler("onPlayerJoin", root, function() 
    showTextForPlayer ( source, 6000, 255, 0, 0, 1.5, "Wlecom To Server Gangs War") 
    showTextForPlayer1 ( source, 6000, 255, 0, 0, 1.5, "Please wait to download all server resources....!")             
    setCameraMatrix(source,512.2, -1263.57, 32.53,542.16, -1287.07, 17.24)   
end 
) 
  
addEventHandler("onPlayerSpawn", root, function() 
  checkWeapon(source) 
end 
) 
        
function checkWeapon(player) 
  setTimer(function(player) 
    if isElement(player) then 
      if getElementData(player, "Police") == true then 
        giveWeapon(player, 3) 
      end 
    else 
      takeWeapon(player, 3) 
    end 
  end, 800, 1, player) 
end 
  
addEvent("onClientWantsToSpawn", true) 
addEventHandler("onClientWantsToSpawn", getRootElement(), function(player, ID, TeamName) 
  if TeamName == "Grove" then 
    setElementData(player, "ID", ID) 
    GroveTeam(player) 
  elseif TeamName == "Aztecas" then 
    setElementData(player, "ID", ID) 
    AztecsTeam(player) 
  elseif TeamName == "Police" then 
    setElementData(player, "ID", ID) 
    PoliceTeam(player) 
  elseif TeamName == "Ballas" then 
    setElementData(player, "ID", ID) 
    Ballas(player) 
  elseif TeamName == "No Team" then 
    setElementData(player, "ID", ID) 
    NoTeam(player) 
  elseif TeamName == "Medic" then 
    setElementData(player, "ID", ID) 
    MedicTeam(player) 
  elseif TeamName == "Drift" then 
    setElementData(player, "ID", ID) 
    hjwalah(player) 
  end 
end 
) 
  
function checkWeapon(player) 
  setTimer(function(player) 
    if isElement(player) then 
      if getElementData(player, "Police") == true then 
        giveWeapon(player, 3) 
      end 
    else 
      takeWeapon(player, 3) 
    end 
  end, 800, 2, player) 
end 
  
function onSelectTeam(player) 
  if not isElement(player) then 
    return 
  end 
  local playerTeam = getPlayerTeam(player) 
  showTextForPlayer(player, 5000, 255, 0, 0, 1.5, "You have been assigned to team [" .. tostring(getTeamName(playerTeam)) .. "]") 
  OutPut("To return to spawn press["..Key.."]", player, 255, 255, 255) 
  local playeraccount = getPlayerAccount(player) 
  if playeraccount and not isGuestAccount(getPlayerAccount(player)) then 
    if getElementData(player, "hjwalah") == true then 
      return false 
    end 
    if getElementData(player, "wasgied") == true then 
      return false 
    end 
    setElementData(player, "wasgied", true) 
    local weap0 = getAccountData(playeraccount, "s.weap0") 
    local weap1 = getAccountData(playeraccount, "s.weap1") 
    local weap2 = getAccountData(playeraccount, "s.weap2") 
    local ammo2 = getAccountData(playeraccount, "s.ammo2") 
    local weap3 = getAccountData(playeraccount, "s.weap3") 
    local ammo3 = getAccountData(playeraccount, "s.ammo3") 
    local weap4 = getAccountData(playeraccount, "s.weap4") 
    local ammo4 = getAccountData(playeraccount, "s.ammo4") 
    local weap5 = getAccountData(playeraccount, "s.weap5") 
    local ammo5 = getAccountData(playeraccount, "s.ammo5") 
    local weap6 = getAccountData(playeraccount, "s.weap6") 
    local ammo6 = getAccountData(playeraccount, "s.ammo6") 
    local weap7 = getAccountData(playeraccount, "s.weap7") 
    local ammo7 = getAccountData(playeraccount, "s.ammo7") 
    local weap8 = getAccountData(playeraccount, "s.weap8") 
    local ammo8 = getAccountData(playeraccount, "s.ammo8") 
    local weap9 = getAccountData(playeraccount, "s.weap9") 
    local ammo9 = getAccountData(playeraccount, "s.ammo9") 
    local weap10 = getAccountData(playeraccount, "s.weap10") 
    local weap11 = getAccountData(playeraccount, "s.weap11") 
    local weap12 = getAccountData(playeraccount, "s.weap12") 
    local wanted = getAccountData(playeraccount, "WantedLevel") 
    if tonumber(wanted) then 
      setPlayerWantedLevel(player, wanted) 
   elseif tonumber(weap0) then 
      giveWeapon(player, weap0, 1) 
  elseif tonumber(weap1) then 
      giveWeapon(player, weap1, 1) 
  elseif tonumber(weap2) and tonumber(ammo2) then 
      giveWeapon(player, weap2, ammo2) 
  elseif tonumber(weap3) and tonumber(ammo3) then 
      giveWeapon(player, weap3, ammo3) 
  elseif tonumber(weap4) and tonumber(ammo4) then 
      giveWeapon(player, weap4, ammo4) 
  elseif tonumber(weap6) and tonumber(ammo5) then 
      giveWeapon(player, weap5, ammo5) 
  elseif tonumber(weap6) and tonumber(ammo6) then 
      giveWeapon(player, weap6, ammo6) 
  elseif tonumber(weap7) and tonumber(ammo7) then 
      giveWeapon(player, weap7, ammo7) 
  elseif tonumber(weap8) and tonumber(ammo8) then 
      giveWeapon(player, weap8, ammo8) 
  elseif tonumber(weap9) and tonumber(ammo9) then 
      giveWeapon(player, weap9, ammo9) 
    elseif tonumber(weap10) then 
      giveWeapon(player, weap10, 30) 
    elseif tonumber(weap11) then 
      giveWeapon(player, weap11, 30) 
    elseif tonumber(weap12) then 
      giveWeapon(player, weap12, 10) 
      end 
  end 
end 
  
function camera(plr) 
  if not isElement(plr) then 
    return 
  end 
  setTimer(fadeCamera, 50, 1, plr, false, 1) 
  setTimer(fadeCamera, 100, 1, plr, true, 3) 
  setCameraTarget(plr, plr) 
  showChat(plr, true) 
end 
  
addEventHandler("onPlayerSpawn", root, function() 
  setElementData(source, "FristTimeSpawn", false) 
  bindKey(source, Key, "down", "changeTeame") 
  setElementData(source, "WasChangeTeam", false) 
end 
) 
  
Change = false 
  
addCommandHandler("changeTeame", function(plr) 
  if getElementData(plr, "WasChangeTeam") == false then 
    setElementData(plr, "ChangeTeam", true) 
    OutPut("The team will change after you die", plr, 255, 0, 255) 
    setTimer(cancleTeam, 1700, 1, plr) 
    setElementData(plr, "WasChangeTeam", true) 
  else 
    OutPut("Change the team has been canceled", plr, 255, 255, 0) 
    setElementData(plr, "ChangeTeam", false) 
    setElementData(plr, "WasChangeTeam", false) 
  end 
  Change = not Change 
end 
) 
  
function cancleTeam(plr) 
  if Change == false then 
    return false 
  end 
  OutPut("To cancel the change team press again", plr, 255, 255, 0) 
end 
 
Link to comment
iPrestege Boss Hawg

iPrestege

Posted
Posted 
if Team == "Police" and getPlayerWantedLevel() > 0 then return outputChatBox ( '* عذراً لايمكنك دخول الفريق لـ وجود نجوم [ الشرطة ] خطأ !!' )  end 
 

الشخصيات عدل من بداية سطر 189 الى نهاية سطر 249 بالكلنت

Link to comment
MR.S3D Homeboy

MR.S3D

Posted
Posted
اوك

انا ابي احط اد ما بدي شخصيات في كل تيم يعني انا احدد كم واحدة ما بدي بس 3

+

ابي اذا واحد علية نجوم ما يقدر يدخل في تيم الشرطة

ارسلي المود كامل اللي تستخدمه بملف مضغوط على الخاص

Link to comment
MR.S3D Homeboy

MR.S3D

Posted
Posted
بعدله لك وارسله

حطة هنا عشان الكل يستفيد :P

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 =
Link to comment
</Mr.Tn6eL> Foot Soldier

</Mr.Tn6eL>

Posted
Posted
بعدله لك وارسله

حطة هنا عشان الكل يستفيد :P

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
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
Go to topic listing

  • Recently Browsing   0 members

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