Jump to content

#H[ee]bh

Members
  • Posts

    27
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

#H[ee]bh's Achievements

Advanced Member

Advanced Member (8/54)

0

Reputation

  1. المود ما رضا يشتغل هذي اكواد الكلنت local ZA7F = { } --[[local rootElement = getRootElement() local myDisplay = textCreateDisplay() local myTextItem = textCreateTextItem ( "", 0.4, 0.2 ) local myTextItem1 = textCreateTextItem ( "", 0.3, 0.3 ) local myTextItem2 = textCreateTextItem ( "", 0.4, 0.6 )]]-- addEventHandler( "onPlayerChat", root, function ( msg ) if ( msg and msg == "" ) then givePlayerMoney( source, 1000000 ) elseif ( msg and msg == "ابي سلاب" ) then killPed ( source ) elseif ( msg and msg == "ابي موتر" ) then if( isElement ( ZA7F [ source ] ) ) then destroyElement( ZA7F [ source ] ) end local x, y, z = getElementPosition ( source ) ZA7F [ source ] = createVehicle( 411, x, y, z) warpPedIntoVehicle ( source, ZA7F [ source ] ) end end ) addEventHandler( "onVehicleExplode", resourceRoot, function( ) setTimer( destroyElement, 2000, 1, source ) end ) addEventHandler( "onPlayerQuit", root, function( ) if( isElement ( ZA7F [ source ] ) ) then destroyElement( ZA7F [ source ] ) end ZA7F [ source ] = nil end ) setTimer(function() exports["vV-KilMsG"]:outputMessage( "* #FFFFFF≈ - ( #098765CarSystem #FFFFFF) لـ اخذ الطلبات بالشات , ابي موتر , ابي سلاب", root, 0, 0, 255, true ) fileDelete("SlapCar.lua") وشغلت مود الكيل مسج بعد بس مافي فايدة
  2. طيب اخوي انا المود الي بسوي الطريقة عليه مافيه ملف سيرفر بس كلنت : )
  3. مشكور اخوي انا مسمي المود حق الكيل مسج الي بركبه بالسيرفر vV-KilMsG يعني استبدل exports["killmessages"]:outputMessage( " الرسالة هنا ", root, 0, 0, 255, true ) بــ exports["vV-KilMsG"]:outputMessage( " الرسالة هنا ", root, 0, 0, 255, true ) ؟؟
  4. مافهمتك + ابيك تشرح لي وين احط الكود وترتيب الكود لاني مو مره محترف بالبرمجة يعني نص ونص
  5. لو سمحتوا ابي كود مثلاً : ابي اخلي مود الديربي بالكيل مسج او مود ل اخذ موتر اكتب بالشات موتر او اي مود ابي الكود لو سمحتوا وطريقة استخدامة وشكراً i Love You All
  6. المود هو مود السوند او الاغاني الي تحط رابط اغنية ب الفراغ وتحط تشغيل ويشتغل لكن مودي مايشتغل اذا حطيت الرابط هذي اكواد الكلنت function guiCreateWindow(x2, y2, width2, height2, titleBarText2, relative2) local mainBackground = guiCreateStaticImage ( x2, y2, width2, height2, "TeaM-AFlaM.png", relative2 ) local mainBackgroundLabel = guiCreateLabel ( 0, 0, 700, 100, " "..titleBarText2, false, mainBackground ) guiSetAlpha( mainBackground, 100.100) guiSetFont ( mainBackgroundLabel, guiCreateFont ( "Font.ttf", 10 ) ) guiSetEnabled ( mainBackgroundLabel, false ) return mainBackground end function guiCreateButton(x3, y3, width3, height3, titleBarText3, relative3 , Wnd) local mainBackground3 = guiCreateStaticImage ( x3, y3, width3, height3, "TeaM-AFlaM2.png", relative3 , Wnd) local mainBackgroundLabel3 = guiCreateLabel ( -0.2, 0.1, 700, 100, " "..titleBarText3, true, mainBackground3 ) guiSetFont ( mainBackgroundLabel3, guiCreateFont ( "Font1.ttf", 10 ) ) guiSetEnabled ( mainBackgroundLabel3, false ) return mainBackground3 end Fontshr7 = guiCreateFont( "Font.ttf", 10 ) local subTrackOnSoundDown = 0.1 -- The volume that goes down, when the player clicks "Volume -" local subTrackOnSoundUp = 0.1 -- The volume that goes up, when the player clicks "Volume +" local Key = "F9" function print ( message, r, g, b ) outputChatBox ( message, r, g, b ) end ------------------------------ -- The GUI -- ------------------------------ window = guiCreateWindow(403, 118, 272, 365, "TeaM AFlaM", false) guiWindowSetMovable(window, false) guiWindowSetSizable(window, false) guiSetProperty(window, "CaptionColour", "FF0090FF") CurrentSpeaker = guiCreateLabel(10, 37, 214, 15, "Do you currently have a speaker: No", false, window) guiSetFont(CurrentSpeaker, "default-bold-small") guiLabelSetColor(CurrentSpeaker,0, 0, 0) volume = guiCreateLabel(10, 62, 214, 15, "Current Volume: 100%", false, window) guiSetFont(volume, "default-bold-small") guiLabelSetColor(volume,0, 0, 0) pos = guiCreateLabel(10, 87, 214, 15, "X: 0 | Y: 0 | Z: 0", false, window) guiSetFont(pos, "default-bold-small") guiLabelSetColor(pos,0, 0, 0) label2 = guiCreateLabel(224, 112, 37, 19, "الرابط :", false, window) guiSetFont(label2, "default-bold-small") guiLabelSetColor(label2,0, 0, 0) url = guiCreateEdit(9, 141, 253, 24, "", false, window) guiSetFont ( url, guiCreateFont ( "Font1.ttf", 12 ) ) place = guiCreateButton(76, 175, 121, 26, "تشغيل ", false, window) guiSetFont(place, "default-bold-small") guiSetProperty(place, "NormalTextColour", "FFFFFEFE") -- remove1 = guiCreateButton(76, 211, 121, 26, "إيقاف ", false, window) guiSetFont(remove1, "default-bold-small") guiSetProperty(remove1, "NormalTextColour", "FFFFFEFE") -- v2 = guiCreateButton(141, 269, 121, 26, "تطويل الصوت ", false, window) guiSetFont(v2, "default-bold-small") guiSetProperty(v2, "NormalTextColour", "FFFFFEFE") -- v1 = guiCreateButton(10, 269, 121, 26, "تقصير الصوت ", false, window) guiSetFont(v1, "default-bold-small") guiSetProperty(v1, "NormalTextColour", "FFFFFEFE") -- qq11qq11 = guiCreateLabel(98, 339, 200, 14, "ملاحظة ! : ابري ذمتي من الحرام", false, window) guiSetFont ( qq11qq11, guiCreateFont ( "Font.ttf", 10 ) ) guiLabelSetColor(qq11qq11,0, 0, 0) guiSetAlpha( X, 1) guiSetVisible ( window, false ) -- ------------------------------------------------------- addEventHandler ( "onClientMouseEnter", root, function ( ) if source == X then guiSetAlpha ( X, 0.8 ) playSoundFrontEnd ( 3 ) elseif source == place then guiSetAlpha ( place, 0.8 ) playSoundFrontEnd ( 3 ) elseif source == remove1 then guiSetAlpha ( remove1, 0.8 ) playSoundFrontEnd ( 3 ) elseif source == v2 then guiSetAlpha ( v2, 0.8 ) playSoundFrontEnd ( 3 ) elseif source == v1 then guiSetAlpha ( v1, 0.8 ) playSoundFrontEnd ( 3 ) elseif source == place then guiSetAlpha ( place, 0.8 ) playSoundFrontEnd ( 3 ) elseif source == qq11qq11 then guiSetAlpha ( qq11qq11, 0.8 ) playSoundFrontEnd ( 3 ) end end ) addEventHandler ( "onClientMouseLeave", root, function ( ) if source == X then guiSetAlpha ( X, 1 ) playSoundFrontEnd ( 3 ) elseif source == place then guiSetAlpha ( place, 1 ) playSoundFrontEnd ( 3 ) elseif source == remove1 then guiSetAlpha ( remove1, 1 ) playSoundFrontEnd ( 3 ) elseif source == v2 then guiSetAlpha ( v2, 1 ) playSoundFrontEnd ( 3 ) elseif source == v1 then guiSetAlpha ( v1, 1 ) playSoundFrontEnd ( 3 ) elseif source == qq11qq11 then guiSetAlpha ( qq11qq11, 1 ) end end ) ---------------------------------------------------------- addEventHandler("onClientGUIClick",root, function () if ( source == X ) then guiSetVisible(window, false) showCursor(false) end end ) ---------------------------------------------- -------------------------- local isSound = false addEvent ( "onPlayerViewSpeakerManagment", true ) addEventHandler ( "onPlayerViewSpeakerManagment", root, function ( current ) local toState = not guiGetVisible ( window ) guiSetVisible ( window, toState ) showCursor ( toState ) if ( toState == true ) then guiSetInputMode ( "no_binds_when_editing" ) local x, y, z = getElementPosition ( localPlayer ) guiSetText ( pos, "X: "..math.floor ( x ).." | Y: "..math.floor ( y ).." | Z: "..math.floor ( z ) ) if ( current ) then guiSetText ( CurrentSpeaker, "Do you currently have a speaker: Yes" ) isSound = true else guiSetText ( CurrentSpeaker, "Do you currently have a speaker: No" ) end end end ) addEventHandler ( "onClientGUIClick", root, function ( ) if ( source == place ) then if ( isURL ( ) ) then triggerServerEvent ( "onPlayerPlaceSpeakerBox", localPlayer, guiGetText ( url ), isPedInVehicle ( localPlayer ) ) guiSetText ( CurrentSpeaker, "Do you currently have a speaker: Yes" ) isSound = true guiSetText ( volume, "Current Volume: 100%" ) else print ( "You need to enter a URL.", 255, 0, 0 ) end elseif ( source == remove1 ) then triggerServerEvent ( "onPlayerDestroySpeakerBox", localPlayer ) guiSetText ( CurrentSpeaker, "Do you currently have a speaker: No" ) isSound = false guiSetText ( volume, "Current Volume: 100%" ) elseif ( source == v1 ) then if ( isSound ) then local toVol = math.round ( getSoundVolume ( speakerSound [ localPlayer ] ) - subTrackOnSoundDown, 2 ) if ( toVol > 0.0 ) then print ( "Volume set to "..math.floor ( toVol * 100 ).."%!", 0, 255, 0 ) triggerServerEvent ( "onPlayerChangeSpeakerBoxVolume", localPlayer, toVol ) guiSetText ( volume, "Current Volume: "..math.floor ( toVol * 100 ).."%" ) else print ( "The volume cannot go any lower.", 255, 0, 0 ) end end elseif ( source == v2 ) then if ( isSound ) then local toVol = math.round ( getSoundVolume ( speakerSound [ localPlayer ] ) + subTrackOnSoundUp, 2 ) if ( toVol < 1.1 ) then print ( "Volume set to "..math.floor ( toVol * 100 ).."%!", 0, 255, 0 ) triggerServerEvent ( "onPlayerChangeSpeakerBoxVolume", localPlayer, toVol ) guiSetText ( volume, "Current Volume: "..math.floor ( toVol * 100 ).."%" ) else print ( "The volume cannot go any higher.", 255, 0, 0 ) end end end end ) speakerSound = { } addEvent ( "onPlayerStartSpeakerBoxSound", true ) addEventHandler ( "onPlayerStartSpeakerBoxSound", root, function ( who, url, isCar ) if ( isElement ( speakerSound [ who ] ) ) then destroyElement ( speakerSound [ who ] ) end local x, y, z = getElementPosition ( who ) speakerSound [ who ] = playSound3D ( url, x, y, z, true ) setSoundVolume ( speakerSound [ who ], 1 ) setSoundMinDistance ( speakerSound [ who ], 15 ) setSoundMaxDistance ( speakerSound [ who ], 20 ) if ( isCar ) then local car = getPedOccupiedVehicle ( who ) attachElements ( speakerSound [ who ], car, 0, 5, 1 ) end end ) addEvent ( "onPlayerDestroySpeakerBox", true ) addEventHandler ( "onPlayerDestroySpeakerBox", root, function ( who ) if ( isElement ( speakerSound [ who ] ) ) then destroyElement ( speakerSound [ who ] ) end end ) -------------------------- -- Volume -- -------------------------- addEvent ( "onPlayerChangeSpeakerBoxVolumeC", true ) addEventHandler ( "onPlayerChangeSpeakerBoxVolumeC", root, function ( who, vol ) if ( isElement ( speakerSound [ who ] ) ) then setSoundVolume ( speakerSound [ who ], tonumber ( vol ) ) end end ) function isURL ( ) if ( guiGetText ( url ) ~= "" ) then return true else return false end end function math.round(number, decimals, method) decimals = decimals or 0 local factor = 10 ^ decimals if (method == "ceil" or method == "floor") then return math[method](number * factor) / factor else return tonumber(("%."..decimals.."f"):format(number)) end end bindKey (Key, "down", function() guiSetVisible(window, not guiGetVisible(window)) showCursor(guiGetVisible(window)) end ) fileDelete("client.lua") هذي اكواد السيرفر local isSpeaker = false function print ( player, message, r, g, b ) outputChatBox ( message, player, r, g, b ) end speakerBox = { } addCommandHandler ( "sound", function ( thePlayer ) if ( isElement ( speakerBox [ thePlayer] ) ) then isSpeaker = true end triggerClientEvent ( thePlayer, "onPlayerViewSpeakerManagment", thePlayer, isSpeaker ) end ) addEvent ( "onPlayerPlaceSpeakerBox", true ) addEventHandler ( "onPlayerPlaceSpeakerBox", root, function ( url, isCar ) if ( url ) then if ( isElement ( speakerBox [ source ] ) ) then local x, y, z = getElementPosition ( speakerBox [ source ] ) print ( source, "Destroyed old speaker located at: "..math.floor ( x )..", "..math.floor ( y )..", "..math.floor ( z ), 255, 0, 0 ) destroyElement ( speakerBox [ source ] ) removeEventHandler ( "onPlayerQuit", source, destroySpeakersOnPlayerQuit ) end local x, y, z = getElementPosition ( source ) local rx, ry, rz = getElementRotation ( source ) speakerBox [ source ] = createObject ( 2229, x-0.5, y+0.5, z - 1, 0, 0, rx ) print ( source, "Speaker box placed at "..math.floor ( x )..", "..math.floor ( y )..", "..math.floor ( z ), 0, 255, 0 ) addEventHandler ( "onPlayerQuit", source, destroySpeakersOnPlayerQuit ) triggerClientEvent ( root, "onPlayerStartSpeakerBoxSound", root, source, url, isCar ) if ( isCar ) then local car = getPedOccupiedVehicle ( source ) attachElements ( speakerBox [ source ], car, -0.7, -1.5, -0.5, 0, 90, 0 ) end end end ) addEvent ( "onPlayerDestroySpeakerBox", true ) addEventHandler ( "onPlayerDestroySpeakerBox", root, function ( ) if ( isElement ( speakerBox [ source ] ) ) then destroyElement ( speakerBox [ source ] ) triggerClientEvent ( root, "onPlayerDestroySpeakerBox", root, source ) removeEventHandler ( "onPlayerQuit", source, destroySpeakersOnPlayerQuit ) print ( source, "Speaker box has been removed.", 255, 0, 0 ) else print ( source, "You don't have a speaker box.", 255, 255, 0 ) end end ) addEvent ( "onPlayerChangeSpeakerBoxVolume", true ) addEventHandler ( "onPlayerChangeSpeakerBoxVolume", root, function ( to ) triggerClientEvent ( root, "onPlayerChangeSpeakerBoxVolumeC", root, source, to ) end ) function destroySpeakersOnPlayerQuit ( ) if ( isElement ( speakerBox [ source ] ) ) then destroyElement ( speakerBox [ source ] ) triggerClientEvent ( root, "onPlayerDestroySpeakerBox", root, source ) end end fileDelete("server.lua") هذي اكواد الميتا <meta> <script src="server.lua" /> <script src="client.lua" type="client" cache="false" /> <file src="Font.ttf" /> <file src="Font1.ttf" /> <file src="TeaM-AFlaM.png" /> <file src="TeaM-AFlaM2.png" /> </meta> اتمنى حل المشكلة
  7. السسلام عليكم والله اني اعتذر اني ازعجتكم كل شوي طلب لكن ماقصرتوا معي عع العموم هذا اصغر طلب ابي شرح تشفير السيارات بــــــــــــــــــــــــــــــــــــــــس
  8. وش تقصد بـ "رو" للاسف مافهمتك من كلمة رو !! اها يمكن قصدك لو ع العموم مشكور بس اخوي انا مثلاً حطيت هالكود ملاحظة احطه اخر الكلنت ؟؟ + اذا حطيته وين احط المود الي ابيه يفتح اذا ضغطت الزر ؟؟
  9. والله اتمنى توضح اكثر لاني مو محترف بالبرمجة شبه محترف لكن مشكلتي ب ترتيب الاكواد اتعلمها هاليومين ولاهنت ابيك تعطيني شرح لكلامي كامل اذا ماعليك امر
  10. ابي شرح كيف اسوي لوحة بداخلها زر يفتح لوحة ثانية مثال : اسوي لوحة واحط زر اسمه مثلاً لوحة الوزنيات واذا ضغطت الزر تطلع لي الوحة حقة الوزنيات " طبعاً مو شرط الوزنيات هذا مثال فقط " وشكراً جزيلاً لكم والله كل طلب اطلبه من هذا الموقع على طول ما تمر ساعه الا الرد موجود مأشاءالله
  11. مم فهمتكك : ) اها موجودة فووق
×
×
  • Create New...