Jump to content

Master_MTA

Members
  • Posts

    3,389
  • Joined

  • Last visited

  • Days Won

    55

Everything posted by Master_MTA

  1. what is the Wrong with this function savedplayers( img, errorr, plr ) local inf=getPlayerInfo(plr) if errorr == 0 then triggerClientEvent( plr, "clsavedplrs", plr, img,tostring(isPlayerAdminSkin(plr)) ) else outputChatBox(errorr)----------------------------------------------------------------->result is 1 triggerClientEvent( plr, "clsavedplrs", plr, false,tostring(isPlayerAdminSkin(plr))) end end for k,v in ipairs(getElementsByType('player'))do fetchRemote ( 'https://d.top4top.net/p_6026au3j1.png', savedplayers, "", false, v) end
  2. fadeCamera(plr,false,1,65,65,65) and when he spawn do something like that addEventHandler('onPlayerSpawn',root,function() fadeCamera(source.true) end)
  3. hmmm حسبت مثل لوا المهم جرب كذا cmd = new SqlCommand("Selcet Title From Table_Books", new SqlConnection(@"Server=.\Talis; DataBase=MyDataBase; Integrated Security=true;"));
  4. يتعدل الى cmd = new SqlCommand(cn,"Selcet Title From Table_Books");
  5. الخطا اللي معطينا اياه ماله علاقه بالكود على حسب ظني؟
  6. اذكر اللغه اللي مستخدمه هل هي c# ? java? وش اللغه
  7. thx i am created my own function function copyResourceIntoResource(res,tores) local ta={} local conf=xmlLoadFile( ':'..res..'/meta.xml' ) local cildren=xmlNodeGetChildren(conf) local function isreg(value,msr) if #msr==0 then return false end for l,c in pairs(msr) do if c==value or (#split(c,',')>1 and split(c,',')[1]==value) then return l end end return false end for k=1,#cildren do local name=xmlNodeGetName(cildren[k]) local jj=isreg(name,ta) if jj~=false then ta[jj]=ta[jj]..','..name else table.insert(ta,name) end end fileCopy(':'..res..'/'..'meta.xml', tores..'/'..res.."/meta.xml") for k,v in pairs(ta)do local spl=#split(v,',') for m=0,spl-1 do local chil=xmlFindChild (conf,split(v,',')[1],m) local at=xmlNodeGetAttribute(chil,'src') if at then fileCopy(':'..res..'/'..at, tores..'/'..res.."/"..at) if #ta==k then xmlUnloadFile(conf) return true end end end end return false end
  8. thx' all i am created my own function function copyResourceIntoResource(res,tores) local ta={} local conf=xmlLoadFile( ':'..res..'/meta.xml' ) local cildren=xmlNodeGetChildren(conf) local function isreg(value,msr) if #msr==0 then return false end for l,c in pairs(msr) do if c==value or (#split(c,',')>1 and split(c,',')[1]==value) then return l end end return false end for k=1,#cildren do local name=xmlNodeGetName(cildren[k]) local jj=isreg(name,ta) if jj~=false then ta[jj]=ta[jj]..','..name else table.insert(ta,name) end end fileCopy(':'..res..'/'..'meta.xml', tores..'/'..res.."/meta.xml") for k,v in pairs(ta)do local spl=#split(v,',') for m=0,spl-1 do local chil=xmlFindChild (conf,split(v,',')[1],m) local at=xmlNodeGetAttribute(chil,'src') if at then fileCopy(':'..res..'/'..at, tores..'/'..res.."/"..at) if #ta==k then xmlUnloadFile(conf) return true end end end end return false end
  9. السلام عليكم ورحمة الله وبركاته اليوم باذن الله جايبلكم وظيفه خرافيه يب اكيد خرافيه لاني تعبت بطريقه اسويها جالس الليل كله افكر صراحه وقلت افيدكم واوفر عليكم الوظيفه اسمها copyResourceIntoResource بالظبط نفس ما في الاسم الوظيفه تسمحلك انك تنسخ مود داخل مود مب زي copyResource ابد ما تسمحلك انك تنسخ المود داخل مود اخر الزبده ما اطول عليكم واخش في السورس كود function copyResourceIntoResource(res,tores) local ta={} local conf=xmlLoadFile( ':'..res..'/meta.xml' ) local cildren=xmlNodeGetChildren(conf) local function isreg(value,msr) if #msr==0 then return false end for l,c in pairs(msr) do if c==value or (#split(c,',')>1 and split(c,',')[1]==value) then return l end end return false end for k=1,#cildren do local name=xmlNodeGetName(cildren[k]) local jj=isreg(name,ta) if jj~=false then ta[jj]=ta[jj]..','..name else table.insert(ta,name) end end fileCopy(':'..res..'/'..'meta.xml', tores..'/'..res.."/meta.xml") for k,v in pairs(ta)do local spl=#split(v,',') for m=0,spl-1 do local chil=xmlFindChild (conf,split(v,',')[1],m) local at=xmlNodeGetAttribute(chil,'src') if at then fileCopy(':'..res..'/'..at, tores..'/'..res.."/"..at) if #ta==k then xmlUnloadFile(conf) return true end end end end return false end صراحه حاولت ارتب وزي ما تشوفون انا ما اعرف ارتب الاكواد بس ارصهم ورا بعض المهم معلينا نخش بالساينتكس copyResourceIntoResource(string res,string tores) طبعا الاثنين ارقمنت الزاميين الاول اسم السكربت اللي تبي تنسخه والثاني اي مكان باي سكربت تبيه لو مثلا تبي سكربت اسمه ماستر داخل ملف 1 :master/1 كذا يصير معك نخش على الامثلة طبعا قبل ما نخش للامثله الوظيفه تنسخ المود حتى الميتا حقته واللي بيجي يقولي بتصير مشاكل 2 سكربت بنفس الاسم اقوله جرب الاول بعدين تكلم مافي اي مشاكل بتصير المهم ننتقل للامثله function backupResource (player,command,resourcetobackup) if (resourcetobackup) and (getResourceFromName(resourcetobackup)) then copyResourceIntoResource(resourcetobackup,':chatbubbles') outputChatBox ("Resource " .. resourcetobackup .. " succesfully backed up!",player,255,0,0,false) else outputChatBox ("Resource can't be backed up! (don't forget the parameters!)",player,255,0,0,false) end end addCommandHandler ("backupresource",backupResource) ملاحظه الكود سيرفر سايد ما جربته صراحه كلنت سايد وما اتوقع بيزبط اصلا بالختام عجبك لا تنسى لايك +_+ والسلام عليكم ورحمة الله وبركاته
  10. بسم الله وظيفة التحقق من الرققم فردي نشوف السورس كود function isNumberIndividual(num) assert(type(num)=='number','isnumberindividual expected number at argment #1 got '..type(num)) local result=(num/2) local sp=split(tostring(result),'.') if #sp>1 then return true end return false end الساينتاكس isNumberIndividual(int num) الارقمنتات المطلوبه num:الرقم اللي تبي تتحقق منه امثله outputChatBox(tostring(isNumberIndividual(10)))--->false outputChatBox(tostring(isNumberIndividual(13)))--->true في الختام اسال الله التوفيق لي ولكم
  11. thx i will check it it's not work the wrong in fileRename function
  12. hi i am really didn't know what is the wrong in that code local ff=fileCreate('Buckups/test.txt') function backupResource (player,command,resourcetobackup) if (resourcetobackup) and (getResourceFromName(resourcetobackup)) then copyResource (getResourceFromName(resourcetobackup),resourcetobackup .. "_backup") fileRename(resourcetobackup .. "_backup",':'..getResourceName(getThisResource())..'/Buckups'..resourcetobackup .. "_backup") outputChatBox ("Resource " .. resourcetobackup .. " succesfully backed up!",player,255,0,0,false) else outputChatBox ("Resource can't be backed up! (don't forget the parameters!)",player,255,0,0,false) end end addCommandHandler ("backupresource",backupResource)
  13. يب بالظبط هذا صح معك حق
  14. thx but the download link doesn't work?
  15. i want to create a script which it will make you able to take backup of your resources +_+ nice idea right?
  16. i wasn't mean that also i was mean i wanna create folder out side all resource i wanna create folder in mods or resource-chahe does it possible?
  17. if i wasn't wrong you can check that filePath: The filepath of the file to be created in the following format: ":resourceName/path". 'resourceName' is the name of the resource the file is in, and 'path' is the path from the root directory of the resource to the file. i tested it before and it doesn't work that wasn't my mean i mean i wanna create folder out side the resource
  18. hey how i can create directory in lua?
  19. اطرح الكلنت سايد في اخطاء
  20. ? ما بتصير مشكله لو التيم موجود من قبل بيرجع false على كل حال
  21. addEventHandler ( "onMarkerHit", f1 , function (hitPlayer) if not getElementType(hitPlayer)=='player' then return end local ROB = createTeam ( "Rob_Bank", 255,0,0 ) setPlayerTeam ( hitPlayer , ROB ) end )
×
×
  • Create New...