Jump to content

مشكلة بمود الترقيات *


Recommended Posts

بسم الله الرحمن الرحيم

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

عندي مشكله وأتمنى المساعدة منكم

المشكله بمود الترقيات انه مايعطي رتبة

يوم اضغط على رتبة يقلي لايوجد لديك ساعات كافيه لشراء هذي الرتبه

وانا معي ساعات

المهم صورة للمود والمشكلة

http://cdn.top4top.co/p_560bveh1.png

ملف كلنت

 bButton = guiCreateButton(0.42, 0.63, 0.16, 0.04, "", true) 
        guiSetAlpha(bButton, 0.00) 
        guiSetProperty(bButton, "NormalTextColour", "FFAAAAAA") 
  
  
        grid = guiCreateGridList(0.39, 0.28, 0.23, 0.33, true)  
        guiGridListAddColumn(grid, "#", 0.1) 
        guiGridListAddColumn(grid, "Rank", 0.4) 
        guiGridListAddColumn(grid, "Group", 0.3) 
        guiGridListAddColumn(grid, "Time", 0.3)      
        guiSetVisible(bButton,false) 
        guiSetVisible(grid,false) 
  
local screenW, screenH = guiGetScreenSize() 
  
    function dx () 
        dxDrawRectangle(screenW * 0.3797, screenH * 0.2375, screenW * 0.2437, screenH * 0.0403, tocolor(2, 27, 255, 255), false) 
        dxDrawRectangle(screenW * 0.3797, screenH * 0.2778, screenW * 0.2437, screenH * 0.3986, tocolor(0, 0, 0, 170), false) 
        dxDrawRectangle(screenW * 0.4234, screenH * 0.6222, screenW * 0.1555, screenH * 0.0403, tocolor(2, 27, 255, 255), false) 
        dxDrawText(".:[ شراء ]:.", screenW * 0.4234, screenH * 0.6208, screenW * 0.5789, screenH * 0.6625, tocolor(255, 255, 255, 255), 1.00, "sans", "center", "center", false, false, false, false, false) 
        dxDrawText(".:[ Buy Admin K6 ]:.", screenW * 0.3805, screenH * 0.2333, screenW * 0.6234, screenH * 0.2778, tocolor(255, 255, 255, 255), 0.70, "bankgothic", "center", "center", false, false, false, false, false) 
    end 
Ranks = { 
{"شرطي","Police","20"}, 
{"مشرف","Moderator","45"}, 
{"مراقب1","SuperModerator","60"}, 
{"مراقب متميز","Laeder.Mod","70"}, 
{"مراقب2","SuperModerator2","80"}, 
{"ادمن1","Admin1","90"}, 
{"ادمن زعيم","Laeder.Admin","105"}, 
{"برو فيشنال ادمن","Professional.Admin","120"}, 
{"ادمن خبره","Admin.M7trf","135"}, 
{"ادمن سيرفر","Admin.Server","150"}, 
{"ادمن جنرال","Admin.General","160"}, 
{"ادمن بوسس","Admin.Boss","180"}, 
{"ادمن أمير","Admin.Lord","190"}, 
{"سبشل ادمن","Special.Admin","210"}, 
{"ادمن بلاك","Admin.Black","220"}, 
{"سبشل برنس","Special.Prince","230"}, 
{"ادمن متميز","Admin.senior","250"}, 
{"ادمن تنفيذي","Big.Boss","270"}, 
{"ادمن كبير","Big.Admin","290"}, 
{"ادمن راقي","Admin.Crown","310"}, 
{"ادمن مسؤول","King.THE.Server","360"}, 
{"مساعد صاحب","Laeder.Console","470"}, 
{"مساعد صاحب","Assistant.console ","550"}, 
{"نائب صاحب","vice.Console","650"}, 
{"موجه السيرفر","Guided.server","700"}, 
{"مستشار صاحب","mentor.console","850"}, 
{"متحكم سيرفر","Micro.Server","900"}, 
{"مساعد اسل","assistant.manager ","1050"}, 
{"وكيل اسل","agent.Manager","1150"}, 
} 
for i,v in ipairs (Ranks) do 
    local row = guiGridListAddRow(grid) 
    guiGridListSetItemText(grid,row,1,''..i..'-',false,false) 
    guiGridListSetItemText(grid,row,2,v[1],false,false) 
    guiGridListSetItemText(grid,row,3,v[2],false,false) 
    guiGridListSetItemText(grid,row,4,v[3],false,false) 
    guiGridListSetItemColor(grid,row,2,math.random(0,255),math.random(0,255),math.random(0,155)) 
    guiGridListSetItemColor(grid,row,3,math.random(0,255),math.random(0,255),math.random(0,155)) 
    guiGridListSetItemColor(grid,row,4,math.random(0,255),math.random(0,255),math.random(0,155)) 
    guiGridListSetItemColor(grid,row,1,255,255,0) 
    guiSetFont(grid,"default-bold-small") 
end 
addEventHandler("onClientGUIClick",bButton, 
function () 
 local r, c = guiGridListGetSelectedItem ( grid )  
   if ( r and c and r ~= -1 and c ~= -1 ) then 
local g = tostring ( guiGridListGetItemText(grid,r,3 )); 
local p = tostring ( guiGridListGetItemText(grid,r,4 )); 
local n = tostring ( guiGridListGetItemText(grid,r,2 )); 
triggerServerEvent("Buy",localPlayer,g,p,n); 
  else 
  outputChatBox("#ffffff[buy Admin] #ff0000الرجاء تحديد شيء من القائمة",255,255,255,true); 
  end 
end) 
  
  
bindKey("f10","down", 
 function () 
    if getElementDimension(localPlayer) == 30 or getElementDimension(localPlayer) == 991 then return false end 
    if guiGetVisible(bButton) == true then 
        guiSetVisible(bButton,false) 
        guiSetVisible(grid,false) 
        removeEventHandler("onClientRender",root,dx) 
        showCursor(false) 
    else 
        guiSetVisible(bButton,true) 
        guiSetVisible(grid,true) 
        addEventHandler("onClientRender",root,dx) 
        showCursor(true) 
         
        end 
    end 
) 

اتمنى المساعده بالمود

وادري ماتقصرون

لكم خالص تحياتي أخوكم جنتول

Link to comment
عليكم السلام

تأكد ان مود الساعاد حقك موجود في التاب بـ

PlayerTime

وفي السكربت نفسه

+ اطرحه السيرفر سايد

يب أخوي مود الساعات مافي شيء وشغال وظاهر بالتاب

هذا ملف سيرفر

function revmoeOtherGroups (  element  ) 
 if ( element and isElement ( element ) ) then 
  if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then 
   for _, v in ipairs( aclGroupList (   ) ) do 
    if ( isObjectInACLGroup ( "user."..getAccountName ( getPlayerAccount ( element ) ), v ) ) then 
           aclGroupRemoveObject ( v, "user."..getAccountName ( getPlayerAccount ( element ) ) ) 
        end 
      end 
    end 
  end 
end 
  
addEvent("Buy",true) 
addEventHandler("Buy",root, 
function ( Group,Price,Name ) 
    local account = getAccountName(getPlayerAccount(source)); 
    if isObjectInACLGroup("user."..account,aclGetGroup("Admin-X")) then outputChatBox("#ffffff[buy Admin] #ff0000 انت مخالف !",source,255,0,0,true) return false end 
    if isGuestAccount(getPlayerAccount(source)) then return false end 
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return false 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 
        revmoeOtherGroups(source) 
        aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
        outputChatBox("#ffffff[buy Admin] #ff0000تم شراء رتبه :"..Name,source,0,255,0,true); 
    else 
        outputChatBox("#ffffff[buy Admin] #ff0000ليس لديك ساعات كافية لشراء هاذه الرتبه",source,255,0,0,true); 
    end 
end 
) 

Link to comment

^

تفضل جرب

function revmoeOtherGroups (  element  ) 
 if ( element and isElement ( element ) ) then 
  if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then 
   for _, v in ipairs( aclGroupList (   ) ) do 
    if ( isObjectInACLGroup ( "user."..getAccountName ( getPlayerAccount ( element ) ), v ) ) then 
           aclGroupRemoveObject ( v, "user."..getAccountName ( getPlayerAccount ( element ) ) ) 
        end 
      end 
    end 
  end 
end 
  
addEvent("Buy",true) 
addEventHandler("Buy",root, 
function ( Group,Price,Name ) 
    local account = getAccountName(getPlayerAccount(source)); 
    if isObjectInACLGroup("user."..account,aclGetGroup("Admin-X")) then outputChatBox("#ffffff[buy Admin] #ff0000 انت مخالف !",source,255,0,0,true) return false end 
    if isGuestAccount(getPlayerAccount(source)) then return false end 
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return false end 
    local sValue = getElementData( source,'Time' ) 
    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 
        revmoeOtherGroups(source) 
        aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
        outputChatBox("#ffffff[buy Admin] #ff0000تم شراء رتبه :"..Name,source,0,255,0,true); 
    else 
        outputChatBox("#ffffff[buy Admin] #ff0000ليس لديك ساعات كافية لشراء هاذه الرتبه",source,255,0,0,true); 
    end 
end 
) 
Link to comment

اطرح اكواد مود الساعات لان يمكن الداتا غير

منور روك

وشسمه مود الساعات ماقدر اطرح اكواده هنا

لنه المود مو حقي

وصاحبه موصيني عليه

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

لكن ماتوقع ان المشكله منه

لني قبل كنت حاط مود رتب وشغال وكل شيء

يعطيك العافيه

Link to comment
اطرح اكواد مود الساعات لان يمكن الداتا غير

منور روك

وشسمه مود الساعات ماقدر اطرح اكواده هنا

لنه المود مو حقي

وصاحبه موصيني عليه

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

لكن ماتوقع ان المشكله منه

لني قبل كنت حاط مود رتب وشغال وكل شيء

يعطيك العافيه

شوف ردي الي فوق

Link to comment
^

تفضل جرب

function revmoeOtherGroups (  element  ) 
 if ( element and isElement ( element ) ) then 
  if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then 
   for _, v in ipairs( aclGroupList (   ) ) do 
    if ( isObjectInACLGroup ( "user."..getAccountName ( getPlayerAccount ( element ) ), v ) ) then 
           aclGroupRemoveObject ( v, "user."..getAccountName ( getPlayerAccount ( element ) ) ) 
        end 
      end 
    end 
  end 
end 
  
addEvent("Buy",true) 
addEventHandler("Buy",root, 
function ( Group,Price,Name ) 
    local account = getAccountName(getPlayerAccount(source)); 
    if isObjectInACLGroup("user."..account,aclGetGroup("Admin-X")) then outputChatBox("#ffffff[buy Admin] #ff0000 انت مخالف !",source,255,0,0,true) return false end 
    if isGuestAccount(getPlayerAccount(source)) then return false end 
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return false end 
    local sValue = getElementData( source,'Time' ) 
    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 
        revmoeOtherGroups(source) 
        aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
        outputChatBox("#ffffff[buy Admin] #ff0000تم شراء رتبه :"..Name,source,0,255,0,true); 
    else 
        outputChatBox("#ffffff[buy Admin] #ff0000ليس لديك ساعات كافية لشراء هاذه الرتبه",source,255,0,0,true); 
    end 
end 
) 

الله يعطييك ألف عافيه وسلمت ايديك عالحل

بس ممكن تقلي وش كان الخطأ

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

شكرا أخوي

Link to comment
^

تفضل جرب

function revmoeOtherGroups (  element  ) 
 if ( element and isElement ( element ) ) then 
  if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then 
   for _, v in ipairs( aclGroupList (   ) ) do 
    if ( isObjectInACLGroup ( "user."..getAccountName ( getPlayerAccount ( element ) ), v ) ) then 
           aclGroupRemoveObject ( v, "user."..getAccountName ( getPlayerAccount ( element ) ) ) 
        end 
      end 
    end 
  end 
end 
  
addEvent("Buy",true) 
addEventHandler("Buy",root, 
function ( Group,Price,Name ) 
    local account = getAccountName(getPlayerAccount(source)); 
    if isObjectInACLGroup("user."..account,aclGetGroup("Admin-X")) then outputChatBox("#ffffff[buy Admin] #ff0000 انت مخالف !",source,255,0,0,true) return false end 
    if isGuestAccount(getPlayerAccount(source)) then return false end 
    if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return false end 
    local sValue = getElementData( source,'Time' ) 
    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 
        revmoeOtherGroups(source) 
        aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); 
        outputChatBox("#ffffff[buy Admin] #ff0000تم شراء رتبه :"..Name,source,0,255,0,true); 
    else 
        outputChatBox("#ffffff[buy Admin] #ff0000ليس لديك ساعات كافية لشراء هاذه الرتبه",source,255,0,0,true); 
    end 
end 
) 

الله يعطييك ألف عافيه وسلمت ايديك عالحل

بس ممكن تقلي وش كان الخطأ

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

شكرا أخوي

عندك المشكلة كانت في السطر ذا

local sValue = getElementData( source,'Time' ) 

Time = اسم الداتا الي بالسكور بورد

السكربت يجيب الداتا عن طريق السكوربورد " التاب " وبعدين يشوف الوقت هل هو المطلوب ولا لا

كانت عندك الداتا بهذا الشكل

local sValue = getElementData( source,'PlayTime' ) 

وفي السكوربورد موجودة بأسم

Time

كذا مافي وجود للداتا وعشان كذا يقولك ماعندك ساعات وانت عندك

اتمنى انك فهمت ض1

وحياك الله في اي وقت

  • Like 1
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...