Jump to content

قيم مود سعد خلل


Recommended Posts

server

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

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...