Jump to content

^iiEcoo'x_)

Members
  • Posts

    2,935
  • Joined

  • Last visited

  • Days Won

    44

Everything posted by ^iiEcoo'x_)

  1. افضل واحد لحد الان @#Skrillex الكود هو :- local utf8, tonumber, DxDrawText, dxGetFontHeight, dxGetTextWidth = utf8, tonumber, _G.dxDrawText, dxGetFontHeight, dxGetTextWidth local Match, Sub, GMatch, Len, xSub, Find = utf8.match, utf8.sub, utf8.gmatch, utf8.len, string.sub, utf8.find function dxDrawText( Text, xPosition, yPosition, Width, Height, Color, Alpha, Scale, Font, AlignX, AlignY, Clip, WBreak, PGUI, CCoded, FRotation, FRCX, FRCY ) Color, Alpha, AlignX, AlignY = Color or -1, Alpha or 1, AlignX or "left", AlignY or "top" local Red, Green, Blue, CAlpha = FromColor( Color ) Color = tocolor( Red, Green, Blue, CAlpha * Alpha ) local TIndex, TData, DText = 0 if ( CCoded ) then TData = {} DText = Match( Text, "(.-)#%x%x%x%x%x%x%x%x" ) or Text if ( DText and DText ~= "" ) then TIndex, TData[1] = 1, { DText, Color } Text = Sub( Text, Len( DText ) + 1 ) end for HDemical in GMatch( Text, "#%x%x%x%x%x%x%x%x" ) do DText = Match( Text, HDemical.."(.-)#%x%x%x%x%x%x%x%x" ) or Match( Text, HDemical.."(.+)" ) if ( DText and DText ~= "" ) then TIndex = TIndex + 1 TData[TIndex] = { DText, tocolor( tonumber( "0x"..xSub( HDemical, 4, 5 ) ), tonumber( "0x"..xSub( HDemical, 6, 7 ) ), tonumber( "0x"..xSub( HDemical, 8, 9 ) ), tonumber( "0x"..xSub( HDemical, 2, 3 ) ) * Alpha ) } Text = Sub( Text, Len( DText ) + 10 ) end end else TIndex, TData = 1, { { Text, Color } } end local CLData, CLIndex, CLText, xText = { Text = "" }, 0, "" local LData, LIndex = { CLData }, 1 for Text = 1, TIndex do Text = TData[Text] Text, Color = Text[1], Text[2] repeat DText = Match( Text, "(.-)\n" ) xText = DText or Text if ( xText ~= "" ) then CLIndex = CLIndex + 1 CLText, CLData[CLIndex] = CLText..xText, { xText, Color } CLData.Text = CLText end if ( DText ) then CLData, CLIndex, LIndex, CLText, Text = { Text = "" }, 0, LIndex + 1, "", Sub( Text, Len( DText ) + 2 ) LData[LIndex] = CLData end until not DText end local xAILeft, xAICenter, FHeight = AlignX == "left", AlignX == "center", dxGetFontHeight( Scale, Font ) local CYPosition, CXPosition = AlignY == "top" and yPosition or yPosition + ( Height - FHeight * LIndex ) / ( AlignY == "center" and 2 or 1 ) if ( Clip ) then dxSetRenderTarget( RTarget, true ) dxSetBlendMode( "modulate_add" ) end for Line = 1, LIndex do Line = LData[Line] CXPosition = xAILeft and xPosition or xPosition + ( Width - dxGetTextWidth( Line.Text, Scale, Font ) ) / ( xAICenter and 2 or 1 ) for Text = 1, #Line do Text = Line[Text] Color, Text = Text[2], Text[1] DxDrawText( Text, CXPosition, CYPosition, nil, nil, Color, Scale, Font ) CXPosition = CXPosition + dxGetTextWidth( Text, Scale, Font ) end CYPosition = CYPosition + FHeight end if ( Clip ) then dxSetRenderTarget() dxSetBlendMode( "add" ) dxDrawImageSection( xPosition, yPosition, Width, Height, xPosition, yPosition, Width, Height, RTarget, FRotation or 0, FRCX or 0, FRCY or 0, -1, PGUI ) dxSetBlendMode( "blend" ) end return true end end
  2. شكرا على معلوماتكم !
  3. ههههههه خايف ع مصاريك @iPrestege 》 جميل جدا 《
  4. السلام عليكم ورحمة الله وبركاته ،، عندي فكرة وهي للمبرمجين ،، يقومون ب عمل لعبة GTA 3 Online تكون مثل MTA Sa بس بشكل جديد ؟
  5. @myonlake X X X X @TheMOG Use . if ( tonumber(Money) < 200 ) then return end
  6. function convertNumber ( number ) local formatted = number while true do formatted, k = string.gsub(formatted, "^(-?%d+)(%d%d%d)", '%1,%2') if ( k==0 ) then break end end return formatted end function pay_function(player,cmd,playername,money, cantidad) outputChatBox("[Help]: #ffffff/" .. cmd .. " [Name] [Amount]", player, 255, 0, 0, true) else local targetPlayer = exports.enExport:findPlayer(playername, player) if targetPlayer then if (targetPlayer==player) then outputChatBox("[Error]: #ffffffYou cant give money to yourself.", player, 255, 0, 0, true) elseif tonumber(cantidad) <= 0 then outputChatBox("[Error]: #ffffff Bigger than 0", player, 255, 0, 0, true) elseif getPlayerMoney(player) >= tonumber(cantidad) then givePlayerMoney(targetPlayer, tonumber(cantidad)) takePlayerMoney(player, tonumber(cantidad)) outputChatBox("[PAY]: #ffffffYou gaved $" tonumber(cantidad)" to " ..getPlayerName(targetPlayer).. "", player, 255, 0, 0, true) outputChatBox("[PAY]: #ffffff"..getPlayerName(player).." #ffffff gaved you $".. tonumber(cantidad).."", targetPlayer, 255, 0, 0, true) else outputChatBox("[Error] #ffffffyou dont have enough money.", player, 177,9,45, true) end end end end addCommandHandler("pay",pay_function)
  7. function convertNumber ( number ) local formatted = number while true do formatted, k = string.gsub(formatted, "^(-?%d+)(%d%d%d)", '%1,%2') if ( k==0 ) then break end end return formatted end function pay_function(player,cmd,playername,money, cantidad) if not (playername) or not tonumber(money) or not type(tonumber(money)) == "number" then outputChatBox("[Help]: #ffffff/" .. cmd .. " [Name] [Amount]", player, 255, 0, 0, true) else local targetPlayer = exports.enExport:findPlayer(playername, player) if targetPlayer then if (targetPlayer==player) then outputChatBox("[Error]: #ffffffYou cant give money to yourself.", player, 255, 0, 0, true) elseif tonumber(cantidad) <= 0 then outputChatBox("[Error]: #ffffff Bigger than 0", player, 255, 0, 0, true) elseif getPlayerMoney(player) >= tonumber(cantidad) then givePlayerMoney(targetPlayer, tonumber(cantidad)) takePlayerMoney(player, tonumber(cantidad)) outputChatBox("[PAY]: #ffffffYou gaved $" tonumber(cantidad)" to " ..getPlayerName(targetPlayer).. "", player, 255, 0, 0, true) outputChatBox("[PAY]: #ffffff"..getPlayerName(player).." #ffffff gaved you $".. tonumber(cantidad).."", targetPlayer, 255, 0, 0, true) else outputChatBox("[Error] #ffffffyou dont have enough money.", player, 177,9,45, true) end end end end addCommandHandler("pay",pay_function)
  8. Welcome addEvent("CancelLeaving", true) function CancelLeaving () for eventPlayers in pairs(WrapedPlayers) do exports.SAEGcommands:sendMessage("Vehicles Leaving Has Been Disabled By "..getPlayerName(client), 255, 0, 0,eventPlayers) cancelEvent () end end addEventHandler ( "onVehicleStartExit", getRootElement(),
  9. --# Client Table createMarker 'onClientMarkerHit' guiSetVisible 'onClientGUIClick' triggerServerEvent getElementPosition createVehicle warpPedIntoVehicle setTimer setElementData isTimer => if not triggerServerEvent destroyElement => Vehicle setElementData => false --# Server createTeam getTeamFriendlyFire 'addEvent' 'addEventHandler' setPlayerTeam 'addEvent' 'addEventHandler' setPlayerTeam => nil 'onPlayerWasted' getElementData givePlayerMoney
  10. -- # Client e local Vehicles = { {'Name',id}, {'Name',id} } for _,v in ipairs ( Vehicles ) do local row = guiGridListAddRow ( grid ) guiGridListSetItemText ( grid , row , 1 , v[1] , false , false ) guiGridListSetItemData ( grid , row , 1 , v[2] ) end
  11. -- # Client addEventHandler ( "onClientGUIClick", root, function ( ) if ( source == GUIEditor.button[2] ) then setElementData ( localPlayer,"Data",false ) end end )
  12. . @Angel02 -- # Client local getPlayerWeapon = G addEventHandler ( "onClientGUIClick", root, function ( ) if ( source == GUIEditor.button[1] ) then if G (localPlayer) == 30 then setElementData ( localPlayer,"Data",G ) if getElementData(localPlayer,"Data") then triggerServerEvent("Dis", localPlayer, G) end end end ) -- # Server addEvent('Dis', true) addEventHandler('Dis',root, function(G) takeWeapon ( source , G ) end )
  13. getPlayerWeapon setElementData getElementData takeWeapon
  14. local cow1 = guiGridListAddColumn(GUIEditor.gridlist[1], "الاعب", 0.9) عدله ؟
×
×
  • Create New...