Jump to content

#,Dr.To[sh]iBa

Members
  • Posts

    173
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by #,Dr.To[sh]iBa

  1. guiEditSetMaxLength(GUIEditor.edit[1], 120)---120 هو الرقم المحدد
  2. addEvent("color1",true) addEventHandler("color1",root, function(name , Hours ) OutPut("Console:"..Hours.." Has Been Give Houres"..name.."",root,0,255,0,true) end ) هذا الكود يستقبل تراقير من الكلن اني لو ضغطت زر يجي كذا الحين ذا ما فيه اي مشكلة يطلع القيمة والاسم عادي addEvent("color1",true) addEventHandler("color1",root, function(name , Hours , reson) OutPut("Console:"..Hours.." Has Been Give Houres"..name.."reson "..reson.."",root,0,255,0,true) end ) لكن لما اضيف شئ ثالث في الفنكشن ما يشتغل مدري وش المشكلة .. اتمنب تكونوا فهمتوني
  3. ليه ما تطرح الاكواد هنا وتساعد الكل ؟ @!#NssoR_)
  4. الكود حقي وش المشكله فيه صعب كل ذا ?
  5. السلام عليكم عندي مشكله في مود العاجل .. انا مسويه بتايمر لو كتبت بالعاجل اول عاجل يجي ٨ ثواني يختفي وبعد كذا ثاني عاجل مثلا يجي ٥ ثواني وبعدين ٣ عاجل يجي ثانيه ويختفي local Groups = { "Sender" } function isPlayerAdmin(player) for k,v in ipairs ( Groups ) do if ( isObjectInACLGroup("user." .. getAccountName(getPlayerAccount(player)), aclGetGroup(v)) ) then return true end end end addCommandHandler("Sender", function ( player, cmd, ... ) if not ( isGuestAccount ( getPlayerAccount ( player ) ) ) then if ( isPlayerAdmin ( player ) ) then local msg = {...} local message = table.concat(msg, " ") outputChatBox("≈[ بارسـال رسـالة للجـميـع [ "..getPlayerName (player).." ֆ ] لـقـد قـام الاعـب ]≈", root,math.random(0,255),math.random(0,255),math.random(0,255), true) setElementData ( resourceRoot, "Have_", true ) setElementData ( resourceRoot, "Msg_", message ) setTimer ( function ( ) setElementData ( resourceRoot, "Msg_" , false ) end , 1000*8 , 1 ) if ( getElementData ( player, "Name" ) and getElementData ( player, "Name" ) ~= false ) then setElementData ( resourceRoot, "By_", getElementData ( player, "Name" )) else setElementData ( resourceRoot, "By_", getPlayerName ( player )) end else outputChatBox("* لـيـس لديك خاصـيـة لارسال رسالة لجميع الاعبين علي شاشتهم !!", player, 255, 0, 0, true) end else outputChatBox("* الرجـاء تسـجـيل الدخـول حتي يمكنك ارسال رسالة للجميع !!", player, 255, 0, 0, true) end end)
  6. There is currently no text in this page. You can search for this page title in other pages, or search the related logs, but you do not have permission to create this page
  7. السلام عليكم انا سويت لوحة وفيها زر وفيها ايديت بوكس الحين لو جه اللاعب وكتب كلام في الايديت بوكس ابيه لو ضغط علي زر الكلام اللي كتبه في الايديت بوكس يطلع في الشات وشكرا فا كيف اسويها
  8. --كلنت سايد bindKey("i", "down", "chatbox","AM") addEvent('soundmsg',true) addEventHandler('soundmsg',root,function() playSound("chat.mp3",false) outputChatBox ( "تم آرسآل عآجل من قبل الآدمن - آلرجآء الآنتباة",250, 0, 0, false ) end) السلام عليكم انا هنا ابي اسم اللاعب اللي قام الامر ذا يظهر في الشات مع الرسالة ذي انا حاولت بترايقر لكن فشلت
  9. @LilDawage ممكن تعيد كتابة الكود
  10. لماذا تم حذف جميع الردود؟
  11. addEventHandler("onPlayerWasted", root, function() setTimer(spawn, 1800, 1, source) end ) انا ابي هنا لو الشخص عنده تحميل ومات يروح للسباون اللي متحدد ذا الكود لو اي شخص مات بيروح للسباون اتمني تكون فهمتوني
  12. --(c) Coppyright by German Scripter-- --This Script is a free resource and my first script-- sx,sy = guiGetScreenSize() textsToDraw = {} maxrange = 25 function NPCnametag() end addEventHandler("onClientRender",root, function() for a,b in pairs(textsToDraw) do x,y,z = b[1],b[2],b[3] scx,scy = getScreenFromWorldPosition (x,y,z) camX,camY,camZ = getCameraMatrix() if scx and scy and getDistanceBetweenPoints3D(camX,camY,camZ,x,y,z+5) <= maxrange then dxDrawFramedText(b[4],scx-0.5*dxGetTextWidth(b[4],2,"sans"),scy+30-0.5*dxGetFontHeight(2,"sans"),sx, sy+5,tocolor ( b[5], b[6], b[7], 255 ), 2,"sans") end end end ) function add3DText(x,y,z,text,r,g,b) table.insert(textsToDraw,{x,y,z,text,r,g,b}) end add3DText(1127.88123, -2036.97717, 70.44132,"[亗]-[ بيت الكينق ابوالغار ]-[亗]",255,255,0) --(1127.51685 -2036.97375 72.80264) -- bsp: add3DText(-1964.9000244141, 293.79998779297, 35.099998474121,"Supersave.",r,g,b) function dxDrawFramedText ( message , left , top , width , height , color , scale , font , alignX , alignY , clip , wordBreak , postGUI , frameColor ) color = color or tocolor ( 00, 255 , 255 , 00 ) --Color frameColor = frameColor or tocolor ( 000 , 000 , 000 , 255 ) --Color scale = scale or 6 font = font or "sans" alignX = alignX or "left" alignY = alignY or "top" clip = clip or false wordBreak = wordBreak or false postGUI = postGUI or false dxDrawText ( message , left + 1 , top + 1 , width + 1 , height + 1 , frameColor , scale , font , alignX , alignY , clip , wordBreak , postGUI ) dxDrawText ( message , left + 1 , top - 1 , width + 1 , height - 1 , frameColor , scale , font , alignX , alignY , clip , wordBreak , postGUI ) dxDrawText ( message , left - 1 , top + 1 , width - 1 , height + 1 , frameColor , scale , font , alignX , alignY , clip , wordBreak , postGUI ) dxDrawText ( message , left - 1 , top - 1 , width - 1 , height - 1 , frameColor , scale , font , alignX , alignY , clip , wordBreak , postGUI ) dxDrawText ( message , left , top , width , height , color , scale , font , alignX , alignY , clip , wordBreak , postGUI ) end هذا الكود عبار عن تكست ثري دي يجي انا ابيه صوره مب تكست كيف ؟
  13. بدورلك عليه --[[********************************** * * Multi Theft Auto - Admin Panel * * admin_ACL.lua * * Original File by lil_Toady * **************************************]] function aSetupACL () local temp_acl_nodes = {} local node = xmlLoadFile ( "conf\\ACL.xml" ) if ( node ) then --Get ACLs local acls = 0 while ( xmlFindChild ( node, "acl", acls ) ~= false ) do local aclNode = xmlFindChild ( node, "acl", acls ) local aclName = xmlNodeGetAttribute ( aclNode, "name" ) if ( ( aclNode ) and ( aclName ) ) then temp_acl_nodes[aclName] = aclNode end acls = acls + 1 end -- Add missing rights local totalAdded = 0 for id, acl in ipairs ( aclList () ) do local aclName = aclGetName ( acl ) if string.sub(aclName,1,8) ~= "autoACL_" then local node = temp_acl_nodes[aclName] or temp_acl_nodes["Default"] if node then totalAdded = totalAdded + aACLLoad ( acl, node ) end end end if totalAdded > 0 then outputServerLog ( "Admin access list successfully updated " ) outputConsole ( "Admin access list successfully updated " ) outputDebugString ( "Admin added " .. totalAdded .. " missing rights" ) end xmlUnloadFile ( node ) else outputServerLog ( "Failed to install admin access list - File missing" ) outputConsole ( "Failed to install admin access list - File missing" ) end end function aACLLoad ( acl, node ) local added = 0 local rights = 0 while ( xmlFindChild ( node, "right", rights ) ~= false ) do local rightNode = xmlFindChild ( node, "right", rights ) local rightName = xmlNodeGetAttribute ( rightNode, "name" ) local rightAccess = xmlNodeGetAttribute ( rightNode, "access" ) if ( ( rightName ) and ( rightAccess ) ) then -- Add if missing from this acl if not aclRightExists ( acl, rightName ) then aclSetRight ( acl, rightName, rightAccess == "true" ) added = added + 1 end end rights = rights + 1 end return added end function aclGetAccount ( player ) local account = getPlayerAccount ( player ) if ( isGuestAccount ( account ) ) then return false else return "user."..getAccountName ( account ) end end function aclGetAccountGroups ( account ) local acc = getAccountName ( account ) if ( not acc ) then return false end local res = {} acc = "user."..acc local all = "user.*" for ig, group in ipairs ( aclGroupList() ) do for io, object in ipairs ( aclGroupListObjects ( group ) ) do if ( ( acc == object ) or ( all == object ) ) then table.insert ( res, aclGroupGetName ( group ) ) break end end end return res end function aclRightExists( acl, right ) for _,name in ipairs( aclListRights( acl ) ) do if name == right then return true end end return false end شوف هنا ولا لا
  14. elseif ( action == "slap" ) then if getPlayerAccount ( player ) == "XMarwanAhmedX" then return end سويت كذا وما ظبطت
  15. يعطيكم العافيه علي المساعدة انا استخدمت ذي الطريقة
  16. if getPlayeraccount ( player ) == "الحساب" then return else ما عرفت اكمل
  17. طيب كيف اسوي ان الرتبه ترجع
  18. والله جربت كذا لكن ما اشتغل
  19. ابي كود احدد فيه اسم حسابين ولو شخص سحب رتبه من ذا الحساب ينصك كيك او باند والرتبه ترجع
×
×
  • Create New...