Jump to content

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

Abdo Nour

By Abdo Nour
in البرمجة

Recommended Posts

Abdo Nour Transformer

Abdo Nour

Posted
Posted

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

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

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

الكود : 

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
Guest

Guest

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

 

Edited by Guest
Link to comment
Guest

Guest

Posted
Posted
Just now, Abdo Nour said:

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

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

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

احسبه يوزفل ,

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

 

 

Link to comment
Abdo Nour Transformer

Abdo Nour

Posted
  • Author
Posted
12 minutes ago, DABL said:

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

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

احسبه يوزفل ,

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

 

 

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

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

Link to comment
Abdo Nour Transformer

Abdo Nour

Posted
  • Author
Posted
1 minute ago, DABL said: 

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

 

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

بجرب وبشوف :)

Link to comment
KillerX Road Dawg

KillerX

Posted
Posted (edited)
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
Mr.Mostafa Lil' G

Mr.Mostafa

Posted
Posted

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

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

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
Guest

Guest

Posted
Posted (edited)
3 minutes ago, Mr.Mostafa said:

وش؟؟

شلفايدة فيه 

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

 

Edited by Guest
Link to comment
KillerX Road Dawg

KillerX

Posted
Posted
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
Mr.Mostafa Lil' G

Mr.Mostafa

Posted
Posted
Just now, DABL said:

شلفايدة فيه 

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

Just now, KillerX said:

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

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

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

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

طيب لو

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

Link to comment
Guest

Guest

Posted
Posted
2 minutes ago, Mr.Mostafa said:

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

 

3 minutes ago, DABL said:

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

 

Link to comment
KillerX Road Dawg

KillerX

Posted
Posted
1 minute ago, Mr.Mostafa said:

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

طيب لو

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

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

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

بالتوفيق :)

Link to comment
Mr.Mostafa Lil' G

Mr.Mostafa

Posted
Posted
Just now, DABL said:

 

 

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

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

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

Just now, KillerX said:

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

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

بالتوفيق :)

player1 = حساب

Link to comment
Guest

Guest

Posted
Posted
Just now, Mr.Mostafa said:

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

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

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

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

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

 

Just now, Abdo Nour said:

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

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

Link to comment
Mr.Mostafa Lil' G

Mr.Mostafa

Posted
Posted
Just now, Abdo Nour said:

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

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

Just now, DABL said:

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

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

 

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

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

Link to comment
KillerX Road Dawg

KillerX

Posted
Posted
Just now, Mr.Mostafa said:

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

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

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

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

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

وبس :) حصل خير

Just now, Abdo Nour said:

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

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

  • Like 1
Link to comment
Mr.Mostafa Lil' G

Mr.Mostafa

Posted
Posted
Just now, KillerX said:

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

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

وبس :) حصل خير

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

اها تمام 

2 minutes ago, Abdo Nour said:

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

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

  • Like 1
Link to comment
!# H E R O ,_ Mark

!# H E R O ,_

Posted
Posted

جرب دا 


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
Guest

Guest

Posted
Posted (edited)
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
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...