Jump to content

طلب تعديل علي كود


Abdo Nour

Recommended Posts

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

فيه مود حق اعطاء مخالف وكذاا, المهمم المود يعطي مخالف وما يسحب اي رتب ثانية يعني ما يفيدد بشيء

انا يوم جيت اعدل عليهه شايف الكود صحيح لكن ما يبي يحذف القروبات الثانيةة مادري شو السبب

الكود :

addEvent("aAdminEx1",true ) 
addEventHandler("aAdminEx1",root,
    function ( player1,editdays,editsbab)
	  local acc = getAccount(player1)
	  if acc and not isGuestAccount(acc) then
      local account = getAccountName(acc)
          if account then	
            if isObjectInACLGroup ( "user."..account, aclGetGroup ( Group) ) then  outputChatBox ( "#ff0000x[#2EFEF7 System Admin Ex #ff0000]x : #ffffff  الرتبه موجوده مسبقاً #ff0000 : خطاً",source, 255, 255, 255, true )	 return end 
             revmoeOtherGroups( player1 ) -- الكود حقت سحب الرتب الاخري
			 aclGroupAddObject (aclGetGroup( Group ), "user."..account)
               outputChatBox ( "#ff0000x[#2EFEF7 System Admin Ex #ff0000]x : #ffffff  يوم  [ #ff0000"..editdays.." #ffffff]   تم صك الاعب مخالفه لمدة ",source, 255, 255, 255, true )	
                 local Mn = executeSQLQuery("SELECT * FROM aAdminSystem WHERE account=?", account )
                   if ( Mn ) then		  
                    executeSQLQuery ( "INSERT INTO aAdminSystem(account,editdays,editsbab) VALUES(?,?,?)",account,editdays,editsbab )  		   
				      triggerClientEvent( root,"aGrid",root, account,editdays,editsbab)
			
			
              setTimer ( function (account)
                if not isObjectInACLGroup ( "user."..account, aclGetGroup ( Group ) ) then 
				executeSQLQuery("DELETE FROM aAdminSystem WHERE account=?", account) 
				triggerClientEvent(root,"datasCallBack",root)
				outputChatBox ( "#ff0000x[#2EFEF7 System Admin Ex #ff0000]x : #ffffff  الرتبه ليست موجوده #ff0000 : خطاً",source, 255, 255, 255, true )	 return end 
                 aclGroupRemoveObject ( aclGetGroup( Group ),"user."..account )
				 executeSQLQuery("DELETE FROM aAdminSystem WHERE account=?", account)
                 triggerClientEvent(root,"data",root)				 
               end,editdays*1000*60*60*24,1,account)
           end
		end
	 end
  end
)

ارجوا اصلاح الكود حقت سحب الرتب  :-D

Link to comment
7 minutes ago, Abdo Nour said:
  • revmoeOtherGroups( player1 ) -- الكود حقت سحب الرتب الاخري
  •  
removeOtherGroups( player1 )

 

Edited by Guest
Link to comment
Just now, Abdo Nour said:

سويت مثل كذا بس اللوحة ما بتفتح ذذ

أول مرة إني اعرف ان فنكشن كذا 

بعد ما بحثت في الويكي ما في أي شيء زي كذا #

احسبه يوزفل ,

ع العموم تبي يوم تعطيه مخالف ما تقدر ترقيه مرة أخرى ؟ ..

 

 

Link to comment
12 minutes ago, DABL said:

أول مرة إني اعرف ان فنكشن كذا 

بعد ما بحثت في الويكي ما في أي شيء زي كذا #

احسبه يوزفل ,

ع العموم تبي يوم تعطيه مخالف ما تقدر ترقيه مرة أخرى ؟ ..

 

 

يب أبي مثلا اذا ضغطت علي زر اضافة مخالفة للحساب يضيفة لقروب الادمن اكس ويسحب اي رتبة معه, المود بيعطيه مخالفه بس لكن ما بيسحب رتبته :)

وآسف اذا طولت بالشرح.

Link to comment
1 minute ago, DABL said:

loop # -- تحتاج اللوب عشان تجيب حسابات اللاعب
aclGroupRemoveObject -- تحتاج ذي عشان تشيل الحساب..
isObjectInACLGroup -- تحقق اذا كان في القروب المحدد
return -- بيكنسل السحب .

 

يعطيكك العافيةة ء

بجرب وبشوف :)

Link to comment
1 hour ago, Abdo Nour said:

انتا بتلف في نفس الدايرة ?

اللي هو اصلا مبعوت من الكلنت player1 يعني انتا جيبت الاكونت من خلال الاسم اللي محفوظ في متغير

ثم تحققت هلي الاكونت جويست ولا لا

ثم جيبت اسم الحساب ?

ما هو موجود من الاول

1 hour ago, Abdo Nour said:

if isObjectInACLGroup ( "user."..account, aclGetGroup ( Group) )

Group مش معرفة

1 hour ago, Abdo Nour said:

executeSQLQuery ( "INSERT INTO aAdminSystem(account,editdays,editsbab) VALUES(?,?,?)",account,editdays,editsbab

لا يوجد قاعده بيانات من الاساس

1 hour ago, Abdo Nour said:

revmoeOtherGroups

مفيش وظيفة بهذا الاسم

بس لو تبي وظيفة تتطلع الاعب من كل جروباتوا

function removeAclsFromPlayer( player )
	if( isElement( player ) and getElementType( player ) == 'player' ) then
  		local acc = getPlayerAccount( player )
		if( acc ) then
  			for i , acls in pairs( aclGroupList() ) do
    			if( isObjectInACLGroup( 'user.'..getAccountName(acc) , acls ) ) then
        			aclGroupRemoveObject( acls , 'user.'..getAccountName(acc) )
					return true
        		end
      		end
    	end
  	end
	return false
)

بالتوفيق

Edited by KillerX
  • Thanks 1
Link to comment

كمل بنفس الكود حقك , ولكن باخر سطر حط الكود ذا

* الكود مب حقي : حق شخص هنا بالمنتدي بس متذكر اسمه *

function revmoeOtherGroups (  element  )
 if ( element) then
  if ( getAccount ( element ) ) and not isGuestAccount (  ( element  ) ) then
   for _, v in ipairs( aclGroupList (   ) ) do
    if ( isObjectInACLGroup ( "user.".. element, v ) ) then
           aclGroupRemoveObject ( v, "user."..element )
        end
      end
    end
  end
end

 

  • Thanks 1
Link to comment
3 minutes ago, Mr.Mostafa said:

وش؟؟

شلفايدة فيه 

+ وش الالمنت ؟
 حطه لاعب يعني تبي مثلاً سيارة ؟ !!

 

Edited by Guest
Link to comment
Just now, Mr.Mostafa said:

كمل بنفس الكود حقك , ولكن باخر سطر حط الكود ذا

* الكود مب حقي : حق شخص هنا بالمنتدي بس متذكر اسمه *


function revmoeOtherGroups (  element  )
 if ( element) then
  if ( getAccount ( element ) ) and not isGuestAccount (  ( element  ) ) then
   for _, v in ipairs( aclGroupList (   ) ) do
    if ( isObjectInACLGroup ( "user.".. element, v ) ) then
           aclGroupRemoveObject ( v, "user."..element )
        end
      end
    end
  end
end

 

وظيفة خاطئ يالخوي

1 - لم تتحقق هل الالمنت دا لاعب ولا لا

2 - انتا مسوي تجيب اكونت من خلال الالمنت وات ذا ف

3 - تتحقق هل الاكونت جويست ولا لا بس الحقيقة انتا بتتحقق من الاعب مش الاكونت

Link to comment
Just now, DABL said:

شلفايدة فيه 

يحذف كل رتب الاخ

Just now, KillerX said:

وظيفة خاطئ يالخوي

1 - لم تتحقق هل الالمنت دا لاعب ولا لا

2 - انتا مسوي تجيب اكونت من خلال الالمنت وات ذا ف

3 - تتحقق هل الاكونت جويست ولا لا بس الحقيقة انتا بتتحقق من الاعب مش الاكونت

طيب لو

الالمنت بيكون حساب الاعب ؟

Link to comment
2 minutes ago, Mr.Mostafa said:

يحذف كل رتب الاخ

 

3 minutes ago, DABL said:

+ وش الالمنت ؟
 حطه لاعب يعني تبي مثلاً سيارة ؟ !!

 

Link to comment
1 minute ago, Mr.Mostafa said:

يحذف كل رتب الاخ

طيب لو

الالمنت بيكون حساب الاعب ؟

طيب يبقا العيب من اللي سمي الاكونت المنت شكلوا محشش

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

بالتوفيق :)

Link to comment
Just now, DABL said:

 

 

هدوا بس , ترا مب فاهمكم والله !
الكود مب حقي 

بس انا عندي نفس مود المخالفات , وكان الكود عندي فا قولت اساعده

بس وش الخطا الي فيها ؟؟

Just now, KillerX said:

طيب يبقا العيب من اللي سمي الاكونت المنت شكلوا محشش

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

بالتوفيق :)

player1 = حساب

Link to comment
Just now, Mr.Mostafa said:

هدوا بس , ترا مب فاهمكم والله !
الكود مب حقي 

بس انا عندي نفس مود المخالفات , وكان الكود عندي فا قولت اساعده

بس وش الخطا الي فيها ؟؟

=\ لا صراحة والله مب معصب

لكن نظامي كذا واعذرني اذا زعلتك او كذا  ضض1 .

 

Just now, Abdo Nour said:

مشكوور شباب علي المسسساعدة :)

العفو,, منور .

Link to comment
Just now, Abdo Nour said:

مشكوور شباب علي المسسساعدة :)

الكود الي حطيته لك , اشتغل ؟

Just now, DABL said:

=\ لا صراحة والله مب معصب

لكن نظامي كذا واعذرني اذا زعلتك او كذا  ضض1 .

 

العفو,, منور .

طيب وش المشكلة عشان ما فهمت والله ؟

Link to comment
Just now, Mr.Mostafa said:

هدوا بس , ترا مب فاهمكم والله !
الكود مب حقي 

بس انا عندي نفس مود المخالفات , وكان الكود عندي فا قولت اساعده

بس وش الخطا الي فيها ؟؟

لا انا اتفاهم معاك عادي ما راح نتضارب هههه

انا كنت احسب ان االوظيفة المنت بدل اكونت وانتا وضحتلي

وبس :) حصل خير

Just now, Abdo Nour said:

مشكوور شباب علي المسسساعدة :)

عفوا حياك الله :)

  • Like 1
Link to comment
Just now, KillerX said:

لا انا اتفاهم معاك عادي ما راح نتضارب هههه

انا كنت احسب ان االوظيفة المنت بدل اكونت وانتا وضحتلي

وبس :) حصل خير

عفوا حياك الله :)

اها تمام 

2 minutes ago, Abdo Nour said:

مشكوور شباب علي المسسساعدة :)

عفوا بالتوفيق ان شاء الله

  • Like 1
Link to comment

جرب دا


addEvent("aAdminEx1",true ) 
addEventHandler("aAdminEx1",root,
    function ( player1,editdays,editsbab)
	  local acc = getAccount(player1)
	  if acc and not isGuestAccount(acc) then
      local account = getAccountName(acc)
          if account then	
            if isObjectInACLGroup ( "user."..account, aclGetGroup ( Group) ) then  outputChatBox ( "#ff0000x[#2EFEF7 System Admin Ex #ff0000]x : #ffffff  الرتبه موجوده مسبقاً #ff0000 : خطاً",source, 255, 255, 255, true )	 return end 
             aclGroupAddObject (aclGetGroup( Group ), "user."..account)
               outputChatBox ( "  يوم ["..editdays.."]    تـم صــك الاعـب مـخـالفه لمدة ",source, 255, 255, 255, true )	
                 local Mn = executeSQLQuery("SELECT * FROM aAdminSystem WHERE account=?", account )
                   if ( Mn ) then		  
                    executeSQLQuery ( "INSERT INTO aAdminSystem(account,editdays,editsbab) VALUES(?,?,?)",account,editdays,editsbab )  		   
				      triggerClientEvent( root,"aGrid",root, account,editdays,editsbab)
			  aclGroupRemoveObject ( aclGetGroup( "Console" ),"user."..player1 ) -- هنا اسم الرتبة 
			  aclGroupRemoveObject ( aclGetGroup( "King_Admin" ),"user."..player1 ) -- هنا اسم الرتبة 
			  aclGroupRemoveObject ( aclGetGroup( "Manger" ),"user."..player1 ) -- هنا اسم الرتبة 
			  aclGroupRemoveObject ( aclGetGroup( "Mangers" ),"user."..player1 ) -- هنا اسم الرتبة 
			  aclGroupRemoveObject ( aclGetGroup( "Admin" ),"user."..player1 ) -- هنا اسم الرتبة 
			   -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
              setTimer ( function (account)
                if not isObjectInACLGroup ( "user."..account, aclGetGroup ( Group ) ) then 
				executeSQLQuery("DELETE FROM aAdminSystem WHERE account=?", account) 
				triggerClientEvent(root,"datasCallBack",root)
				outputChatBox ( "#ff0000x[#2EFEF7 System Admin Ex #ff0000]x : #ffffff  الرتبه ليست موجوده #ff0000 : خطاً",source, 255, 255, 255, true )	 return end 
                 aclGroupRemoveObject ( aclGetGroup( Group ),"user."..account )
				 executeSQLQuery("DELETE FROM aAdminSystem WHERE account=?", account)
                 triggerClientEvent(root,"data",root)				 
               end,editdays*1000*60*60*24,1,account)
           end
		end
	 end
  end
)

 

  • Thanks 2
Link to comment
5 hours ago, #Bad_Boy, said:

جرب دا


addEvent("aAdminEx1",true ) 
addEventHandler("aAdminEx1",root,
    function ( player1,editdays,editsbab)
	  local acc = getAccount(player1)
	  if acc and not isGuestAccount(acc) then
      local account = getAccountName(acc)
          if account then	
            if isObjectInACLGroup ( "user."..account, aclGetGroup ( Group) ) then  outputChatBox ( "#ff0000x[#2EFEF7 System Admin Ex #ff0000]x : #ffffff  الرتبه موجوده مسبقاً #ff0000 : خطاً",source, 255, 255, 255, true )	 return end 
             aclGroupAddObject (aclGetGroup( Group ), "user."..account)
               outputChatBox ( "  يوم ["..editdays.."]    تـم صــك الاعـب مـخـالفه لمدة ",source, 255, 255, 255, true )	
                 local Mn = executeSQLQuery("SELECT * FROM aAdminSystem WHERE account=?", account )
                   if ( Mn ) then		  
                    executeSQLQuery ( "INSERT INTO aAdminSystem(account,editdays,editsbab) VALUES(?,?,?)",account,editdays,editsbab )  		   
				      triggerClientEvent( root,"aGrid",root, account,editdays,editsbab)
			  aclGroupRemoveObject ( aclGetGroup( "Console" ),"user."..player1 ) -- هنا اسم الرتبة 
			  aclGroupRemoveObject ( aclGetGroup( "King_Admin" ),"user."..player1 ) -- هنا اسم الرتبة 
			  aclGroupRemoveObject ( aclGetGroup( "Manger" ),"user."..player1 ) -- هنا اسم الرتبة 
			  aclGroupRemoveObject ( aclGetGroup( "Mangers" ),"user."..player1 ) -- هنا اسم الرتبة 
			  aclGroupRemoveObject ( aclGetGroup( "Admin" ),"user."..player1 ) -- هنا اسم الرتبة 
			   -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
			  -- كمل هنا الاسل حقك
              setTimer ( function (account)
                if not isObjectInACLGroup ( "user."..account, aclGetGroup ( Group ) ) then 
				executeSQLQuery("DELETE FROM aAdminSystem WHERE account=?", account) 
				triggerClientEvent(root,"datasCallBack",root)
				outputChatBox ( "#ff0000x[#2EFEF7 System Admin Ex #ff0000]x : #ffffff  الرتبه ليست موجوده #ff0000 : خطاً",source, 255, 255, 255, true )	 return end 
                 aclGroupRemoveObject ( aclGetGroup( Group ),"user."..account )
				 executeSQLQuery("DELETE FROM aAdminSystem WHERE account=?", account)
                 triggerClientEvent(root,"data",root)				 
               end,editdays*1000*60*60*24,1,account)
           end
		end
	 end
  end
)

 

player1 X

account Y

+

13 hours ago, Abdo Nour said:

مشكوور شباب علي المسسساعدة :)

 

Edited by Guest
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...