Jump to content

ivor

Members
  • Posts

    575
  • Joined

  • Last visited

Everything posted by ivor

  1. اخوي كانت لما اضغط اي زر ييكرر الكلمة كتير بالشات وماينطرد و كنت تضغط اي زر تظهر بالشات
  2. كودكك كان به بق وصلحتة انه لما يكرر الكلمة 4 مرات تتكرر بالشات 4 مرات كلمة Please Wait
  3. مود الجولد ما به شي صعب كله set / get ElementData يب ادري اخوي بس في ناس مبتدأين وكذا ويبونة ف انا اقولهم يعنى بالتوفيق , ألقادم إفضل ان شاء الله
  4. سويتةة كلينت وعدلت عليه بطريقتي Numper = 0 local Commands = { } addEventHandler('onPlayerCommand',root, function ( text ) if ( Commands [ text ] == true ) then Numper = ( Numper or 0 ) + 1 if ( Numper ) and ( Numper >= 5 ) then triggerServerEvent ( "Kick", localPlayer , Numper ) end end end ) ;
  5. اوك شكرآ اخوي بعدل عليه وبشوفة بيطرد اللاعب وكذا , سيرفر ام كلينت اخي ؟
  6. بضيف لك شي جديد +1 مود الكوينز للي يحتاجةة طبعآ الجولد انت تصنعه او تخلي صديقك ء يصنعة للزائر والعضو الرابط http://up.top4top.net/downloadf-42wub51-zip.html
  7. ما شاء الله فكرة جميلة وتصميم انيق وجميل جدآ بالتوفيق اخي استمر , لا توقف افكارك
  8. الله يشفي العقول :] يعنى تقول كلام ع قد عقلكك ؟ تراني مب قولت ان في المنتدي خدامين في ناس محترفين وبيساعدون + خلك في نفسكك ء اذا كنت تبي تساعد ام لا :]
  9. صاحب الموضوع ذا الى يقول انه سوي لي المود ولكن هاد معي انا ابي لو كرر كلمة في اف8 ياخذ كيك لو كررها 5 مرات او بعدل عليها
  10. اخوي ماحدا قال لك اولا انك تبرمج لي شي :] ثاني شئ انا معي مود Anti Tap Spam لما يكرر الظغطة ياخذ طرد وتظهر بالشات يعنى لا تزود مشاركات :]
  11. السلام عليكم شباب للي يقدر يسوية بدي مود Anti CMD Spam المطور الى عند تكرارك كلمة مثلآ kill في اف8 تنطرد بالشات وعند تكرارك نفسه الظغطة يصكك يعنى بكرر زر تاب 10 او 5 مرات يصكني كيك مثال للتكرار بأف 8 (Anti-CMD-Spam) تم طرد اللاعب .. نك اللاعب .. لتكرارة السريع في اف8 تكرار الظغطة (Anti-Gui-Spam) تم طرد اللاعب .. نك اللاعب .. لتكرارة السريع وشكرآ مقدمآ
  12. كفؤؤ نفعت الطريقة تمت الافادة
  13. اخوي لو ابيه يخرج بالشات اسم اللاعب كذا بالمود يعنى احط كذا ؟ return outputChatBox ( "[Gta-AW] Login First " ..getPlayerName.. " To Type In Chat ", 255, 255, 0, true )
  14. مود التاج chat كامل --***********************************-- --***********************************-- -- --***********************************-- --***********************************-- -- outputDebugString("Gta Arab Way Chat System | Started") -- rRoot = getResourceRootElement(getThisResource()) -- ANTI_FLOOD = true -- Enable anti flood ?. ANTI_REPEAT = true -- Enable anti repeat ?. ANTI_FLOOD_TIME = 5 * 1000 -- Anti flood time in miliseconds . MUTE_PLAYERS = true -- Mute players if they flooded too much ? . MAX_FLOOD_TIMES = 10 -- Max flood times. MUTE_TIME = 10 * 60 * 1000 -- Time to mute player if he flooded too much. ADMIN_SOUND = 1 -- Play sound if admin talked ( set to false to disable ) . -- lastChatMessage = {} chatTime = {} chatTimers = {} floodTimes = {} muteTimers = {} -- TAGS = { -- Tag Group | Tag | Tag Message Color | Anti Flood for Group | Play sound on talk | Anti flood time {"Console", "#FF0000* #f3f781[Manager]","#81bef7",false,true}, {"Leader", "#FF0000* #FF0033[Head Admin]","#FFFA54",true,false,9*1000}, {"Big-Admin", "#FF0000* #FF0033[HeadAdmin]","#FFFA54",true,false,9*1000}, {"Msabah", "#FF0000* #00C4FF[OwnerTs3]","#FFFA54",true,false,9*1000}, {"Admin", "#FF0000* #DC143C[Admin]","#FFFA54",true,false,9*1000}, {"VIP", "#FF0000* #FFCD00[VIP]","#FFFA54",true,false,6*1000}, {"Support", "#FF0000* #ff00ff[support]","#FFFA54",true,false,6*1000}, {"LVL1", "#FF0000* #A5A5A5[Arab|1|Com]","#FFFA54",true,false,9*1000}, {"LVL2", "#FF0000* #A5A5A5[Arab|2|Com]","#FFFA54",true,false,9*1000}, {"LVL3", "#FF0000* #A5A5A5[Arab|3|Com]","#FFFA54",true,false,9*1000}, {"LVL4", "#FF0000* #A5A5A5[Arab|4|Com]","#FFFA54",true,false,9*1000}, {"LVL5", "#FF0000* #A5A5A5[Arab|5|Com]","#FFFA54",true,false,9*1000} } -- function logMessage(text,player) if text and player then text = string.gsub(text, '#%x%x%x%x%x%x', '') local log = fileOpen("ChatLog.log") or fileCreate("ChatLog.log") -- if log then fileSetPos(log,fileGetSize(log)) fileWrite(log,"\r\n",text) fileFlush(log) fileClose(log) end end end -- function isInGroup(p,Group) if p and Group then local pAcc = getPlayerAccount(p) if pAcc and isGuestAccount(pAcc) ~= true then -- local g = aclGetGroup (tostring(Group)) if not g then return false end -- local pAccName = getAccountName(pAcc) if isObjectInACLGroup ("user."..pAccName,g) then return true else return false end -- else return false end end end -- function getFixedName(player) if isElement(player) then local hisName = getPlayerName(player) if hisName then result = string.gsub(hisName, '#%x%x%x%x%x%x', '') if result then return result end end else outputDebugString("ERROR : Bad Player at getFixedName !") end end -- function RGBToHex(red, green, blue, alpha) if((red < 0 or red > 255 or green < 0 or green > 255 or blue < 0 or blue > 255) or (alpha and (alpha < 0 or alpha > 255))) then return nil end if(alpha) then return string.format("#%.2X%.2X%.2X%.2X", red,green,blue,alpha) else return string.format("#%.2X%.2X%.2X", red,green,blue) end end -- addEvent("onPlayerChat",true) addEventHandler("onPlayerChat",root,function ( Text,msgtype ) cancelEvent() if ANTI_FLOOD then if getElementData(source,"TagFlood") == true or getElementData(source,"TagFlood") == nil or tonumber(getElementData(source,"TagFlood")) then if chatTime[source] then if MUTE_PLAYERS then if tonumber(floodTimes[source]) >= tonumber(MAX_FLOOD_TIMES) then mutePlr(source,msgtype) return end end local time,_,__ = getTimerDetails(chatTimers[source]) outputChatBox("Stop spamming chat!, wait "..math.floor(time/1000,2).." seconds.", source, 255, 0, 0) floodTimes[source] = tonumber(floodTimes[source]) + 1 cancelEvent() return end if ANTI_REPEAT and lastChatMessage[source] and lastChatMessage[source] == Text then outputChatBox("Stop repeating yourself!", source, 255, 0, 0) cancelEvent() return else lastChatMessage[source] = Text end end end msgTag = nil for k,v in ipairs ( TAGS ) do if not msgTag then local Group,Tag,Color,Flood = v[1],v[2],v[3],v[4] if isInGroup(source,Group) then msgTag = Tag msgColor = v[3] msgFlood = v[4] msgSound = v[5] msgFloodTime = v[6] setElementData(source,"TagFlood",msgFlood) setElementData(source,"TagSound",msgSound) setElementData(source,"TagFloodTime",msgFloodTime) end r,g,b = getPlayerNametagColor(source) hex = RGBToHex(r,g,b) or "#FFFFFF" end end --- local time = getRealTime() local second,minute,hour,day,month,year = time.second,time.minute,time.hour,time.monthday ,time.month + 1,time.year + 1900 if hour <= 0 then x = "AM" else x = "PM" end hour = math.floor(hour / 12) if hour == 0 then hour = "12" end -- chatTime[source] = true floodTimes[source] = 0 if getElementData(source,"TagFloodTime") then t = getElementData(source,"TagFloodTime") else t = ANTI_FLOOD_TIME end chatTimers[source] = setTimer(function(p) chatTime[p] = nil chatTimers[p] = nil end , t , 1 ,source) -- if msgtype == 0 then if msgTag then outputChatBox( ""..msgTag.." "..hex..""..getFixedName(source).." "..msgColor..": "..string.gsub(Text, '#%x%x%x%x%x%x', '').."",root,255,0,0,true) logMessage( "["..math.floor(hour)..":"..minute..":"..second..""..tostring(x).." "..day.."/"..month.."/"..year.."] "..msgTag.." [ "..getFixedName(source).." ] : "..string.gsub(Text, '#%x%x%x%x%x%x', '').."",source) if ADMIN_SOUND ~= false then if getElementData(source,"TagSound") == true then playSoundFrontEnd(root,tonumber(ADMIN_SOUND)) end end else setElementData(source,"TagFlood",true) setElementData(source,"TagSound",false) setElementData(source,"TagFloodTime",nil) outputChatBox( ""..hex..""..getFixedName(source).." #FFFFFF: "..string.gsub(Text, '#%x%x%x%x%x%x', '').."",root,255,255,255,true) logMessage( "["..math.floor(hour)..":"..minute..":"..second..""..tostring(x).." "..day.."/"..month.."/"..year.."] [ "..getFixedName(source).." ] : "..string.gsub(Text, '#%x%x%x%x%x%x', '').."",source) end elseif msgtype == 2 then for k,v in ipairs ( getElementsByType("player") ) do if getPlayerTeam(v) == getPlayerTeam(source) then if msgTag then outputChatBox( "(Team) "..msgTag.." "..hex..""..getFixedName(source).." "..msgColor..": "..string.gsub(Text, '#%x%x%x%x%x%x', '').."",v,255,0,0,true) if ADMIN_SOUND ~= false then if getElementData(source,"TagSound") == true then playSoundFrontEnd(v,tonumber(ADMIN_SOUND)) end end else setElementData(source,"TagFlood",true) setElementData(source,"TagFloodTime",nil) setElementData(source,"TagSound",false) outputChatBox( "(Team) "..hex..""..getFixedName(source).." #FFFFFF: "..string.gsub(Text, '#%x%x%x%x%x%x', '').."",v,255,255,255,true) end end end if msgTag then logMessage( "["..math.floor(hour)..":"..minute..":"..second..""..tostring(x).." "..day.."/"..month.."/"..year.."] ("..getTeamName(getPlayerTeam(source))..") "..msgTag.." [ "..getFixedName(source).." ] : "..string.gsub(Text, '#%x%x%x%x%x%x', '').."",source) else logMessage( "["..math.floor(hour)..":"..minute..":"..second..""..tostring(x).." "..day.."/"..month.."/"..year.."] ("..getTeamName(getPlayerTeam(source))..") [ "..getFixedName(source).." ] : "..string.gsub(Text, '#%x%x%x%x%x%x', '').."",source) end end end ) function mutePlr(p,t) if p then if isPlayerMuted(p) ~= true then if t == 0 then x = "main" elseif t == 2 then x = "team" end setPlayerMuted(p,true) outputChatBox("* (ANTI FLOOD) #FFFFFF"..string.gsub(getPlayerName(p), '#%x%x%x%x%x%x', '').." #FF0000have been muted for "..math.floor(MUTE_TIME/1000/60).." minutes for flooding "..x.." chat.",root,255,0,0,true) muteTimers[p] = setTimer ( function ( p ) setPlayerMuted(p,false) outputChatBox("You have been unmuted, please don't flood the chat again !",p,255,0,0,true) end , MUTE_TIME , 1 ,p ) end end end --[[ serialMute = {} addEventHandler("onPlayerQuit",root,function() if muteTimers[source] then local serial = getPlayerSerial(source) local time = getTimerDetails(muteTimers[source]) serialMute[serial] = time killTimer(muteTimers[source]) end -- lastChatMessage[source] = nil chatTime[source] = nil chatTimers[source] = nil floodTimes[source] = nil muteTimers[source] = nil end ) addEventHandler("onPlayerJoin",root,function() local serial = getPlayerSerial(source) if serialMute[serial] then setPlayerMuted(source,true) outputChatBox("* (ANTI FLOOD) You have been muted for "..math.floor(serialMute[serial]/1000/60).." minutes for flooding.",source,255,0,0,true) muteTimers[p] = setTimer ( function ( source ) setPlayerMuted(p,false) outputChatBox("You have been unmuted, please don't flood the chat again !",p,255,0,0,true) end , serialMute[serial] , 1 ,source ) serialMute[serial] = nil end end ) --]] LOCAL_CHAT = true -- enable local chat LOCAL_CHAT_DIS = 30 -- Local chat distance LOCAL_CHAT_FLOOD = 5 * 1000 -- Anti flood time ( set to false to disable ) LC_FLOOD = {} LC_FLOOD_T = {}
  15. وضعت الكود في مود التاج ومانفعت
  16. شباب الحين معي مود عند دخول اللاعب الى السيرفر لا يتكلم بالشات الا لما يسجل ولكن اللاعب يدخل السيرفر ويتكلم عادي وتظهر له الكلمة ويتكلم عادى هاد الكود addEventHandler("onPlayerChat", root, function ( ) if ( isGuestAccount ( getPlayerAccount ( source ) ) ) then cancelEvent ( ) outputChatBox ( "[Gta-AW] Login First !!", source, 255, 255, 0, true ) end end) لين الحين جالس اعدل عليه مشان يشتغل ملحوظة سيرفري حرب عصابات
  17. طيب وش اعمل يعنى شو الحل ؟؟؟؟ استخدم التحقق من الرتبه بدلا من التحقق من الداتا ذي الفنكشنات الى راح تستخدمها getAccountName getPlayerAccount aclGetGroup isObjectInACLGroup مب اعرف اخي ضض
  18. طيب وش اعمل يعنى شو الحل ؟؟؟؟
  19. VIP_server.lua local theVehicle = {} local latestSpawn = {} local latestGetArmor = {} local latestGetSkin = {} local latestGetMonture = {} local latestHideAnimal = {} local latestHideVehilces = {} local latestUseHats = {} local theTimer = {} local hatObjects = {} local timers = {} function getPremiumHoursToString ( thePlayer ) if ( isElement( thePlayer ) ) then local userID = getElementData( thePlayer, "accountUserID" ) if getElementData(thePlayer, "isPlayerVIP" ) then local premiumData = exports.TNSmysql:querySingle( "SELECT * FROM premium WHERE id=?", userID ) if ( premiumData ) and ( premiumData.premium ) then if ( premiumData.premium < 60 ) then return ""..premiumData.premium.." minutes" else local premiumtime = math.floor(premiumData.premium/60) if( premiumtime == 1 ) then return ""..premiumtime.." hour" else return ""..premiumtime.." hours" end end else return false end else return false end else return false end end addEvent( "OnClientGetPreminumTime", true ) addEventHandler( "OnClientGetPreminumTime", root, function () local GetTime = getPremiumHoursToString ( source ) or "N/A" triggerClientEvent( source, "OpenVIPanel", source, GetTime ) end ) function updatetheVipTimeForAllPlayers () for index , player in ipairs ( getElementsByType ( "player" ) ) do if not isGuestAccount ( getPlayerAccount ( player ) ) then if getElementData(player, "isPlayerVIP") then if (getPlayerIdleTime( player ) < 600000) then local playerID = exports.TNS:playerID( player ) local premiumData = exports.TNSmysql:querySingle( "SELECT * FROM premium WHERE id = ?",playerID ) if premiumData.premium > 4 then convertedTime = premiumData.premium - 5 elseif premiumData.premium == 4 then convertedTime = premiumData.premium - 4 elseif premiumData.premium == 3 then convertedTime = premiumData.premium - 3 elseif premiumData.premium == 2 then convertedTime = premiumData.premium - 2 elseif premiumData.premium == 1 then convertedTime = premiumData.premium - 1 end if convertedTime == 0 then setElementData(player, "isPlayerVIP", false) setElementData(player, "vip", "No") end local updateViptime = exports.TNSmysql:exec("UPDATE premium SET premium=? WHERE id = '" .. playerID .. "'" ,tonumber(convertedTime) ) end end end end end setTimer ( updatetheVipTimeForAllPlayers , 600000, 0 ) addEvent( "onClientSpawnVIPvehicles", true ) addEventHandler( "onClientSpawnVIPvehicles", root, function () if not isGuestAccount ( getPlayerAccount ( source ) ) then if getElementData(source, "isPlayerVIP") and ( getElementInterior(source) == 0 ) then if not ( getElementData ( source, "isPlayerJailed" ) ) and not ( getElementData ( source, "isPlayerArrested" ) ) then if ( latestSpawn[getPlayerSerial(source)] ) and ( getTickCount()-latestSpawn[getPlayerSerial(source)] < 30000 ) then -- exports.TNSDxChatBox:CreatDxChatBoxForPlayer(thePlayer, "You can only use this feature once every 30 seconds!", 225, 255, 0) local wantedLvl = getPlayerWantedLevel (source) elseif ( getElementData( source, "wantedPoints" ) > 1000 ) then exports.TNSDxChatBox:CreatDxChatBoxForPlayer(source, "You are wanted, You can't take VIP car!", 225, 0, 0) else if not ( isPedInVehicle(source) ) then if ( isElement( theVehicle[source] ) ) then destroyElement( theVehicle[source] ) end latestSpawn[getPlayerSerial(source)] = getTickCount() local x, y, z = getElementPosition(source) local rx, ry, rz = getElementRotation(source) theVehicle[source] = createVehicle( 517, x+2, y+2, z+1, rx, ry, rz, "VIP" ) --warpPedIntoVehicle(thePlayer, theVehicle[thePlayer]) setElementData(theVehicle[source], "vehicleType", "vipCar") setElementData(theVehicle[source], "vehicleOwner", source) local handlingTable = getVehicleHandling ( theVehicle[source] ) local newVelocity = ( handlingTable["maxVelocity"] + ( handlingTable["maxVelocity"] / 100 * 22 ) ) setVehicleHandling ( theVehicle[source], "numberOfGears", 3 ) setVehicleHandling ( theVehicle[source], "driveType", 'awd' ) setVehicleHandling ( theVehicle[source], "maxVelocity", newVelocity ) setVehicleHandling ( theVehicle[source], "engineAcceleration", handlingTable["engineAcceleration"] +5 ) triggerClientEvent ( source, "CloseVIPanel", getRootElement()) end end end end end end) addEventHandler ( "onPlayerQuit", root, function() if ( isElement( theVehicle[source] ) ) then destroyElement( theVehicle[source] ) theVehicle[source] = nil end end ) addEventHandler("onVehicleExplode", root, function () if ( getElementData(source, "vehicleType") == "vipCar" ) then local theOwner = getElementData(source, "vehicleOwner") theTimer[theOwner] = setTimer(destroyVehicle, 2000, 1, source, theOwner) end end ) addEventHandler("onVehicleStartEnter", root, function ( player, seat, jacked ) if ( getElementData(source, "vehicleType") == "vipCar" ) and ( seat == 0 ) then local wanted = getPlayerWantedLevel ( player ) if ( wanted == 0 ) then if ( player ~= getElementData(source, "vehicleOwner") ) then cancelEvent() end end end end ) function currentZone(player) local x, y, z = getElementPosition(player) if x < -920 then return "SF" elseif y < 420 then return "LS" else return "LV" end end addEvent('onClientGivJetPackPlayer', true) addEventHandler('onClientGivJetPackPlayer', root, function () if not ( getElementData ( source, "isPlayerJailed" ) ) and not ( getElementData ( source, "isPlayerArrested" ) ) then if getElementData(source, "isPlayerVIP") and ( getElementInterior(source) == 0 ) then if ( getElementData( source, "wantedPoints" ) > 1000 ) then exports.TNSDxChatBox:CreatDxChatBoxForPlayer(source, "Your WP 1000, You can't take a jetpack!", 225, 0, 0) elseif ( getElementInterior(source) ~= 0 ) then exports.TNSDxChatBox:CreatDxChatBoxForPlayer(source, "You can't use jetpack in this interior!", 225, 0, 0) else if ( doesPedHaveJetPack ( source ) ) then removePedJetPack ( source ) else if ( getPedOccupiedVehicle ( source ) ) then exports.TNSDxChatBox:CreatDxChatBoxForPlayer(source,"You are in a vehicle, you can't give use a jetpack!", 225, 0, 0) else if ( currentZone(source) == "LS" ) then givePedJetPack ( source ) triggerClientEvent ( source, "CloseVIPanel", getRootElement()) end end end end end end end) addEvent('onClientCheckZone', true) addEventHandler('onClientCheckZone', root, function () if ( getTeamName( getPlayerTeam ( source ) ) == "Staff" ) or ( getElementData( source, "developer" ) ) then return end if ( getElementData(source, "isPlayerVIP") and ( getElementInterior(source) == 0 ) ) then if ( currentZone(source) ~= "LS" ) then if ( doesPedHaveJetPack ( source ) ) then removePedJetPack ( source ) end end end end) addEvent('onClinetGiveVIPArmor', true) addEventHandler('onClinetGiveVIPArmor', root, function () if not ( getElementData ( source, "isPlayerJailed" ) ) and not ( getElementData ( source, "isPlayerArrested" ) ) then if getElementData(source, "isPlayerVIP") and ( getElementInterior(source) == 0 ) then if ( latestGetArmor[getPlayerSerial(source)] ) and ( getTickCount()-latestGetArmor[getPlayerSerial(source)] < 600000 ) then exports.TNSDxChatBox:CreatDxChatBoxForPlayer(source, "You can take 100% armor only every 5 minutes!", 225, 0, 0) else setPedArmor(source, 100) setPedStat ( source, 24, 989 ) setElementHealth ( source, 200 ) latestGetArmor[getPlayerSerial(source)] = getTickCount() end end end end) addEvent('onClinetHideLion', true) addEventHandler('onClinetHideLion', root, function () if not ( getElementData ( source, "isPlayerJailed" ) ) and not ( getElementData ( source, "isPlayerArrested" ) ) then if getElementData(source, "isPlayerVIP") then if ( latestHideAnimal[getPlayerSerial(source)] ) and ( getTickCount()-latestHideAnimal[getPlayerSerial(source)] < 120000 ) then exports.TNSDxChatBox:CreatDxChatBoxForPlayer(source, "You can use this button only every 2 minutes!", 225, 0, 0) else onHideAnimalForVips( source ) triggerClientEvent ( source, "CloseVIPanel", getRootElement()) exports.TNSDxChatBox:CreatDxChatBoxForPlayer(source, "You have successfully hide your Lion!", 0, 230, 0) latestHideAnimal[getPlayerSerial(source)] = getTickCount() end end end end) addEvent('onClinetTakeVIPSkin', true) addEventHandler('onClinetTakeVIPSkin', root, function ( ID ) if not ( getElementData ( source, "isPlayerJailed" ) ) and not ( getElementData ( source, "isPlayerArrested" ) ) then if getElementData(source, "isPlayerVIP") then if ( latestGetSkin[getPlayerSerial(source)] ) and ( getTickCount()-latestGetSkin[getPlayerSerial(source)] < 30000 ) then exports.TNSDxChatBox:CreatDxChatBoxForPlayer(source, "You can take vip skin only every 30 seconds!", 225, 0, 0)
  20. خلاص فكك من اف1 خليك مع الاول
  21. السلام عليكم ورحمة الله وبركاتة شباب اليوم انا معي مود فيب يفتح بكلمة في اف8 وحاولت افتحه مب يفتح وعملت رتب كتير للفيب مب نفع اي شي رابط مود الفيب http://up.top4top.net/downloadf-top4top ... 1-zip.html
  22. تمت الافادة من زمان من قبل Mr.Ronaldo
×
×
  • Create New...