Booo

لااله الا الله تعآلى الرحمآن من هآلبيت ، الركوع والخضوع لله سبحانه ولإيحق لمن سوآه من عبآده ، آرجو منك ياعاشق تستغفر ربك من إلي قلته وتحذف إلبيت هذا وإسئل شيخ عن قصيدتك ، وشف وش يقول يمكن لازم يكون عليك توبه لله واشياء تسويها ، اسئل الشيخ الله يصلحك لإاله الا الله محمد رسول الله

بسم الله الرحمن الرحيم الحمدلله رب العالمين والصلإة والسلام على من لا نبي بعده محمد صلى الله عليه وسلم في موضوعنا هذإإ نتكلم عن الجدآول وطريقة التعإمل معهإإ : التحديثآت : تم 4/3/1435 إلسلام عليكم ورحمة الله وبركاته sql و db الجداول هي مثل قاعدة البيانات تحط اسم متغير للجدول = وقوسين متعرجين مثآل table1 = { } local table2 = { } مثال t = { 1,2,3 } t = { 1, "اثنين" } مثال t = { 1="واحد", 2="اثنين", 3 = "ثلاثه" } t = { id=5 } t = { pi=3.14159, banana="اصفر" } t = { ["name"] = "اسمك", ["number"] = "رقمك" } t = { ["123456"] = "رقمك", [123456] = "رقمك", } مثال t = { {1,"three",4}, {"واحد", "اثنين", "ثلاثه"} } t = { one = {1,"three",4}, tow = {"one","three","four"} } t = { } t[1] = 'one' t['banana'] = 'yellow' t.banana = 'yellow' اضافات خإطئه :: t."banana" = 'yellow' -- > X t.1 = 'one' -- > X بااستخدام type مثآل: a1 = { 'boo'} a2 = 2 type( a1 ) > 'table' type( a2 ) > 'number' بااستخدام # مثال: t = {} t[1]=1 t[2]=1 t[3]=2 t[4]=3 t[5]=5 t[6]=8 t[7]=13 boo = # t outputChatBox(" "..boo) 7 تستخدم طريقه المفتاح والقيمه مثال [1] = "one" [1] المفتاح "one" القيمه ["one"] = 1 ["one"] المفتاح 1 القيمه بالطريقه هذي تقدر تحفظ الجداول في الجدوال مثال يوضح لك الحفظ t = { booo = { [46] ={[31] = 50,[29] = 50 },[45] ={[30] = 50,[28] = 50 }}} نوضحه إكثر ناخذ الجزئيه هذي booo = { [46] ={[31] = 50,[29] = 50 }} ناخذ الجزئيه هذي booo = { } [46] ={[31] = 50,[29] = 50 } نأخذ الجزئيه هذي [31] = 50 تطلع لك المفتاح والقيمه [31] المفتاح 50 القيمه نضيف للمفتاح والقيمه جدول [46] ={[31] = 50} [46] المفتاح {[31] = 50} القيمه نضيف للقيمه + قيمه ثانيه {[31] = 50,[29] = 50 } يطلع عندنا [46] ={[31] = 50,[29] = 50 } نضيفها لجدول booo = { [46] ={[31] = 50,[29] = 50 }} نضيف قيمه ثانيه للجدول tbooo = { [46] ={[31] = 50,[29] = 50 },[45] ={[30] = 50,[28] = 50 } } نضيفها لجدول t = { booo = { [46] ={[31] = 50,[29] = 50 },[45] ={[30] = 50,[28] = 50 }}} ويطلع لك الجدول الي في اول الطريقه بااستخدامك ipairs pairs ipairs > تستخدمها للمفتاح الافتراضي يعني الجدول الي ماعدلت على مفتاحه مثآل t = { 1,"three",4} for k,v in ipairs (t) do outputChatBox(" "..k) end يطلع لك 1 2 3 1 > مفتاح افتراضي للقيمه 2 > مفتاح افتراضي للقيمه 3 > مفتاح افتراضي للقيمه مثآل يوضح لك اكثر عندك الجدول هذا وانت معدل على المفاتيح t = { } t[3] = "three" t[4] = "four" استخدمت معه ipairs for k,v in ipairs (t) do outputChatBox(" "..k) end يطلع لك ? مآيطلع لك شي لانك معدل على المفاتيح ماتشتغل معك ipairsو اذا كنت معدل على المفاتيح الافتراضيه pairs لازم تستخدم pairsمثآل ل t = { } t[3] = "three" t[4] = "four" for k,v in pairs (t) do outputChatBox(" "..k) end يطلع لك 3 4 عآدي تشتغل مدامك حاط المفاتيح على الافتراضي تشتغل معك t = { } t[1] = "three" t[2] = "four" for k,v in ipairs (t) do outputChatBox(" "..k) end يطلع لك 1 2 شف الامثله وتعرف مثآل local tTeams = { tTeamBlue ={ [46] = {[31] = 50,[29] = 50}}, tTeamRed ={ [46] = {[31] = 50,[29] = 50}} } for nIndex, nValue in pairs( tTeams ) do outputChatBox(" "..nIndex) end tTeamBlue tTeamRed مثآل local tTeams = { tTeamBlue ={ [46] = {[31] = 50,[29] = 50}}, tTeamRed ={ [46] = {[31] = 50,[29] = 50}} } for nIndex, nValue in pairs( tTeams["tTeamBlue"] ) do outputChatBox(" "..nIndex) end 31 46 مثآل local tTeams = { tTeamBlue ={ [46] = {[31] = 50,[29] = 50}}, tTeamRed ={ [46] = {[31] = 50,[29] = 50}} } for nIndex, nValue in pairs( tTeams["tTeamBlue"][46] ) do outputChatBox(" "..nIndex) end 31 29 مثآل local tTeams = { tTeamBlue ={ [46] = {[31] = 50,[29] = 50}}, tTeamRed ={ [46] = {[31] = 50,[29] = 50}} } for nIndex, nValue in pairs( tTeams.tTeamBlue[46] ) do outputChatBox(" "..nIndex) end 31 29 اذا كان الجدول الي تجلب منه القيمه مايستخدم المفآتيح زي كذا t = { 1,"three",4} او t = { { 1, "three" } , { 2 ,31} } مثآل t = { { 1, "three" } , { 2 ,31} } outputChatBox(" "..t[2][1]) 2 مثآل t = { { 1, "three" } , { 2 ,31} } outputChatBox(" "..t[1][2]) three مثآل teams = { teamBlue ={ weapons = { { 31, 50 } , { 29 , 50 } }, skin = 46 }, teamRed ={ weapons = { { 28,50 } , { 26, 50 } },skin = 45 } } outputChatBox(" "..tTeams.tTeamBlue.weapons[1][1]) 31 مثآل teams = { teamBlue ={ weapons = { { 31, 50 } , { 29 , 50 } }, skin = 46 }, teamRed ={ weapons = { { 28,50 } , { 26, 50 } },skin = 45 } } outputChatBox(" "..tTeams.tTeamBlue.weapons[1][1]) 31 تجيب لك مفتاح الجدول اذا كان رقم فقط مثال tTeamBlue ={ [13] = {[31] = 50,[29] = 50}, [17] = 46 } outputChatBox(" "..table.maxn(tTeamBlue)) 13 مثال tTeamBlue ={ [13] = {[31] = 50,[29] = 50}, [17] = 46 } outputChatBox(" "..table.maxn(tTeamBlue[13])) 31 تستخدم لإضآفة القيم للجدول الاستخدآم table.insert(القيمه,المفتاح,الجدول) او table.insert(القيمه,الجدول) مثآل لاستخدام table.insert Test = { [1] = 2, [2] = 3, [3] = 4 } نضيف له قيم بستخدم الداله table.insert(t,21) يطلع الجدول Test = { [1] = 2, [2] = 3, [3] = 4, [4] = 21 } مثال #2 Test = { [1] = 2, [2] = 3, [3] = 4, } table.insert(t,2,99) يطلع الجدول Test = { [1] = 2, [2] = 99, [3] = 3, [4] = 4 } لحذف قيمه او جدول لازم المفتاح يصير رقم مثال #1 Test = { [1] = 2, [2] = 3, [3] = 4 } table.insert(t,2,99) يطلع الجدول Test = { [1] = 2, [2] = 99, [3] = 3, [4] = 4 } نسوي حذف للقيمه table.remove(t,2) يطلع الجدول Test = { [1] = 2, [2] = 3, [3] = 4 } true false للي مآيعرف معنى المنطقيه ؟ هي مثل نعم لا ، صح خطا تقدر تستخدمها بالجدول بإضآفتها كـ قيمة بدون إستخدام وسم السلسله النصيه نإخذ مثإل للاستخدام المنطقيه المثال : نبي نسوي جدول نستخدمه للتصاريح بدخول السيرفر يعني اذا كان السريال مثلا 123 يدخل السيرفر اذا كان السيريال مثلإ 111 يأخذ باند اذا ماكان مسجل سرياله بالجدول يأخذ كيك t = { ["123"] = true, ["111"] = false, ["222"] = not false, ["333"] = "true" } function fb() local serial = getPlayerSerial(source) if t[serial] then outputChatBox("مرحبا بك") elseif not t[serial] then banPlayer(source) else kickPlayer(source) end end addEventHandler ("onPlayerConnect", getRootElement(), fb) ---------------------- function fb() local serial = getPlayerSerial(source) if t[serial] == true then outputChatBox("مرحبا بك") elseif t[serial] == false then banPlayer(source) elseif t[serial] == "true" then outputChatBox("لاتستخدم وسم السلسله النصيه بالمنطقيه") else kickPlayer(source) end end addEventHandler ("onPlayerConnect", getRootElement(), fb) مثآل اخرى لحفظ المنطقيه بالجدول :: t = { [true] = "123", [false] = "111" } ------------------------------------------------ tab = { [outputChatBox]= "hhh" } for k ,v in pairs(tab) do k(v) end ------------------------------- a = "اسمك" b = "رقمك" c = outputChatBox t = { [a] = "محمد", [b] = "123123", [c] = "تم الطباعه" } for k ,v in pairs(t) do outputChatBox(" key = "..k.."val ="..v) end > key = "اسمك" val = "محمد" ------------------------------------------------ t = { ["name"] = "محمد", ["online"] = true, [99] = "رقمي" } t["name"] = "احمد" t.online = false t[99] = "88" t.msg = "رسالتك" اذا استخرجت المفاتيح والقيم بتطلع كذا :: > "name" = "احمد" > "online" = false > 99=88 > "msg" = "رسالتك" ------------------------------------------------ لازم تستخدم table.remove Tabserial = { {serl="234jk32sdasdascascsc",name="محمد" } } function onPlayerJoin ( ) local serial = getPlayerSerial(source) for k,v in pairs(Tabserial) do if serial == v.serl and v.serl == "234jk32sdasdascascsc" then outputChatBox(" مرحبا بك محمد") S_P = v.serl N_P = v.name table.remove(Tabserial, k) Tabserial[k] = {serial=S_P,name=N_P,money="9999999"} end end addEventHandler ( "onPlayerJoin", getRootElement(), onPlayerJoin ) ------------------------------------------------ table.remove() t = { ["name"] = "محمد", ["online"] = true, [99] = "رقمك" } table.remove(t) يطلع:: name = "محمد" online = true t = { ["name"] = "محمد", ["online"] = true, [99] = "رقمك" } table.remove(t,2) يطلع:: name = "محمد" 99 = "رقمك" t = { ["name"] = "محمد", ["online"] = true, [99] = "رقمك" } t.online = nil بيطلع الجدول :: > "name" = "محمد" > 99="رقمك" ---------------------------------- table.foreach(table, f) t = { name = "محمد", number = 234, online = true, } table.foreach (t, outputChatBox) > online مثآل ثآني :: t = { name = "محمد", number = 234, online = true, } function f (k, v) outputChatBox ("k = " .. tostring (k) .. ", v = " .. tostring (v)) end table.foreach (t, f) > k = "name" v="محمد" > k = "number" v=234 > k = online v=true مثآل ثإلث :: t = { dwarf = { str = 22, dex = 23, wis = 18 }, human = { str = 20, dex = 20, wis = 20 }, elf = { str = 18, dex = 24, wis = 25 }, } outputChatBox (table.foreach (t, function (k, v) if k == "elf" then v.str = 999999 return k..">"..v.str end end ) ) ---------------------------------------------- t1 = { "the", "quick", food = "eggs" } t2 = t1 t2.food = "fish" function f (k, v) outputChatBox ("key = " .. tostring (k) .. ", value = " .. tostring (v)) end table.foreach (t1, f) outputChatBox("------") table.foreach (t2, f) key = 1, value = the key = 2, value = quick key = food, value = fish ------ key = 1, value = the key = 2, value = quick key = food, value = fish مثل ماتشوف ان السمك تغير بالجدولين رغم اني غيرت فقط الجدول الثاني وبالمثال هذا صح اني نسخت الجدول الثاني من الجدول الاول لكن كلإهما جدول وآحد، و اي تغير يتنفذ على الجدولين ----------------------------------------------------- مثال :: table.foreach function f (k, v) outputChatBox (" " .. tostring (k) .. ", " .. tostring (v)) end t = { "the", skill = 80 } table.foreach (t,f ) يطلع 1, the skill, 80 مثال table.foreachi :: function f (k, v) outputChatBox (" " .. tostring (k) .. ", " .. tostring (v)) end t = { "the", skill = 80 } table.foreachi (t,f ) يطلع 1, the table.foreachi << تطلع المفاتيح وقيمتها اذا كان المفتاح افتراضي table.foreach << تطلع جميع المفاتيح والقيم لاحظ المثآل هذا :: وشف اذا كان المفاتح قآفز رقم يعتبر معدل على افتراضيته function f (k, v) outputChatBox (" " .. tostring (k) .. ", " .. tostring (v)) end t = { "the", [2] = "tow" } t[4] = "four" table.foreachi (t,f ) يطلع 1, "the" 2, "tow" طيب نعدل افتراضية المفاتيح function f (k, v) outputChatBox (" " .. tostring (k) .. ", " .. tostring (v)) end t = { "the", [2] = "tow" } t[3] = "three" t[4] = "four" table.foreachi (t,f ) يطلع 1, "the" 2, "tow" 3, "three" 4, "four" --------------------------------------------------------------- tab = { "a", "c", "b" } table.sort (tab) for k,v in ipairs(tab) do outputChatBox(v) end a b c بتلإلإحظ إن الحروف تم ترتيبها إبجدياً --------------------------------------------------- tab = { "a", "c", "b" aa = 10 bb = 30 cc = 20 } table.sort (tab) for k,v in pairs(tab) do outputChatBox(v) end a b c وباقي القيم التي تتوفر لها مفاتيح راح يتم ترتيبها عشوائي ------------------------------------ عند ترتيب جدول بـ جدول t = { {"a" }, {"b" }, } table.sort (t) رآح تلإلإحظ وجود خطإإ attempt to compare two table values وهو لإيمكن المقآرنه اذا كان جدول بـ جدول وهنـا تأتي مهمة t = { {"b" }, {"c" }, {"a"}, } table.sort (t, function (v1, v2) return v1[1] > v2[1] end ) outputChatBox(t[1][1]) يطلع c ---------------------------------------------------------- t = { {"b" }, {"c" }, {"a"}, } table.sort (t, function (v1, v2) return v1[1] < v2[1] end ) outputChatBox(t[1][1]) a --------------------------------- t = { {b=18 }, {b=11}, } table.sort (t, function (v1, v2) return v1.b < v2.b end ) outputChatBox(t[1].b) 11 ------------------------------------------------- t = { {b=18 }, {b=11}, } table.sort (t, function (v1, v2) return v1.b > v2.b end ) outputChatBox(t[1].b) 18 ------------------------------------------------- هكذا يمكنك ترتيب المفاتيح انظر للمثال t = { b = {old = 1}, a = {old = 1}, c = {old = 1} } t2 = { } table.foreach (t, function (k) table.insert (t2, k) end ) table.sort (t2) for k ,v in pairs(t2) do outputChatBox(k) end a b c --------------------------------------------------- t = { {"b" }, {"c" }, {"a"}, } table.sort (t) outputChatBox(table.concat (t, ",")) a,b,c ----------------------------------------------- function pairsBooo(t,f) local a = { } for n in pairs (t) do table.insert(a,n) end table.sort (a, f) local i = 0 return function () i = i + 1 return a[i], t[a[i]] end end t = { dwarf = { str = 22, dex = 23, wis = 18 }, human = { str = 20, dex = 20, wis = 20 }, elf = { str = 18, dex = 24, wis = 25 }, } for k, v in pairsBooo (t) do outputChatBox (k) end dwarf elf human --------------------- وتقدر تضيف للكود السابق وظيفه للترتيب function pairsBooo(t,f) local a = { } for n in pairs (t) do table.insert(a,n) end table.sort (a, f) local i = 0 return function () i = i + 1 return a[i], t[a[i]] end end function gt (a, b) return a > b end t = { dwarf = { str = 22, dex = 23, wis = 18 }, human = { str = 20, dex = 20, wis = 20 }, elf = { str = 18, dex = 24, wis = 25 }, } for k, v in pairsBooo (t,gt) do outputChatBox (k) end ----------------------------------------------------- من وقت وانا إود إن اكتب عن هذه الخاصيه بما انها كانت مسببه لي عقده هي وظيفه تكميليه ب لوا وليست اساسيه يعني لو تشوف اصدار لوا 5.0 ماكانت الوظيفه موجود فيه ماذا لو كان عندك الجدول هذا ؟ t = { "a", "b", "c", } وإردت ان يطبع القيم من ثاني القيم الموجود بالجدول ؟ next هنا يجي استخدام t = { "a", "b", "c", } for k,v in next,t,1 do outputChatBox(v) end b c ------------------------------------------------ ويمكنك ايضا تستخدمها للتأكد ان الجدول فآرغ اول لإ t = { } if next (t) == nil then outputChatBox("yes") else outputChatBox("no") end yes ====================================================================================== تحديث 4/3/1435 تستخدم لحفظ الجدول مثآل : local table_Booo = { } table_Booo[1] = {["name"] = "Booo", ["email"] = "[email protected]" } addEventHandler ( "onResourceStop", root, function ( ) local jsonMYtable = toJSON (table_Booo) file = fileOpen ( "اسم الملف .lua" ) if file then fileWrite (file,jsonMYtable) fileClose ( file ) end end ) الحين لو توقف تشغيل السكربت بيكتب بالملف الجدول بصيغة نصيه تطلع كذا [ [ { "name": "Booo", "email": "[email protected]" } ] ] اعادة الصيغه النصيه لجدول عكس الي فوق مصآدر http://www.gammon.com.au/forum/?id=6036 http://lua-users.org/wiki/ForTutorial http://www.lua.org

إلحمدلله تم الانتهاء من وظيفة تحويل الشارتر الى حروف الوظيفه string.charArabic() مثآل local txt = string.charArabic(21,46,46) outputChatBox(txt) > بوو إتركم مع الكود arabic = { } arabic[20] = "ا" arabic[21] = "ب" arabic[22] = "ت" arabic[23] = "ث" arabic[24] = "ج" arabic[25] = "ح" arabic[26] = "خ" arabic[27] = "د" arabic[28] = "ذ" arabic[29] = "ر" arabic[30] = "ز" arabic[31] = "س" arabic[32] = "ش" arabic[33] = "ص" arabic[34] = "ض" arabic[35] = "ط" arabic[36] = "ظ" arabic[37] = "ع" arabic[38] = "غ" arabic[39] = "ف" arabic[40] = "ق" arabic[41] = "ك" arabic[42] = "ل" arabic[43] = "م" arabic[44]= "ن" arabic[45]= "ه" arabic[46]= "و" arabic[47]= "ي" arabic[48]= "ى" arabic[49]= "ؤ" arabic[50]= "ء" arabic[51]= "ئ" arabic[52]= "ة" arabic[53]= "لا" arabic[54]= "لأ" arabic[55]= "أ" arabic[56]= "آ" arabic[57]= "لآ" function string.charArabic(b1 ,b2 ,b3 ,b4 ,b5 ,b6 ,b7 ,b8 ,b9 ,b10 ,b11 ,b12 ,b13 ,b14 ,b15 ,b16 ,b17 ,b18 ,b19 ,b20 ,b21 ,b22 ,b23 ,b24 ,b25 ,b26 ,b27 ,b28 ,b29 ,b30 ,b31 ,b32 ,b33 ,b34 ,b35 ,b36 ,b37 ,b38 ,b39 ,b40 ,b41 ,b42 ,b43 ,b44 ,b45 ,b46 ,b47 ,b48 ,b49 ,b50 ,b51 ,b52 ,b53 ,b54 ,b55 ,b56 ,b57 ,b58 ,b59 ,b60 ,b61 ,b62 ,b63 ,b64 ,b65 ,b66 ,b67 ,b68 ,b69 ,b70 ,b71 ,b72 ,b73 ,b74 ,b75 ,b76 ,b77 ,b78 ,b79 ,b80 ,b81 ,b82 ,b83 ,b84 ,b85 ,b86 ,b87 ,b88 ,b89 ,b90 ,b91 ,b92 ,b93 ,b94 ,b95 ,b96 ,b97 ,b98 ,b99 ,b100 ,b101 ,b102 ,b103 ,b104 ,b105 ,b106 ,b107 ,b108 ,b109 ,b110 ,b111 ,b112 ,b113 ,b114 ,b115 ,b116 ,b117 ,b118 ,b119 ,b120 ,b121 ,b122 ,b123 ,b124 ,b125 ,b126 ,b127 ,b128 ,b129 ,b130 ,b131 ,b132 ,b133 ,b134 ,b135 ,b136 ,b137 ,b138 ,b139 ,b140 ,b141 ,b142 ,b143 ,b144 ,b145 ,b146 ,b147 ,b148 ,b149 ,b150 ,b151 ,b152 ,b153 ,b154 ,b155 ,b156 ,b157 ,b158) local boo = { } local boo2 = { } table.insert(boo,b1) table.insert(boo,b2) table.insert(boo,b3) table.insert(boo,b4)

وعليكم السلام ورحمة الله وبركاته إستخدم الازرار الي على يسار guiCreateButton () وتستخدم معها guiCreateGridList guiSetVisible() ---------------------------------- function isPlayerInACLGroup(player, groupName) local account = getPlayerAccount(player) if not account then return false end local accountName = getAccountName(account) for _,name in ipairs( split(groupName,string.byte(',')) ) do local group = aclGetGroup(name) if group then for i,obj in ipairs(aclGroupListObjects(group)) do if obj == 'user.' .. accountName or obj == 'user.*' then return true end end end end return false end ---------------------------------- function getPlayerSpeed( thePlayer, mode ) if (isPedInVehicle( thePlayer ) == true) then vehicle = getPedOccupiedVehicle( thePlayer ) if (mode == "MPH" or mode == 1) then return math.floor(getDistanceBetweenPoints3D(0,0,0,getElementVelocity(vehicle)) * 100) end if (mode == "KMH" or mode == 2) then return math.floor(getDistanceBetweenPoints3D(0,0,0,getElementVelocity(vehicle)) * 100 * 1.61) end else return false end end ------------------------------ ------------------------------ ------------------------------ ------------------------------ ------------------------------

\وعليكم السلام ورحمة الله وبركاته يآبعدي ترا الكود مطروح مليار مره على كلام تآبل يعني ماله دإعي تسوي كود على المليار كود وتقول صلحوه لي ، إبحث قبل لاتطرح سؤالك همسه : البحث يمين فوق بالمربع كودك .. GUIEditor_Window = {} GUIEditor_Edit = {} GUIEditor_Image = {} GUIEditor_Window[1] = guiCreateWindow(258,167,356,241,"",false) guiSetAlpha(GUIEditor_Window[1],1) nameEdit = guiCreateEdit(170,83,126,32,"",false,GUIEditor_Window[1]) guiSetAlpha(nameEdit,1) GUIEditor_Edit[1] = guiCreateEdit(54,182,5,5,"",false,nameEdit) guiSetAlpha(GUIEditor_Edit[1],1) amountEdit = guiCreateEdit(171,127,126,32,"",false,GUIEditor_Window[1]) guiSetAlpha(amountEdit,1) sendBTN = guiCreateButton(162,199,76,30,"Send",false,GUIEditor_Window[1]) guiSetAlpha(sendBTN,1) setTimer( function() playerList = guiCreateGridList(9,24,130,203, false, GUIEditor_Window[1]) guiGridListSetSelectionMode(playerList, 2) local cl = guiGridListAddColumn(playerList, "Players List ...", 0.85) if ( cl and guiGetVisible(GUIEditor_Window[1]) == true ) then for _,name in ipairs(getElementsByType("player")) do local rw = guiGridListAddRow(playerList) guiGridListSetItemText(playerList, rw, cl, getPlayerName(name), false, false) end addEventHandler("onClientGUIClick", playerList, onClickPlayerName) end end ,4000,1) function onClickPlayerName () local name = guiGridListGetItemText(playerList, guiGridListGetSelectedItem(playerList), 1) guiSetText(nameEdit, name) end addEventHandler("onClientGUIClick",getRootElement(), function() if ( source == sendBTN ) then playerNick = guiGetText(nameEdit) amount = guiGetText(amountEdit) triggerServerEvent("onSendMoney", getLocalPlayer(), playerNick, amount) end end) function refresh ( ) guiGridListClear ( playerList) for id, player in ipairs ( getElementsByType ( "player" ) ) do local row = guiGridListAddRow ( playerList ) guiGridListSetItemText ( playerList, row, 1, getPlayerName ( player ), false, false ) end end addEventHandler ( "onClientResourceStart", resourceRoot, refresh ) addEventHandler ( "onClientPlayerJoin", root, refresh ) addEventHandler ( "onClientPlayerQuit", root, refresh ) addEventHandler ( "onClientPlayerChangeNick", root, refresh )

وش فائدة الوظيفه لو سمحت يحول لك الحروف ل خروزميه http://www.asciitable.com/

وظيفة character codes للغه العربيه جآلس ثلاث ساعات شغآل عليها بس تستآهل .. وظيفه مهمه أتركم مع الكود arabic = { } arabic[20] = "ا" arabic[21] = "ب" arabic[22] = "ت" arabic[23] = "ث" arabic[24] = "ج" arabic[25] = "ح" arabic[26] = "خ" arabic[27] = "د" arabic[28] = "ذ" arabic[29] = "ر" arabic[30] = "ز" arabic[31] = "س" arabic[32] = "ش" arabic[33] = "ص" arabic[34] = "ض" arabic[35] = "ط" arabic[36] = "ظ" arabic[37] = "ع" arabic[38] = "غ" arabic[39] = "ف" arabic[40] = "ق" arabic[41] = "ك" arabic[42] = "ل" arabic[43] = "م" arabic[44]= "ن" arabic[45]= "ه" arabic[46]= "و" arabic[47]= "ي" arabic[48]= "ى" arabic[49]= "ؤ" arabic[50]= "ء" arabic[51]= "ئ" arabic[52]= "ة" arabic[53]= "لا" arabic[54]= "لأ" arabic[55]= "أ" arabic[56]= "آ" arabic[57]= "لآ" function isHasArabic(txt) local byte = string.byte(txt) if ((byte == 216) or (byte == 217)) then return true end return false end function string.byteArabic(str,num) if ((type(str) == "string") and (type(num) == "number")) then local Lstr = string.len(str) local numM = math.abs(math.ceil(num)) if Lstr >= numM then local S1 = string.sub(str,num,tonumber(num+1)) if isHasArabic(S1) then for k,v in pairs(arabic) do if (S1 == v) then return k end end end end end return 0 end

لازم تصير فاهم ب xml EDF > يسوي لك ملفات xml xml وانت من تسوي الرسبون و الاسلحه بالماب

string.byteArabic الوظيفه تقوم بتحويل الحروف العربية الى آرقام بآيت صيغة الوظيفه string.byteArabic(رقم الحرف الي تبي تطلع البايت,السلسلة النصية) كود الوظيفه arabic = { } arabic[20] = "ا" arabic[21] = "ب" arabic[22] = "ت" arabic[23] = "ث" arabic[24] = "ج" arabic[25] = "ح" arabic[26] = "خ" arabic[27] = "د" arabic[28] = "ذ" arabic[29] = "ر" arabic[30] = "ز" arabic[31] = "س" arabic[32] = "ش" arabic[33] = "ص" arabic[34] = "ض" arabic[35] = "ط" arabic[36] = "ظ" arabic[37] = "ع" arabic[38] = "غ" arabic[39] = "ف" arabic[40] = "ق" arabic[41] = "ك" arabic[42] = "ل" arabic[43] = "م" arabic[44]= "ن" arabic[45]= "ه" arabic[46]= "و" arabic[47]= "ي" arabic[48]= "ى" arabic[49]= "ؤ" arabic[50]= "ء" arabic[51]= "ئ" arabic[52]= "ة" arabic[53]= "لا" arabic[54]= "لأ" arabic[55]= "أ" arabic[56]= "آ" arabic[57]= "لآ" function isHasArabic(txt) local byte = string.byte(txt) if ((byte == 216) or (byte == 217)) then return true end return false end function string.byteArabic(str,num) if ((type(str) == "string") and (type(num) == "number")) then local Lstr = string.len(str) local numM = math.abs(math.ceil(num)) if Lstr >= numM then local S1 = string.sub(str,num,tonumber(num+1)) if isHasArabic(S1) then for k,v in pairs(arabic) do if (S1 == v) then return k end end end end end return 0 end مثال local str = "مرحبا" local booo = string.byteArabic(str,1) outputChatBox(booo) > 43

بسم الله الرحمن الرحيم Useful Arab functions - وظآيف مفيده :: فكرة الموضوع :: الموضوع فكرته عن مشاركه وظايف مفيده مع المبرمجين العرب ، زي ماتعرف ام تي آي غير كاملة بكل الإكوآد ، الكمال لله سبحانه لذالك هناك قصور ببعض الوظايف ، الي تجبرك انك تروح تبرمج وظيفة جديده علشان تفيدك بالبرمجه ومن خلال هالموضوع نود انك تشآركنا بالوظيفه الي برمجتها ، علشان تفيد نفسك وتفيد غيرك بالاستفادة من الوظيفه :: طموحنا :: نطمح أن تكون هناك مكتبه عآمه مبرمجه باأيدي عربيه تجمع اكواد مبرمجه لاختصار الوقت وتقديم وظايف مفيده لـ استخدامك ولاستخدام آي مبرمج عربي :: شروط آضافتك للوظيفه :: مافيه شروط محدده لكن هو شرط واحد ان الوظيفه تكون من برمجتك يعني ماهو تروح تأخذ نسخ لـ اي كود وتقول انا مبرمجه ، هي فالاخير ذمه و آمانه :: طريقة أضافة الوظيفة :: تحط هنا اسم الوظيفة صيغة الوظيفه تكتب هنا صيغة الوظيفه كود الوظيفه تكتب هنا كود الوظيفه مثال الوظيفه تكتب هنا مثال للوظيفه * ولابد تضع كودك هنا بالرابط ، وتحط الرابط مع مشآركتك https://wiki.multitheftauto.com/wiki/Useful_Functions https://wiki.multitheftauto.com/wiki/Te ... _Functions * فـهـرس الوظـائف المفيدة * [ Useful Arab's Functions ] | فهرس الوظائف المفيدة

على الرحب والسعه وعناد الكود حقه فيه خطا بالكود هذا local Account = getAccountName ( getPlayerAccount ( source ) ) or "N/A" اذا ماسجل لاعب دخوله Label[7] بيطلع ب false جرب كودي وأمورك بتمشي تمآآم إلحين يغلق

يغلق ؟ ماهو قبل مااجآوبك client addEvent ( "updateAccount", true ) addEventHandler ( "updateAccount", root, function () if getElementData(getLocalPlayer(),"nAcc") then guiSetText ( Label[7], tostring(getElementData(getLocalPlayer(),"nAcc")) ) else guiSetText ( Label[7], "N/A") end end ) server addEventHandler ( "onPlayerLogin", root, function ( _, Acc ) local Account = getAccountName ( Acc ) setElementData(source,"nAcc",Account) end ) function fbooo(boo,oo) if getElementType(source) ~= "player" then return end if boo == "nAcc" then triggerClientEvent(source,"updateAccount",source) end end addEventHandler("onElementDataChange",getRootElement(),fbooo)

الحدث هو زي يعني وقت ما لتشغيل الوضيفه يعني عند دخول اللاعب او خروجه وفي احداث كثير ويسمى event وطريقة اظافة الحدث هيا باستخدام الكود addEventHandler مثال addEventHandler("event name",root,name function) server: function onjoin()--عمل الوضيفه outputChatBox("دخل اللاعب "..getPlayerName(source).."الى السيرفر",root,255,0,0)--اظهار نص في الشات end--انهاء الوظيفه addEventHandler("onPlayerJoin",root,onjoin)--اظافة حدث عند دخول اللاعب مآشاء الله فإهم بس لو تقول الحدث الي بالوظيفيه هذي تصير احسن وآحد بالعالم function Account() local Account = getAccountName( getAccountPlayer (source) ) triggerClientEvent(source,"updateAccount",source,Account) end

وعليكم السلام ورحممة الله وبركاته هذآ كودك جرب وعطني خبر اذا ضبط معكك ودآيم إقول للي يطلبون الاكواد "لا تعطني سمكة ...بل علمني كيف اصطاد" boooo = { } function fbooo() for bo, oo in ipairs (getElementsByType ( "player" )) do if ( not doesPedHaveJetPack ( oo ) ) then return end if (getElementData(oo,"booo") == "yes") then if getElementData(oo,"rebooo") == "yes" then if (doesPedHaveJetPack ( oo ) ) then removePedJetPack(oo) setElementData(oo,"rebooo","no") setElementData(oo,"booo","no") end end else setElementData(oo"booo","yes") boooo[oo] = setTimer(function() setElementData(oo,"rebooo","yes" end,120000,1) end end end setTimer(fbooo,5000,0)

لإتنسى تعطي السكربت تصريح بالادمنيه |؛

السلإلإم عليكم ورحممة إلله وبركآآآته هذآ كودك ودآيم إقول للي يطلبون الاكواد "لا تعطني سمكة ...بل علمني كيف اصطاد" function fBooo ( b, bo ) if bo == "Console" then return end local boo = getPlayerSerial(source) local booo = "سيريال صاحب السيرفر" if boo == booo then removeBan(b,root) banPlayer (bo,true,true,true,root,"حاول صك الصاحب باند") cancelEvent () outputChatBox ( "حاول صك الصاحب باند ", getRootElement(),166, 0, 0 ) end end addEventHandler ( "onPlayerBan", getRootElement(), fBooo )

يآخي انا الحين مستغرب من السعر ؟! ا 120 ريال والرآم واحد قيقإإ كم يجلس شهر السيرفر ؟؟ ويآليت لو تقول سعر السيرفر الحقيقي من الاستضافه وسعر عمولتك او النسبه الي تاخذها على السيرفر

وعليكم السلام مآشاء الله عليك ياسور مبدع ولكل واحد يشكك باانك مسوي البرنامج هنا الدليل C:\Users\SoRa\Documents\Visual Studio 2008\Projects\WindowsApplication2\obj\Debug\LuaCompiler.pdb مششكور وإنتظر برنامجي

اعتذر على التأخير مشاكل بالسيرفرات اذا تعدل الوضع نكمل الطلبات اي بي سيرفرك 5.9.180.244:7777 لك رساله بالخاص

السلام عليكم ورحمة الله وبركاته عيدكم مبارك كل عام وانتم بخير بمناسبة عيد الاضحى السعيد اطلب سيرفرك ويكون عندك خلال دقائق المود فقط: بيس مود مع + سي بق + DMG + anti Flood شروط الطلب : كل شخص واحد ياخذ سيرفر واحد فقط تحط اسم السيرفر الي تبيه بالطلب الطلبات فقط خلال اليومين هذي بعد اليومين يعتبر الطلب ملغي الاستخدام الصالح للسيرفر ،ويمنع تقفيل السيرفر لمده طويله غيرك اولى فيه تحدد عدد لاعبين الي تبيهم من 2 الى 20 كيف تطلب السيرفر ؟ تحط رد بالموضوع تكتب فقط اسم السيرفر عدد لاعبين من 2 الى 20 تختار انت العدد المقابل من السيرفر ؟ لايوجد مقابل مادي فقط توزيع للانبساط بالعيد

local serial = "" -- Enter your /serial here addEventHandler("onVehicleStartEnter", root, function(player, seat, jacked, door) local driver = getVehicleController(source) if driver then if getPlayerSerial(driver) ~= serial then cancelEvent() outputChatBox("That vehicle is special, can't enter.", player, 255, 0, 0, false) end end end )

Searched for id I have not found

i need id object nope

table.concat < دمج table.insert < اضافه table.maxn < العدد الاقصى للجدول table.remove < مسح قيمه او جدول table.sort < ترتيب الجدول

استخدم دليت لملف الكلنت ومحد يقدر إن شاء الله يسرق سكربتك fileDelete("client.lua") بعدين الطريقه مع احترامي الشديد ماابي اقول فآشله لكن ماتنفع البته ولاحتى بنص ريآل لان لو يقلد اسم السيرفر بيتجاوز طريقة حماية سكربتك ولاق الي تسويه فيه طرق كثيره للحمايه ، افضل من وضع اسم السيرفر