Home › Forum › MultiPlayer Game Hacks & Cheats › Other Semi-Popular First Person Shooter Hacks › ArmA 3 Hacks & Cheats › Script Dump - Dumping Scripts
Script Dump - Dumping Scripts
Script Dump - Dumping Scripts
Rear View Camera:
Arma Bitwise Operations:
Enemy Aiming Detection:
Road Path Generator:
Will Dump More As I Find Stuff (this is not everything just what i want 2 share)
Code:
[] spawn {
_SOURCE = (typeOf player) createVehicleLocal (position player);
_SOURCE hideObject true;
[_SOURCE,player,player] call BIS_fnc_LiveFeed;
vehicle player disableCollisionWith _SOURCE;
while{true} do {
detach _SOURCE;
if(vehicle player == player) then {
_SOURCE attachTo [vehicle player,[0,2,3]];
} else {
_SOURCE attachTo [vehicle player,[0,5,5]];
};
_oldVeh = vehicle player;
waitUntil{_oldVeh != vehicle player};
};
};
Code:
/*
Get the number of bits a decimal uses
*/
TA_fnc_bitCount = {
private["_number","_log","_bits"];
_number = _this;
if(typeName _number != typeName 0) exitWith {0};
_log = log(_number)/log(2);
_bits = if([".",str(_log)] call BIS_fnc_inString) then {floor(_log) + 1} else {round(_log) + 1};
_bits;
};
/*
Convert Decimal typenameo Binary(array)
*/
TA_fnc_toBinary = {
private["_num","_max","_check","_binary","_val"];
_num = _this;
if(typeName _num != typeName 0) exitWith {[]};
_binary = [];
_max = (_num call TA_fnc_bitCount)-1;
for "_i" from _max to 0 step -1 do {
_check = 2^_i;
_val = if(_num >= _check) then {_num = _num - _check;1} else {0};
_binary = _binary + [_val];
};
_binary;
};
/*
Convert Binary Array to Decimal
*/
TA_fnc_toDecimal = {
private["_binary","_count","_decimal"];
_binary = _this;
if(typeName _binary != typeName []) exitWith {0};
_count = count(_binary)-1;
_decimal = 0;
for "_i" from _count to 0 step -1 do {
if((_binary select (_count-_i)) == 1) then {
_decimal = _decimal + (2^_i);
};
};
_decimal;
};
/*
Logical AND (Positive Numbers)
*/
TA_fnc_AND = {
private["_numOne","_numTwo","_numThree","_binaryOne","_binaryTwo","_binaryThree","_min","_indexOne","_indexTwo","_valOne","_valTwo"];
_numOne = _this select 0;
_numTwo = _this select 1;
_numThree = 0;
_binaryOne = _numOne call TA_fnc_toBinary;
_binaryTwo = _numTwo call TA_fnc_toBinary;
_binaryThree = [];
_min = count(_binaryOne) min count(_binaryTwo);
for "_i" from (_min-1) to 0 step -1 do {
_indexOne = (count(_binaryOne)-1)-_i;
_indexTwo = (count(_binaryTwo)-1)-_i;
_valOne = _binaryOne select _indexOne;
_valTwo = _binaryTwo select _indexTwo;
if(_valOne == 1 && _valTwo == 1) then {
_binaryThree = _binaryThree + [1];
} else {
_binaryThree = _binaryThree + [0];
};
};
_numThree = _binaryThree call TA_fnc_toDecimal;
_numThree;
};
/*
Logical OR (Positive Numbers)
*/
TA_fnc_OR = {
private["_numOne","_numTwo","_numThree","_binaryOne","_binaryTwo","_binaryThree","_min","_indexOne","_indexTwo","_valOne","_valTwo"];
_numOne = _this select 0;
_numTwo = _this select 1;
_numThree = 0;
_binaryOne = _numOne call TA_fnc_toBinary;
_binaryTwo = _numTwo call TA_fnc_toBinary;
_binaryThree = [];
_min = count(_binaryOne) min count(_binaryTwo);
for "_i" from (_min-1) to 0 step -1 do {
_indexOne = (count(_binaryOne)-1)-_i;
_indexTwo = (count(_binaryTwo)-1)-_i;
_valOne = _binaryOne select _indexOne;
_valTwo = _binaryTwo select _indexTwo;
if(_valOne == 1 || _valTwo == 1) then {
_binaryThree = _binaryThree + [1];
} else {
_binaryThree = _binaryThree + [0];
};
};
_numThree = _binaryThree call TA_fnc_toDecimal;
_numThree;
};
/*
Logical XOR (Positive Numbers)
*/
TA_fnc_XOR = {
private["_numOne","_numTwo","_numThree","_binaryOne","_binaryTwo","_binaryThree","_min","_indexOne","_indexTwo","_valOne","_valTwo"];
_numOne = _this select 0;
_numTwo = _this select 1;
_numThree = 0;
_binaryOne = _numOne call TA_fnc_toBinary;
_binaryTwo = _numTwo call TA_fnc_toBinary;
_binaryThree = [];
_min = count(_binaryOne) min count(_binaryTwo);
for "_i" from (_min-1) to 0 step -1 do {
_indexOne = (count(_binaryOne)-1)-_i;
_indexTwo = (count(_binaryTwo)-1)-_i;
_valOne = _binaryOne select _indexOne;
_valTwo = _binaryTwo select _indexTwo;
if(_valOne != _valTwo) then {
_binaryThree = _binaryThree + [1];
} else {
_binaryThree = _binaryThree + [0];
};
};
_numThree = _binaryThree call TA_fnc_toDecimal;
_numThree;
};
/*
Arithmetic RIGHT SHIFT (Positive Numbers)
*/
TA_fnc_rightShiftArith = {
private["_newBinary","_max","_binary","_number","_timesToShift"];
_number = _this select 0;
_timesToShift = _this select 1;
_binary = _number call TA_fnc_toBinary;
_max = count(_binary)-1;
for "_i" from 1 to _timesToShift do {
_newBinary = [_binary select 0];
for "_i" from 0 to _max-1 do {
_newBinary = _newBinary + [_binary select _i];
};
_binary = _newBinary;
systemChat str(_binary);
};
_number = _binary call TA_fnc_toDecimal;
_number;
};
/*
Arithmetic LEFT SHIFT (Positive Numbers)
*/
TA_fnc_leftShiftArith = {
private["_newBinary","_max","_binary","_number","_timesToShift"];
_number = _this select 0;
_timesToShift = _this select 1;
_binary = _number call TA_fnc_toBinary;
_max = count(_binary)-1;
for "_i" from 1 to _timesToShift do {
_newBinary = [_binary select 1];
for "_i" from 2 to _max do {
_newBinary = _newBinary + [_binary select _i];
};
_newBinary = _newBinary + [0];
_binary = _newBinary;
};
_number = _binary call TA_fnc_toDecimal;
_number;
};
/*
Logical RIGHT SHIFT (Positive Numbers)
*/
TA_fnc_rightShiftLogic = {
private["_newBinary","_max","_binary","_number","_timesToShift"];
_number = _this select 0;
_timesToShift = _this select 1;
_binary = _number call TA_fnc_toBinary;
_max = count(_binary)-1;
for "_i" from 1 to _timesToShift do {
_newBinary = [0];
for "_i" from 0 to _max-1 do {
_newBinary = _newBinary + [_binary select _i];
};
_binary = _newBinary;
systemChat str(_binary);
};
_number = _binary call TA_fnc_toDecimal;
_number;
};
/*
Logical LEFT SHIFT (Positive Numbers)
*/
TA_fnc_leftShiftLogic = {
private["_newBinary","_max","_binary","_number","_timesToShift"];
_number = _this select 0;
_timesToShift = _this select 1;
_binary = _number call TA_fnc_toBinary;
_max = count(_binary)-1;
for "_i" from 1 to _timesToShift do {
_newBinary = [_binary select 1];
for "_i" from 2 to _max do {
_newBinary = _newBinary + [_binary select _i];
};
_newBinary = _newBinary + [0];
_binary = _newBinary;
};
_number = _binary call TA_fnc_toDecimal;
_number;
};
Code:
[] spawn {
while{true} do {
{
if(alive _x && _x != player) then {
_line = lineIntersects [eyePos player,eyePos _x];
_terrain = terrainIntersectASL[eyePos player,eyePos _x];
if(!_line && !_terrain) then {
_array = _x weaponDirection (currentWeapon _x);
_weapon = (_array select 0) atan2 (_array select 1);
if(_weapon < 0) then {_weapon = 360+_weapon};
_aiming = [_x,player] call BIS_fnc_dirTo;
_numerator = _weapon min _aiming;
_denominator = _weapon max _aiming;
_accuracy = round((_numerator / _denominator)*100);
_maxPercent = _maxPercent max _accuracy;
};
};
} forEach allUnits;
uiSleep 2;
cutText["","PLAIN"];
if(_maxPercent > 70) then {
_text = format["Enemy Aiming At You: %1",_maxPercent];
_text = _text + "%";
cutText[_text,"PLAIN"];
};
};
};
Code:
/*
Name: Random Road Selector Version 1.0
Desc: Generates a random path of roads (array starting with the first and ending with the last)
Parameters:
_this select 0 (int): number of roads to select (default 20)
_this select 1 (array): center of the search zone (default 0,0)
_this select 2 (int): radius of the serach zone (default 100000)
*/
_numRoads = [_this, 0, 20,[0]] call BIS_fnc_param;
_center = [_this,1,[0,0],[[]],[2,3]] call BIS_fnc_param;
_radius = [_this,2,100000,[0]] call BIS_fnc_param;
_roads = _center nearRoads _radius;
_road = _roads select (floor(random(count(_roads))));
_roadList = [_road];
for "_i" from 1 to _numRoads do {
_connected = roadsConnectedTo _road;
_foundVal = false;
{
if !(_x in _roadList) exitWith {
_road = _x;
_roadList = _roadList + [_road];
_foundVal = true;
};
} forEach _connected;
if (!_foundVal) exitWith {};
};
_roadList;
Similar Threads
- Auto-Airblast Script and Auto-Backstab Script and Triggerbot Script by Krdzd in Team Fortress 2 Hacks 9
- Remote Execution Script + Vechicles spawn scripts! by lemon588 in DayZ Selling / Trading / Buying 1
- Script Injector + Custom Scripts ( inc working vehicle spawn for 1.7.4.4 ) by bowen2k12 in DayZ Mod & Standalone Hacks & Cheats