طلب تعديل كود

[SA7R~KSA]

سلام عليكم ورحمة الله وبركاته

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

اسم المود ---{legalsystem}----

ابيكم تعدلو الكود ذا انا ما ابيه ينقله للعالم الوهمي ابيه ينقله مكان انا احدده بس ما يكون عالم وهمي

ارجو التتعديل

______

هذا الكود

coptargets = 0 
--ADDS BLIPS AND MARKERS FOR POLICE STATIONS 
addEvent("copdirections", true) 
function copshops() 
    if coptargets == 0 then 
        coptargets = 1 
        blip1 = createBlip ( 1577.3779296875, -1634.3627929688, 548.15625, 30, 3, 0, 0, 255, 255, 50, getLocalPlayer() ) 
        marker1 = createMarker ( 1544.8825683594, -1675.7215576172, 13.559277534485, "cylinder", 2, 0, 0, 255, 55, getLocalPlayer() ) 
        colshape1 = createColSphere ( 1544.8825683594, -1675.7215576172, 13.559277534485 ) 
        setElementData ( colshape1, "purpose", "copshop" ) 
         
    end 
end 
addEventHandler("copdirections", getRootElement(), copshops) 
  
--TRIGGERED WHEN A COP STATION IS REACHED 
function copshophit (theshape) 
    if isElement(theshape) then 
        if (getElementData(theshape, "purpose") == "copshop" ) then 
            if ( getElementType( source ) == "player" ) then 
                if (getElementData ( source, "currentstatus" ) == "underarrest") then                    
                    local thecaptor = (getElementData ( source, "captor" )) 
                    local mx, my, mz = getElementPosition(theshape) 
                    local clientprisonercheck = setTimer ( clientcheckforprisoners, 1500000, 1, thecaptor )                  
                    triggerServerEvent ("lockemup", getLocalPlayer (), source, mx, my, mz  ) 
                end 
            end 
        end 
    end 
end 
addEventHandler ( "onClientElementColShapeHit", getRootElement(), copshophit) 
  
function clientcheckforprisoners(thecop) 
    if isElement(thecop) then 
        local prisoners = 0 
        local players = getElementsByType ( "player" ) 
        for theKey,thePlayer in ipairs(players) do 
            if (getElementData ( thePlayer, "captor" ) == thecop ) then 
                prisoners = prisoners+1 
            end 
        end 
        if prisoners == 0 then 
            setElementData ( thecop, "currentarrests", "none" ) 
            clearcopshops() 
        elseif prisoners == 1 then 
            setElementData ( thecop, "currentarrests", "single" ) 
        elseif prisoners == 2 then 
            setElementData ( thecop, "currentarrests", "double" ) 
        end 
    end 
end 
  
--REMOVES POLICE STATION BLIPS FROM COPS RADAR AND THE MARKERS 
addEvent("clearcopdirections", true) 
function clearcopshops() 
    if coptargets == 1 then 
        coptargets = 0 
        destroyElement ( blip1 ) 
        destroyElement ( marker1 ) 
        destroyElement ( colshape1 ) 
         
    end 
end 
addEventHandler("clearcopdirections", getRootElement(), clearcopshops) 

[Booo]

وعليكم السلام ورحمة الله وبركاته

رح ملف السيرفر

على ترايقر lockemup

ابحث عن

    setElementInterior(player, 6)    
    local dimension = math.random ( 7, 99 ) 

استبدلها ب

  
    setElementInterior(player, 0)    
    local dimension = 0 
  

وهذا الكود كامل

اختصار للوقت

kingCOP = createElement( "Pgroup", "cops" ) 
kingCIV = createElement( "Pgroup", "civs" ) 
kingNONE = createElement( "Pgroup", "none" ) 
  
function legalstartup(startedresource) 
    if startedresource == getThisResource() then 
        WantedWatch = setTimer (wantedlevelmonitor, 1000, 0) 
        local allplayers = getElementsByType ( "player" ) 
        local detectmethod = get("legalsystem.Copmethod") 
        for playerKey,thePlayer in ipairs(allplayers) do 
            if detectmethod == "team" then 
                local copteam = get("legalsystem.Copteam") 
                local thisTeam = getPlayerTeam(thePlayer) 
                if thisTeam ~= false then 
                    if thisTeam == getTeamFromName(copteam) then 
                        setElementParent ( thePlayer, kingCOP ) 
                    else 
                        setElementParent ( thePlayer, kingCIV ) 
                    end 
                end 
            elseif detectmethod == "skin" then 
                local thisSkin = getPedSkin(thePlayer) 
                setElementData(getRootElement(),"Copskins",get("legalsystem.Copskins")) 
                local copskins = getElementData(getRootElement(),"Copskins") 
                if type(copskins) == "table" and #copskins > 0 then 
                    for k,skinID in ipairs(copskins) do 
                        copskins[skinID] = true 
                    end 
                end              
                local isacop = 0                 
                for ElementKey, ElementValue in ipairs ( copskins ) do 
                    if thisSkin == ElementValue then 
                        isacop = 1 
                    end 
                end 
                if isacop == 1 then 
                    setElementParent ( thePlayer, kingCOP ) 
                else 
                    setElementParent ( thePlayer, kingCIV ) 
                end 
            end 
        end 
    end 
end 
addEventHandler( "onResourceStart", getRootElement(), legalstartup) 
  
function copSpawnCheck() 
    local detectmethod = get("legalsystem.Copmethod") 
    if detectmethod == "team" then 
        local copteam = get("legalsystem.Copteam") 
        local thisTeam = getPlayerTeam(source) 
        if thisTeam ~= false then 
            if thisTeam == getTeamFromName(copteam) then 
                setElementParent ( source, kingCOP ) 
            else 
                setElementParent ( source, kingCIV ) 
            end 
        end 
    elseif detectmethod == "skin" then 
        local thisSkin = getPedSkin(source) 
        setElementData(getRootElement(),"Copskins",get("legalsystem.Copskins")) 
        local copskins = getElementData(getRootElement(),"Copskins") 
        if type(copskins) == "table" and #copskins > 0 then 
            for k,skinID in ipairs(copskins) do 
                copskins[skinID] = true 
            end 
        end 
        local isacop = 0 
        for ElementKey, ElementValue in ipairs ( copskins ) do 
            if thisSkin == ElementValue then 
                isacop = 1 
            end 
        end 
        if isacop == 1 then 
            setElementParent ( source, kingCOP ) 
        else 
            setElementParent ( source, kingCIV ) 
        end 
    end 
end 
addEventHandler ( "onPlayerSpawn", getRootElement(), copSpawnCheck ) 
  
--ARREST PLAYERS BY SMACKING WITH A NIGHTSTICK 
function rodneykingcheck ( attacker, weapon, bodypart, loss ) 
    if (attacker) and (weapon == 3) then     
        if getElementParent(attacker) == kingCOP then 
            local thecop = attacker 
            local theprisoner = source 
            local wlevel = getPlayerWantedLevel( source )    
            if (getElementData ( theprisoner, "currentstatus" ) ~= "underarrest") and (wlevel > 0) then  
                if (getElementData ( attacker, "currentarrests" ) ~= "single" ) and (getElementData ( attacker, "currentarrests" ) ~= "double" ) then    
                    setElementData ( thecop, "currentarrests", "single" ) 
                    triggerClientEvent(thecop,"copdirections",thecop) 
                elseif (getElementData ( attacker, "currentarrests" ) == "single" ) then 
                    setElementData ( thecop, "currentarrests", "double" )    
                end 
                setElementData ( theprisoner, "currentstatus", "underarrest" ) 
                setElementData ( theprisoner, "captor", thecop ) 
                showCursor ( source, true ) 
                toggleAllControls ( source, false, true, false ) 
                walktheprisoner ( thecop, theprisoner ) 
                setElementData ( theprisoner, "arrestTimeout", setTimer ( freetheguy, 180000, 1, theprisoner )) 
            end 
        end 
    end 
end 
addEventHandler ( "onPlayerDamage", getRootElement(), rodneykingcheck ) 
  
--ARREST PLAYERS BY HOLDING THEM AT GUNPOINT IF THEY HAVE LOW HP 
function sightscheck ( element ) 
    if isElement(element) then 
        if ( getElementType ( element ) == "player" ) then 
            if ( getControlState ( source, "aim_weapon" ) ) then 
                local currentgun = getPlayerWeapon ( source ) 
                local wlevel = getPlayerWantedLevel( element ) 
                if (currentgun > 19) and (currentgun < 39)  and (wlevel > 0) then 
                    if getElementParent(source) == kingCOP then 
                        local thecop = source 
                        local theprisoner = element 
                        local cx, cy, cz = getElementPosition ( source ) 
                        local px, py, pz = getElementPosition ( element ) 
                        if ( getElementHealth ( element ) < 15 ) and ( getDistanceBetweenPoints3D ( cx, cy, cz, px, py, pz ) < 3 ) then 
                            if (getElementData ( theprisoner, "currentstatus" ) ~= "underarrest" ) then 
                                if (getElementData ( thecop, "currentarrests" ) ~= "single" ) and (getElementData ( thecop, "currentarrests" ) ~= "double" ) then 
                                    triggerClientEvent(thecop,"copdirections",thecop) 
                                    setElementData ( thecop, "currentarrests", "single" ) 
                                elseif (getElementData ( thecop, "currentarrests" ) == "single" ) then 
                                    setElementData ( thecop, "currentarrests", "double" )                
                                end 
                                setElementData ( theprisoner, "currentstatus", "underarrest" ) 
                                setElementData ( theprisoner, "captor", thecop ) 
                                showCursor ( theprisoner, true ) 
                                toggleAllControls ( theprisoner, false, true, false )        
                                walktheprisoner ( thecop, theprisoner ) 
                                setElementData ( theprisoner, "arrestTimeout", setTimer ( freetheguy, 180000, 1, theprisoner )) 
--                              local arresttoolong = setTimer ( freetheguy, 180000, 1, theprisoner ) 
                            end 
                        end 
                    end 
                end 
            end 
        end 
    end 
end 
addEventHandler ( "onPlayerTarget", getRootElement(), sightscheck ) 
  
--ARREST PLAYERS BY PULLING THEM OUT OF A VEHICLE 
function yankhimout(player, seat, jacker) 
    if isElement(jacker) then 
        if getElementParent(jacker) == kingCOP then 
            local wlevel = getPlayerWantedLevel( player ) 
            if wlevel > 0 then 
                if (getElementData ( jacker, "currentarrests" ) ~= "single" ) and (getElementData ( jacker, "currentarrests" ) ~= "double" ) then 
                    local thecop = jacker 
                    local theprisoner = player 
                    setElementData ( theprisoner, "currentstatus", "underarrest" ) 
                    setElementData ( theprisoner, "captor", thecop ) 
                    setElementData ( thecop, "currentarrests", "single" ) 
                    triggerClientEvent(thecop,"copdirections",thecop) 
                    showCursor ( theprisoner, true ) 
                    toggleAllControls ( theprisoner, false, true, false )        
                    walktheprisoner ( thecop, theprisoner ) 
                    setElementData ( theprisoner, "arrestTimeout", setTimer ( freetheguy, 180000, 1, theprisoner )) 
                elseif (getElementData ( jacker, "currentarrests" ) == "single" ) then 
                    local thecop = jacker 
                    local theprisoner = player 
                    setElementData ( theprisoner, "currentstatus", "underarrest" ) 
                    setElementData ( theprisoner, "captor", thecop ) 
                    setElementData ( thecop, "currentarrests", "double" ) 
                    showCursor ( theprisoner, true ) 
                    toggleAllControls ( theprisoner, false, true, false ) 
                    walktheprisoner ( thecop, theprisoner ) 
                    setElementData ( theprisoner, "arrestTimeout", setTimer ( freetheguy, 180000, 1, theprisoner )) 
                end              
            end 
        end 
    end 
end 
addEventHandler ( "onVehicleExit", getRootElement(), yankhimout ) 
  
--FORCES A PRISONER TO FOLLOW THE COP 
function walktheprisoner(thecop, theprisoner) 
    if (getElementData ( theprisoner, "currentstatus" ) == "underarrest") and (getPedOccupiedVehicle ( theprisoner ) == false ) then 
        local copx, copy, copz = getElementPosition ( thecop ) 
        local prisonerx, prisonery, prisonerz = getElementPosition ( theprisoner ) 
        copangle = ( 360 - math.deg ( math.atan2 ( ( copx - prisonerx ), ( copy - prisonery ) ) ) ) % 360 
        setPedRotation ( theprisoner, copangle ) 
        setCameraTarget ( theprisoner, theprisoner ) 
        local dist = getDistanceBetweenPoints2D ( copx, copy, prisonerx, prisonery ) 
        if ( dist > 16 ) then 
            freetheguy ( theprisoner ) --FREES PRISONER IF HE GETS FAR AWAY 
        elseif ( dist > 12 ) then 
            setControlState ( theprisoner, "sprint", true ) 
            setControlState ( theprisoner, "walk", false ) 
            setControlState ( theprisoner, "forwards", true ) 
            local zombify = setTimer ( walktheprisoner, 500, 1, thecop, theprisoner ) 
        elseif ( dist > 6 ) then 
            setControlState ( theprisoner, "sprint", false ) 
            setControlState ( theprisoner, "walk", false ) 
            setControlState ( theprisoner, "forwards", true ) 
            local zombify = setTimer ( walktheprisoner, 500, 1, thecop, theprisoner ) 
        elseif ( dist > 1.5 ) then 
            setControlState ( theprisoner, "sprint", false ) 
            setControlState ( theprisoner, "walk", true ) 
            setControlState ( theprisoner, "forwards", true ) 
            local zombify = setTimer ( walktheprisoner, 500, 1, thecop, theprisoner ) 
        elseif ( dist < 1.5 ) then 
            setControlState ( theprisoner, "sprint", false ) 
            setControlState ( theprisoner, "walk", false ) 
            setControlState ( theprisoner, "forwards", false ) 
            local zombify = setTimer ( walktheprisoner, 500, 1, thecop, theprisoner ) 
        end 
    end 
end 
  
--FREES A PLAYER (RESETS THEIR CONTROLS AND STATUS) 
function freetheguy (theprisoner) 
    local thecaptor = (getElementData ( theprisoner, "captor" )) 
    setElementData ( theprisoner, "currentstatus", "none" ) 
    setElementData ( theprisoner, "captor", "none" ) 
    showCursor ( theprisoner, false ) 
    setControlState ( theprisoner, "sprint", false ) 
    setControlState ( theprisoner, "walk", false ) 
    setControlState ( theprisoner, "forwards", false ) 
    toggleAllControls (theprisoner, true)    
    local prisonercheck = setTimer ( checkforprisoners, 1500, 1, thecaptor ) 
    TimoutTimer = (getElementData ( theprisoner, "arrestTimeout" )) 
    if isTimer(TimoutTimer) then 
         killTimer(TimoutTimer) 
         setElementData ( theprisoner, "arrestTimeout", nil) 
         TimeoutTimer = nil 
    end 
end 
  
function checkforprisoners(thecop) 
    if isElement(thecop) then 
        local prisoners = 0 
        local players = getElementsByType ( "player" ) 
        for theKey,thePlayer in ipairs(players) do 
            if (getElementData ( thePlayer, "captor" ) == thecop ) then 
                prisoners = prisoners+1 
            end 
        end 
        if prisoners == 0 then 
            setElementData ( thecop, "currentarrests", "none" ) 
            triggerClientEvent( thecop,"clearcopdirections",thecop) 
        elseif prisoners == 1 then 
            setElementData ( thecop, "currentarrests", "single" ) 
        elseif prisoners == 2 then 
            setElementData ( thecop, "currentarrests", "double" ) 
        end