DebugPic.sqf

if(isServer)then{
/*
    DebugPic script
    by Halv, idea from machine6fd's mission.sqm version

    Copyright (C) 2015  Halvhjearne

    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation, either version 3 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program.  If not, see <http://www.gnu.org/licenses/>.

    Contact : halvhjearne@gmail.com
*/

    _pic1 = [
//North wall
//build this picture/texture? (true / false)
        true,
//Change to your picture/path here
        "custom\dkflag.jpg"
    ];
    _pic2 = [
    //East wall
//build this picture/texture? (true / false)
        false,
//Change to your picture/path here
        "custom\dkflag.jpg"
    ];
    _pic3 = [
    //South wall
//build this picture/texture? (true / false)
        true,
//Change to your picture/path here
        "loadscreen.jpg"
    ];
    _pic4 = [
    //West wall
//build this picture/texture? (true / false)
        false,
//Change to your picture/path here
        "custom\dkflag.jpg"
    ];


//======================== Do not touch anything below this point ========================\\
    _alltextures = [[_pic1 select 0,_pic1 select 1,[-0.4,10,-4],0],[_pic2 select 0,_pic2 select 1,[16.5,.4,-4],90],[_pic3 select 0,_pic3 select 1,[-0.4,-9.5,-4],180],[_pic4 select 0,_pic4 select 1,[-17.2,.1,-4],270]];
    _rwest = getMarkerPos "respawn_west";
    diag_log "[DebugPic]: Waiting for 'Debug_static_F' to be build ...";
    waitUntil{count(nearestObjects [_rwest, ["Debug_static_F"], 30]) > 0};
    _box = nearestObject [_rwest, "Debug_static_F"];
    _objs = [];
    {
        if(_x select 0)then{
            _pic = (_x select 1);
            _rPos = _box modelToWorld (_x select 2);
            _rDir = (getDir _box)+(_x select 3);
            _obj = createVehicle ["UserTexture10m_F", _rPos, [], 0, "CAN_COLLIDE"];
            _obj setDir _rDir;
            _obj setPos _rPos;
            _obj enableSimulation false;
            _obj setObjectTextureGlobal [0,_pic];
            diag_log format["[DebugPic]: build texture @ %1 [%2,%3] texture '%4'",worldName,_obj,_rPos,_rDir,_pic];
        };
    }forEach _alltextures;
};