Jump to content

اكواد ابي حل ليها

Scorpio

By Scorpio
in البرمجة

Recommended Posts

Scorpio Sucka

Scorpio

Posted
Posted

ابي اعدل عليه يعني ازيد اشياء مثل ماركر انتقال لمود جروب سيستم + بدل ما اسوي باب واحد اسوي بابين وزي الأكواد

الي انا مسويها + ما نفعت

local Object = createObject ( 980, 1319.19921875, 746.8994140625, 16 0, 0, 267.99499511719 ) 
local Marker = createMarker ( 1318.3000488281, 747.09997558594, 13.39999961853 'cylinder', 15, 0, 0, 0, 0 ) 
local Open = false 
  
function OpenObject ( player ) 
        if isElementWithinMarker ( player, Marker ) then 
                if ( getElementData( player , "Group" ) == "MO7H" ) then 
                        if not Open then 
                               moveObject ( Object, 1500, 1319.19921875, 746.8994140625, 10.3 ) 
                        else 
                                moveObject ( Object, 1500, 1319.19921875, 746.8994140625, 16 ) 
                        end 
                        Open = not Open 
                else 
                        outputChatBox ( '* You must be (MO7H) !', player, 200, 0, 0, true ) 
                end 
        end 
end 
  
addEventHandler ( 'onResourceStart', resourceRoot,  
        function ( ) 
                for _, v in ipairs ( getElementsByType ( 'player' ) ) do 
                        bindKey ( v, 'tab', 'down', OpenObject ) 
                end 
        end 
) 
  
addEventHandler ( 'onPlayerJoin', root, 
        function ( ) 
                bindKey ( source, 'tab', 'down', OpenObject ) 
        end 
) 
------------------------ 
  
local Object = createObject ( 980, 1319.19921875, 746.8994140625, 16 0, 0, 267.99499511719 ) 
local Marker = createMarker ( 1318.3000488281, 747.09997558594, 13.39999961853 'cylinder', 15, 0, 0, 0, 0 ) 
local Open = false 
  
function OpenObject ( player ) 
        if isElementWithinMarker ( player, Marker ) then 
                if ( getElementData( player , "Group" ) == "MO7H" ) then 
                        if not Open then 
                               moveObject ( Object, 1500, 1319.19921875, 746.8994140625, 10.3 ) 
                        else 
                                moveObject ( Object, 1500, 1319.19921875, 746.8994140625, 16 ) 
                        end 
                        Open = not Open 
                else 
                        outputChatBox ( '* You must be (MO7H) !', player, 200, 0, 0, true ) 
                end 
        end 
end 
  
addEventHandler ( 'onResourceStart', resourceRoot,  
        function ( ) 
                for _, v in ipairs ( getElementsByType ( 'player' ) ) do 
                        bindKey ( v, 'tab', 'down', OpenObject ) 
                end 
        end 
) 
  
addEventHandler ( 'onPlayerJoin', root, 
        function ( ) 
                bindKey ( source, 'tab', 'down', OpenObject ) 
        end 
) 
-------------- 
local x, y, z = 1263.19921875,  742.3994140625, 13 
local size = 1.5 
local Xtogo, Ytogo, Ztogo = 1609.6018066406, -1714.0665283203, 6.21875 
local r, g, b = 125, 122, 132 
local marker = createMarker ( x, y, z - 1, 'cylinder', size, r, g, b, 255 ) 
  
addEventHandler("onMarkerHit",marker, 
    function ( element )  
        if ( getElementType ( element ) ==  ( "player" ) ) then 
                if ( getElementData( player , "Group" ) == "MO7H" ) then 
        outputChatBox("ممتلكات للأدمن",player) 
    return  
        end 
        setElementPosition ( element , Xtogo, Ytogo, Ztogo ) 
        outputChatBox(" مرحباً بك داخل البيت",player) 
    end 
end 
) 
  
function GetPlayerACLGroup ( player , Console ) 
    if ( not player or not Group ) then return end 
    if ( not getPlayerAccount ( player ) ) then return end 
    if ( isGuestAccount ( getPlayerAccount ( player ) ) ) then return end 
    if ( not aclGetGroup ( tostring (Group ) ) ) then return end 
    if ( getElementData( player , "Group" ) == "MO7H" ) then 
        return player,Group 
    else 
        return false 
    end 
end

وابي كود اخير الي هو لما يموت الي منضم في جروب سيستم الي هو حج العقرب ينتقل لمكان احط له الأحدثيات

وشكراً

Link to comment
#!CrIsPoD Snitch

#!CrIsPoD

Posted
Posted
ابي اعدل عليه يعني ازيد اشياء مثل ماركر انتقال لمود جروب سيستم + بدل ما اسوي باب واحد اسوي بابين وزي الأكواد

الي انا مسويها + ما نفعت

local Object = createObject ( 980, 1319.19921875, 746.8994140625, 16 0, 0, 267.99499511719 ) 
local Marker = createMarker ( 1318.3000488281, 747.09997558594, 13.39999961853 'cylinder', 15, 0, 0, 0, 0 ) 
local Open = false 
  
function OpenObject ( player ) 
        if isElementWithinMarker ( player, Marker ) then 
                if ( getElementData( player , "Group" ) == "MO7H" ) then 
                        if not Open then 
                               moveObject ( Object, 1500, 1319.19921875, 746.8994140625, 10.3 ) 
                        else 
                                moveObject ( Object, 1500, 1319.19921875, 746.8994140625, 16 ) 
                        end 
                        Open = not Open 
                else 
                        outputChatBox ( '* You must be (MO7H) !', player, 200, 0, 0, true ) 
                end 
        end 
end 
  
addEventHandler ( 'onResourceStart', resourceRoot,  
        function ( ) 
                for _, v in ipairs ( getElementsByType ( 'player' ) ) do 
                        bindKey ( v, 'tab', 'down', OpenObject ) 
                end 
        end 
) 
  
addEventHandler ( 'onPlayerJoin', root, 
        function ( ) 
                bindKey ( source, 'tab', 'down', OpenObject ) 
        end 
) 
------------------------ 
  
local Object = createObject ( 980, 1319.19921875, 746.8994140625, 16 0, 0, 267.99499511719 ) 
local Marker = createMarker ( 1318.3000488281, 747.09997558594, 13.39999961853 'cylinder', 15, 0, 0, 0, 0 ) 
local Open = false 
  
function OpenObject ( player ) 
        if isElementWithinMarker ( player, Marker ) then 
                if ( getElementData( player , "Group" ) == "MO7H" ) then 
                        if not Open then 
                               moveObject ( Object, 1500, 1319.19921875, 746.8994140625, 10.3 ) 
                        else 
                                moveObject ( Object, 1500, 1319.19921875, 746.8994140625, 16 ) 
                        end 
                        Open = not Open 
                else 
                        outputChatBox ( '* You must be (MO7H) !', player, 200, 0, 0, true ) 
                end 
        end 
end 
  
addEventHandler ( 'onResourceStart', resourceRoot,  
        function ( ) 
                for _, v in ipairs ( getElementsByType ( 'player' ) ) do 
                        bindKey ( v, 'tab', 'down', OpenObject ) 
                end 
        end 
) 
  
addEventHandler ( 'onPlayerJoin', root, 
        function ( ) 
                bindKey ( source, 'tab', 'down', OpenObject ) 
        end 
) 
-------------- 
local x, y, z = 1263.19921875,  742.3994140625, 13 
local size = 1.5 
local Xtogo, Ytogo, Ztogo = 1609.6018066406, -1714.0665283203, 6.21875 
local r, g, b = 125, 122, 132 
local marker = createMarker ( x, y, z - 1, 'cylinder', size, r, g, b, 255 ) 
  
addEventHandler("onMarkerHit",marker, 
    function ( element )  
        if ( getElementType ( element ) ==  ( "player" ) ) then 
                if ( getElementData( player , "Group" ) == "MO7H" ) then 
        outputChatBox("ممتلكات للأدمن",player) 
    return  
        end 
        setElementPosition ( element , Xtogo, Ytogo, Ztogo ) 
        outputChatBox(" مرحباً بك داخل البيت",player) 
    end 
end 
) 
  
function GetPlayerACLGroup ( player , Console ) 
    if ( not player or not Group ) then return end 
    if ( not getPlayerAccount ( player ) ) then return end 
    if ( isGuestAccount ( getPlayerAccount ( player ) ) ) then return end 
    if ( not aclGetGroup ( tostring (Group ) ) ) then return end 
    if ( getElementData( player , "Group" ) == "MO7H" ) then 
        return player,Group 
    else 
        return false 
    end 
end

وابي كود اخير الي هو لما يموت الي منضم في جروب سيستم الي هو حج العقرب ينتقل لمكان احط له الأحدثيات

وشكراً

مثل ما قال اخوي ذ بست

انصحكك تسوي مود بنفسك وتطلب تعديلات عليه

وهذي قناة بشر لتعليم البرمجة انصحك فيها

https://www.youtube.com/user/arabmta

Link to comment
iPrestege Boss Hawg

iPrestege

Posted
Posted 

-- Server Side # 
marker = { } 
object = { } 
open = { } 
object[1] = createObject ( 980, 1319.19921875, 746.8994140625, 16 ,0, 0, 267.99499511719 ) 
object[2] = createObject ( 980, 1319.19921875, 746.8994140625, 16 ,0, 0, 267.99499511719 ) 
marker[1] = createMarker ( 1318.3000488281, 747.09997558594, 13.39999961853 ,'cylinder', 15, 0, 0, 0, 0 ) 
marker[2] = createMarker ( 1318.3000488281, 747.09997558594, 13.39999961853 ,'cylinder', 15, 0, 0, 0, 0 ) 
open[1] = false 
open[2] = false 
  
function OpenObject ( player ) 
        if isElementWithinMarker ( player, marker[1] ) then 
                if ( getElementData( player , "Group" ) == "MO7H" ) then 
                        if not open[1] then 
                               moveObject ( object[1], 1500, 1319.19921875, 746.8994140625, 10.3 ) 
                        else 
                                moveObject ( object[1], 1500, 1319.19921875, 746.8994140625, 16 ) 
                        end 
                        open[1] = not open[1] 
                else 
                        outputChatBox ( '* You must be (MO7H) !', player, 200, 0, 0, true ) 
                end 
            elseif isElementWithinMarker ( player , marker[2] ) then 
                if not open[2] then 
                        moveObject ( object[2], 1500, 1319.19921875, 746.8994140625, 10.3 ) 
              else 
                        moveObject ( object[2], 1500, 1319.19921875, 746.8994140625, 16 ) 
                   end 
                        open[2] = not open[2] 
                else 
                   outputChatBox ( '* You must be (MO7H) !', player, 200, 0, 0, true ) 
        end 
end 
  
addEventHandler ( 'onResourceStart', resourceRoot,  
        function ( ) 
                for _, v in ipairs ( getElementsByType ( 'player' ) ) do 
                        bindKey ( v, 'tab', 'down', OpenObject ) 
                end 
        end 
) 
  
addEventHandler ( 'onPlayerJoin', root, 
        function ( ) 
                bindKey ( source, 'tab', 'down', OpenObject ) 
        end 
) 
  
  
local x, y, z = 1263.19921875,  742.3994140625, 13 
local size = 1.5 
local Xtogo, Ytogo, Ztogo = 1609.6018066406, -1714.0665283203, 6.21875 
local r, g, b = 125, 122, 132 
local marker = createMarker ( x, y, z - 1, 'cylinder', size, r, g, b, 255 ) 
  
addEventHandler("onMarkerHit",marker, 
    function ( element )  
        if ( getElementType ( element ) ==  ( "player" ) ) then 
        if not ( getElementData( element , "Group" ) == "MO7H" ) then 
        outputChatBox ( '* You must be (MO7H) !',element, 200, 0, 0, true ) 
    return  
        end 
        setElementPosition ( element , Xtogo, Ytogo, Ztogo ) 
        outputChatBox("* Welcome To The Home : )",element) 
    end 
end 
)

علق المنتدى وطلع اني مسوي 50 تعديل :| ؟ ذذ عدلت ردي واستخدم ذآ الكود ورد لي !

جرب #

Link to comment
Scorpio Sucka

Scorpio

Posted
  • Author
Posted 
-- Server Side # 
marker = { } 
object = { } 
open = { } 
object[1] = createObject ( 980, 1319.19921875, 746.8994140625, 16 ,0, 0, 267.99499511719 ) 
object[2] = createObject ( 980, 1319.19921875, 746.8994140625, 16 ,0, 0, 267.99499511719 ) 
marker[1] = createMarker ( 1318.3000488281, 747.09997558594, 13.39999961853 ,'cylinder', 15, 0, 0, 0, 0 ) 
marker[2] = createMarker ( 1318.3000488281, 747.09997558594, 13.39999961853 ,'cylinder', 15, 0, 0, 0, 0 ) 
open[1] = false 
open[2] = false 
  
function OpenObject ( player ) 
        if isElementWithinMarker ( player, marker[1] ) then 
                if ( getElementData( player , "Group" ) == "MO7H" ) then 
                        if not open[1] then 
                               moveObject ( object[1], 1500, 1319.19921875, 746.8994140625, 10.3 ) 
                        else 
                                moveObject ( object[1], 1500, 1319.19921875, 746.8994140625, 16 ) 
                        end 
                        open[1] = not open[1] 
                else 
                        outputChatBox ( '* You must be (MO7H) !', player, 200, 0, 0, true ) 
                end 
            elseif isElementWithinMarker ( player , marker[2] ) then 
                if not open[2] then 
                        moveObject ( object[2], 1500, 1319.19921875, 746.8994140625, 10.3 ) 
              else 
                        moveObject ( object[2], 1500, 1319.19921875, 746.8994140625, 16 ) 
                   end 
                        open[2] = not open[2] 
                else 
                   outputChatBox ( '* You must be (MO7H) !', player, 200, 0, 0, true ) 
        end 
end 
  
addEventHandler ( 'onResourceStart', resourceRoot,  
        function ( ) 
                for _, v in ipairs ( getElementsByType ( 'player' ) ) do 
                        bindKey ( v, 'tab', 'down', OpenObject ) 
                end 
        end 
) 
  
addEventHandler ( 'onPlayerJoin', root, 
        function ( ) 
                bindKey ( source, 'tab', 'down', OpenObject ) 
        end 
) 
  
  
local x, y, z = 1263.19921875,  742.3994140625, 13 
local size = 1.5 
local Xtogo, Ytogo, Ztogo = 1609.6018066406, -1714.0665283203, 6.21875 
local r, g, b = 125, 122, 132 
local marker = createMarker ( x, y, z - 1, 'cylinder', size, r, g, b, 255 ) 
  
addEventHandler("onMarkerHit",marker, 
    function ( element )  
        if ( getElementType ( element ) ==  ( "player" ) ) then 
        if not ( getElementData( element , "Group" ) == "MO7H" ) then 
        outputChatBox ( '* You must be (MO7H) !',element, 200, 0, 0, true ) 
    return  
        end 
        setElementPosition ( element , Xtogo, Ytogo, Ztogo ) 
        outputChatBox("* Welcome To The Home : )",element) 
    end 
end 
)

علق المنتدى وطلع اني مسوي 50 تعديل :| ؟ ذذ عدلت ردي واستخدم ذآ الكود ورد لي !

جرب #

مشكور يابرستجي + ابي منك خدمة تعلمني كيف تستخدنم الويكي انا اجي استخدم الويكي كل مالا اسوي مود يخرب

ما يشتغل + ما اعرف السبب+ ما اعرف اجمع الأكواد

لو انت فاضي الأيام زي علمني

Link to comment
yazan Loc

yazan

Posted
Posted (edited)

شباب حاب اوضح لكم شي

انه قناه بشر حقت

تعلم gui

بس تعمل نوافذ و امر بسيطه انتم كل واحد يبي يتعلم برمجه روح قناه بشر

ثاني شي يا الخبير انت يا ذي بيست تقوله اعمل اوحد و هوا يبي كود ينقل يعني من نفسك افهم قدرته ما تسمحله لنه مو محترف مثلك ههههه .

Edited by Guest
Link to comment
فاّرس Hawg

فاّرس

Posted
Posted

البرمجه سهله.لكن انت تصعبها على نفسك,

بعطيك امثله,

مثلا

getPlayerName -- احظار اسم اللاعب,

الويكي يقول ,

string getPlayerName ( player thePlayer )

طيب السترنق الي هو getPlayerName

player الي هو اللاعب,

طبعا في ناس تحط thePlayer في كل الاكواد وما راح يكون شغال,

نجي للمثآل ,

addCommandHandler("myName", -- اذا كتب الامر 
function() -- وظيفة 
for _,name in ipairs(getElementsByType("player")) do -- تحديدها لجميع اللاعبين 
outputChatBox("His name is "..getPlayerName(name).."",name,255,255,255,true) -- اخراج نص في الشات 
      end -- اغلاق 
end) -- اغلاق

مثال آخر,

getCameraMatrix

float cameraX, float cameraY, float cameraZ, float targetX, float targetY, float targetZ, float roll, float fov = getCameraMatrix ( player thePlayer )

مثال للتطبيق,

local x, y, z, lx, ly, lz = getCameraMatrix() -- احظار احداثيات الكاميرآ 
addCommandHandler("matrixPos", -- اذا كتب الامر 
function() -- وظيفة 
setClipboard(""..x..","..y..","..z..","..lx..","..ly..","..lz.."") -- اذا كتب الامر ينسخ الاحدثيات 
end) -- اغلاق

إن خليت في بآلك إن شيء مستحيل, ما راح تسويه لو تموت,

بالتوفيق,

Link to comment
yazan Loc

yazan

Posted
Posted

يا حبيبي انا ام اقلك انه مستحيل

بس هوا مستوه اقل من انه يعمل نضام القربات انا اكثر من مبرمج محترف سئلته بكم يوم يقدر يعمله اكثرهم قلون لي يخلص كامل بيومين

+

انا ما قلت لك ولا صاحب الموضع يبي امثله على اكودك الشارحه

+

انت تقله تستخدم مود مو عارف له طيب هو مو عارف له بيعمل مثله شلون يسئل عن السباون بيعمل نضام قروبات انت حللها بعقلك

+

كل ردودك تسب على ناس وش تحس بوه

Link to comment
Tete omar Hoo-Rider

Tete omar

Posted
Posted
اما هنا في باند ض2

اسوي تقرير على العضو يتبند .. ياليت لا ترد على مشاركتي الموضوع حالياً يعتبر مغلق الا اذا صاحب الموضوع طلب مساعدة اخرى

Link to comment
Scorpio Sucka

Scorpio

Posted
  • Author
Posted 
-- Server Side # 
marker = { } 
object = { } 
open = { } 
object[1] = createObject ( 980, 1319.19921875, 746.8994140625, 16 ,0, 0, 267.99499511719 ) 
object[2] = createObject ( 980, 1319.19921875, 746.8994140625, 16 ,0, 0, 267.99499511719 ) 
marker[1] = createMarker ( 1318.3000488281, 747.09997558594, 13.39999961853 ,'cylinder', 15, 0, 0, 0, 0 ) 
marker[2] = createMarker ( 1318.3000488281, 747.09997558594, 13.39999961853 ,'cylinder', 15, 0, 0, 0, 0 ) 
open[1] = false 
open[2] = false 
  
function OpenObject ( player ) 
        if isElementWithinMarker ( player, marker[1] ) then 
                if ( getElementData( player , "Group" ) == "MO7H" ) then 
                        if not open[1] then 
                               moveObject ( object[1], 1500, 1319.19921875, 746.8994140625, 10.3 ) 
                        else 
                                moveObject ( object[1], 1500, 1319.19921875, 746.8994140625, 16 ) 
                        end 
                        open[1] = not open[1] 
                else 
                        outputChatBox ( '* You must be (MO7H) !', player, 200, 0, 0, true ) 
                end 
            elseif isElementWithinMarker ( player , marker[2] ) then 
                if not open[2] then 
                        moveObject ( object[2], 1500, 1319.19921875, 746.8994140625, 10.3 ) 
              else 
                        moveObject ( object[2], 1500, 1319.19921875, 746.8994140625, 16 ) 
                   end 
                        open[2] = not open[2] 
                else 
                   outputChatBox ( '* You must be (MO7H) !', player, 200, 0, 0, true ) 
        end 
end 
  
addEventHandler ( 'onResourceStart', resourceRoot,  
        function ( ) 
                for _, v in ipairs ( getElementsByType ( 'player' ) ) do 
                        bindKey ( v, 'tab', 'down', OpenObject ) 
                end 
        end 
) 
  
addEventHandler ( 'onPlayerJoin', root, 
        function ( ) 
                bindKey ( source, 'tab', 'down', OpenObject ) 
        end 
) 
  
  
local x, y, z = 1263.19921875,  742.3994140625, 13 
local size = 1.5 
local Xtogo, Ytogo, Ztogo = 1609.6018066406, -1714.0665283203, 6.21875 
local r, g, b = 125, 122, 132 
local marker = createMarker ( x, y, z - 1, 'cylinder', size, r, g, b, 255 ) 
  
addEventHandler("onMarkerHit",marker, 
    function ( element )  
        if ( getElementType ( element ) ==  ( "player" ) ) then 
        if not ( getElementData( element , "Group" ) == "MO7H" ) then 
        outputChatBox ( '* You must be (MO7H) !',element, 200, 0, 0, true ) 
    return  
        end 
        setElementPosition ( element , Xtogo, Ytogo, Ztogo ) 
        outputChatBox("* Welcome To The Home : )",element) 
    end 
end 
)

علق المنتدى وطلع اني مسوي 50 تعديل :| ؟ ذذ عدلت ردي واستخدم ذآ الكود ورد لي !

جرب #

ما ظبت الكود

Link to comment

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...