Jump to content

مبرمجين

[KilleR]

By [KilleR]
in البرمجة

Recommended Posts

[KilleR] Prankster

[KilleR]

Posted
Posted (edited)

السلام عليكم ورحمة الله وبركاتة

انا سويت لوحة مت وانا ادور في الويكي مالقيت ولا كود :fadein:

ابي اكواد حقت ملفات

كلنت وسيرفر

  
  
GUIEditor = { 
    gridlist = {}, 
    window = {}, 
    button = {}, 
    edit = {} 
} 
addEventHandler("onClientResourceStart", resourceRoot, 
    function() 
        GUIEditor.window[1] = guiCreateWindow(219, 97, 406, 430, "Tag", false) 
        guiWindowSetSizable(GUIEditor.window[1], false) 
  
        GUIEditor.edit[1] = guiCreateEdit(262, 21, 134, 48, "", false, GUIEditor.window[1]) 
        GUIEditor.gridlist[1] = guiCreateGridList(9, 19, 120, 401, false, GUIEditor.window[1]) 
        guiGridListAddColumn(GUIEditor.gridlist[1], "Players", 0.9) 
        GUIEditor.button[1] = guiCreateButton(258, 72, 138, 50, "Add Tag", false, GUIEditor.window[1]) 
        GUIEditor.button[2] = guiCreateButton(259, 141, 137, 50, "Restore Tag", false, GUIEditor.window[1]) 
        GUIEditor.button[3] = guiCreateButton(259, 375, 137, 45, "×", false, GUIEditor.window[1])     
    end 
)

ذي مود اعطا تاج فوق الراس

وماعرفت ابرمجه

ابي اكواد جاهزه +

تفتح لي بكلمه + والقريد ليست فيه اللاعبين

Edited by Guest
Link to comment
[KilleR] Prankster

[KilleR]

Posted
  • Author
Posted

]اخوي هنا تاج انا كلام انا اككتبه يصير فوق راسه

مكتوب كلنت

كلنت

كلنت

يعني اسويها 3 ملفات او لا

function dxDrawImageOnElement(TheElement,Image,distance,height,width,R,G,B,alpha) 
                local x, y, z = getElementPosition(TheElement) 
                local x2, y2, z2 = getElementPosition(localPlayer) 
                local distance = distance or 20 
                local height = height or 1 
                local width = width or 1 
                                local checkBuildings = checkBuildings or true 
                                local checkVehicles = checkVehicles or false 
                                local checkPeds = checkPeds or false 
                                local checkObjects = checkObjects or true 
                                local checkDummies = checkDummies or true 
                                local seeThroughStuff = seeThroughStuff or false 
                                local ignoreSomeObjectsForCamera = ignoreSomeObjectsForCamera or false 
                                local ignoredElement = ignoredElement or nil 
                if (isLineOfSightClear(x, y, z, x2, y2, z2, checkBuildings, checkVehicles, checkPeds , checkObjects,checkDummies,seeThroughStuff,ignoreSomeObjectsForCamera,ignoredElement)) then 
                    local sx, sy = getScreenFromWorldPosition(x, y, z+height) 
                    if(sx) and (sy) then 
                        local distanceBetweenPoints = getDistanceBetweenPoints3D(x, y, z, x2, y2, z2) 
                        if(distanceBetweenPoints < distance) then 
                            dxDrawMaterialLine3D(x, y, z+1+height-(distanceBetweenPoints/distance), x, y, z+height, Image, width-(distanceBetweenPoints/distance), tocolor(R or 255, G or 255, B or 255, alpha or 255)) 
                        end 
                    end 
            end 
    end 


randomPed = createPed(285,2506.83423,-1684.89941,13.55648) 
tag = dxCreateTexture("crown.png") 
  
addEventHandler("onClientPreRender", root, 
function() 
dxDrawImageOnElement(randomPed,tag) 
end) 


local tag = dxCreateTexture("bike.png") 
  
addEventHandler("onClientPreRender", root, 
function() 
for k,v in ipairs(getElementsByType("vehicle")) do 
dxDrawImageOnElement(v,tag) 
end 
end)

ذا لصوره انا ابي الكلام الي اكتبه يصير فوقه

Link to comment
[KilleR] Prankster

[KilleR]

Posted
  • Author
Posted

جاهزه لاهنت

function dxDrawTextOnElement(TheElement,text,height,distance,R,G,B,alpha,size,font,checkBuildings,checkVehicles,checkPeds,checkDummies,seeThroughStuff,ignoreSomeObjectsForCamera,ignoredElement) 
                local x, y, z = getElementPosition(TheElement) 
                local x2, y2, z2 = getElementPosition(localPlayer) 
                local distance = distance or 20 
                local height = height or 1 
                                local checkBuildings = checkBuildings or true 
                                local checkVehicles = checkVehicles or false 
                                local checkPeds = checkPeds or false 
                                local checkObjects = checkObjects or true 
                                local checkDummies = checkDummies or true 
                                local seeThroughStuff = seeThroughStuff or false 
                                local ignoreSomeObjectsForCamera = ignoreSomeObjectsForCamera or false 
                                local ignoredElement = ignoredElement or nil 
                if (isLineOfSightClear(x, y, z, x2, y2, z2, checkBuildings, checkVehicles, checkPeds , checkObjects,checkDummies,seeThroughStuff,ignoreSomeObjectsForCamera,ignoredElement)) then 
                    local sx, sy = getScreenFromWorldPosition(x, y, z+height) 
                    if(sx) and (sy) then 
                        local distanceBetweenPoints = getDistanceBetweenPoints3D(x, y, z, x2, y2, z2) 
                        if(distanceBetweenPoints < distance) then 
                            dxDrawText(text, sx+2, sy+2, sx, sy, tocolor(R or 255, G or 255, B or 255, alpha or 255), (size or 1)-(distanceBetweenPoints / distance), font or "arial", "center", "center") 
            end 
        end 
    end 
end 


randomPed = createPed(285,2476.91406,-1665.31799,13.32435) 
  
addEventHandler("onClientRender", getRootElement(),  
function () 
dxDrawTextOnElement(randomPed,"SWATTEAM Officer",1,20,0,0,255,255,1,"pricedown") 
end) 


addEventHandler("onClientRender", getRootElement(),  
function () 
for k,v in ipairs(getElementsByType("player")) do 
        if getPlayerTeam(v) == getTeamFromName("HassoN") then 
            if v == localPlayer then return end 
            dxDrawTextOnElement(v,"HassoN",1,20,0,0,255,255,1,"arial") 
        end 
    end 
end)

اخوي ممكن تسويها لي

+

باي ملف اسويها

كلنت 1 او 2 او 3

يليت تخبرني

Link to comment
[KilleR] Prankster

[KilleR]

Posted
  • Author
Posted 
  
    function update () 
    guiGridListClear(grid) 
    for i,v in ipairs (getElementsByType("player")) do 
    local rp = guiGridListAddRow (Players) 
    guiGridListSetItemText (grid,rp,1,getPlayerName(v),false,false) 
    end 
    end 
    addEventHandler ("onClientResourceStart",resourceRoot,update) 
    addEventHandler ("onClientPlayerJoin",root,update) 
    addEventHandler ("onClientPlayerChangeNick",root,update) 
    addEventHandler ("onClientPlayerQuit",root,update)

محاولاتي

اسم الجريد ليست حقي

Players

+

فيه طريقه تفتح وتسكر اللوحة بكلمه اف 8 لاني ماسويت زر يغلق

---------

واذا مافي طريقه عطونني كود احطه يصير يفتح اف 6 او اي اف للكونسل

Link to comment
#|_oskar_|# Hoodsta

#|_oskar_|#

Posted
Posted 

function update () 
guiGridListClear(grid) -- اسم القريد يختلف عن حقك 
for i,v in ipairs (getElementsByType("player")) do 
local rp = guiGridListAddRow (Players) 
guiGridListSetItemText (grid,rp,1,getPlayerName(v),false,false) -- اسم القريد يختلف عن حقك 
end 
end 
addEventHandler ("onClientResourceStart",resourceRoot,update) 
addEventHandler ("onClientPlayerJoin",root,update) 
addEventHandler ("onClientPlayerChangeNick",root,update) 
addEventHandler ("onClientPlayerQuit",root,update)

التصحيح

guiGridListClear(Players) 
guiGridListSetItemText (Players,rp,1,getPlayerName(v),false,false)

+

فتح اللوحه من اف 8

-- الى اسم لوحتك myWindow غير ال 
-- لفتح او اغلاق اللوحه open اكتب ب اف 8 
addCommandHandler ( "open",function() 
local state = guiGetVisible (myWindow)  
guiSetVisible (myWindow, not state) 
showCursor ( state ) 
end)

Link to comment
Mr.CoR Homie

Mr.CoR

Posted
Posted 
  
    function update () 
    guiGridListClear(grid) 
    for i,v in ipairs (getElementsByType("player")) do 
    local rp = guiGridListAddRow (Players) 
    guiGridListSetItemText (grid,rp,1,getPlayerName(v),false,false) 
    end 
    end 
    addEventHandler ("onClientResourceStart",resourceRoot,update) 
    addEventHandler ("onClientPlayerJoin",root,update) 
    addEventHandler ("onClientPlayerChangeNick",root,update) 
    addEventHandler ("onClientPlayerQuit",root,update)

محاولاتي

اسم الجريد ليست حقي

Players

+

فيه طريقه تفتح وتسكر اللوحة بكلمه اف 8 لاني ماسويت زر يغلق

---------

واذا مافي طريقه عطونني كود احطه يصير يفتح اف 6 او اي اف للكونسل

محاولاتك ؟؟؟

طيب اسمح لي اوريك ذا الكود 

function update () 
guiGridListClear(grid) 
for i,v in ipairs (getElementsByType("player")) do 
local rp = guiGridListAddRow (grid) 
guiGridListSetItemText (grid,rp,1,getPlayerName(v),false,false) 
end 
end 
addEventHandler ("onClientResourceStart",resourceRoot,update) 
addEventHandler ("onClientPlayerJoin",root,update) 
addEventHandler ("onClientPlayerChangeNick",root,update) 
addEventHandler ("onClientPlayerQuit",root,update)

موجود في هذا الموضوع

https://forum.multitheftauto.com/viewtopic.php?f=160&t=99348

سارق كود لعبة وتقول محاولاتي ؟

لاتفكر انك جالس تضحك علينا

ترا انت جالس تضحك على نفسك

بالتوفيق

Link to comment
#|_oskar_|# Hoodsta

#|_oskar_|#

Posted
Posted

ملاحظه : كدا اللاعب بس هو اللى يشوف اسمه اتغير

GUIEditor = { 
    edit = {}, 
    button = {}, 
    window = {}, 
    label = {}, 
    gridlist = {} 
} 
  
        GUIEditor.window[1] = guiCreateWindow(143, 151, 243, 401, "Nick ", false) 
        guiWindowSetSizable(GUIEditor.window[1], false) 
        guiSetVisible(GUIEditor.window[1], false) 
        GUIEditor.edit[1] = guiCreateEdit(141, 44, 92, 45, "", false, GUIEditor.window[1]) 
        GUIEditor.gridlist[1] = guiCreateGridList(9, 23, 132, 368, false, GUIEditor.window[1]) 
        guiGridListAddColumn(GUIEditor.gridlist[1], "Players", 0.9) 
        GUIEditor.button[1] = guiCreateButton(145, 95, 88, 48, "Set", false, GUIEditor.window[1]) 
        guiSetProperty(GUIEditor.button[1], "NormalTextColour", "FF0DF1E3") 
        GUIEditor.button[2] = guiCreateButton(145, 156, 88, 48, "Resotre Name", false, GUIEditor.window[1]) 
        guiSetProperty(GUIEditor.button[2], "NormalTextColour", "FFFE0B0B") 
        GUIEditor.button[3] = guiCreateButton(377, 314, 0, 15, "", false, GUIEditor.window[1]) 
        GUIEditor.label[1] = guiCreateLabel(149, 250, 84, 42, "By : KilleR", false, GUIEditor.window[1])     
addCommandHandler ( "open",function() 
local state = guiGetVisible (GUIEditor.window[1]) 
guiSetVisible (GUIEditor.window[1], not state) 
showCursor ( state ) 
end) 
function Strong ( )   
guiSetVisible ( GUIEditor.window[1],true )  
showCursor ( true ) -- اظهار الماوس  
end  
  
  
  
addEventHandler("onClientGUIClick",root, 
    function () 
        local name = guiGetText(GUIEditor.edit[1]) 
        if ( source == GUIEditor.button[1] ) then 
            if ( string.len(name) > 0 ) then 
                setElementData(localPlayer,"tag",name) 
                outputChatBox("* الان " .. name .. " هو اسمك ",0,255,0) 
            else 
                outputChatBox("* الرجاء كتابه اسمك العربي في الفراغ",255,0,0) 
            end 
        elseif ( source == GUIEditor.button[2] ) then 
            setElementData(localPlayer,"tag",getPlayerName(localPlayer)) 
            outputChatBox("* لقد عاد اسمك كما كان",0,255,0) 
        end 
    end 
)    
 function update () 
    guiGridListClear(GUIEditor.gridlist[1]) 
    for i,v in ipairs (getElementsByType("player")) do 
    local rp = guiGridListAddRow (GUIEditor.gridlist[1]) 
    guiGridListSetItemText (GUIEditor.gridlist[1],rp,1,getPlayerName(v),false,false) 
    end 
    end 
    addEventHandler ("onClientResourceStart",resourceRoot,update) 
    addEventHandler ("onClientPlayerJoin",root,update) 
    addEventHandler ("onClientPlayerChangeNick",root,update) 
    addEventHandler ("onClientPlayerQuit",root,update)
Link to comment
[KilleR] Prankster

[KilleR]

Posted
  • Author
Posted
ملاحظه : كدا اللاعب بس هو اللى يشوف اسمه اتغير

GUIEditor = { 
    edit = {}, 
    button = {}, 
    window = {}, 
    label = {}, 
    gridlist = {} 
} 
  
        GUIEditor.window[1] = guiCreateWindow(143, 151, 243, 401, "Nick ", false) 
        guiWindowSetSizable(GUIEditor.window[1], false) 
        guiSetVisible(GUIEditor.window[1], false) 
        GUIEditor.edit[1] = guiCreateEdit(141, 44, 92, 45, "", false, GUIEditor.window[1]) 
        GUIEditor.gridlist[1] = guiCreateGridList(9, 23, 132, 368, false, GUIEditor.window[1]) 
        guiGridListAddColumn(GUIEditor.gridlist[1], "Players", 0.9) 
        GUIEditor.button[1] = guiCreateButton(145, 95, 88, 48, "Set", false, GUIEditor.window[1]) 
        guiSetProperty(GUIEditor.button[1], "NormalTextColour", "FF0DF1E3") 
        GUIEditor.button[2] = guiCreateButton(145, 156, 88, 48, "Resotre Name", false, GUIEditor.window[1]) 
        guiSetProperty(GUIEditor.button[2], "NormalTextColour", "FFFE0B0B") 
        GUIEditor.button[3] = guiCreateButton(377, 314, 0, 15, "", false, GUIEditor.window[1]) 
        GUIEditor.label[1] = guiCreateLabel(149, 250, 84, 42, "By : KilleR", false, GUIEditor.window[1])     
addCommandHandler ( "open",function() 
local state = guiGetVisible (GUIEditor.window[1]) 
guiSetVisible (GUIEditor.window[1], not state) 
showCursor ( state ) 
end) 
function Strong ( )   
guiSetVisible ( GUIEditor.window[1],true )  
showCursor ( true ) -- اظهار الماوس  
end  
  
  
  
addEventHandler("onClientGUIClick",root, 
    function () 
        local name = guiGetText(GUIEditor.edit[1]) 
        if ( source == GUIEditor.button[1] ) then 
            if ( string.len(name) > 0 ) then 
                setElementData(localPlayer,"tag",name) 
                outputChatBox("* الان " .. name .. " هو اسمك ",0,255,0) 
            else 
                outputChatBox("* الرجاء كتابه اسمك العربي في الفراغ",255,0,0) 
            end 
        elseif ( source == GUIEditor.button[2] ) then 
            setElementData(localPlayer,"tag",getPlayerName(localPlayer)) 
            outputChatBox("* لقد عاد اسمك كما كان",0,255,0) 
        end 
    end 
)    
 function update () 
    guiGridListClear(GUIEditor.gridlist[1]) 
    for i,v in ipairs (getElementsByType("player")) do 
    local rp = guiGridListAddRow (GUIEditor.gridlist[1]) 
    guiGridListSetItemText (GUIEditor.gridlist[1],rp,1,getPlayerName(v),false,false) 
    end 
    end 
    addEventHandler ("onClientResourceStart",resourceRoot,update) 
    addEventHandler ("onClientPlayerJoin",root,update) 
    addEventHandler ("onClientPlayerChangeNick",root,update) 
    addEventHandler ("onClientPlayerQuit",root,update)

اوك بس ابي الكونسل يعطي اللاعبين مو الشخص يعطي نفسه

ممكن تسويه زي كذا بس تضيف الكونسل

واذا عطا شخص اسم عربي

او مزخرف يضهر بالشات جنب رتبته

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