Jump to content

Code#

#Untied

By #Untied
in البرمجة

Recommended Posts

YourMind Fool

YourMind

Posted
Posted 

-- client 
ranks = { -- Name.ID 
{'Army',2}, 
{'Army',29}, 
{'Army',287}, 
} 
  
local screenW, screenH = guiGetScreenSize() 
wnd = guiCreateWindow((screenW - 318) / 2, (screenH - 332) / 2, 318, 332, ":: Skins System :", false) 
guiWindowSetSizable(wnd, false) 
guiSetVisible (wnd,false) 
grid = guiCreateGridList(9, 23, 299, 236, false, wnd) 
guiSetFont(grid, "default-bold-small") 
guiGridListAddColumn(grid, "Name", 0.9) 
btn = guiCreateButton(19, 269, 276, 47, "Buy", false, wnd) 
guiSetFont(btn, "default-bold-small") 
  
 bindKey ("x","down", 
 function () 
 guiSetVisible (wnd,not guiGetVisible(wnd)) 
 showCursor (guiGetVisible(wnd)) 
 end 
 ) 
  
for _, v in ipairs (ranks) do 
    local Row = guiGridListAddRow(grid) 
    guiGridListSetItemText(grid,Row,1,v[1],false, false) 
    guiGridListSetItemData (grid,Row,1,v[2]) 
end 
  
addEventHandler("onClientGUIClick",btn, 
function () 
local sel = guiGridListGetSelectedItem (grid) 
if sel ~= -1 then 
local skinID = guiGridListGetItemData (grid,sel,1) 
triggerServerEvent("SetSkin",localPlayer,skinID) 
guiSetVisible (wnd,false) 
guiSetInputEnabled(false) 
showCursor(false) 
end 
end 
,false) 


-- server 
addEvent("SetSkin" ,true) 
addEventHandler("SetSkin" ,root, 
function (ID) 
PMoney = getPlayerMoney(source) 
if PMoney >= 2500 then 
setElementModel(source,tonumber(ID)) 
takePlayerMoney(source,2500) 
else return 
outputChatBox("You don't have 2500$.",source,255,5,5) 
end 
end 
)
  • Replies 79
  • Created
  • Last Reply

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

YourMind Fool

YourMind

Posted
Posted 

-- client 
ranks = { -- Name.ID 
{'Army',2}, 
{'Army',29}, 
{'Army',287}, 
} 
  
local screenW, screenH = guiGetScreenSize() 
wnd = guiCreateWindow((screenW - 318) / 2, (screenH - 332) / 2, 318, 332, ":: Skins System :", false) 
guiWindowSetSizable(wnd, false) 
guiSetVisible (wnd,false) 
grid = guiCreateGridList(9, 23, 299, 236, false, wnd) 
guiSetFont(grid, "default-bold-small") 
guiGridListAddColumn(grid, "Name", 0.9) 
btn = guiCreateButton(19, 269, 276, 47, "Buy", false, wnd) 
guiSetFont(btn, "default-bold-small") 
  
 bindKey ("x","down", 
 function () 
 guiSetVisible (wnd,not guiGetVisible(wnd)) 
 showCursor (guiGetVisible(wnd)) 
 end 
 ) 
  
for _, v in ipairs (ranks) do 
    local Row = guiGridListAddRow(grid) 
    guiGridListSetItemText(grid,Row,1,v[1],false, false) 
    guiGridListSetItemData (grid,Row,1,v[2]) 
end 
  
addEventHandler("onClientGUIClick",btn, 
function () 
local sel = guiGridListGetSelectedItem (grid) 
if sel ~= -1 then 
local skinID = guiGridListGetItemData (grid,sel,1) 
triggerServerEvent("SetSkin",localPlayer,skinID) 
guiSetVisible (wnd,false) 
guiSetInputEnabled(false) 
showCursor(false) 
end 
end 
,false) 


-- server 
addEvent("SetSkin" ,true) 
addEventHandler("SetSkin" ,root, 
function (ID) 
PMoney = getPlayerMoney(source) 
if PMoney >= 2500 then 
setElementModel(source,tonumber(ID)) 
takePlayerMoney(source,2500) 
else return 
outputChatBox("You don't have 2500$.",source,255,5,5) 
end 
end 
)
#Untied Transformer

#Untied

Posted
  • Author
Posted

ايه المشكله دي طيب؟

ranks = { 
{'Army',1}, 
{'Army',Army}, 
{'Army',Army} 
} 
  
  
addEventHandler("onClientResourceStart", resourceRoot, 
    function() 
        wnd = guiCreateWindow(242, 139, 318, 332, ":: Skins Systeam :", false) 
        guiWindowSetSizable(wnd, false) 
        guiSetVisible(wnd, false) 
        grid = guiCreateGridList(9, 23, 289, 207, false, wnd) 
        guiGridListAddColumn(grid, "Name", 0.9) 
        btn = guiCreateButton(17, 254, 276, 47, "Buy", false, wnd)     
    end 
) 
  
  
bindKey("x","down", 
  
    function (  ) 
  
    guiSetVisible ( wnd , not guiGetVisible ( wnd ) ) 
    SetSkins() 
    showCursor ( not isCursorShowing (  ) ) 
  
end     ); 
  
function SetSkins() 
for _, v in ipairs (ranks) do 
    local Row = guiGridListAddRow(grid) 
    guiGridListSetItemText(grid, Row, 1, v[1], false, false) 
    guiGridListSetItemText(grid, Row, 2, v[2], false, false) 
end 
end 
  
  
addEventHandler("onGUIClientClick" ,resourceRoot , 
function () 
if ( source == btn ) then 
local SkinID = guiGridListGetItemText(grid ,guiGridListGetSelectedItem(grid) ,1) 
triggerServerEvent("SetSkin" ,localPlayer ,15 ) 
end 
end 
)

باجي اضعط علي القريد لست

والبيتون

مش بيغير الشخصيه

#Untied Transformer

#Untied

Posted
  • Author
Posted

ايه المشكله دي طيب؟

ranks = { 
{'Army',1}, 
{'Army',Army}, 
{'Army',Army} 
} 
  
  
addEventHandler("onClientResourceStart", resourceRoot, 
    function() 
        wnd = guiCreateWindow(242, 139, 318, 332, ":: Skins Systeam :", false) 
        guiWindowSetSizable(wnd, false) 
        guiSetVisible(wnd, false) 
        grid = guiCreateGridList(9, 23, 289, 207, false, wnd) 
        guiGridListAddColumn(grid, "Name", 0.9) 
        btn = guiCreateButton(17, 254, 276, 47, "Buy", false, wnd)     
    end 
) 
  
  
bindKey("x","down", 
  
    function (  ) 
  
    guiSetVisible ( wnd , not guiGetVisible ( wnd ) ) 
    SetSkins() 
    showCursor ( not isCursorShowing (  ) ) 
  
end     ); 
  
function SetSkins() 
for _, v in ipairs (ranks) do 
    local Row = guiGridListAddRow(grid) 
    guiGridListSetItemText(grid, Row, 1, v[1], false, false) 
    guiGridListSetItemText(grid, Row, 2, v[2], false, false) 
end 
end 
  
  
addEventHandler("onGUIClientClick" ,resourceRoot , 
function () 
if ( source == btn ) then 
local SkinID = guiGridListGetItemText(grid ,guiGridListGetSelectedItem(grid) ,1) 
triggerServerEvent("SetSkin" ,localPlayer ,15 ) 
end 
end 
)

باجي اضعط علي القريد لست

والبيتون

مش بيغير الشخصيه

#Mr.Rajo~,< Hoodsta

#Mr.Rajo~,<

Posted
Posted (edited)
ايه المشكله دي طيب؟ 
ranks = { 
{'Army',1}, 
{'Army',Army}, 
{'Army',Army} 
} 
  
  
addEventHandler("onClientResourceStart", resourceRoot, 
    function() 
        wnd = guiCreateWindow(242, 139, 318, 332, ":: Skins Systeam :", false) 
        guiWindowSetSizable(wnd, false) 
        guiSetVisible(wnd, false) 
        grid = guiCreateGridList(9, 23, 289, 207, false, wnd) 
        guiGridListAddColumn(grid, "Name", 0.9) 
        btn = guiCreateButton(17, 254, 276, 47, "Buy", false, wnd)     
    end 
) 
  
  
bindKey("x","down", 
  
    function (  ) 
  
    guiSetVisible ( wnd , not guiGetVisible ( wnd ) ) 
    SetSkins() 
    showCursor ( not isCursorShowing (  ) ) 
  
end     ); 
  
function SetSkins() 
for _, v in ipairs (ranks) do 
    local Row = guiGridListAddRow(grid) 
    guiGridListSetItemText(grid, Row, 1, v[1], false, false) 
    guiGridListSetItemText(grid, Row, 2, v[2], false, false) 
end 
end 
  
  
addEventHandler("onGUIClientClick" ,resourceRoot , 
function () 
if ( source == btn ) then 
local SkinID = guiGridListGetItemText(grid ,guiGridListGetSelectedItem(grid) ,1) 
triggerServerEvent("SetSkin" ,localPlayer ,15 ) 
end 
end 
)

باجي اضعط علي القريد لست

والبيتون

مش بيغير الشخصيه

حط هذا بسيرفر

addEvent("SetSkin" ,true) 
addEventHandler("SetSkin" ,root, 
function (ID) 
PMoney = getPlayerMoney(source) 
if PMoney >= 2500 then 
setElementModel(source ,ID) 
takePlayerMoney(source,2500) 
else 
outputChatBox("U don't have 2500$",source ,255,255,255,false) 
  
end 
end 
)

Edited by Guest
#Mr.Rajo~,< Hoodsta

#Mr.Rajo~,<

Posted
Posted (edited)
ايه المشكله دي طيب؟ 
ranks = { 
{'Army',1}, 
{'Army',Army}, 
{'Army',Army} 
} 
  
  
addEventHandler("onClientResourceStart", resourceRoot, 
    function() 
        wnd = guiCreateWindow(242, 139, 318, 332, ":: Skins Systeam :", false) 
        guiWindowSetSizable(wnd, false) 
        guiSetVisible(wnd, false) 
        grid = guiCreateGridList(9, 23, 289, 207, false, wnd) 
        guiGridListAddColumn(grid, "Name", 0.9) 
        btn = guiCreateButton(17, 254, 276, 47, "Buy", false, wnd)     
    end 
) 
  
  
bindKey("x","down", 
  
    function (  ) 
  
    guiSetVisible ( wnd , not guiGetVisible ( wnd ) ) 
    SetSkins() 
    showCursor ( not isCursorShowing (  ) ) 
  
end     ); 
  
function SetSkins() 
for _, v in ipairs (ranks) do 
    local Row = guiGridListAddRow(grid) 
    guiGridListSetItemText(grid, Row, 1, v[1], false, false) 
    guiGridListSetItemText(grid, Row, 2, v[2], false, false) 
end 
end 
  
  
addEventHandler("onGUIClientClick" ,resourceRoot , 
function () 
if ( source == btn ) then 
local SkinID = guiGridListGetItemText(grid ,guiGridListGetSelectedItem(grid) ,1) 
triggerServerEvent("SetSkin" ,localPlayer ,15 ) 
end 
end 
)

باجي اضعط علي القريد لست

والبيتون

مش بيغير الشخصيه

حط هذا بسيرفر

addEvent("SetSkin" ,true) 
addEventHandler("SetSkin" ,root, 
function (ID) 
PMoney = getPlayerMoney(source) 
if PMoney >= 2500 then 
setElementModel(source ,ID) 
takePlayerMoney(source,2500) 
else 
outputChatBox("U don't have 2500$",source ,255,255,255,false) 
  
end 
end 
)

Edited by Guest
N3xT Shooter

N3xT

Posted
Posted 
outputChatBox("#ff0000# #ffffffYou Buy #FF0000A #FFFFFFskin",source,0,255,0,true)

أما بخصوص بعض الأكواد اللي فوق

كلكم ما لحظتم أن الحدث أسمه

' onGUIClientClick '

وأكيد ما بيشتغل لأن أسمه غلط , التصحيح

' onClientGUIClick '

N3xT Shooter

N3xT

Posted
Posted 
outputChatBox("#ff0000# #ffffffYou Buy #FF0000A #FFFFFFskin",source,0,255,0,true)

أما بخصوص بعض الأكواد اللي فوق

كلكم ما لحظتم أن الحدث أسمه

' onGUIClientClick '

وأكيد ما بيشتغل لأن أسمه غلط , التصحيح

' onClientGUIClick '

#Mr.Rajo~,< Hoodsta

#Mr.Rajo~,<

Posted
Posted (edited)
لو سمحت ممكن تعملهالي

لين يضعط ويشتري الشخصيه

يقولو

جمله في الشات

addEvent("SetSkin" ,true) 
addEventHandler("SetSkin" ,root, 
function (ID) 
PMoney = getPlayerMoney(source) 
if PMoney >= 2500 then 
setElementModel(source ,ID) 
takePlayerMoney(source,2500) 
outputChatBox("U bought a new skin",source ,255,255,255,false) 
else 
outputChatBox("U don't have 2500$",source ,255,255,255,false) 
end 
end 
)

Edited by Guest
#Mr.Rajo~,< Hoodsta

#Mr.Rajo~,<

Posted
Posted (edited)
لو سمحت ممكن تعملهالي

لين يضعط ويشتري الشخصيه

يقولو

جمله في الشات

addEvent("SetSkin" ,true) 
addEventHandler("SetSkin" ,root, 
function (ID) 
PMoney = getPlayerMoney(source) 
if PMoney >= 2500 then 
setElementModel(source ,ID) 
takePlayerMoney(source,2500) 
outputChatBox("U bought a new skin",source ,255,255,255,false) 
else 
outputChatBox("U don't have 2500$",source ,255,255,255,false) 
end 
end 
)

Edited by Guest
#Mr.Rajo~,< Hoodsta

#Mr.Rajo~,<

Posted
Posted 
outputChatBox("#ff0000# #ffffffYou Buy #FF0000A #FFFFFFskin",source,0,255,0,true)

أما بخصوص بعض الأكواد اللي فوق

كلكم ما لحظتم أن الحدث أسمه

' onGUIClientClick '

وأكيد ما بيشتغل لأن أسمه غلط , التصحيح

' onClientGUIClick '

متأكد ؟

#Mr.Rajo~,< Hoodsta

#Mr.Rajo~,<

Posted
Posted 
outputChatBox("#ff0000# #ffffffYou Buy #FF0000A #FFFFFFskin",source,0,255,0,true)

أما بخصوص بعض الأكواد اللي فوق

كلكم ما لحظتم أن الحدث أسمه

' onGUIClientClick '

وأكيد ما بيشتغل لأن أسمه غلط , التصحيح

' onClientGUIClick '

متأكد ؟

#Untied Transformer

#Untied

Posted
  • Author
Posted

استفسار

انا عامل 2 كلوم في القريد لست

وفاتح جدول

الكلوم اسمو

ID

والتاني

Skins

{'Army','123',2},

ونا عايز اعمله يظهر في الكوم الاول 123

والتاني

Army

واخر شي مش كلوم

اي دي الشخصيه

#Untied Transformer

#Untied

Posted
  • Author
Posted

استفسار

انا عامل 2 كلوم في القريد لست

وفاتح جدول

الكلوم اسمو

ID

والتاني

Skins

{'Army','123',2},

ونا عايز اعمله يظهر في الكوم الاول 123

والتاني

Army

واخر شي مش كلوم

اي دي الشخصيه

#Mr.Rajo~,< Hoodsta

#Mr.Rajo~,<

Posted
Posted
استفسار

انا عامل 2 كلوم في القريد لست

وفاتح جدول

الكلوم اسمو

ID

والتاني

Skins

{'Army','123',2},

ونا عايز اعمله يظهر في الكوم الاول 123

والتاني

Army

واخر شي مش كلوم

اي دي الشخصيه

مافهمت ممكن توضح اكثر

#Mr.Rajo~,< Hoodsta

#Mr.Rajo~,<

Posted
Posted
استفسار

انا عامل 2 كلوم في القريد لست

وفاتح جدول

الكلوم اسمو

ID

والتاني

Skins

{'Army','123',2},

ونا عايز اعمله يظهر في الكوم الاول 123

والتاني

Army

واخر شي مش كلوم

اي دي الشخصيه

مافهمت ممكن توضح اكثر

#Untied Transformer

#Untied

Posted
  • Author
Posted

يعني انا عامل 2 كلوم في القريد لست

وفاتح جدول

الكلوم اسمه

ID

والتاني

Skins

عاوز ال2 يتكتو في حاجات

ومفروض اعمل حاجه 3

عشان رقم السكين

انا عملته كدا

{'Army','123',2},

ما طلعلي 123 في القريد لست

@

#Untied Transformer

#Untied

Posted
  • Author
Posted

يعني انا عامل 2 كلوم في القريد لست

وفاتح جدول

الكلوم اسمه

ID

والتاني

Skins

عاوز ال2 يتكتو في حاجات

ومفروض اعمل حاجه 3

عشان رقم السكين

انا عملته كدا

{'Army','123',2},

ما طلعلي 123 في القريد لست

@

#Mr.Rajo~,< Hoodsta

#Mr.Rajo~,<

Posted
Posted
يعني انا عامل 2 كلوم في القريد لست

وفاتح جدول

الكلوم اسمه

ID

والتاني

Skins

عاوز ال2 يتكتو في حاجات

ومفروض اعمل حاجه 3

عشان رقم السكين

انا عملته كدا

{'Army','123',2},

ما طلعلي 123 في القريد لست

@

شوف امسح اللي بالنوت باد كله وحط هذا

بكلاينت 

ranks = { 
{'Skin1',1}, 
{'Skin2',2}, 
{'Skin3',3} 
} 
  
 addEventHandler("onClientResourceStart", resourceRoot, 
    function() 
        wnd = guiCreateWindow(242, 139, 318, 332, ":: Skins Systeam :", false) 
        guiWindowSetSizable(wnd, false) 
        guiSetVisible(wnd, false) 
        grid = guiCreateGridList(9, 23, 289, 207, false, wnd) 
        guiGridListAddColumn(grid, "Name", 0.9) 
        guiGridListAddColumn(grid, "ID", 0.9) 
        btn = guiCreateButton(17, 254, 276, 47, "Buy", false, wnd)     
    end 
) 
  
  
bindKey("x","down", 
  
    function (  ) 
  
    guiSetVisible ( wnd , not guiGetVisible ( wnd ) ) 
    SetSkins() 
    showCursor ( not isCursorShowing (  ) ) 
  
end     ); 
  
function SetSkins() 
for _, v in ipairs (ranks) do 
    local Row = guiGridListAddRow(grid) 
    guiGridListSetItemText(grid, Row, 1, v[1], false, false) 
    guiGridListSetItemText(grid, Row, 2, v[2], false, false) 
end 
end 
  
  
addEventHandler("onGUIClientClick" ,resourceRoot , 
function () 
if ( source == btn ) then 
local SkinID = guiGridListGetItemText(grid ,guiGridListGetSelectedItem(grid) ,2) 
triggerServerEvent("SetSkin" ,localPlayer ,SkinID ) 
end 
end 
)

وهذا حطه بسيرفر 

addEvent("SetSkin" ,true) 
addEventHandler("SetSkin" ,root, 
function (ID) 
PMoney = getPlayerMoney(source) 
if PMoney >= 2500 then 
setElementModel(source ,ID) 
takePlayerMoney(source,2500) 
outputChatBox("U bought a new skin",source ,255,255,255,false) 
else 
outputChatBox("U don't have 2500$",source ,255,255,255,false) 
end 
end 
)

واذا تبي تحط عامود ثالث

تسوي بفنكشن setSkins كذا

function SetSkins() 
for _, v in ipairs (ranks) do 
    local Row = guiGridListAddRow(grid) 
    guiGridListSetItemText(grid, Row, 1, v[1], false, false) 
    guiGridListSetItemText(grid, Row, 2, v[2], false, false) 
    guiGridListSetItemText(grid, Row, 3, v[3], false, false) 
end 
end

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