Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- span class="re5"> sKAM_showDebug_a = TRUE;
- [] spawn {
- disableSerialization;
- while { sKAM_showDebug_a } do {
- waitUntil { !isNull (findDisplay 49) };
- input_text7 = "";
- _debugBorderLeft = (findDisplay 49) ctrlCreate ["RscText",-1];
- _debugBorderLeft ctrlSetPosition [0.0153125 * safezoneW + safezoneX,0.082 * safezoneH + safezoneY,0.0670312 * safezoneW,0.022 * safezoneH];
- _debugBorderLeft ctrlSetBackgroundColor [-1,-1,-1,0.8];
- _debugBorderLeft ctrlCommit 0;
- _debugBorderRight = (findDisplay 49) ctrlCreate ["RscText",-1];
- _debugBorderRight ctrlSetPosition [0.12875 * safezoneW + safezoneX,0.082 * safezoneH + safezoneY,0.0670312 * safezoneW,0.022 * safezoneH];
- _debugBorderRight ctrlSetBackgroundColor [-1,-1,-1,0.8];
- _debugBorderRight ctrlCommit 0;
- _button = (findDisplay 49) ctrlCreate ["RscButtonMenu",-1];
- _textbox = (findDisplay 49) ctrlCreate ["RscEdit",-1];
- _button ctrlSetText "Execute";
- _button ctrlSetPosition [0.0823437 * safezoneW + safezoneX,0.082 * safezoneH + safezoneY,0.0464063 * safezoneW,0.022 * safezoneH];
- _textbox ctrlSetPosition [0.0153125 * safezoneW + safezoneX,0.016 * safezoneH + safezoneY,0.180469 * safezoneW,0.055 * safezoneH];
- _button ctrlSetBackgroundColor [0.8,0.5,0,1];
- _textbox ctrlSetBackgroundColor [-1,-1,-1,0.75];
- _textbox ctrlSetTextColor [1,1,1,1];
- _button ctrlSetTextColor [1,1,1,1];
- _button buttonSetAction "
- _code = compile input_text7;
- [] call _code;";
- _button ctrlCommit 0;
- _textbox ctrlCommit 0;
- while { !isNull (findDisplay 49) } do {
- input_text7 = ctrlText _textbox;
- waitUntil { input_text7 != (ctrlText _textbox) || isNull (findDisplay 49) };
- if (isNull (findDisplay 49)) exitWith {};
- };
- };
- };
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement