Jump to content

مشكلة في مود شراء الرتب


Mr.KoK

Recommended Posts

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

كيفكم شباب انشاء الله بخير

عندي مشكلة في مود شراء الرتب

لما اشتري رتبه مثل مشرف1 يجيني في الشات مشرف1 تمام

لكن لما اشتري مشرف2 مايتغير

وانا ابي كود يحذف الرتبه الى قبلها انشاء الله فهمتوني

----------------------- 
-- ** Buy Admin's Script 
-- Created By Mr.Pres[T]ege 
-- Ver 1.0.0 
-- Mail : fhod77@hotmail.com 
-- [url=http://www.gta-arabs.com]www.gta-arabs.com[/url] 
---------------------- 
  
---------------------- 
-- Setting 
---------------------- 
  
local Key = "F7" 
  
local Admin = { 
{"V.I.P","15"}, 
{"King.Dirft","20"}, 
{"King.Of.Time","25"}, 
{"Police","35"}, 
{"Moderator1","45"}, 
{"Moderator2","55"}, 
{"SuperModerator1","75"}, 
{"SuperModerator2","100"}, 
{"Admin1","150"}, 
{"Head.Admin","250"}, 
  
} 
  
---------------------- 
-- Setting 
---------------------- 
  
  
GiveAdmin = { 
    Window = {}, 
    gridlist = {}, 
    button = {}, 
    label = {}, 
} 
  
function centerWindow(center_window) 
    local screenW,screenH=guiGetScreenSize() 
    local windowW,windowH=guiGetSize(center_window,false); 
    local x,y = (screenW-windowW)/2,(screenH-windowH)/2 
    guiSetPosition(center_window,x,y,false); 
end 
  
GiveAdmin.Window[1] = guiCreateWindow(343, 157, 427, 290, "ساعات الرتب #", false); 
centerWindow(GiveAdmin.Window[1]); 
guiSetVisible(GiveAdmin.Window[1],false); 
guiWindowSetSizable(GiveAdmin.Window[1], false); 
guiSetAlpha(GiveAdmin.Window[1], 1.00); 
guiSetProperty(GiveAdmin.Window[1], "CaptionColour", "FFFF00FF"); 
  
GiveAdmin.gridlist[1] = guiCreateGridList(9, 21, 409, 200, false, GiveAdmin.Window[1]); 
guiGridListAddColumn(GiveAdmin.gridlist[1], "الرتبة #", 0.6); 
guiGridListAddColumn(GiveAdmin.gridlist[1], "الساعات #", 0.2); 
GiveAdmin.button[1] = guiCreateButton(120,228,177,519, "اختيار الرتبة #", false, GiveAdmin.Window[1]); 
guiSetFont(GiveAdmin.button[1], "default-bold-small"); 
guiSetProperty(GiveAdmin.button[1], "NormalTextColour", "FF00FFFF"); 
  
  
for k,v in ipairs ( Admin ) do 
row = guiGridListAddRow(GiveAdmin.gridlist[1]); 
guiGridListSetItemText(GiveAdmin.gridlist[1],row,1,v[1],false,false); 
guiGridListSetItemText(GiveAdmin.gridlist[1],row,2,v[2],false,false); 
guiGridListSetItemColor(GiveAdmin.gridlist[1],row,1,255,0,255); 
guiGridListSetItemColor(GiveAdmin.gridlist[1],row,2,0,255,2550); 
guiSetFont(GiveAdmin.gridlist[1],"default-bold-small"); 
end 
  
xMainFunctions_ = function ( ) 
 local row, col = guiGridListGetSelectedItem ( GiveAdmin.gridlist[1] )  
local Group = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,1 )); 
local Price = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,2 )); 
local Name = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,3 )); 
   if ( row and col and row ~= -1 and col ~= -1 ) then 
triggerServerEvent("Accept:the:request",localPlayer,Group,Price,Name); 
  else 
  outputChatBox("# الرجاء اختيار رتبة",255,0,255,true); 
  end 
end 
addEventHandler("onClientGUIClick",GiveAdmin.button[1],xMainFunctions_,false); 
  
xBindFunction_ = function () 
    guiSetVisible(GiveAdmin.Window[1],not guiGetVisible(GiveAdmin.Window[1])); 
    showCursor(guiGetVisible(GiveAdmin.Window[1])); 
end 
bindKey(Key,"down",xBindFunction_); 

Link to comment

تأكد من اسم القروب الي بالقريد لست لازم حتى نفس كل الاحرف الكبيره والصغيره وتأكد انه القروب موجود من اساس

والكود الثاني

  
aclGroupList -- loob 
aclGroupGetName 
aclGetGroup 
aclGroupRemoveObject 
  

Link to comment

كل شي تمام لكن اسم الرتبه مايطلع بل شات

حق الرتب تمام

انا اذا اشتريت اول شي مشرف 2 يجي بل شات مشرف 2 لكن لو بديت مثل كبار الشخصيات

بعدين ابي ارقي نفسي لل كنق الدرفت مايتغير يجلس كبار الشخصيات

لكن اذا شفتو من لوحة الادمن الرتبه موجوده لكن اسم الرتبه مايطلع بل شات :cry::cry:

Link to comment
كل شي تمام لكن اسم الرتبه مايطلع بل شات

حق الرتب تمام

انا اذا اشتريت اول شي مشرف 2 يجي بل شات مشرف 2 لكن لو بديت مثل كبار الشخصيات

بعدين ابي ارقي نفسي لل كنق الدرفت مايتغير يجلس كبار الشخصيات

لكن اذا شفتو من لوحة الادمن الرتبه موجوده لكن اسم الرتبه مايطلع بل شات :cry::cry:

اها قصدك بالتاق؟

اذا قصدك كذا حط اكواد التاق حقك

Link to comment

سويت زي ما قلت مازبط ممكن تعدلي وخلاص

هذا ملف

الـClient

----------------------- 
-- ** Buy Admin's Script 
-- Created By Mr.Pres[T]ege 
-- Ver 1.0.0 
-- Mail : fhod77@hotmail.com 
-- [url=http://www.gta-arabs.com]www.gta-arabs.com[/url] 
---------------------- 
  
---------------------- 
-- Setting 
---------------------- 
  
local Key = "F7" 
  
local Admin = { 
{"V.I.P","15"}, 
{"King.Dirft","20"}, 
{"King.Of.Time","25"}, 
{"Police","35"}, 
{"Moderator1","45"}, 
{"Moderator2","55"}, 
{"SuperModerator1","75"}, 
{"SuperModerator2","100"}, 
{"Admin1","150"}, 
{"Head.Admin","250"}, 
  
} 
  
---------------------- 
-- Setting 
---------------------- 
  
  
GiveAdmin = { 
    Window = {}, 
    gridlist = {}, 
    button = {}, 
    label = {}, 
} 
  
function centerWindow(center_window) 
    local screenW,screenH=guiGetScreenSize() 
    local windowW,windowH=guiGetSize(center_window,false); 
    local x,y = (screenW-windowW)/2,(screenH-windowH)/2 
    guiSetPosition(center_window,x,y,false); 
end 
  
GiveAdmin.Window[1] = guiCreateWindow(343, 157, 427, 290, "ساعات الرتب #", false); 
centerWindow(GiveAdmin.Window[1]); 
guiSetVisible(GiveAdmin.Window[1],false); 
guiWindowSetSizable(GiveAdmin.Window[1], false); 
guiSetAlpha(GiveAdmin.Window[1], 1.00); 
guiSetProperty(GiveAdmin.Window[1], "CaptionColour", "FFFF00FF"); 
  
GiveAdmin.gridlist[1] = guiCreateGridList(9, 21, 409, 200, false, GiveAdmin.Window[1]); 
guiGridListAddColumn(GiveAdmin.gridlist[1], "الرتبة #", 0.6); 
guiGridListAddColumn(GiveAdmin.gridlist[1], "الساعات #", 0.2); 
GiveAdmin.button[1] = guiCreateButton(120,228,177,519, "اختيار الرتبة #", false, GiveAdmin.Window[1]); 
guiSetFont(GiveAdmin.button[1], "default-bold-small"); 
guiSetProperty(GiveAdmin.button[1], "NormalTextColour", "FF00FFFF"); 
  
  
for k,v in ipairs ( Admin ) do 
row = guiGridListAddRow(GiveAdmin.gridlist[1]); 
guiGridListSetItemText(GiveAdmin.gridlist[1],row,1,v[1],false,false); 
guiGridListSetItemText(GiveAdmin.gridlist[1],row,2,v[2],false,false); 
guiGridListSetItemColor(GiveAdmin.gridlist[1],row,1,255,0,255); 
guiGridListSetItemColor(GiveAdmin.gridlist[1],row,2,0,255,2550); 
guiSetFont(GiveAdmin.gridlist[1],"default-bold-small"); 
end 
  
xMainFunctions_ = function ( ) 
 local row, col = guiGridListGetSelectedItem ( GiveAdmin.gridlist[1] )  
local Group = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,1 )); 
local Price = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,2 )); 
local Name = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,3 )); 
   if ( row and col and row ~= -1 and col ~= -1 ) then 
triggerServerEvent("Accept:the:request",localPlayer,Group,Price,Name); 
  else 
  outputChatBox("# الرجاء اختيار رتبة",255,0,255,true); 
  end 
end 
addEventHandler("onClientGUIClick",GiveAdmin.button[1],xMainFunctions_,false); 
  
xBindFunction_ = function () 
    guiSetVisible(GiveAdmin.Window[1],not guiGetVisible(GiveAdmin.Window[1])); 
    showCursor(guiGetVisible(GiveAdmin.Window[1])); 
end 
bindKey(Key,"down",xBindFunction_); 

وهذا ملف الـServer

----------------------- 
-- ** Buy Admin's Script 
-- Created By Mr.Pres[T]ege 
-- Ver 1.0.0 
-- Mail : fhod77@hotmail.com 
-- [url=http://www.gta-arabs.com]www.gta-arabs.com[/url] 
---------------------- 
xAddToGroupFunction_ = function ( Group,Price,Name ) 
    local account = aclGroupGetName(getPlayerAccount(source)); 
    if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("# الرجاء التسجيل اولا",source,255,0,255,true); end 
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("# لديك هذيه الرتبه الرجاء اختيار رتبه اخرا",source,255,0,255,true); end 
    local sValue = getElementData( source,'PlayTime' ) 
    if not sValue then sValue = '0:0:0' end 
    local data = split(sValue,':') 
    local hour = tonumber( data[1] )   
    if hour == nil or not tonumber(hour) then hour = 0 end 
    if ( hour >= tonumber(Price))  then 
        aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
        outputChatBox("# تهانينا تمت الترقيه بنجاح "..Name,source,255,0,255,true); 
    else 
        outputChatBox("# الرجاء اكمال التواجد",source,255,0,255,true); 
    end 
end 
addEvent("Accept:the:request",true) 
addEventHandler("Accept:the:request",root,xAddToGroupFunction_) 

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
  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...