مود معلومات الاعب

[mody134]

  السلام عليكم , دلوقتي لما اكتب اسم الاعب يطلع ملعوماتة مثل اسم حسابة , رتبتة , سريالة
 ابي لما اكتب حساب الاعب يطلع معلوماتة 

 

كلينت 

addEvent("aad",true) 
addEventHandler("aad", root,function (name,acc,acl,serial,My,Ping) 
guiSetText(GUIEditor.memo[1],"\n Name:"..name.."\n Account :"..acc.."\n Groups :"..acl.."\n Serial :"..serial.."\n Money :"..My.."\n Ping : " ..Ping) 
end) 

سيرفر 

local acc = getAccountName(getPlayerAccount(Player)) 
local acl = getPlayerAcls(Player) 
local name = getPlayerName(Player) 
local serial = getPlayerSerial(Player) 
local My = getPlayerMoney(Player) 
local ping = getPlayerPing(Player) 
triggerClientEvent(client,"aad",client,name,acc,tostring( table.concat(acl, ", ") ),serial,My,ping) 
end) 

 

Edited February 9, 2017 by mody134

[Adham]

جرب لما تضعط علي زر يجيك معلوماته في الميمو مدري خطأ او صح جرب :

كلنت :

addEventHandler ( "onClientGUIClick", root,
function ( )
if ( source == button ) then
triggerServerEvent ( "Client:informations", localPlayer )
end
end
);

addEvent ( "onClient:informations", true )
addEventHandler ( "onClient:informations", root,
function ( Name, Account, Serial, Money, Ping, Group )
guiSetText ( Memo, "Name Player: "..Name.."\nAccount Player: "..Account.."\nSerial Player: "..Serial.."\n Money Player: "..Money.."\nPingPlayer: "..Ping.."\nGroup: "..Group.." ")
end
);

function getPlayerAcls(thePlayer)
    local acls = {}
    local account = getPlayerAccount(thePlayer)
    if (account) and not (isGuestAccount(account)) then
        local accountName = getAccountName(account)
        for i,group in ipairs(aclGroupList()) do
            if (isObjectInACLGroup( "user." ..accountName, group)) then
                local groupName = aclGroupGetName(group)
                table.insert(acls, groupName)
            end
        end
    end
    return acls
end

addEvent ( "Client:informations",true )
addEventHandler ( "Client:informations", root,
function ( Name, Account, Serial, Money, Ping, Group )
local Name = getPlayerName ( source )
local Account = getPlayerAccount ( source )
local Serial = getPlayerSerial ( source )
local Money = getPlayerMoney ( source )
local Ping = getPlayerPing ( source )
local Group = getPlayerAcls ( source )
triggerClientEvent ( source,"onClient:informations",source, Name, Account, Serial, Money, Ping, Group )
end
end
)

 

Edited February 9, 2017 by Deativated

[^iiEcoo'x_)]

يمديك بدال م تضغط زر بس تحط بدال button اسم قريد ليست حقك

if ( source == button ) then

[mody134]

ما ظبظ , صار ما يطلع المعلومات

[Adham]

شو الدي بق يطلع لك ؟

[mody134]

مفي اخطاء بالدي بق

[Adham]

غيرت اسم  Memo  حقك

واسم الزر ؟

[mody134]

يب , ببعتلك الاكواد كلها خاص عشان تتاكد

[#STZ]

سوي تايمر ف كودك في الكلنت فوق وسويه 100 ونوعه 0

[Abu-Solo]

ضيفه لـ قروب الادمن وجرب

[mody134]

حطتة لجروب الادمن وما ظبطت لسة

[^iiEcoo'x_)]

addEventHandler("onClientGUIClick",root,function () 
sel = guiGridListGetSelectedItem(GUIEditor.gridlist[1])
PlayerName = guiGridListGetItemText(GUIEditor.gridlist[1],sel,1) 
if source == GUIEditor.gridlist[1] then 
if Sel ~= -1 then 
p = getPlayerFromName(PlayerName)
guiSetText(name ,"Name : "..getPlayerName(p)) 
guiSetText(money,"Money : "..getPlayerMoney(p))  
guiSetText(ping,"Ping : "..getPlayerPing(p))
triggerServerEvent("INFO",localPlayer,p) 

end 
end 
end) 



addEvent("GetHim",true) 
addEventHandler("GetHim",root,function (AAcc,SSerial,PPlayerAcls,iip) 
guiSetText(acc,"Account : "..AAcc) 
guiSetText(rank,"Rank : "..PPlayerAcls)
guiSetText(ip,"IP : "..iip)   
guiSetText(serial,"serial: "..SSerial)
end
) 

function getPlayerAcls(thePlayer)
    local acls = {}
    local account = getPlayerAccount(thePlayer)
    if (account) and not (isGuestAccount(account)) then
        local accountName = getAccountName(account)
        for i,group in ipairs(aclGroupList()) do
            if (isObjectInACLGroup( "user." ..accountName, group)) then
                local groupName = aclGroupGetName(group)
                table.insert(acls, groupName)
            end
        end
    end
    return acls
end

addEvent("INFO",true) 
addEventHandler("INFO", root, 
function (PlayerName) 
if ( PlayerName ) then 
 AAcc = getAccountName(getPlayerAccount(PlayerName) ) 
 acl = getPlayerAcls(PlayerName) 
 SSerial = getPlayerSerial(PlayerName)
 PPlayerAcls = tostring( table.concat(acl, ", ") )
 iip = getPlayerIP(PlayerName) 
 triggerClientEvent(PlayerName,"GetHim",PlayerName,AAcc,SSerial,PPlayerAcls,iip) 
end
end 
) 
   

تفضل , مسوي مود مثله من زمان , مجربه وشغال 100%

 

انا مسويه باليبل , مو صعب تحوله ميمو

Edited February 10, 2017 by #_iMr.[E]coo

[iMr.WiFi..!]

^ حط اليوسفل فنكشن فوق

عشان تتجنب اخطاء

[mody134]

وش الخطا بالكود ذا 
لما اضغظ علي اسم الاعب يطلع رتبتي وسريالي واسم حسابي انا 
المفرود يطلع حساب الاعب ورتبتة الخ ..

addEventHandler("onClientGUIClick",root,function () 
sel = guiGridListGetSelectedItem(GUIEditor.gridlist[1])
PlayerName = guiGridListGetItemText(GUIEditor.gridlist[1],sel,1) 
if source == GUIEditor.gridlist[1] then 
if Sel ~= -1 then 
p = getPlayerFromName(PlayerName)
guiSetText(name ,"Name : "..getPlayerName(p)) 
guiSetText(money,"Money : "..getPlayerMoney(p))  
guiSetText(ping,"Ping : "..getPlayerPing(p))
triggerServerEvent("INFO",localPlayer,p) 
else
guiSetText(name ,"Name : ") 
guiSetText(money,"Money : ")  
guiSetText(ping,"Ping : ")
guiSetText(acc,"Account : ") 
guiSetText(rank,"Rank : ")
guiSetText(ip,"IP : ")   
guiSetText(serial,"serial: ")
end 
end 
end) 

 

[Ahmed Ly]

addEventHandler("onClientGUIClick",root,function () 
if source == GUIEditor.gridlist[1] then 
sel = guiGridListGetSelectedItem(GUIEditor.gridlist[1])
if Sel ~= -1 then 
PlayerName = guiGridListGetItemText(GUIEditor.gridlist[1],sel,1) 
triggerServerEvent("get",localPlayer,playerName)
end 
end 
end
) 

addEvent("get",true)
addEventHandler("get",root,
function (playerName)
p = getPlayerFromName(PlayerName)
triggerClientEvent("set",source,getPlayerName(p),getPlayerMoney(p),getPlayerPing(p))
  end
)

addEvent("set",true)
addEventHandler("set",root,
function (name1,money1,ping1)
guiSetText(name ,"Name : "..name1) 
guiSetText(money,"Money : "..money1)  
guiSetText(ping,"Ping : "..ping1))
end
)

 

Edited February 11, 2017 by Ahmed Ly