Mr.OppS

Members
  • Content count

    110
  • Joined

  • Last visited

Community Reputation

2 Neutral

About Mr.OppS

  • Rank
    Sucka

Details

  • Gang
    SpY
  1. سـويـتـة !!ولكن هناك مشكلة ؛ كود ضعـيـف مشكلة ترجع مرة اخري اذا تكتب اسم حسابك تشوف حالك تكتب في شات Bواذا كلمة سر يوجود بة حرف تشوف لوحة الوزنيات طلعت ^^ حتي تـنـحـل مشكلة = لازم اسوي إعادة تشغيل للمود*ريسترت* !! ارجو الحل
  2. السلام عليكم, كيف الحال؟ شباب اريد اسوي إضافة في مود ديربي اذا انت في ديربي وشخص اخر أنــتــقــال إلـيـك = يأخذ سلآب ؛؛ أريـد اسـوي 2 سـريال اذا انـتـقـالو اإلـيـك = لا ياخذون سلاب ولا يصير لهم شي سيـرفر spawns = {} setElementData(resourceRoot,"map","no") setElementData(resourceRoot,"winMoney","0") addEventHandler("onPlayerChat",getRootElement(),function(message) if tostring(message) == "ديربي" and checkDuel(source) == "prestart" and ( not checkExistPlrOnDuel(source) ) then online = countPlayersOnDerby() if tonumber(online)+1 < 32 then setData(source,"onCrossMap","yes") outputChatBox("المرجو الانتظار...",source,255,255,0,true) setD(source) spawnOnMap(source) else outputChatBox("لم يبق مكان لك بالديربي انتظر حتى الديربي القادم ",source,0,255,0,true) end end end) function checkDuel(p) if tostring(getElementData(resourceRoot,"map")) == "yes" then outputChatBox("انتظر ريثما ينتهي الديربي الحالي",p,255,255,0,true) elseif tostring(getElementData(resourceRoot,"map")) == "no" then outputChatBox("انتظر ريثما يبدأ الديربي",p,255,255,0,true) end return tostring(getElementData(resourceRoot,"map")) end function checkExistPlrOnDuel(p) per = getElementData(p,"onCrossMap") if tostring(per) == "yes" then return true else return false end end function setData(element,key,vlr) setElementData(element,key,vlr) end function setD(element) setElementDimension(element,30) end function spawnOnMap(p) count = countPlayersOnDerby() spawned = "no" for i,data in pairs(spawns)do if tonumber(data.id) == tonumber(count) then spawned = "yes" v = createVehicle(411,data.x,data.y,data.z,data.rx,data.ry,data.rz) setElementDimension(v,30) setElementFrozen(v,true) setElementData(v,"creatorDerby","yes") break end end if spawned == "no" then randomS = math.random("1","32") for i,data in pairs(spawns)do if tonumber(data.id) == tonumber(randomS) then v = createVehicle(411,data.x,data.y,data.z,data.rx,data.ry,data.rz) setElementDimension(v,30) setElementFrozen(v,true) setElementData(v,"creatorDerby","yes") break end end end toggleControl(p,"enter_exit", false ) warpPedIntoVehicle(p,v) setCameraTarget(p,p) end function countPlayersOnDerby() c = -1 for i,p in pairs(getElementsByType("player"))do if checkExistPlrOnDuel(p) then c = c+1 end end return tonumber(c) end function eventCheck () if checkExistPlrOnDuel(source) then toggleControl(source,"enter_exit",true ) setData(source,"onCrossMap","no") checkEnd() end end addEventHandler("onPlayerWasted",getRootElement(),eventCheck) addEventHandler("onPlayerQuit",getRootElement(),eventCheck) addEventHandler("onPlayerJoin",getRootElement(),function() setData(source,"onCrossMap","no") end) for i,p in pairs(getElementsByType("player"))do setData(p,"onCrossMap","no") end function checkEnd() c = 0 for i,p in pairs(getElementsByType("player"))do if checkExistPlrOnDuel(p) then c = c+1 winner = p end end if tonumber(c) == 1 then givePlayerMoney(winner,tonumber(getElementData(resourceRoot,"winMoney"))) n = string.gsub(getPlayerName(winner), "#%x%x%x%x%x%x", "") outputChatBox("#00FF00[" .. n .. "]#FFFF00 Won the Derby and win#00FF00[" .. tonumber(getElementData(resourceRoot,"winMoney")) .. "$]",getRootElement(),255,255,0,true) setElementData(resourceRoot,"map","no") endDerby() setTimer(newDuel,30000,1) end end function newDuel() for i,p in pairs(getElementsByType("player"))do setData(p,"onCrossMap","no") end setElementData(resourceRoot,"map","prestart") outputChatBox("للدخول الى الدريبي اكتب في الشات , ديربي ",getRootElement(),255,255,0,true) RMoney = math.random("50000","300000") setElementData(resourceRoot,"winMoney",tonumber(RMoney)) outputChatBox("سيحصل الفائز في الديربي على " .. RMoney .. "$",getRootElement(),0,255,0,true) setTimer(checkPlrs,30000,1) end function checkPlrs () c = 0 for i,p in pairs(getElementsByType("player"))do if checkExistPlrOnDuel(p) then c = c+1 end end if tonumber(c) > 1 then setElementData(resourceRoot,"map","yes") for i,p in pairs(getElementsByType("player"))do if checkExistPlrOnDuel(p) then setElementCollisionsEnabled(getPedOccupiedVehicle(p),true) outputChatBox("لقد بدأ الديربي , يمكنك الانطلاق",p,0,255,0,true) setElementFrozen(getPedOccupiedVehicle(p),false) end end else endDerby() setElementData(resourceRoot,"map","no") outputChatBox("! لم يبدأ الديربي لعدم توفر الاعبين",getRootElement(),255,255,0,true) setTimer(newDuel,60000,1) end end setTimer(newDuel,3000,1) function onStartLoadSpawns () file = fileOpen("map.map") localFile = fileOpen("map.xml") fileWrite(localFile,"") data = fileRead(file,999999) fileWrite(localFile,data) fileClose(localFile) xml = xmlLoadFile("map.xml") c = 0 for i,data in pairs(xmlNodeGetChildren(xml)) do if xmlNodeGetName(data) == "spawnpoint" then c = c+1 v,xx,yy,zz,rxx,ryy,rzz = xmlNodeGetAttribute(data,"vehicle"),xmlNodeGetAttribute(data,"posX"),xmlNodeGetAttribute(data,"posY"),xmlNodeGetAttribute(data,"posZ"),xmlNodeGetAttribute(data,"rotX"),xmlNodeGetAttribute(data,"rotY"),xmlNodeGetAttribute(data,"rotZ") table.insert(spawns,{id = c,model = v,x = xx,y = yy,z = zz,rx = rxx,ry = ryy,rz = rzz}) end end for i,data in pairs(xmlNodeGetChildren(xml)) do if xmlNodeGetName(data) == "object" then m,xx,yy,zz,rxx,ryy,rzz = xmlNodeGetAttribute(data,"model"),xmlNodeGetAttribute(data,"posX"),xmlNodeGetAttribute(data,"posY"),xmlNodeGetAttribute(data,"posZ"),xmlNodeGetAttribute(data,"rotX"),xmlNodeGetAttribute(data,"rotY"),xmlNodeGetAttribute(data,"rotZ") object = createObject(m,xx,yy,zz,rxx,ryy,rzz) setElementDimension(object,30) end end end setTimer(onStartLoadSpawns,3000,1) function endDerby() for i,p in pairs(getElementsByType("player"))do if checkExistPlrOnDuel(p) then killPed(p) end end for i,v in pairs(getElementsByType("vehicle"))do if getElementData(v,"creatorDerby") then destroyElement(v) end end end setTimer(function() for i,p in pairs(getElementsByType("player"))do sea(p) resetHan(p) checkVeh(p) checkModel(p) end end,1000,0) outputChatBox("#FFFF00*******Derby mod Start#00FF00}*******",getRootElement(),255,255,0,true) function sea(p) if checkExistPlrOnDuel(p) then x,y,z = getElementPosition(p) if tonumber(z) <= 0 then killPed(p) end end end function checkVeh(p) if (tonumber(getElementDimension(p)) == 30) and not (isPedInVehicle(p))then killPed(p) end end function resetHan(p) if checkExistPlrOnDuel(p) then setVehicleHandling (getPedOccupiedVehicle(p), true ) end end function checkModel(p) if checkExistPlrOnDuel(p) and isPedInVehicle(p) then if tonumber(getElementModel(getPedOccupiedVehicle(p))) ~= 411 then killPed(p) end end end شكراً
  3. نـفـس الـشئ !!ضفت اكودك , ومشكلة موجودة & Debug Script WARNING: LOGIN\loginC.lua:12: Bad argument @'guiSetInputEnbled' [Expected bool at argument 1,got gui-window]
  4. السلام عليكم , كيف الحال؟ #عيد_سعيد شباب اريد مساعدةة في لوحة تسجيل الدخول لوحة تشتغل تمام ! مشكلة T,Yاذا انت اسم حسابك بة حرف تكتب اسم حسابك تشوف نفسك تكتب في شات اذا انت مسوي كلمة سر ارقام ! و مسوي الارقام بيها اختصار !! = من تكتب كلمة السر >> الاختصارات تطلع في شات ويصير تخريب سـيـرفـر -- My Login Panel :D function interfaz( ) local components = { "weapon", "ammo", "health", "clock", "money", "breath", "armour", "wanted", "radar" } for _, component in ipairs( components ) do setPlayerHudComponentVisible( component, false ) end local x, y = guiGetScreenSize( ) showCursor( true ) main = guiCreateWindow( x/3.8, y/3.8, x/2.02, y/2, "Login Panel", false ) guiWindowSetMovable( main, false) guiWindowSetSizable( main, false) guiCreateLabel( x/10, y/8, x/4, y/4, "Username:", false, main) guiCreateLabel( x/10, y/5, x/4, y/4, "Password:", false, main) loginU = guiCreateEdit( x/8, y/6.8, x/5, y/24, "", false, main) loginP = guiCreateEdit( x/8, y/4.5, x/5, y/24, "", false, main) guiEditSetMasked( loginP, true ) guiEditSetMaxLength( loginU, 10 ) guiEditSetMaxLength( loginP, 10 ) btnL = guiCreateButton( x/8, y/3.5, x/10, x/20, "Login", false, main) btnR = guiCreateButton( x/4, y/3.5, x/10, x/20, "Register", false, main) addEventHandler ("onClientGUIClick", btnL, function (us, pa) local us = guiGetText (loginU) local pa = guiGetText (loginP) triggerServerEvent ("loggin", getRootElement(), getLocalPlayer(), us, pa) end, false ) addEventHandler ("onClientGUIClick", btnR, function (us, pa) local us = guiGetText (loginU) local pa = guiGetText (loginP) triggerServerEvent ("register", getRootElement(), getLocalPlayer(), us, pa) end, false ) end addEventHandler ( "onClientResourceStart", getResourceRootElement(getThisResource()), interfaz ) function hideW () local components = { "weapon", "ammo", "health", "clock", "money", "breath", "armour", "wanted", "radar" } for _, component in ipairs( components ) do setPlayerHudComponentVisible( component, true ) end showCursor (false) guiSetVisible (main, false) end addEvent ("Succes", true) addEventHandler ("Succes", getRootElement(), hideW) كـلـيـنـت function submitLogin (source, user, pass) if (user ~= "") then if (pass ~= "") then local acc = getAccount (user, pass) if (acc ~= false) then logIn (source, acc, pass) outputChatBox ("You logged in successfully.") triggerClientEvent (source, "Succes", source) else outputChatBox ("Wrong username or password, please try again!", getRootElement(), 255, 255, 255, false) end else outputChatBox ("Password can not be blank.", getRootElement(), 255, 255, 255, false) end else outputChatBox ("Username can not be blank.", getRootElement(), 255, 255, 255, false) end end addEvent ("loggin", true) addEventHandler ("loggin", getRootElement(), submitLogin) addEvent ("register", true) addEventHandler ("register", getRootElement(), function (source, Nuser, Npass) if (Nuser ~= "" and Nuser ~= nil and Npass ~= "" and Npass ~= nil) then local Nacc = addAccount (Nuser, Npass) if Nacc then outputChatBox ("You have successfully registered, now try logging in.", getRootElement(), 255, 255, 255) else outputChatBox ("this account already has been created.", getRootElement(), 255, 255, 255) end end end ) سـاعـدوني في حل هذة مشكلة رجاء رجاء شكراً
  5. خخخخ, أعـرف ان اروح الاسل و اغير اسم رتبـة !! ومشكلة رآح يـتـم حالـهـا بس انا لا اريد هذا الحل !! انا اريد يتحقق من رتـب حتي اذا 2 كلمة عربي ويوجود مسـافـة
  6. اذا اسوي مراقب.سيرفر = لازم تكون في الاسل نفس الاسم !!! انا مسوي في الاسل مراقب السيرفر ومن ضفت في الكود بنفس الاسم= مثل موجود بالاسل مايسوي التحقق!! فقط يسوي تحقق اذا اسم عربي 1 كلمة اذا عربي 2 كلمة لا يتحقق
  7. السلآم عليكم كـود فك ميوت فقط بعض رتـب تقدر تفك ميوت ألـكـود local allowedGroups = { ["Console"] = true, ["مشرف"] = true, ["مراقب السيرفر"] = true, } function hasNoPermissionToUnmute() local groups_s = aPlayers[localPlayer]["groups"] local groups_t = (type(groups_s) == "string" and groups_s ~= "None") and split(groups_s, ", ") if groups_t then for k, v in ipairs(groups_t) do if disallowedGroups[v] then return true end end end return false end مشكلة الان في هذا الكود ^^ رتـبـة مشـرف تـقـدر تفـك ميـوت ! رتـبـة مـراقـب السيـرفر ! لا تقدر تفك ميوت !؟ كيف احل هذه مشكلة؟؟ اذا اسم رتبة عربي ! اذا كلمة 1 يقدر يفك اذا 2 اسم عربي لا يقدر يفك أتمني تساعدوني شكراً
  8. ???????????????؟؟؟؟؟؟؟؟؟؟؟؟
  9. مساعدة , شباب
  10. السلآم عليكم, كيف الحال؟ مـود مرقبة سرعة سيارات,, اذا سيارة سريعة يأخذ فلوس ,,, المود اشغلة يطلع هذه الأخطاء كلها !! رجاء احد يساعدني الأخـطـاء WARNING: radar_sistem\s.lua:21: Bad argument @ 'createMarker' [Expected number at argument 2, got boolean] WARNING: radar_sistem\s.lua:22: Bad argument @ 'setElementData' [Expected element at argument 1, got boolean] WARNING: radar_sistem\s.lua:23: Bad argument @ 'setElementData' [Expected element at argument 1, got boolean] WARNING: radar_sistem\s.lua:24: Bad argument @ 'setElementData' [Expected element at argument 1, got boolean] WARNING: radar_sistem\s.lua:25: Bad argument @ 'setElementData' [Expected element at argument 1, got boolean] WARNING: radar_sistem\s.lua:26: Bad argument @ 'setElementData' [Expected element at argument 1, got boolean] WARNING: radar_sistem\s.lua:27: Bad argument @ 'setElementData' [Expected element at argument 1, got boolean] WARNING: radar_sistem\s.lua:28: Bad argument @ 'setElementData' [Expected element at argument 1, got boolean] WARNING: radar_sistem\s.lua:29: Bad argument @ 'getElementData' [Expected element at argument 1, got boolean] WARNING: radar_sistem\s.lua:30: Bad argument @ 'addEventHandler' [Expected element at argument 2, got boolean] WARNING: radar_sistem\s.lua:48: Bad argument @ 'getElementType' [Expected element at argument 1, got boolean] ألـكــود --Server enableBlips = get("enableSpeedcamBlips") thisResource = getResourceRootElement(getThisResource()) function createSpeedFunc() local speedcams = getElementsByType ("speedcam", resourceRoot) num=0 id=0 speedcam = { } speedBlip = { } speedID = { } for key,val in ipairs(speedcams) do num=num+1 id=id+1 speedX = getElementData(val, "x") speedY = getElementData(val, "y") speedZ = getElementData(val, "z") size = getElementData(val, "size") ticketCost = getElementData(val, "ticketCost") requiredSpeed = getElementData(val, "requiredSpeed") speedcam[num] = createMarker (speedX, speedY, speedZ, "cylinder", size, 255, 200, 0, 0, root) setElementData(speedcam[num], "id", tonumber(id), true) setElementData(speedcam[num], "speedcam", speedcam[num]) setElementData(speedcam[num], "x", speedX) setElementData(speedcam[num], "y", speedY) setElementData(speedcam[num], "z", speedZ) setElementData(speedcam[num], "ticketCost", ticketCost) setElementData(speedcam[num], "requiredSpeed", requiredSpeed) speedcamData = getElementData(speedcam[num], "speedcam") addEventHandler("onMarkerHit", speedcamData, triggerFlash:~) if enableBlips == "true" then for m,n in ipairs(speedcam) do local blip = createBlip(speedX, speedY, speedZ, 0, 1, 255, 0, 0, 255, 0, 70, getRootElement()) setBlipVisibleDistance(blip, 200) end end end local players = getElementsByType("player") for theKey, thePlayer in ipairs(players) do outputChatBox("!!!!"..tonumber(id).." !!!!", thePlayer, 255, 200, 0, false) end end addEventHandler("onResourceStart", resourceRoot, createSpeedFunc) function triggerFlash:~(hitElement) if (getElementType(hitElement) == "player" ) then local vehicle = getPedOccupiedVehicle(hitElement) if (getElementType(vehicle) == "vehicle" ) then local driver = getVehicleOccupant ( vehicle ) if (driver) then local speedx, speedy, speedz = getElementVelocity(vehicle) local cX, cY, cZ = getElementPosition(vehicle) local playerAcc = getPlayerAccount(hitElement) local pWanted = getPlayerWantedLevel(hitElement) local pMoney = getPlayerMoney(hitElement) actualSpeed = (speedx^2 + speedy^2 + speedz^2)^(0.5) mph = math.floor(actualSpeed * 111.847) if (mph >= tonumber(requiredSpeed) ) and (getPlayerWantedLevel(hitElement) <=6 ) then if (pMoney >= tonumber(ticketCost) ) then outputChatBox("!!!!!!"..requiredSpeed.." Km/h)", hitElement, 255, 200, 0, false) outputChatBox("!!!!: "..mph.." Km/h", hitElement, 255, 200, 0, false) outputChatBox("!! "..ticketCost.."$", hitElement, 255, 200, 0, false) setTimer(triggerClientEvent, 100, 1, "showPicture", hitElement) takePlayerMoney(hitElement, tonumber(ticketCost)) fadeCamera(hitElement, false, 0.5, 255, 255, 255) setTimer(fadeCamera, 100, 1, hitElement, true, 1.0, 255, 255, 255) elseif (pMoney <=tonumber(ticketCost) ) and (getPlayerWantedLevel(hitElement) <=6 ) then setPlayerWantedLevel(hitElement, math.min(6, getPlayerWantedLevel(hitElement) + 2)) setTimer(triggerClientEvent, 100, 1, "showPicture", hitElement) outputChatBox(" !!! "..requiredSpeed.." Km/h)", hitElement, 255, 200, 0, false) outputChatBox("! : "..mph.." Km/h", hitElement, 255, 200, 0, false) outputChatBox("!!!!!!!!!!", hitElement, 255, 0, 0, false) outputChatBox("!! : "..ticketCost.."$", hitElement, 255, 0, 0, false) outputChatBox("!!: "..getPlayerMoney(hitElement).."$", hitElement, 255, 0, 0, false) fadeCamera(hitElement, false, 0.5, 255, 255, 255) setTimer(fadeCamera, 100, 1, hitElement, true, 1.0, 255, 255, 255) end end end else return end end end
  11. بس أريــد كـود اذا يدخـل ماركـر اخـر !! = يطردة من تـيـم يعني اذا هو تيـم 1 او 2 او 3 او الخخخ = يسوي اللاعب بدون تيم Quot
  12. آسـف , اسف حصل خطاء من عندي انا ! عاشيـت ايدك أخـي ,, كفووؤؤؤ بس أريــد كـود اذا يدخـل ماركـر اخـر !! = يطردة من تـيـم يعني اذا هو تيـم 1 او 2 او 3 او الخخخ = يسوي اللاعب بدون تيم
  13. خطاء !! لا يعمل !! انا مسوي ماركر تدخلة يعطيك أسلحة ويدخلك تيم !! لابعد إضافة كود خاص بيك لا يعطني أسلحة ولا يدخلني التيم !!!
  14. اوك,, تجربة ___________ هذا الكود addEventHandler("onMarkerHit",root, function(player) if (source == EnterMarker1) then setPedArmor(player,100) outputChatBox("تم دخول التيم",player,0,0,0, true) setPedSkin(player,176 ) giveWeapon( player, 34, 9999 ) end end end) بعد الاضافة Teams = {'Team1' , 'Team2', 'Team3'} for _ , v in ipairs ( Teams ) do setTeamFriendlyFire ( createTeam ( v , 255 , 255 , 255 ) , false ) end addEventHandler("onMarkerHit",root, function(player) if (source == EnterMarker1) then setPlayerTeam ( source, Team1 ) setPedArmor(player,100) outputChatBox("تم دخول التيم",player,0,0,0, true) setPedSkin(player,176 ) giveWeapon( player, 34, 9999 ) end end end) ماضبطط ^^^ ليش