HIRES Radar

[TheBite]

Hey to everyone, today I downloaded this ( https://community.multitheftauto.com/ind ... ls&id=2730 ) script, this is a hi res radar script and when a player join in my server, the minimap is showed with the default design, only if the player press f5, the hires radar enabled, and my question is: how to hires radar is enabled by default and if press f5 the server will shows the standard design?

[Castillo]

Editing it.

Open "radar.lua" file which is inside the resource and replace the content of it with this:

-- No touch, kthxbai 
local tiles = { } 
local timer 
local enabled = false 
  
local ROW_COUNT = 12 
  
function toggleCustomTiles ( ) 
    -- Toggle! 
    enabled = not enabled 
     
    -- Check whether we enabled it 
    if enabled then 
        -- Load all tiles 
        handleTileLoading ( ) 
         
        -- Set a timer to check whether new tiles should be loaded (less resource hungry than doing it on render) 
        timer = setTimer ( handleTileLoading, 500, 0 ) 
    else 
        -- If our timer is still running, kill it with fire 
        if isTimer ( timer ) then killTimer ( timer ) end 
         
        -- Unload all tiles, so the memory footprint has disappeared magically 
        for name, data in pairs ( tiles ) do 
            unloadTile ( name ) 
        end 
    end 
     
    outputChatBox ( "Custom radar "..(enabled and "enabled" or "disabled")) 
end 
addEventHandler ( "onClientResourceStart", resourceRoot, toggleCustomTiles ) 
bindKey("F5","down",toggleCustomTiles) 
addCommandHandler ( "cusradar", toggleCustomTiles ) 
  
function handleTileLoading ( ) 
    -- Get all visible radar textures 
    local visibleTileNames = table.merge ( engineGetVisibleTextureNames ( "radar??" ), engineGetVisibleTextureNames ( "radar???" ) ) 
     
    -- Unload tiles we don't see 
    for name, data in pairs ( tiles ) do 
        if not table.find ( visibleTileNames, name ) then 
            unloadTile ( name ) 
        end 
    end 
     
    -- Load tiles we do see 
    for index, name in ipairs ( visibleTileNames ) do 
        loadTile ( name ) 
    end 
end 
  
function table.merge ( ... ) 
    local ret = { } 
     
    for index, tbl in ipairs ( {...} ) do 
        for index, val in ipairs ( tbl ) do 
            table.insert ( ret, val ) 
        end 
    end 
     
    return ret 
end 
  
function table.find ( tbl, val ) 
    for index, value in ipairs ( tbl ) do 
        if value == val then 
            return index 
        end 
    end 
     
    return false 
end 
  
------------------------------------------- 
-- 
-- Tile loading and unloading functions 
-- 
------------------------------------------- 
  
function loadTile ( name ) 
    -- Make sure we have a string 
    if type ( name ) ~= "string" then 
        return false 
    end 
     
    -- Check whether we already loaded this tile 
    if tiles[name] then 
        return true 
    end 
     
    -- Extract the ID 
    local id = tonumber ( name:match ( "%d+" ) ) 
     
    -- If not a valid ID, abort 
    if not id then 
        return false 
    end 
     
    -- Calculate row and column 
    local row = math.floor ( id / ROW_COUNT ) 
    local col = id - ( row * ROW_COUNT ) 
     
    -- Now just calculate start and end positions 
    local posX = -3000 + 500 * col 
    local posY =  3000 - 500 * row 
     
    -- Fetch the filename 
    local file = string.format ( "sattelite/sattelite_%d_%d.jpeg", row, col ) 
     
    -- Now, load that damn file! (Also create a transparent overlay texture) 
    local texture = dxCreateTexture ( file ) 
     
    -- If it failed to load, abort 
    if not texture --[[or not overlay]] then 
        outputChatBox ( string.format ( "Failed to load texture for %q (%q)", tostring ( name ), tostring ( file ) ) ) 
        return false 
    end 
     
    -- Now we just need the shader 
    local shader = dxCreateShader ( "texreplace.fx" ) 
     
    -- Abort if failed (don't forget to destroy the texture though!!!) 
    if not shader then 
        outputChatBox ( "Failed to load shader" ) 
        destroyElement ( texture ) 
        return false 
    end 
     
    -- Now hand the texture to the shader 
    dxSetShaderValue ( shader, "gTexture", texture ) 
     
    -- Now apply this stuff on the tile 
    engineApplyShaderToWorldTexture ( shader, name ) 
     
    -- Store the stuff 
    tiles[name] = { shader = shader, texture = texture } 
     
    -- Return success 
    return true 
end 
  
function unloadTile ( name ) 
    -- Get the tile data 
    local tile = tiles[name] 
     
    -- If no data is present, we failed 
    if not tile then 
        return false 
    end 
     
    -- Destroy the shader and texture elements, if they exist 
    if isElement ( tile.shader )  then destroyElement ( tile.shader )  end 
    if isElement ( tile.texture ) then destroyElement ( tile.texture ) end 
     
    -- Now remove all reference to it 
    tiles[name] = nil 
     
    -- We succeeded 
    return true 
end 

[TheBite]

Thank you VERY much!

[Castillo]

You're welcome.