iMr.WiFi..!

مشكور ي دابل عـ شرح , هنا بعض الامثلة : MetaTabel = { -- سوينا جدول :) Meta = { }, -- نسوي جدول فاضي عشان نحوله ميتا New = function ( Num1, Num2 ) -- نسوي وظيفة فيها بارتمرين الي هم الرقم الاول والثاني local Wifi_ = { } -- نسوي جدول setmetatable(Wifi_,Meta) -- نربط الجدول بالجدول الفارغ ونخليه ميتا تيبل Wifi_.Num1 = Num1; -- نحط قيمة للرقم الاول Wifi_.Num2 = Num2; -- نحط قيمة للرقم الثاني عشان نجلبه Wifi_.Meta = MetaTabel.Meta; -- نحفظ الميتا في الجدول return Wifi_; -- نرجع القيمة جدول end, -- آند :" وفاصلة عشان نضيف وظيفة ثانية اذا اردنا Result = function ( Wish ) -- نسوي وظيفة تعطينا الجواب البارتمر الاول نطلب فيه الجدول الي فيه القيم local Res = Wish.Num1 + Wish.Num2; -- نجمع القيم return print(tostring(Res)) -- نرجع طباعة للنتيجة end -- آند } -- أقفال القوس dabl = MetaTabel.New ( 208, 202 ) -- نسوي عملية MetaTabel.Result ( dabl ) -- نطبع النتيجة --[[ 410 ]] wifi = MetaTabel.New ( 2304, 1242 ) -- نسوي عملية MetaTabel.Result ( wifi ) -- نطبع النتيجة --[[ 3546 ]] Calc = { } -- نسوي جدول فاضي عشان نحوله ميتا Calc.__index = Calc -- لما يستدعي شيء غير موجود بيرجعه Calc.New() setmetatable(Calc, {__call = function (win, ...) return win.New(...) end}) -- لما يستدعي شيء غير موجود بيرجعه Calc.New() local Wifi_ = { } -- نسوي جدول function Calc.New( ) return setmetatable(Wifi_,Calc); -- نربط الجدول بالجدول الفارغ ونخليه ميتا تيبل end -- آند function Calc:SetValues( FNum, SNum ) Wifi_.Num1 = FNum; -- نحط القيمة بأسم Num1 Wifi_.Num2 = SNum; -- نحط القيمة بأسم Num2 end -- آند function Calc:Result( ) local Res = Wifi_.Num1 + Wifi_.Num2; -- نجمع القيم return print(tostring(Res)) -- نرجع طباعة للنتيجة end -- آند dabl = Calc ( ) -- نسوي عملية dabl:SetValues(208, 202) -- نضع القيم dabl:Result ( ) -- نطبع النتيجة --[[ 410 ]] wifi = Calc( ) -- نسوي عملية wifi:SetValues(2304, 1242) -- نضع القيم wifi:Result ( ) -- نطبع النتيجة --[[ 3546 ]] ^ مثال آخر + الموضوع جداً مهم , لاحد يقول قديم :@ + أي واحد مافهم المثال يسئلني : )

بسم الله الرحمن الرحيم , سلام عليكم ورحمة الله وبركاته , اقدم لكم وظيفة مفيدة , قد تظن انها موجودة , ولكن للأسف ليست موجودة بالويكي أو في الموضوع + اخبروني اذا وجدت في الموضوع getAccountAcls الوظيفة من اسمها تعرفها /: جلب قروبات الحساب قد تقول هناك وظيفة بالفعل واسمها getPlayerAcls = هذه تجلب قروبات اللاعب : ) -- مهم الوظيفة سيرفر سايد فقط | Server Side Only , لاعلينا Syntax : table getAccountAcls ( account accountName ) Required Arguments : accountName : the account name what you want get teble of acls , اسم الحساب المراد جلب جدول القروبات Code : function getAccountAcls(accountName) if type(accountName) ~= 'string' then error("Bad Argument 1@ 'not string' ") return end local Accacls = {} for i,v in ipairs(aclGroupList()) do if (isObjectInACLGroup( "user." ..accountName, v)) then local mygroup = aclGroupGetName(v) table.insert(Accacls, mygroup) end end return Accacls end Example : addCommandHandler ( "Acls",function ( p, cmd, accname ) local Acls = getAccountAcls( accname ) outputChatBox ( "The Account "..accname.." Following in Acl Groups"..tostring ( table.concat(Acls,",") ),p) end ) وسلام خير الختام

لالا نفس الكود االي انت ارسلته :_( يعني مافي شيء جديد :<

الله يهديك كنت برسله الكود وسبقتني , عوافي .~ بتوفيق لصاحب الموضوع

توني ادري انه عناد مستعمل ذي طريقة, بس ذي طريقة غير السقل تقدر تستعملها

^ زي كذا تقريباً , لكن اغلب الكود فيه وظايف غير معرفة

يب فيه تسوي حدث اول مايدخل اللاعب وتعطيه اكوانت داتا اون لاين واذا خرج تعطيه اكوانت داتا اوف لاين وطبعاً تحط اكوانت داتا عشان النك نيم :" وتجلبهم من getAccounts;

طيب وش بضبط تبي تسوي ؟

خخخخخخخخخخخخ , هاذي تضيفها فنفس داخل المود بس ممنوع اذا بتنشر مثل هاذي المودات

طيب خلني اشوف الاكواد ؟

الطلب الثاني :

تأكد انك ضايف السيرفر للميتا !! + عطنا كود اول سطر بسيرفر

function removeGroups ( element ) if ( element and isElement ( element ) ) then if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then for _, v in ipairs ( aclGroupList ( ) ) do g = aclGroupGetName ( v ) if g ~= "Console-SuperModerator" and g ~= "Console-Home" and g ~= "Console-Moderator" and g ~= "Managers-Console" and g ~= "Managers-ACl" and g ~= "Console" and g ~= "Managers" and g ~= "Maps" then if ( isObjectInACLGroup ( "user." .. getAccountName ( getPlayerAccount ( element ) ), v ) ) then aclGroupRemoveObject ( v, "user." .. getAccountName ( getPlayerAccount ( element ) ) ) end end end end end end حطها بأول سطر بسيرفر ثم لما ياخذ رتبة سوي له , removeGroups ( source )

addEventHandler("onClientGUIClick",root, function () if source == GUIEditor.button[2] then local rankstake = guiGridListGetItemText ( GUIEditor.gridlist[1], guiGridListGetSelectedItem ( GUIEditor.gridlist[1] ), 1 ) if rankstake ~= "" then -- هذا هو السطر 66 triggerServerEvent("lv1", localPlayer,rankstake) end end end )

تأكد انك ضايف السيرفر للميتا واستقبل حدث nomoneyerrorr

+ متغير , عشان يرجع الاوبجكت مكانه

ههههههههههههههههههههههههه , MySQL - لغة سهلة تعلمها وسوي اكواد منها واحنا نصلحلك اياها هاذي بعض الشروحات الي طرحوها الاخوان وماقصرو , لاتجي تنكدنا وتقول صعبة اقرا المواضيع زين وطالع كيف يسوونها " بتوفيق لكم :"

ي رجل وين ضايع ؟ هذا الموضوع المفروض تحطه بقسم البرمجة ::. بنسبة لطلبك : كيف ايقون ماب ؟ اذا تقصد blip استعمل فنكشن createBlipAttachedTo

ماتقدر تسوي هذا الشيء الا .. تسوي قاعدة بيانات اول مايسجل , وتجلب حسابة من قاعدة البيانات وتجيب الباس :"

واصل بدون فواصل , شرح جميل من شخص أجمل ♥ بتوفيق لك ي ايكو : )

واضح انه السيرفر متعوب عليه , السيرفر خرافي وحلو , لكن , يحتاج تطورات ويصير الافضل ! نصيحة مني اشتري لك : position ^ تخلي سيرفرك في اعلى قائمة البحث , سيرفرك افضل بكثير من سيرفرات ثانية وبتوفيق لك < 3

Place = { {"البداية",214.04817199707,1863.1745605469,13.229927062988,5000}, {"محل الاسلحة",184.12344,1930.58215,17.83168,500}, {"المطعم",131.03760,1843.88623,17.64063,750}, {"مدينة الزومبي",610.85944,856.56067,-42.96094,2500}, {"الحي السكني",2566.57617,1823.58655,10.82031,6000}, {"ساحة الزومبي",2926.33032,-495.73251,8.45146,3500}, {"البنك",1480.97046,-1762.51636,18.79576,1000}, {"المطار الاول",1717.6470947266, -2494.1176757813, 13.39999961853,4500}, {"المطار الثاني",-1223.4300537109, -185.74758911133, 14.39999961853,3000}, {"المطار الثالث",1411.7646484375, 1482.3529052734, 10.89999961853,1500}, {"المزرعة",-1095.40076,-991.21289,129.21875,8000}, {"الوحش العملاق",-2323.83716,-1639.74756,483.70313,20000}, } ^ بدل الجدول بهذا واستعمل الكود الي قبل

for i,k in ipairs (Place) do l = guiGridListAddRow (placelist) guiGridListSetItemText (placelist,l,1,tostring(k[1]),false,false) guiGridListSetItemText (placelist,l,2,tostring(k[5]),false,false) guiGridListSetItemData(placelist,l,1,{k[2],k[3],k[4],k[1]}) guiGridListSetItemColor(placelist,l,1,255,0,255) guiGridListSetItemColor(placelist,l,2,0,255,0) guiSetFont(placelist,"default-bold-small") end addEventHandler("onClientGUIClick",warp, function () local sel = guiGridListGetSelectedItem(placelist) if sel ~= -1 then local data = guiGridListGetItemData(placelist,sel,1) triggerServerEvent ( 'Warp', localPlayer, data[1],data[2],data[3],data[4] ) end end ,false) -- Server addEvent ( 'Warp', true ) addEventHandler ( 'Warp', root, function ( x,y,z,money ) if getPlayerMoney ( source ) < tonumber(money) then return outputChatBox('ليس لديك المال الكافي') end setElementPosition ( source, x, y, z ) takePlayerMoney ( source, tonumber(money) ) outputChatBox('تم نقلك') end )

-- Deleted !

for i,k in ipairs (Place) do l = guiGridListAddRow (placelist) guiGridListSetItemText (placelist,l,1,tostring(k[1]),false,false) guiGridListSetItemText (placelist,l,2,tostring(k[5]),false,false) guiGridListSetItemData(placelist,l,1,{k[2],k[3],k[4],k[1]}) guiGridListSetItemColor(placelist,l,1,255,0,255) guiGridListSetItemColor(placelist,l,2,0,255,0) guiSetFont(placelist,"default-bold-small") end addEventHandler("onClientGUIClick",warp, function () local sel = guiGridListGetSelectedItem(placelist) if sel ~= -1 then local data = guiGridListGetItemData(placelist,sel,1) triggerServerEvent ( 'Warp', localPlayer, data[1],data[2],data[3],data[4] ) end end ,false) -- Server addEvent ( 'Warp', true ) addEventHandler ( 'Warp', root, function ( x,y,z,money ) if getPlayerMoney ( source ) < money then return outputChatBox('ليس لديك المال الكافي') end setElementPosition ( source, x, y, z ) takePlayerMoney ( source, money ) outputChatBox('تم نقلك') end )