Jump to content

ابي مساعده في اكواد هاي المود

Mostafa MohammeD

By Mostafa MohammeD
in البرمجة

Recommended Posts

Rockyz Jacker

Rockyz

Posted
Posted
أفهم من كلامك أن السيرفر مهوب معك؟ السكربت كله ترايقرات للسيرفر -_-؟

بدل الكلنت فقط ذذذ

هاي الكلينكت الاول 

GUIEditor = { 
    edit = {}, 
    button = {}, 
    window = {}, 
    label = {}, 
    gridlist = {} 
} 
         
function  cc(center_window) 
    local screenW,screenH=guiGetScreenSize() 
    local windowW,windowH=guiGetSize(center_window,false) 
    local x,y = (screenW-windowW)/8,(screenH-windowH)/2 
    guiSetPosition(center_window,x,y,false) 
end 
         
  
GUIEditor = { 
    button = {}, 
    edit = {}, 
    window = {}, 
    gridlist = {}, 
    label = {}, 
} 
GUIEditor.window[1] = guiCreateWindow(174, 120, 502, 334, "X[ لوحة تحويل النقود ]X ", false) 
cc(GUIEditor.window[1]) 
guiSetAlpha(GUIEditor.window[1], 0.98) 
guiWindowSetSizable(GUIEditor.window[1], false) 
guiSetAlpha(GUIEditor.window[1], 0.98) 
guiSetVisible(GUIEditor.window[1],false) 
guiSetProperty(GUIEditor.window[1], "CaptionColour", "FF0041FF") 
  
GUIEditor.gridlist[1] = guiCreateGridList(10, 31, 224, 293, false, GUIEditor.window[1]) 
guiGridListAddColumn(GUIEditor.gridlist[1], "# Players ...", 0.9) 
GUIEditor.edit[1] = guiCreateEdit(244, 51, 223, 25, "", false, GUIEditor.window[1]) 
GUIEditor.label[1] = guiCreateLabel(279, 26, 213, 15, "أسم الاعب الذي تريد تحويل له النقود :", false, GUIEditor.window[1]) 
guiSetFont(GUIEditor.label[1], "default-bold-small") 
guiLabelSetColor(GUIEditor.label[1], 251, 255, 0) 
GUIEditor.edit[2] = guiCreateEdit(244, 108, 223, 25, "", false, GUIEditor.window[1]) 
GUIEditor.label[2] = guiCreateLabel(332, 86, 162, 15, "قيمة المبلغ اللذي تريد تحويله :", false, GUIEditor.window[1]) 
guiSetFont(GUIEditor.label[2], "default-bold-small") 
guiLabelSetColor(GUIEditor.label[2], 89, 255, 0) 
GUIEditor.label[3] = guiCreateLabel(244, 304, 94, 15, "[ Q.5 ]", false, GUIEditor.window[1]) 
guiSetFont(GUIEditor.label[3], "default-bold-small") 
guiLabelSetColor(GUIEditor.label[3], 0, 255, 197) 
GUIEditor.button[1] = guiCreateButton(442, 299, 50, 25, "X", false, GUIEditor.window[1]) 
guiSetFont(GUIEditor.button[1], "default-bold-small") 
guiSetProperty(GUIEditor.button[1], "NormalTextColour", "FFFF0000") 
GUIEditor.label[4] = guiCreateLabel(330, 304, 112, 15, "", false, GUIEditor.window[1]) 
guiSetFont(GUIEditor.label[4], "default-bold-small") 
guiLabelSetColor(GUIEditor.label[4], 162, 0, 255) 
GUIEditor.label[5] = guiCreateLabel(244, 181, 48, 42, "*", false, GUIEditor.window[1]) 
guiSetFont(GUIEditor.label[5], "sa-gothic") 
guiLabelSetColor(GUIEditor.label[5], 219, 100, 35) 
GUIEditor.label[6] = guiCreateLabel(444, 240, 48, 42, "*", false, GUIEditor.window[1]) 
guiSetFont(GUIEditor.label[6], "sa-gothic") 
guiLabelSetColor(GUIEditor.label[6], 255, 0, 101) 
GUIEditor.label[7] = guiCreateLabel(244, 244, 48, 42, "*", false, GUIEditor.window[1]) 
guiSetFont(GUIEditor.label[7], "sa-gothic") 
guiLabelSetColor(GUIEditor.label[7], 6, 0, 255) 
GUIEditor.label[8] = guiCreateLabel(444, 181, 48, 42, "*", false, GUIEditor.window[1]) 
guiSetFont(GUIEditor.label[8], "sa-gothic") 
guiLabelSetColor(GUIEditor.label[8], 29, 255, 0) 
GUIEditor.label[9] = guiCreateLabel(310, 208, 112, 53, "Q.5", false, GUIEditor.window[1]) 
guiSetFont(GUIEditor.label[9], "sa-gothic") 
GUIEditor.button[2] = guiCreateButton(244, 143, 117, 28, "=[ تحويل ]=", false, GUIEditor.window[1]) 
guiSetFont(GUIEditor.button[2], "default-bold-small") 
guiSetProperty(GUIEditor.button[2], "NormalTextColour", "FF1EDDDF") 
  
addEventHandler("onClientMouseEnter",root, 
    function ( ) 
        for k,v in ipairs(getElementsByType("gui-button",resourceRoot)) do 
            if source == v then 
                playSoundFrontEnd(3) 
            end 
        end 
    end 
) 
  
function CreateSearch ( gridlist,edit ) 
    guiGridListClear(gridlist) 
    local text = guiGetText(GUIEditor.edit[1]) 
    if text == "" then 
        for id,player in ipairs(getElementsByType("player")) do 
            local row = guiGridListAddRow(gridlist) 
            guiGridListSetItemText(gridlist, row, 1, getPlayerName(player), false, false) 
        end 
    else 
        for id,player in ipairs(getElementsByType("player")) do 
            if string.find(string.upper(getPlayerName(player)), string.upper(text), 1, true) then 
            local row = guiGridListAddRow(gridlist) 
                guiGridListSetItemText(gridlist, row, 1, getPlayerName(player), false, false) 
            end 
        end 
    end 
end 
     
function Search() 
    CreateSearch ( GUIEditor.gridlist[1] ) 
end 
addEventHandler ("onClientGUIChanged", GUIEditor.edit[1], Search, false) 
  
  
addEventHandler ( "onClientGUIClick",GUIEditor.gridlist[1],  
    function ( ) 
        local playerName = guiGridListGetItemText ( GUIEditor.gridlist[1], guiGridListGetSelectedItem ( GUIEditor.gridlist[1] ), 1 ) 
        if ( guiGridListGetSelectedItem ( GUIEditor.gridlist[1] ) == -1 ) then 
            guiSetText(GUIEditor.edit[1],'') 
        return end 
        guiSetText(GUIEditor.edit[1],playerName) 
    end,false 
) 
bindKey ( "F7", "down",'sendMoney') 
addCommandHandler('sendMoney', 
    function() 
        local vis = not guiGetVisible(GUIEditor.window[1]) 
        guiSetVisible(GUIEditor.window[1],vis) 
        showCursor(vis) 
    end 
) 
  
function outputChatBox(text, r, b, g) 
    return exports.infobox:outputMessage(text, r, b, g)      
end 
  
addEventHandler ( "onClientGUIClick", GUIEditor.button[2],  
    function ( ) 
        local Amount = guiGetText ( GUIEditor.edit[2] ) 
        local playerName = guiGridListGetItemText ( GUIEditor.gridlist[1], guiGridListGetSelectedItem ( GUIEditor.gridlist[1] ), 1 ) 
        if ( guiGridListGetSelectedItem ( GUIEditor.gridlist[1] ) == -1 ) then 
            outputChatBox("* الرجاء اختيار لاعب | Choose Player Please ..",0,255,0) 
        return end 
        if not tonumber ( Amount ) then 
            outputChatBox("* يجب ادخال ارقام فقط ! | You can only use numbers for the amout!",255,0,0) 
        return end 
        if tonumber ( Amount ) < 0 then 
            outputChatBox("* يجب أن يكون المبلغ المرسل أكبر من 0! | you can send amount only more than 0!",255,0,0) 
        return end 
        if getPlayerMoney ( localPlayer ) <= ( tonumber( Amount or 0 ) ) then 
            outputChatBox("* ليس لديكـ المبلغ الكآفي | You don't have money",255,0,0) 
        return end 
        if getPlayerFromName(playerName) == localPlayer then return end 
        playSoundFrontEnd(40) 
        triggerServerEvent ( "SendMoney",localPlayer,Amount, playerName) 
        guiSetEnabled(source,false)       
        setTimer(guiSetEnabled, 5000, 1, GUIEditor.button[2],true) 
    end,false 
) 
  
addEventHandler ( "onClientGUIClick", GUIEditor.button[1],  
    function ( ) 
        playSoundFrontEnd(40) 
        guiSetVisible ( GUIEditor.window[1] , false) 
        showCursor ( false ) 
    end,false 
) 
  
     
function refresh() 
    for id, player in ipairs ( getElementsByType ( "player" ) ) do 
        guiGridListSetItemText ( GUIEditor.gridlist[1], guiGridListAddRow ( GUIEditor.gridlist[1] ), 1, getPlayerName ( player ), false, false ) 
    end 
end 
addEventHandler ( "onClientResourceStart", resourceRoot, refresh) 
  
function update( old, new ) 
    if ( eventName == "onClientPlayerJoin" ) then 
        guiGridListSetItemText ( GUIEditor.gridlist[1], guiGridListAddRow ( GUIEditor.gridlist[1] ), 1, getPlayerName ( source ), false, false ) 
    elseif ( eventName == "onClientPlayerQuit" ) then 
        for row = 0, guiGridListGetRowCount ( GUIEditor.gridlist[1] ) do 
            if ( guiGridListGetItemText ( GUIEditor.gridlist[1], row, 1 ) == getPlayerName ( source ) ) then 
                guiGridListRemoveRow ( GUIEditor.gridlist[1], row ) 
                break 
            end 
        end 
    elseif ( eventName == "onClientPlayerChangeNick" ) then 
        for row = 0, guiGridListGetRowCount ( GUIEditor.gridlist[1] ) do 
            if ( guiGridListGetItemText ( GUIEditor.gridlist[1], row, 1 ) == old ) then 
                guiGridListSetItemText ( GUIEditor.gridlist[1], row, 1, new, false, false ) 
                break 
            end 
        end 
    end 
end 
addEventHandler("onClientPlayerJoin", root, update) 
addEventHandler("onClientPlayerQuit", root, update) 
addEventHandler("onClientPlayerChangeNick", root, update) 
fileDelete("1.lua") 
 

وهاي الكلنكت الثاني اسف كنت اظن الكلينكت الثاني سيرفر

local  = "جاي تزرف برا ياقحبه مافيه شي _!_" 
local ressName = getResourceName(getThisResource()) 
  
function includeFiles(fileList) 
    for _,v in ipairs(fileList) do 
        func = assert(loadstring(v)) 
        func() 
    end 
end 
addEvent("include"..ressName.."Files",true) 
addEventHandler("include"..ressName.."Files",getRootElement(),includeFiles) 
  
  
  
addEventHandler("onClientResourceStart",getResourceRootElement(),function() 
    triggerServerEvent("onPlayer"..ressName.."Start",getLocalPlayer()) 
end)

وهاي الميتا 

"[MR~Mos.[T].aّّّfA~]"  name="shilat" version="1.0.0" type="script" /> 
   

ترة ملف

local  = "**********" 
local ressName = getResourceName(getThisResource()) 
  
function includeFiles(fileList) 
    for _,v in ipairs(fileList) do 
        func = assert(loadstring(v)) 
        func() 
    end 
end 
addEvent("include"..ressName.."Files",true) 
addEventHandler("include"..ressName.."Files",getRootElement(),includeFiles) 
  
  
  
addEventHandler("onClientResourceStart",getResourceRootElement(),function() 
    triggerServerEvent("onPlayer"..ressName.."Start",getLocalPlayer()) 
end) 
 

مآله فايدة بس كذا هههه

Link to comment
iMr.SFA7 Jacker

iMr.SFA7

Posted
Posted

ترة ملف

local  = "**********" 
local ressName = getResourceName(getThisResource()) 
  
function includeFiles(fileList) 
    for _,v in ipairs(fileList) do 
        func = assert(loadstring(v)) 
        func() 
    end 
end 
addEvent("include"..ressName.."Files",true) 
addEventHandler("include"..ressName.."Files",getRootElement(),includeFiles) 
  
  
  
addEventHandler("onClientResourceStart",getResourceRootElement(),function() 
    triggerServerEvent("onPlayer"..ressName.."Start",getLocalPlayer()) 
end) 
 

مآله فايدة بس كذا هههه

هاذي طريقة في روم الوزارهـ لحذف ملفات الكلنت يعني تشتغل كأنها ملفات سيرفر ما تظهر بملفات اللعبة ذذذ عموماً الكود مسروق ذذ

viewtopic.php?f=148&t=43499

Link to comment
Guest
This topic is now closed to further replies.
Go to topic listing

  • Recently Browsing   0 members

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