تعديل

iMr.G[7]A · March 29, 2014

يوم اششغل القيم مود يا شباب احط اكثر من شخصية شرطي ولا تطلع الرجاء التعديل والنو تيم مثله الحل ~ بالله

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 findskin = nil 
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, 286, 287, 288, 289},  
Ballas = {102, 103, 104},  
["No Team"] = {29, 30, 31},  
Medic = {274, 275, 276},  
Drift = {46, 124, 43, 63, 64, 75, 285, 0} 
} 
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() 
    foundInTeam = "There are Players"    
    foundInall = "all Players"   
    GameType = {"Gang Wars"} 
    Info = {"Wlecom To Gang Wars","To Spawn press [Enter]"}  
    fadeCamera( true ) 
    GameNameType = "Gang Wars" 
    mn = nil 
    showChat(false) 
    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() 
    if typeGame == "gang" then 
        setTimer(MakeGangWars, 500, 1) 
    end 
        unbindKey("enter", "down", SpawnGameType) 
      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) 
    findskin = math.random(1, 3) 
    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 
      num = num - 1 
    else 
      num = num + 1 
    end 
    if key == "arrow_l" then 
      findskin = findskin - 1 
    else 
      findskin = findskin + 1 
    end 
    if findskin < 1 then 
      findskin = 3 
    end 
    if findskin > 3 then 
      findskin = 1 
    end 
    if num < 1 then 
      num = 16 
      foundTeam = 6 
    elseif num == 1 then 
      foundTeam = 1 
    elseif num == 4 then 
      foundTeam = 2 
    elseif num == 7 then 
      foundTeam = 3 
    elseif num == 10 then 
      foundTeam = 4 
    elseif num == 13 then 
      foundTeam = 5 
    elseif num == 16 then 
      foundTeam = 6 
    elseif num == 19 then 
      foundTeam = 1 
      num = 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}

shwaeki · March 29, 2014

  
  
  
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

Jey · March 29, 2014

https://forum.multitheftauto.com/viewtopic.php?f=160&t=72943&start=15

Sign In

تعديل

Recommended Posts

iMr.G[7]A

Link to comment

shwaeki

Link to comment

Jey

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