war3map.j

// reserved native for call 4 integer function and return BOOLEAN value
native MergeUnits		   takes integer qty, integer a, integer b, integer make returns boolean
// reserved native for call 2 integer function and return BOOLEAN value (can be converted to int!)
native ConvertUnits         takes integer qty, integer id               returns boolean
// reserved native for call 1 integer function and return integer value
native IgnoredUnits		 takes integer unitid						returns integer

// https://github.com/Karaulov/WarcraftIII_DLL_126-xxx (EXTRADLLNAME)
// DLL is helpful ally which makes game easire
// Basically there's no jass-way to detect whenever player leaves to rollback changes
// so DLL does it for you with "AddNewOffsetToRestore" function
// if DLL is missing global changes you did will affect whole game until it's restarted
// You can detect function which uses DLL by "GetModuleProcAddress(EXTRADLLNAME" part inside of them\

globals
	integer TempInteger=0
	integer Temp_GetSomeAdd1=0
	integer Temp_GetSomeAdd2=0
	integer DamageIncrementer=0
	real array DamageValues
	integer array DamageAttackTypes
	integer array DamageDamageTypes
	player LocalPlayer=null
	hashtable TempHash=InitHashtable()
	hashtable RectData = InitHashtable()
	hashtable HY=InitHashtable()
	boolean IsL1ch=true//used in "echo" function to display debug messages
	
	boolean array WidescreenState
	real GJ_LastDmg=0//outdated yet could be useful
	integer GJ_LastDamageType=0
	integer GJ_LastAttackType=0
	
	hashtable ObjectDataPointersTable=InitHashtable()
	
	timer SuperTextPrinter_Timer=null
	hashtable AbilitiesHashtable=InitHashtable()
	
	integer testFunctionCount = 0
	integer latestAddress1 = 0
	integer latestAddress2 = 0

	integer array Ascii__Ints
	string array Ascii__Chars
	
	code l__Code
	integer l__Int
	string l__Str
	boolean l__Bool
	
	constant string dotaconfigfle="config.dota"
	
	integer array l__Array
	
	string array HexNumber__Chars
	
	integer bytecode
	integer array l__bytecode
	integer array Memory
	integer bytecodedata //used to pass data between regular code and bytecode
	integer GameState
	integer pointers
	integer pUnitData
	integer pAbilityData
	
	constant gametype GAME_TYPE_ALL= ConvertGameType(0xFFFFFFFF)
	
	integer array H
	trigger l__library_init
	
	
	// For SetUnitFlags_2 (unit+0x20)
	constant integer UNIT_VISIBLED_TO_ALL 		= 0x10
	constant integer UNIT_INVULNERABLE 			= 0x8
	constant integer UNIT_SELECTABLE 			= 0x2 
	constant integer UNIT_HIDDEN 				= 0x1
	constant integer UNIT_AUTOATTACK_DISABLED=0x10000000
	constant integer UNIT_ILLUSION=0x40000000
	
	// For SetUnitFlags (unit+0xD4)
	//flag 0x4 causes fatal if any damage received
	//flag 0x40 stands for red flash, but doesn't directly calls it
	constant integer UNIT_DEAD = 0x100
	//like dead hero, provides no vision, cant be selected, enemies doesn't flee when attacked by unit with this flag
	constant integer UNIT_MINMAP_ICON_HIDE		= 0x80000
	constant integer UNIT_MINMAP_ICON_TAVERN	= 0x40000
	constant integer UNIT_MINMAP_ICON_GOLD		= 0x20000
	constant integer UNIT_MINMAP_SHAREVISIBLE	= 0x10000
	constant integer UNIT_STUNNED= 0x100000
	constant integer UNIT_INVISIBLED 			= 0x1000000
	constant integer UNIT_HAS_FLYING_VISION= 0x20000000
	
	integer pCameraDefaultHeight
	real array DefaultCameraHeight
	
	// 126a 0xAB65F4
	// 127a 0xBE4238
	integer pGlobalPlayerClass
	
	// 127a 0xBEC464
	// 126a 0xAB4450
	integer pUnitMaxSpeedConstant
	integer pUnitMaxSpeedConstantD

	real 	UnitMaxSpeedConstant
	// 127a 0xBEC460
	// 126a 0xAB444C
	integer pUnitMinSpeedConstant
	integer pUnitMinSpeedConstantD

	real 	UnitMinSpeedConstant
	// 127a 0xBEC46C
	// 126a 0xAB4458
	integer pBuildingMaxSpeedConstant
	integer pBuildingMaxSpeedConstantD

	real	BuildingMaxSpeedConstant
	// 127a 0xBEC468
	// 126a 0xAB4454
	integer pBuildingMinSpeedConstant
	integer pBuildingMinSpeedConstantD

	real 	BuildingMinSpeedConstant
	integer pUnitUIDefAddr
	integer pUnitDataDefAddr
	integer pAbilityUIDefAddr
	integer pAbilityDataDefAddr
	
	integer pAttackSpeedLimit
	real	AttackSpeedLimit
	
	integer pAttackTimeLimit
	real	AttackTimeLimit
	
	integer pWar3MapJLocation=0

	
	integer pGameClass1=0
	integer pGameClass2=0
	integer pGameClass3=0
	integer pTimerAddr=0
	integer pCGameState=0
	
	integer pJassEnvAddress=0
	
	integer pLightEnv=0
	
	integer pGetModuleHandle=0
	integer pGetProcAddress=0
	
	integer GameDLL=0
	integer GameVersion=0
	
	integer pMergeUnits=0
	integer pMergeUnitsOffset=0
	integer pIgnoredUnits=0
	integer pIgnoredUnitsOffset=0
	integer pConvertUnits=0
	integer pConvertUnitsOffset=0
	integer pLeaderboardSetItemLabelColor=0
	
	integer pSetHPBarColorForPlayer=0
	integer pSetHPBarXScaleForPlayer=0
	integer pSetHPBarYScaleForPlayer=0
	
	integer pSetHPCustomHPBarUnit=0
	
	
	integer pSetMPBarXScaleForPlayer=0
	integer pSetMPBarYScaleForPlayer=0
	integer pSetMPBarYOffsetForPlayer=0
	
	
	integer pExportFromMpq=0
	integer pGetFrameItemAddress=0
	integer pGetFrameSkinAddress=0
	integer pGetFrameTextAddress=0
	integer pUpdateFrameText=0
	
	integer pFrameDefClass=0
	integer pConvertString=0
	integer pPacketClass=0
	integer pPacketSend=0
	
	
	integer pPingMinimapOffset=0
	integer pPingMinimapExOffset=0
	
	integer PingMinimapUnlocker = 0
	integer PingMinimapExUnlocker = 0
	boolean NotLockedPingMinimap = true
	boolean NotLockedPingMinimapEx = true
	
	integer pFindWindowA=0
	integer pMessageBoxA=0
	integer pGetAsyncKeyState=0
	integer pWritePrivateProfileStringA=0
	integer pGetPrivateProfileStringA=0
	integer pLoadLibraryA=0
	integer pGetFileAttributesA=0
	integer pVirtualAlloc=0
	integer pVirtualProtect=0
	
	integer array RJassNativesBuffer
	integer RJassNativesBufferSize = 0
	
	
	integer pReservedExecutableMemory=0
	integer pReservedExecutableMemory2=0
	integer pBitwiseOR_ExecutableMemory
	boolean NeedInitBitwiseOr = true
	integer pBitwiseXOR_ExecutableMemory
	boolean NeedInitBitwiseXor = true
	integer pBitwiseAND_ExecutableMemory
	boolean NeedInitBitwiseAnd = true
	
	integer pReservedWritableMemory
	integer pReservedWritableMemory2
	
	constant integer szReservedWritableMemory = 3000
	
	integer pStorm279
	integer pPrintText1
	integer pPrintText2
	integer pPrintText3
	integer pGetUnitAbility
	integer pGetUnitAddress
	integer p_sprintf
	integer pChangeFont
	
	integer pUpdateRestoreTimer=0
	integer pAddNewOffsetToRestore=0
	constant string EXTRADLLNAME="DotAAllstarsHelper688.dll"

	integer pReserverdIntArg1
	integer pReserverdIntArg2
	integer pReserverdIntArg3
	integer pReserverdIntArg4
	hashtable Addresses=InitHashtable()
	constant integer DEF_ADR_ABILITY_DATA=0
	constant integer DEF_ADR_ABILITY_UI=1
	constant integer DEF_ADR_UNIT_DATA=2
	constant integer DEF_ADR_UNIT_UI=3
	constant integer DEF_ADR_ITEM_DATA=4
	constant integer ILLUSTION_BONUS_DAMAGE_RECEIVES=0
	constant integer ILLUSTION_BONUS_DAMAGE_DEALS=1
	
	integer pOrder1_offset
	integer pOrder2_offset
	integer pOrder3_offset
	integer pOrder4_offset
	integer pOrder5_offset
	integer pOrder6_offset
	integer pOrder7_offset
	integer pOrder8_offset
	integer Order1_unlockedvalue = 0
	integer Order2_unlockedvalue = 0
	integer Order3_unlockedvalue = 0
	integer Order4_unlockedvalue = 0
	integer Order5_unlockedvalue = 0
	integer Order6_unlockedvalue = 0
	integer Order7_unlockedvalue = 0
	integer Order8_unlockedvalue = 0
	integer Order1_lockedvalue 
	integer Order2_lockedvalue 
	integer Order3_lockedvalue 
	integer Order4_lockedvalue 
	integer Order5_lockedvalue 
	integer Order6_lockedvalue 
	integer Order7_lockedvalue
	integer Order8_lockedvalue 
	boolean IsOrder1Locked = false
	boolean IsOrder2Locked = false
	boolean IsOrder3Locked = false
	boolean IsOrder4Locked = false
	boolean IsOrder5Locked = false
	boolean IsOrder6Locked = false
	boolean IsOrder7Locked = false
	boolean IsOrder8Locked = false
	
	boolean FogUpdateBlocked = false 
	integer pUpdateFogManual=0
	integer pFogUpdateBlockAddr=0
	integer pFogUpdateBlockAddrOld1=0
	integer pFogUpdateBlockAddrOld2=0
	integer pFogUpdateBlockAddrNew1=0
	integer pFogUpdateBlockAddrNew2=0
	
	integer pGetLatestDownloadedString = 0
	integer pGetDownloadStatus = 0
	integer pSaveNewMapFromUrl = 0
	integer pGetDownloadProgress = 0
	integer pGetCurrentMapDir = 0
	
	integer pStartAbilityCD=0
	
	integer pSendCommandWithoutTarget
	integer pMissile
	integer pWindowIsActive
	integer pSendHttpGetRequest = 0
	integer pAllianceOutput
	integer AllianceLocker = 0
	boolean NotLockedAllianceOutput = true
	
	integer pMutePlayer=0
	integer pUnMutePlayer=0
	
	integer pSetWidescreenFixState=0
	integer pSetCustomFovFix=0
	
	boolean EXTRADLLLOADED = false
	
	integer RegionEditMode = 0
	real LatestMouseX = 0.
	real LatestMouseY = 0.
	integer LatestSelectRect = 0
	integer LatestOverRect = 0
	
	
	integer gl_hRectID = 0
	
	integer OPLimitAddress1=0
	integer OPLimitAddress2=0
	integer pCycloneFixCondition=0
	constant integer CycloneFixCondition026a=0x808B08EB
	integer CycloneFixBaseValue=0
	constant integer CycloneFixCondition027a=0x458B16EB
	integer pCaptionsOverTheCreeps=0
	integer pPhaseShiftInvisibilityFlagByte=0
	constant integer PhaseShiftInvisibilityFlagByteFixed0x26=0x00000060
	constant integer PhaseShiftInvisibilityFlagByteFixed0x27=0x00000060
	
	integer pMemcpy
	integer pSearchStringValue
	integer pSearchStringAddr1
	integer pSearchStringAddr2
	
	integer pReservedMemoryForUpdateFrameText
	
	integer pSimulateAttackInstance
	integer pGameTime
	
	integer pToggleForcedSubSelection=0
	integer pToggleBlockKeyAndMouseEmulation=0
	integer pToggleClickHelper=0
	
	integer pSetStunToUnitTRUE 
	integer	pSetStunToUnitFALSE 
	
	integer pReservedMemoryForSystemTime
	integer pGetLocalTime=0
	
	integer pCommonSilence
	integer pAddSilenceOnAbility
	integer pRemoveSilenceFromAbility
	integer pPauseUnitDisabler
	
	integer pUpdateUnitsSpeedCurrent
	
	integer pSendMessageToChat=0
	
	integer pCastSilenceToTarget
	integer pCastAbility=0
	
	integer pDamageBlockIllusionCheck=0
	
	integer pItemDropOrderTriggerFix=0
	
	integer pFixModelCollisionSphere=0
	
	integer pGetOrLoadFile
	integer pApplyTerrainFilterDirectly=0
	integer pSetMainFuncWork=0
	integer pFixModelTexturePath=0
	
	integer StoreIntegerOffset = 0
	integer StoreIntegerUnlocker = 0
	boolean StoreIntegerLocked = false
	
	integer pPatchModel = 0
	integer pChangeAnimationSpeed = 0
	integer pSetSequenceValue = 0
	integer pRedirectFile = 0
	integer pReservedMemoryForMissileHandler=0
	integer pReservedMemoryForDamageHandler=0
	integer pUnitVtable = 0
	integer pRealUnitDamageHandler = 0
	integer pTriggerExecute = 0
	integer pDamageTarget = 0
	integer pMissileEspData = 0
	integer pDamageEspData = 0
	integer pMissileFuncStart = 0
	integer pMissileJumpBack = 0
	integer pItemDataNode=0
	integer pJassLog = 0
endglobals

function Char2Ascii takes string s returns integer
	local integer i= Ascii__Ints[StringHash(s) / 0x1F0748 + 0x3EA]
	if i == 47 and s == "\\" then
		set i=92
	elseif i >= 65 and i <= 90 and s != Ascii__Chars[i] then
		set i=i + 32
	endif
	return i
endfunction

function Char2Hex takes string s returns integer
	local integer i= Ascii__Ints[StringHash(s) / 0x1F0748 + 0x3EA]
	if i >= 48 and i <= 57 then
		return i - 48
	elseif i >= 65 and i <= 70 then
		return i - 55
	endif
	return - 1
endfunction

function Ascii2Char takes integer i returns string
	return Ascii__Chars[i]
endfunction

function Ascii__onInit takes nothing returns nothing
	set Ascii__Ints[931]=8
	set Ascii__Ints[1075]=9
	set Ascii__Ints[1586]=10
	set Ascii__Ints[1340]=12
	set Ascii__Ints[412]=13
	set Ascii__Ints[198]=32
	set Ascii__Ints[1979]=33
	set Ascii__Ints[1313]=34
	set Ascii__Ints[1003]=35
	set Ascii__Ints[1264]=36
	set Ascii__Ints[983]=37
	set Ascii__Ints[1277]=38
	set Ascii__Ints[306]=39
	set Ascii__Ints[904]=40
	set Ascii__Ints[934]=41
	set Ascii__Ints[917]=42
	set Ascii__Ints[1972]=43
	set Ascii__Ints[1380]=44
	set Ascii__Ints[1985]=45
	set Ascii__Ints[869]=46
	set Ascii__Ints[1906]=47
	set Ascii__Ints[883]=48
	set Ascii__Ints[1558]=49
	set Ascii__Ints[684]=50
	set Ascii__Ints[582]=51
	set Ascii__Ints[668]=52
	set Ascii__Ints[538]=53
	set Ascii__Ints[672]=54
	set Ascii__Ints[1173]=55
	set Ascii__Ints[71]=56
	set Ascii__Ints[277]=57
	set Ascii__Ints[89]=58
	set Ascii__Ints[1141]=59
	set Ascii__Ints[39]=60
	set Ascii__Ints[1171]=61
	set Ascii__Ints[51]=62
	set Ascii__Ints[305]=0 //fixme 63
	set Ascii__Ints[0]=64
	set Ascii__Ints[222]=65
	set Ascii__Ints[178]=66
	set Ascii__Ints[236]=67
	set Ascii__Ints[184]=68
	set Ascii__Ints[1295]=69
	set Ascii__Ints[1390]=70
	set Ascii__Ints[1276]=71
	set Ascii__Ints[203]=72
	set Ascii__Ints[1314]=73
	set Ascii__Ints[209]=74
	set Ascii__Ints[1315]=75
	set Ascii__Ints[170]=76
	set Ascii__Ints[1357]=77
	set Ascii__Ints[1343]=78
	set Ascii__Ints[1397]=79
	set Ascii__Ints[1420]=80
	set Ascii__Ints[1419]=81
	set Ascii__Ints[1396]=82
	set Ascii__Ints[1374]=83
	set Ascii__Ints[1407]=84
	set Ascii__Ints[499]=85
	set Ascii__Ints[1465]=86
	set Ascii__Ints[736]=87
	set Ascii__Ints[289]=88
	set Ascii__Ints[986]=89
	set Ascii__Ints[38]=90
	set Ascii__Ints[1230]=91
	set Ascii__Ints[1636]=93
	set Ascii__Ints[1416]=94
	set Ascii__Ints[1917]=95
	set Ascii__Ints[217]=96
	set Ascii__Ints[833]=123
	set Ascii__Ints[1219]=124
	set Ascii__Ints[553]=125
	set Ascii__Ints[58]=126
	
	set Ascii__Chars[0]="?"
	set Ascii__Chars[8]="\b"
	set Ascii__Chars[9]="\t" 
	set Ascii__Chars[10]="\n"
	set Ascii__Chars[12]="\f"
	set Ascii__Chars[13]="\r"
	set Ascii__Chars[32]=" "
	set Ascii__Chars[33]="!"
	set Ascii__Chars[34]="\""
	set Ascii__Chars[35]="#"
	set Ascii__Chars[36]="$"
	set Ascii__Chars[37]="%"
	set Ascii__Chars[38]="&"
	set Ascii__Chars[39]="'"//'
	set Ascii__Chars[40]="("
	set Ascii__Chars[41]=")"
	set Ascii__Chars[42]="*"
	set Ascii__Chars[43]="+"
	set Ascii__Chars[44]=","
	set Ascii__Chars[45]="-"
	set Ascii__Chars[46]="."
	set Ascii__Chars[47]="/"
	set Ascii__Chars[48]="0"
	set Ascii__Chars[49]="1"
	set Ascii__Chars[50]="2"
	set Ascii__Chars[51]="3"
	set Ascii__Chars[52]="4"
	set Ascii__Chars[53]="5"
	set Ascii__Chars[54]="6"
	set Ascii__Chars[55]="7"
	set Ascii__Chars[56]="8"
	set Ascii__Chars[57]="9"
	set Ascii__Chars[58]=":"
	set Ascii__Chars[59]=";"
	set Ascii__Chars[60]="<"
	set Ascii__Chars[61]="="
	set Ascii__Chars[62]=">"
	set Ascii__Chars[63]="?"
	set Ascii__Chars[64]="@"
	set Ascii__Chars[65]="A"
	set Ascii__Chars[66]="B"
	set Ascii__Chars[67]="C"
	set Ascii__Chars[68]="D"
	set Ascii__Chars[69]="E"
	set Ascii__Chars[70]="F"
	set Ascii__Chars[71]="G"
	set Ascii__Chars[72]="H"
	set Ascii__Chars[73]="I"
	set Ascii__Chars[74]="J"
	set Ascii__Chars[75]="K"
	set Ascii__Chars[76]="L"
	set Ascii__Chars[77]="M"
	set Ascii__Chars[78]="N"
	set Ascii__Chars[79]="O"
	set Ascii__Chars[80]="P"
	set Ascii__Chars[81]="Q"
	set Ascii__Chars[82]="R"
	set Ascii__Chars[83]="S"
	set Ascii__Chars[84]="T"
	set Ascii__Chars[85]="U"
	set Ascii__Chars[86]="V"
	set Ascii__Chars[87]="W"
	set Ascii__Chars[88]="X"
	set Ascii__Chars[89]="Y"
	set Ascii__Chars[90]="Z"
	set Ascii__Chars[91]="["
	set Ascii__Chars[92]="\\"
	set Ascii__Chars[93]="]"
	set Ascii__Chars[94]="^"
	set Ascii__Chars[95]="_"
	set Ascii__Chars[96]="`"
	set Ascii__Chars[97]="a"
	set Ascii__Chars[98]="b"
	set Ascii__Chars[99]="c"
	set Ascii__Chars[100]="d"
	set Ascii__Chars[101]="e"
	set Ascii__Chars[102]="f"
	set Ascii__Chars[103]="g"
	set Ascii__Chars[104]="h"
	set Ascii__Chars[105]="i"
	set Ascii__Chars[106]="j"
	set Ascii__Chars[107]="k"
	set Ascii__Chars[108]="l"
	set Ascii__Chars[109]="m"
	set Ascii__Chars[110]="n"
	set Ascii__Chars[111]="o"
	set Ascii__Chars[112]="p"
	set Ascii__Chars[113]="q"
	set Ascii__Chars[114]="r"
	set Ascii__Chars[115]="s"
	set Ascii__Chars[116]="t"
	set Ascii__Chars[117]="u"
	set Ascii__Chars[118]="v"
	set Ascii__Chars[119]="w"
	set Ascii__Chars[120]="x"
	set Ascii__Chars[121]="y"
	set Ascii__Chars[122]="z"
	set Ascii__Chars[123]="{"
	set Ascii__Chars[124]="|"
	set Ascii__Chars[125]="}"
	set Ascii__Chars[126]="~"
endfunction


//library Ascii ends
//library Typecast:


function InitArray takes integer vtable returns nothing
	set l__Array[4] = 0
	set l__Array[1] = vtable
	set l__Array[2] = -1
	set l__Array[3] = -1
endfunction

function TypecastArray takes nothing returns nothing
	local integer l__Array //typecast Array to integer
endfunction

function GetArrayAddress takes nothing returns integer //not really needed
	loop
		return l__Array
	endloop
	return 0
endfunction

function setCode takes code c returns nothing
	set l__Code=c
	return //Prevents Jasshelper from inlining this function
endfunction

function setInt takes integer i returns nothing
	set l__Int=i
	return //Prevents JassHelper from inlining this function
endfunction

function setStr takes string s returns nothing
	set l__Str = s
	return //Prevents JassHelper from inlining this function
endfunction

function setBool takes boolean b returns nothing
	set l__Bool = b
	return
endfunction

function Typecast1 takes nothing returns nothing
	local integer l__Code
	local code l__Int
endfunction

function C2I takes code c returns integer
	call setCode(c)
	loop //Loop is not required, I'm using it just to fool Pjass
		return l__Code
	endloop
	return 0
endfunction

function I2C takes integer i returns code
	call setInt(i)
	loop //Loop is not required, I'm using it just to fool Pjass
		return l__Int
	endloop
	return null
endfunction

function Typecast2 takes nothing returns nothing
	local integer l__Str
	local string l__Int
endfunction

function SH2I takes string s returns integer
	call setStr(s)
	loop //Loop is not required, I'm using it just to fool Pjass
    	    	return l__Str
	endloop
	return 0
endfunction

function I2SH takes integer i returns string
	call setInt(i)
	loop //Loop is not required, I'm using it just to fool Pjass
    	    	return l__Int
	endloop
	return null
endfunction

function Typecast3 takes nothing returns nothing
	local integer l__Bool
	local boolean l__Int
endfunction

function B2I takes boolean b returns integer
	call setBool(b)
	loop //Loop is not required, I'm using it just to fool Pjass
	    	return l__Bool
	endloop
	return 0
endfunction

function I2B takes integer i returns boolean
	call setInt(i)
	loop //Loop is not required, I'm using it just to fool Pjass
    		return l__Int
	endloop
	return false
endfunction

	function realToIndex takes real r returns integer
		loop
			return r
		endloop
		return 0
	endfunction

	function cleanInt takes integer i returns integer
		return i
	endfunction

	function indexToReal takes integer i returns real
		loop
			return i
		endloop
		return 0.0
	endfunction

	function cleanReal takes real r returns real
		return r
	endfunction

function GetRealFromMemory takes integer i returns real
	return cleanReal(indexToReal(i))
endfunction

function SetRealIntoMemory takes real r returns integer
	return cleanInt(realToIndex(r))
endfunction

//library Typecast ends
//library HexNumber:

function BitwiseNot takes integer i returns integer
	return 0xFFFFFFFF - i
endfunction

function PowI takes integer x, integer power returns integer
	local integer res=1
	local integer y=x
	if power==0 then
		return 1
	endif
	set power=power-1
	loop
		set x=x*y
		set power=power-1
		exitwhen power==0
	endloop
	return x
endfunction


function ShiftLeftForBits takes integer i, integer shiftval returns integer
	return i * (PowI(2,shiftval))
endfunction

function ShiftRightForBits takes integer i, integer shiftval returns integer
	return i / (PowI(2,shiftval))
endfunction

function ShiftLeftForBytes takes integer i, integer shiftval returns integer
	return ShiftLeftForBits(i,shiftval * 8)
endfunction

function ShiftRightForBytes takes integer i, integer shiftval returns integer
	return ShiftRightForBits(i,shiftval * 8)
endfunction



function GetByteFromInteger takes integer i, integer byteid returns integer 
	local integer tmpval = i 
	local integer retval = 0
	local integer byte1 = 0
	local integer byte2 = 0
	local integer byte3 = 0
	local integer byte4 = 0
	if (tmpval < 0) then 
		set tmpval = BitwiseNot(tmpval)
		set byte4 = 255 - ModuloInteger(tmpval,256)
		set tmpval = tmpval / 256 
		set byte3 = 255 - ModuloInteger(tmpval,256)
		set tmpval = tmpval / 256 
		set byte2 = 255 - ModuloInteger(tmpval,256)
		set tmpval = tmpval / 256 
		set byte1 = 255 - tmpval
	else 
		set byte4 =  ModuloInteger(tmpval,256)
		set tmpval = tmpval / 256 
		set byte3 =  ModuloInteger(tmpval,256)
		set tmpval = tmpval / 256 
		set byte2 =  ModuloInteger(tmpval,256)
		set tmpval = tmpval / 256 
		set byte1 = tmpval
	endif
	
	if byteid == 1 then 
		return byte1
	elseif byteid == 2 then 
		return byte2
	elseif byteid == 3 then 
		return byte3
	elseif byteid == 4 then 
		return byte4
	endif

	
	return retval
endfunction


function CreateInteger1 takes integer byte1, integer byte2, integer byte3, integer byte4 returns integer
	local integer retval = byte1
	set retval = ( retval * 256 ) + byte2
	set retval = ( retval * 256 ) + byte3
	set retval = ( retval * 256 ) + byte4
	return retval
endfunction

function CreateInteger2 takes integer byte1, integer byte2, integer byte3, integer byte4 returns integer
	local integer retval = byte1
	set retval = ShiftLeftForBytes(retval,1) + byte2
	set retval = ShiftLeftForBytes(retval,1) + byte3
	set retval = ShiftLeftForBytes(retval,1) + byte4
	return retval
endfunction


function Hex2Int takes string s returns integer
	local integer result= 0
	local integer i= 0
	local integer char
	loop
		set char=Char2Hex(SubString(s, i, i + 1))
		exitwhen i == 8 or char == - 1
		set result=result * 16 + char
		set i=i + 1
	endloop
	return result
endfunction


function Int2Hex_FIX takes integer i returns string
	set i = BitwiseNot(i)
	return  HexNumber__Chars[255-(i/256/256/256)] + HexNumber__Chars[255-ModuloInteger(i/256/256,256)] + HexNumber__Chars[255-ModuloInteger(i/256,256)]  +  HexNumber__Chars[255-ModuloInteger(i,256)]
endfunction

function Int2Hex takes integer i returns string
	if (i < 0) then 
		return Int2Hex_FIX(i)
	endif
	return  HexNumber__Chars[(i/256/256/256)] + HexNumber__Chars[ModuloInteger(i/256/256,256)] + HexNumber__Chars[ModuloInteger(i/256,256)]  +  HexNumber__Chars[ModuloInteger(i,256)]
endfunction


function HexNumber__onInit takes nothing returns nothing
	set HexNumber__Chars[0]="00" 
	set HexNumber__Chars[1]="01" 
	set HexNumber__Chars[2]="02" 
	set HexNumber__Chars[3]="03" 
	set HexNumber__Chars[4]="04" 
	set HexNumber__Chars[5]="05" 
	set HexNumber__Chars[6]="06" 
	set HexNumber__Chars[7]="07" 
	set HexNumber__Chars[8]="08" 
	set HexNumber__Chars[9]="09" 
	set HexNumber__Chars[10]="0A" 
	set HexNumber__Chars[11]="0B" 
	set HexNumber__Chars[12]="0C" 
	set HexNumber__Chars[13]="0D" 
	set HexNumber__Chars[14]="0E" 
	set HexNumber__Chars[15]="0F" 
	set HexNumber__Chars[16]="10" 
	set HexNumber__Chars[17]="11" 
	set HexNumber__Chars[18]="12" 
	set HexNumber__Chars[19]="13" 
	set HexNumber__Chars[20]="14" 
	set HexNumber__Chars[21]="15" 
	set HexNumber__Chars[22]="16" 
	set HexNumber__Chars[23]="17" 
	set HexNumber__Chars[24]="18" 
	set HexNumber__Chars[25]="19" 
	set HexNumber__Chars[26]="1A" 
	set HexNumber__Chars[27]="1B" 
	set HexNumber__Chars[28]="1C" 
	set HexNumber__Chars[29]="1D" 
	set HexNumber__Chars[30]="1E" 
	set HexNumber__Chars[31]="1F" 
	set HexNumber__Chars[32]="20" 
	set HexNumber__Chars[33]="21" 
	set HexNumber__Chars[34]="22" 
	set HexNumber__Chars[35]="23" 
	set HexNumber__Chars[36]="24" 
	set HexNumber__Chars[37]="25" 
	set HexNumber__Chars[38]="26" 
	set HexNumber__Chars[39]="27" 
	set HexNumber__Chars[40]="28" 
	set HexNumber__Chars[41]="29" 
	set HexNumber__Chars[42]="2A" 
	set HexNumber__Chars[43]="2B" 
	set HexNumber__Chars[44]="2C" 
	set HexNumber__Chars[45]="2D" 
	set HexNumber__Chars[46]="2E" 
	set HexNumber__Chars[47]="2F" 
	set HexNumber__Chars[48]="30" 
	set HexNumber__Chars[49]="31" 
	set HexNumber__Chars[50]="32" 
	set HexNumber__Chars[51]="33" 
	set HexNumber__Chars[52]="34" 
	set HexNumber__Chars[53]="35" 
	set HexNumber__Chars[54]="36" 
	set HexNumber__Chars[55]="37" 
	set HexNumber__Chars[56]="38" 
	set HexNumber__Chars[57]="39" 
	set HexNumber__Chars[58]="3A" 
	set HexNumber__Chars[59]="3B" 
	set HexNumber__Chars[60]="3C" 
	set HexNumber__Chars[61]="3D" 
	set HexNumber__Chars[62]="3E" 
	set HexNumber__Chars[63]="3F" 
	set HexNumber__Chars[64]="40" 
	set HexNumber__Chars[65]="41" 
	set HexNumber__Chars[66]="42" 
	set HexNumber__Chars[67]="43" 
	set HexNumber__Chars[68]="44" 
	set HexNumber__Chars[69]="45" 
	set HexNumber__Chars[70]="46" 
	set HexNumber__Chars[71]="47" 
	set HexNumber__Chars[72]="48" 
	set HexNumber__Chars[73]="49" 
	set HexNumber__Chars[74]="4A" 
	set HexNumber__Chars[75]="4B" 
	set HexNumber__Chars[76]="4C" 
	set HexNumber__Chars[77]="4D" 
	set HexNumber__Chars[78]="4E" 
	set HexNumber__Chars[79]="4F" 
	set HexNumber__Chars[80]="50" 
	set HexNumber__Chars[81]="51" 
	set HexNumber__Chars[82]="52" 
	set HexNumber__Chars[83]="53" 
	set HexNumber__Chars[84]="54" 
	set HexNumber__Chars[85]="55" 
	set HexNumber__Chars[86]="56" 
	set HexNumber__Chars[87]="57" 
	set HexNumber__Chars[88]="58" 
	set HexNumber__Chars[89]="59" 
	set HexNumber__Chars[90]="5A" 
	set HexNumber__Chars[91]="5B" 
	set HexNumber__Chars[92]="5C" 
	set HexNumber__Chars[93]="5D" 
	set HexNumber__Chars[94]="5E" 
	set HexNumber__Chars[95]="5F" 
	set HexNumber__Chars[96]="60" 
	set HexNumber__Chars[97]="61" 
	set HexNumber__Chars[98]="62" 
	set HexNumber__Chars[99]="63" 
	set HexNumber__Chars[100]="64" 
	set HexNumber__Chars[101]="65" 
	set HexNumber__Chars[102]="66" 
	set HexNumber__Chars[103]="67" 
	set HexNumber__Chars[104]="68" 
	set HexNumber__Chars[105]="69" 
	set HexNumber__Chars[106]="6A" 
	set HexNumber__Chars[107]="6B" 
	set HexNumber__Chars[108]="6C" 
	set HexNumber__Chars[109]="6D" 
	set HexNumber__Chars[110]="6E" 
	set HexNumber__Chars[111]="6F" 
	set HexNumber__Chars[112]="70" 
	set HexNumber__Chars[113]="71" 
	set HexNumber__Chars[114]="72" 
	set HexNumber__Chars[115]="73" 
	set HexNumber__Chars[116]="74" 
	set HexNumber__Chars[117]="75" 
	set HexNumber__Chars[118]="76" 
	set HexNumber__Chars[119]="77" 
	set HexNumber__Chars[120]="78" 
	set HexNumber__Chars[121]="79" 
	set HexNumber__Chars[122]="7A" 
	set HexNumber__Chars[123]="7B" 
	set HexNumber__Chars[124]="7C" 
	set HexNumber__Chars[125]="7D" 
	set HexNumber__Chars[126]="7E" 
	set HexNumber__Chars[127]="7F" 
	set HexNumber__Chars[128]="80" 
	set HexNumber__Chars[129]="81" 
	set HexNumber__Chars[130]="82" 
	set HexNumber__Chars[131]="83" 
	set HexNumber__Chars[132]="84" 
	set HexNumber__Chars[133]="85" 
	set HexNumber__Chars[134]="86" 
	set HexNumber__Chars[135]="87" 
	set HexNumber__Chars[136]="88" 
	set HexNumber__Chars[137]="89" 
	set HexNumber__Chars[138]="8A" 
	set HexNumber__Chars[139]="8B" 
	set HexNumber__Chars[140]="8C" 
	set HexNumber__Chars[141]="8D" 
	set HexNumber__Chars[142]="8E" 
	set HexNumber__Chars[143]="8F" 
	set HexNumber__Chars[144]="90" 
	set HexNumber__Chars[145]="91" 
	set HexNumber__Chars[146]="92" 
	set HexNumber__Chars[147]="93" 
	set HexNumber__Chars[148]="94" 
	set HexNumber__Chars[149]="95" 
	set HexNumber__Chars[150]="96" 
	set HexNumber__Chars[151]="97" 
	set HexNumber__Chars[152]="98" 
	set HexNumber__Chars[153]="99" 
	set HexNumber__Chars[154]="9A" 
	set HexNumber__Chars[155]="9B" 
	set HexNumber__Chars[156]="9C" 
	set HexNumber__Chars[157]="9D" 
	set HexNumber__Chars[158]="9E" 
	set HexNumber__Chars[159]="9F" 
	set HexNumber__Chars[160]="A0" 
	set HexNumber__Chars[161]="A1" 
	set HexNumber__Chars[162]="A2" 
	set HexNumber__Chars[163]="A3" 
	set HexNumber__Chars[164]="A4" 
	set HexNumber__Chars[165]="A5" 
	set HexNumber__Chars[166]="A6" 
	set HexNumber__Chars[167]="A7" 
	set HexNumber__Chars[168]="A8" 
	set HexNumber__Chars[169]="A9" 
	set HexNumber__Chars[170]="AA" 
	set HexNumber__Chars[171]="AB" 
	set HexNumber__Chars[172]="AC" 
	set HexNumber__Chars[173]="AD" 
	set HexNumber__Chars[174]="AE" 
	set HexNumber__Chars[175]="AF" 
	set HexNumber__Chars[176]="B0" 
	set HexNumber__Chars[177]="B1" 
	set HexNumber__Chars[178]="B2" 
	set HexNumber__Chars[179]="B3" 
	set HexNumber__Chars[180]="B4" 
	set HexNumber__Chars[181]="B5" 
	set HexNumber__Chars[182]="B6" 
	set HexNumber__Chars[183]="B7" 
	set HexNumber__Chars[184]="B8" 
	set HexNumber__Chars[185]="B9" 
	set HexNumber__Chars[186]="BA" 
	set HexNumber__Chars[187]="BB" 
	set HexNumber__Chars[188]="BC" 
	set HexNumber__Chars[189]="BD" 
	set HexNumber__Chars[190]="BE" 
	set HexNumber__Chars[191]="BF" 
	set HexNumber__Chars[192]="C0" 
	set HexNumber__Chars[193]="C1" 
	set HexNumber__Chars[194]="C2" 
	set HexNumber__Chars[195]="C3" 
	set HexNumber__Chars[196]="C4" 
	set HexNumber__Chars[197]="C5" 
	set HexNumber__Chars[198]="C6" 
	set HexNumber__Chars[199]="C7" 
	set HexNumber__Chars[200]="C8" 
	set HexNumber__Chars[201]="C9" 
	set HexNumber__Chars[202]="CA" 
	set HexNumber__Chars[203]="CB" 
	set HexNumber__Chars[204]="CC" 
	set HexNumber__Chars[205]="CD" 
	set HexNumber__Chars[206]="CE" 
	set HexNumber__Chars[207]="CF" 
	set HexNumber__Chars[208]="D0" 
	set HexNumber__Chars[209]="D1" 
	set HexNumber__Chars[210]="D2" 
	set HexNumber__Chars[211]="D3" 
	set HexNumber__Chars[212]="D4" 
	set HexNumber__Chars[213]="D5" 
	set HexNumber__Chars[214]="D6" 
	set HexNumber__Chars[215]="D7" 
	set HexNumber__Chars[216]="D8" 
	set HexNumber__Chars[217]="D9" 
	set HexNumber__Chars[218]="DA" 
	set HexNumber__Chars[219]="DB" 
	set HexNumber__Chars[220]="DC" 
	set HexNumber__Chars[221]="DD" 
	set HexNumber__Chars[222]="DE" 
	set HexNumber__Chars[223]="DF" 
	set HexNumber__Chars[224]="E0" 
	set HexNumber__Chars[225]="E1" 
	set HexNumber__Chars[226]="E2" 
	set HexNumber__Chars[227]="E3" 
	set HexNumber__Chars[228]="E4" 
	set HexNumber__Chars[229]="E5" 
	set HexNumber__Chars[230]="E6" 
	set HexNumber__Chars[231]="E7" 
	set HexNumber__Chars[232]="E8" 
	set HexNumber__Chars[233]="E9" 
	set HexNumber__Chars[234]="EA" 
	set HexNumber__Chars[235]="EB" 
	set HexNumber__Chars[236]="EC" 
	set HexNumber__Chars[237]="ED" 
	set HexNumber__Chars[238]="EE" 
	set HexNumber__Chars[239]="EF" 
	set HexNumber__Chars[240]="F0" 
	set HexNumber__Chars[241]="F1" 
	set HexNumber__Chars[242]="F2" 
	set HexNumber__Chars[243]="F3" 
	set HexNumber__Chars[244]="F4" 
	set HexNumber__Chars[245]="F5" 
	set HexNumber__Chars[246]="F6" 
	set HexNumber__Chars[247]="F7" 
	set HexNumber__Chars[248]="F8" 
	set HexNumber__Chars[249]="F9" 
	set HexNumber__Chars[250]="FA" 
	set HexNumber__Chars[251]="FB" 
	set HexNumber__Chars[252]="FC" 
	set HexNumber__Chars[253]="FD" 
	set HexNumber__Chars[254]="FE" 
	set HexNumber__Chars[255]="FF" 

endfunction

function GetChar takes string s, integer pos returns string
	return SubString(s, pos, pos +1)
endfunction
//library HexNumber ends
//library Memory:


function ReadMemory takes integer address returns integer
	return Memory[address/4] //Inline-friendly
endfunction

function WriteMemory takes integer address, integer value returns nothing
	set Memory[address/4] = value //Inline-friendly
endfunction

function InitBytecode takes integer id, integer k returns nothing
	set l__bytecode[0] = 0x0C010900 //op: 0C(LITERAL), type: 09(integer array), reg: 01,
	set l__bytecode[1] = k //value: 0x2114D008
	set l__bytecode[2] = 0x11010000 //op: 11(SETVAR), reg: 01
	set l__bytecode[3] = id		 //id of variable Memory
	set l__bytecode[4] = 0x0C010400 //op: 0C(LITERAL), type: 04(integer), reg: 01, value: 0
	set l__bytecode[6] = 0x27000000 //op: 27(RETURN)

	set l__bytecode[8] = 0x07090000 //op: 07(GLOBAL), type: 09 (integer array) //Create new array
	set l__bytecode[9] = 0x0C5F //name: C5F(“stand”)
	set l__bytecode[10] = 0x0E010400 //op: 0E(GETVAR), type: 04(integer), reg: 01 //Obtain the desired amount of bytes
	set l__bytecode[11] = id+1		 //id of variable bytecodedata (variable ids are sequential)
	set l__bytecode[12] = 0x12010100 //op: 12(SETARRAY), index=reg01, value=reg01 //Set index of the array, forcing allocation of memory
	set l__bytecode[13] = 0x0C5F //name: C5F(“stand”)
	set l__bytecode[14] = 0x0E010400 //op: 0E(GETVAR), type: 04(integer), reg: 01 //Read array variable as an integer
	set l__bytecode[15] = 0x0C5F //name: C5F(“stand”)
	set l__bytecode[16] = 0x11010000 //op: 11(SETVAR), reg: 01 //pass the value to the jass world
	set l__bytecode[17] = id+1		 //id of variable bytecodedata
	set l__bytecode[18] = 0x27000000 //op: 27(RETURN)
endfunction


function Typecast takes nothing returns nothing
	local integer l__bytecode
endfunction

function GetBytecodeAddress takes nothing returns integer
	loop
		return l__bytecode
	endloop
	return 0
endfunction

function NewGlobal takes nothing returns integer
	return -0x0C5F0704 //op: 07(GLOBAL), type: 04(integer), name: 0x0C5F("stand")
	return 0x2700 //op: 27(RETURN)
endfunction

function SetGlobal takes nothing returns nothing
	//This will actually set the value of the global variable, not the local
	local integer stand= 0x2114D008
endfunction

function UnlockMemory takes nothing returns nothing
	local integer array stand //The execution of this line is skipped
	call ForForce(bj_FORCE_PLAYER[0], I2C(2+C2I(function NewGlobal)))
	call ForForce(bj_FORCE_PLAYER[0], I2C(8+C2I(function SetGlobal)))
//	/*local array "stand" can now read memory, but not write.
//	The bytecode unlocks the ability to read and write memory
//	with the "Memory" array*/
	call InitArray( 0 )
	call InitArray(stand[GetArrayAddress()/4])
	call InitBytecode(stand[C2I(function ReadMemory)/4 + 13], stand[GetArrayAddress()/4+3]+4) //obtain the id of variable "Memory"
	call ForForce(bj_FORCE_PLAYER[0], I2C(stand[GetBytecodeAddress()/4+3])) //run bytecode from the array
endfunction

function malloc takes integer bytes returns integer //I’m not at home, I’m writing this from head without testing, not sure if it works
	set bytecodedata = bytes/4 + 4
	call ForForce(bj_FORCE_PLAYER[0], I2C(Memory[GetBytecodeAddress()/4+3]+32))
	return ( Memory[bytecodedata/4+3] + 4 ) / 4 * 4  //Address of data in the newly created array
endfunction

// addr 0x10000 data 1C 2C 8A 7D 6D 5F 5A 4C 6C 3C 8C 7A
// read memory at 0x10003   ( 7D 6D 5F 5A )

function CreateIntegerFromTwoByOffset takes integer i1, integer i2, integer offset returns integer 
	local integer array pBytes
	set pBytes[0] = GetByteFromInteger(i1,4)
	set pBytes[1] = GetByteFromInteger(i1,3)
	set pBytes[2] = GetByteFromInteger(i1,2)
	set pBytes[3] = GetByteFromInteger(i1,1)
	set pBytes[4] = GetByteFromInteger(i2,4)
	set pBytes[5] = GetByteFromInteger(i2,3)
	set pBytes[6] = GetByteFromInteger(i2,2)
	set pBytes[7] = GetByteFromInteger(i2,1)
	return CreateInteger1(pBytes[offset+3],pBytes[offset+2],pBytes[offset+1],pBytes[offset+0])
endfunction


function CreateDoubleIntegerAndGetOne takes integer i1, integer i2, integer value, integer offset, boolean first returns integer
	local integer array pBytes
	set pBytes[0] = GetByteFromInteger(i1,4)
	set pBytes[1] = GetByteFromInteger(i1,3)
	set pBytes[2] = GetByteFromInteger(i1,2)
	set pBytes[3] = GetByteFromInteger(i1,1)
	set pBytes[4] = GetByteFromInteger(i2,4)
	set pBytes[5] = GetByteFromInteger(i2,3)
	set pBytes[6] = GetByteFromInteger(i2,2)
	set pBytes[7] = GetByteFromInteger(i2,1)
	
	set pBytes[offset] = GetByteFromInteger(value,4)
	set pBytes[offset+1] = GetByteFromInteger(value,3)
	set pBytes[offset+2] = GetByteFromInteger(value,2)
	set pBytes[offset+3] = GetByteFromInteger(value,1)
	
	if (first) then
		return CreateInteger1(pBytes[3],pBytes[2],pBytes[1],pBytes[0])
	else
		return CreateInteger1(pBytes[7],pBytes[6],pBytes[5],pBytes[4])
	endif
endfunction


function ReadRealMemory_FIX takes integer addr returns integer
	local integer ByteOffset = addr - ( addr / 4 * 4 )
	local integer FirstAddr = addr - ByteOffset
	return CreateIntegerFromTwoByOffset(Memory[FirstAddr/4],Memory[FirstAddr/4+1], ByteOffset)
endfunction

function ReadRealMemory takes integer addr returns integer
	if addr/4*4!=addr then
		call BJDebugMsg("ReadMemory WARNING! : " + Int2Hex(addr))
		return ReadRealMemory_FIX(addr)
	endif
	return Memory[addr/4]
endfunction



function WriteRealMemory_FIX takes integer addr, integer val returns nothing
	local integer Int_1	
	local integer Int_2
	local integer ByteOffset = addr - ( addr / 4 * 4 )
	local integer FirstAddr = addr - ByteOffset
	set Int_1 = ReadRealMemory(FirstAddr)
	set Int_2 = ReadRealMemory(FirstAddr + 4)
	set Memory[FirstAddr/4] = CreateDoubleIntegerAndGetOne ( Int_1, Int_2, val, ByteOffset, true)
	set Memory[FirstAddr/4 + 1] = CreateDoubleIntegerAndGetOne ( Int_1, Int_2, val, ByteOffset, false)
endfunction

function WriteRealMemory takes integer addr, integer val returns nothing
	if addr/4*4!=addr then
		call BJDebugMsg("WriteMemory WARNING! : " + Int2Hex(addr) )
		call WriteRealMemory_FIX(addr,val)
	else 
		set Memory[addr/4] = val
	endif
endfunction

// read Game.dll + real offset
function ReadOffset takes integer i returns integer
	return ReadRealMemory(GameDLL+i)
endfunction

function ReadOffsetUnsafe takes integer i returns integer
	return  Memory[(GameDLL+i)/4]
endfunction

function ReadRealPointer1LVL takes integer addr, integer offset1 returns integer
	local integer retval = 0
	if addr > 0 then 
		set retval = ReadRealMemory(addr)
		if addr > 0 then 
			set retval = ReadRealMemory(retval + offset1)
		else 
			set retval = 0
		endif
	endif
	return retval
endfunction

function WriteRealPointer1LVL takes integer addr, integer offset1, integer val returns nothing
	local integer retval = 0
	if addr > 0 then 
		set retval = ReadRealMemory(addr)
		if addr > 0 then 
			call WriteRealMemory(retval + offset1,val)
		endif
	endif
endfunction

function ReadRealPointer2LVL takes integer addr, integer offset1, integer offset2 returns integer
	local integer retval = ReadRealPointer1LVL(addr,offset1)
	if retval > 0 then 
		set retval = ReadRealMemory(retval + offset2)
	else
		set retval = 0
	endif
	return retval
endfunction

function WriteRealPointer2LVL takes integer addr, integer offset1, integer offset2, integer val returns nothing
	local integer retval = 0
	if addr > 0 then 
		set retval = ReadRealPointer1LVL(addr,offset1)
		if addr > 0 then 
			call WriteRealMemory(retval + offset2,val)
		endif
	endif
endfunction

function ReadRealPointer3LVL takes integer addr, integer offset1, integer offset2, integer offset3 returns integer
	local integer retval = ReadRealPointer2LVL(addr,offset1,offset2)
	if retval > 0 then 
		set retval = ReadRealMemory(retval + offset3)
	else
		set retval = 0
	endif
	return retval
endfunction

function WriteRealPointer3LVL takes integer addr, integer offset1, integer offset2,integer offset3, integer val returns nothing
	local integer retval = 0
	if addr > 0 then 
		set retval = ReadRealPointer2LVL(addr,offset1,offset2)
		if addr > 0 then 
			call WriteRealMemory(retval + offset3,val)
		endif
	endif
endfunction

function ReadRealPointer4LVL takes integer addr, integer offset1, integer offset2, integer offset3, integer offset4 returns integer
	local integer retval = ReadRealPointer3LVL(addr,offset1,offset2,offset3)
	if retval > 0 then 
		set retval = ReadRealMemory(retval + offset4)
	else
		set retval = 0
	endif
	return retval
endfunction

function WriteRealPointer4LVL takes integer addr, integer offset1, integer offset2,integer offset3, integer offset4, integer val returns nothing
	local integer retval = 0
	if addr > 0 then 
		set retval = ReadRealPointer3LVL(addr,offset1,offset2,offset3)
		if addr > 0 then 
			call WriteRealMemory(retval + offset4,val)
		endif
	endif
endfunction

function ReadRealPointer5LVL takes integer addr, integer offset1, integer offset2, integer offset3, integer offset4, integer offset5 returns integer
	local integer retval = ReadRealPointer4LVL(addr,offset1,offset2,offset3,offset4)
	if retval > 0 then 
		set retval = ReadRealMemory(retval + offset5)
	else
		set retval = 0
	endif
	return retval
endfunction

function WriteRealPointer5LVL takes integer addr, integer offset1, integer offset2,integer offset3, integer offset4,integer offset5, integer val returns nothing
	local integer retval = 0
	if addr > 0 then 
		set retval = ReadRealPointer4LVL(addr,offset1,offset2,offset3,offset4)
		if addr > 0 then 
			call WriteRealMemory(retval + offset5,val)
		endif
	endif
endfunction

function IsJassNativeExists takes integer nativeaddress returns boolean
	//local integer FirstAddress = Memory[Memory[Memory[pJassEnvAddress]/4+0x5]/4+8]/4
	local integer FirstAddress = ReadRealPointer2LVL(pJassEnvAddress*4, 0x14, 0x20)/4
	local integer NextAddress = FirstAddress
	local integer i = 0
	loop 
		if Memory[NextAddress+3]/4 == nativeaddress then
			return NextAddress+3 > 0
		endif
		
		set NextAddress = Memory[NextAddress]/4
		if NextAddress == FirstAddress or NextAddress == 0 then
			return false
		endif
	endloop
	return false
endfunction


function CreateJassNativeHook takes integer oldaddress, integer newaddress returns integer
	//[[[[Game.dll+ADA848]+14]+20]
	//local integer FirstAddress = Memory[Memory[Memory[pJassEnvAddress]/4+0x5]/4+8]/4
	local integer FirstAddress = ReadRealPointer2LVL(pJassEnvAddress*4, 0x14, 0x20)
	local integer NextAddress = FirstAddress

	local integer i = 0
	
	if RJassNativesBufferSize > 0 then 
		loop
			set i = i + 1
			
			if RJassNativesBuffer[  i * 3 - 3 ] == oldaddress or RJassNativesBuffer[ i * 3 - 2 ] == oldaddress or RJassNativesBuffer[  i * 3 - 3 ] == newaddress or RJassNativesBuffer[  i * 3 - 2 ] == newaddress then
				call WriteRealMemory(RJassNativesBuffer[ i  * 3 - 1 ], newaddress)
				//call BJDebugMsg("Loaded from buffset.")
				return RJassNativesBuffer[ i * 3 - 1 ]
			endif
			
			exitwhen i == RJassNativesBufferSize 
		endloop
	endif
	
	loop 
		if ReadRealMemory(NextAddress+12) < 0x3000 then 
			return 0
		endif
		if ReadRealMemory(NextAddress+12) == oldaddress then
			call WriteRealMemory(NextAddress+12, newaddress)
			
			// Maximum store 100 values for fast load
			if RJassNativesBufferSize < 100 then
				set RJassNativesBufferSize = RJassNativesBufferSize + 1
				set RJassNativesBuffer[ RJassNativesBufferSize  * 3 - 1 ] = NextAddress + 12
				set RJassNativesBuffer[ RJassNativesBufferSize  * 3 - 2 ] = oldaddress
				set RJassNativesBuffer[ RJassNativesBufferSize  * 3 - 3 ] = newaddress
			endif
			
			return NextAddress+12
		endif
		
		set NextAddress = ReadRealMemory(NextAddress)
		if NextAddress == FirstAddress or NextAddress == 0 then
			return 0
		endif
	endloop
	return 0
endfunction

function Init27 takes nothing returns nothing
	local integer base
	set GameDLL = ReadRealMemory(GetBytecodeAddress())-0xA63B30
	set base=GameDLL / 4
	set GameState = base + 0x2F908E
	set pGameClass1 = base + 0x2F902A
	set pGameClass2 = base + 0xBE6350 / 4
	set pCGameState = base + 0xBE4EAC / 4
		
	set pointers = Memory[pGameClass1]/4
	set pUnitData = GameDLL + 0xBEC48C
	set pAbilityData = GameDLL + 0xBECD44

	set pGlobalPlayerClass = GameState //They are the same thing
	
	set pUnitMaxSpeedConstant = base + 0xBEC454 / 4 
	set pUnitMinSpeedConstant = base + 0xBEC450 / 4 
	set pBuildingMaxSpeedConstant = base + 0xBEC45C / 4 
	set pBuildingMinSpeedConstant = base + 0xBEC458 / 4 
	
	set pUnitMaxSpeedConstantD = base + 0xBEC464 / 4 
	set pUnitMinSpeedConstantD = base + 0xBEC460 / 4 
	set pBuildingMaxSpeedConstantD = base + 0xBEC46C / 4 
	set pBuildingMinSpeedConstantD = base + 0xBEC468 / 4 
	
	set pUnitUIDefAddr = GameDLL + 0xBE6130 
	set pUnitDataDefAddr = pUnitData// base + 0xBEC48C / 4
	
	set pAbilityUIDefAddr = GameDLL + 0xBE6158 
	set pAbilityDataDefAddr = pAbilityData//base + 0xBECD44 / 4

	set pAttackSpeedLimit = base + 0xBE7A04 / 4
	set pAttackTimeLimit = base + 0xb593a0 / 4
	
	
	set pJassEnvAddress = base + 0xBE3740 / 4
	set pLightEnv = base + 0xBEE150 / 4
	set pGameClass3 = base + 0xBB9D8C / 4
	
	set pTimerAddr = base + 0xBB82BC / 4
	
	
	set pGetModuleHandle = base + 0x94E184 / 4
	set pGetProcAddress = base + 0x94E168 / 4
	set pVirtualAlloc = base + 0x94E270 / 4
	
		
	set pMergeUnits = GameDLL + 0x891F20
	set pIgnoredUnits = GameDLL + 0x890FB0
	set pConvertUnits = GameDLL + 0x88E350
	set pLeaderboardSetItemLabelColor = base + 0x1EFF90 / 4
	
	set pExportFromMpq = GameDLL + 0x702C50 
	set pGetFrameItemAddress = GameDLL + 0x09EF40
	set pGetFrameSkinAddress = GameDLL + 0x324AD0
	set pGetFrameTextAddress = GameDLL + 0x0C8EF0
	set pUpdateFrameText = GameDLL + 0x0C1020

	set pFrameDefClass = GameDLL + 0xBB9CFC
	
	set pPacketClass = GameDLL + 0x973210 
	set pPacketSend = GameDLL + 0x30F1B0 
	
	
	set pConvertString = GameDLL + 0x1DA520
	
	set pStorm279 = base + 0x94E6C4 / 4
	
	set pPrintText1 = GameDLL + 0x3574B0 
	set pPrintText2 = GameDLL + 0x356A60 
	set pPrintText3 = GameDLL + 0xc2070
	
	set pChangeFont = GameDLL + 0x153E10
	
	set pCameraDefaultHeight = base + 0x9714D0 / 4
	
	set pPingMinimapOffset = GameDLL + 0x1F1BD0 
	set pPingMinimapExOffset = GameDLL + 0x1F1C30

	set pAllianceOutput = GameDLL + 0x34E2C0 
	
	set pWindowIsActive = base + 0xB673EC / 4
	set pSendCommandWithoutTarget = GameDLL + 0x3AE4E0 
	set pMissile = base + 0xBED23C / 4
	
	
	set pOrder1_offset = GameDLL + 0x3AE4E0 
	set pOrder2_offset = GameDLL + 0x3AE540 
	set pOrder3_offset = GameDLL + 0x3AE5D0
	set pOrder4_offset = GameDLL + 0x3AE660 
	set pOrder5_offset = GameDLL + 0x3AE6F0
	set pOrder6_offset = GameDLL + 0x3AE780 
	set pOrder7_offset = GameDLL + 0x3AE810
	set pOrder8_offset = GameDLL + 0x3AE880 
			
	set Order1_lockedvalue = 0x900010C2
	set Order2_lockedvalue = 0x900018C2
	set Order3_lockedvalue = 0x900020C2
	set Order4_lockedvalue = 0x90001CC2
	set Order5_lockedvalue = 0x90001CC2
	set Order6_lockedvalue = 0x900020C2
	set Order7_lockedvalue = 0x900014C2
	set Order8_lockedvalue = 0x900014C2
		
	set pStartAbilityCD = GameDLL + 0x62D4C0
	
	set pUpdateFogManual = GameDLL + 0x26B600
	
	set pFogUpdateBlockAddr = base  + 0x26B5A8 / 4
	set pFogUpdateBlockAddrNew1 = 0xC25D0004
	set pFogUpdateBlockAddrNew2 = 0xB8900004
	
	set OPLimitAddress1=GameDLL+0x1BFB48
	set OPLimitAddress2=GameDLL+0x1BFB4C
	
	set pCycloneFixCondition=GameDLL+0x65B3F0
	
	
	set pCaptionsOverTheCreeps=GameDLL+0x3B4180
	
	set pPhaseShiftInvisibilityFlagByte=GameDLL+0x7ffdb8
	
	set pGetUnitAbility = GameDLL + 0x46F440
	set pGetUnitAddress = GameDLL + 0x1D1550
	
	set p_sprintf = GameDLL + 0x94E464
	
	set pMemcpy = GameDLL + 0x94E468
	set pSearchStringValue = GameDLL + 0x06B030
	set pSearchStringAddr1 = GameDLL + 0xBB9CD4
	set pSearchStringAddr2 = GameDLL + 0xBB9CAC
	
	set pSimulateAttackInstance = GameDLL + 0x476F80
	set pGameTime = GameDLL + 0xBE3D70
	
	
	set pSetStunToUnitTRUE = GameDLL+0x66B600
	set	pSetStunToUnitFALSE = GameDLL+0x65AE60
	
	set pCommonSilence=GameDLL+0x471C40
	set pAddSilenceOnAbility=GameDLL+0x3E9FA0
	set pRemoveSilenceFromAbility=GameDLL+0x3EE3C0
	set pPauseUnitDisabler=GameDLL+0x46F180
	
	set pUpdateUnitsSpeedCurrent=GameDLL+0x10C690
	
	set pCastSilenceToTarget=GameDLL+0x3DA3C0
	
	set pCastAbility=GameDLL+0x3ECB70
	
	set pDamageBlockIllusionCheck=GameDLL+0x4E3040
	
	set pItemDropOrderTriggerFix=GameDLL+0x65D520//9090f03b
	
	set pGetOrLoadFile = GameDLL + 0x4A800
	
	set StoreIntegerOffset = GameDLL + 0x1F8280
	
	set pUnitVtable = GameDLL + 0xA4A704
	set pRealUnitDamageHandler = GameDLL + 0x67DC40
	set pTriggerExecute = GameDLL + 0x1F9100
	
	
	set pMissileFuncStart = GameDLL+0x476F80
	set pMissileJumpBack = GameDLL+0x476F85
	set pItemDataNode=GameDLL+0xBEC254+0x10
	
	set GameVersion = 0x27a
endfunction

function Init26 takes nothing returns nothing
	local integer base
	set GameDLL = ReadRealMemory(GetBytecodeAddress())-0x951060
	set base=GameDLL / 4
	set GameState = base+0x2AD97D
	set pGameClass1 = base+0x2ADDE2
	set pGameClass2 = base + 0xAB4F80 / 4
	set pCGameState = base + 0xAB6EA4 / 4
	
	set pointers = Memory[pGameClass1]/4
	set pUnitData = GameDLL + 0xAB4478
	set pAbilityData = GameDLL + 0xAB3E64
	
	set pGlobalPlayerClass = GameState //base + 0xAB65F4 / 4 

	set pUnitMaxSpeedConstant = base + 0xAB4440 / 4 
	set pUnitMinSpeedConstant = base + 0xAB443C / 4 
	set pBuildingMaxSpeedConstant = base + 0xAB4448 / 4 
	set pBuildingMinSpeedConstant = base + 0xAB4444 / 4 
	
	set pUnitMaxSpeedConstantD = base + 0xAB4450/ 4 
	set pUnitMinSpeedConstantD = base + 0xAB444C / 4 
	set pBuildingMaxSpeedConstantD = base + 0xAB4458 / 4 
	set pBuildingMinSpeedConstantD = base + 0xAB4454 / 4 
	
	set pUnitUIDefAddr = GameDLL + 0xAB58F0 
	set pUnitDataDefAddr = pUnitData
	
	set pAbilityUIDefAddr = GameDLL + 0xAB5918 
	set pAbilityDataDefAddr = pAbilityData
	
	set pAttackSpeedLimit = base + 0xAB0074 / 4
	set pAttackTimeLimit = base + 0xAAE484 / 4

	
	set pJassEnvAddress = base + 0xADA848 / 4
	set pLightEnv = base + 0xAAE788 / 4
	set pGameClass3 = base + 0xACE670 / 4
	
	set pTimerAddr = base + 0xAB7368 / 4
	
	
	set pGetModuleHandle = base + 0x86D1D0 / 4
	set pGetProcAddress = base + 0x86D280 / 4
	set pVirtualAlloc = base + 0x86D0F4 / 4
	
	
	set pMergeUnits = GameDLL + 0x2DD320
	set pIgnoredUnits = GameDLL + 0x2DCE80
	set pConvertUnits = GameDLL + 0x2DD2E0
	set pLeaderboardSetItemLabelColor = base + 0x3CC5B0 / 4
	
	set pExportFromMpq = GameDLL + 0x737F00 
	set pGetFrameItemAddress = GameDLL + 0x5FA970 
	set pGetFrameSkinAddress = GameDLL + 0x31F530
	set pGetFrameTextAddress = GameDLL + 0x61C7B0
	set pUpdateFrameText = GameDLL + 0x60CA10

	set pFrameDefClass = GameDLL + 0xACD264
	
	set pPacketClass = GameDLL + 0x932D2C
	set pPacketSend = GameDLL + 0x54D970
	
	
	set pConvertString = GameDLL + 0x3BAA20
	
	set pStorm279 = base + 0x86D5B8 / 4
	
	set pPrintText1 = GameDLL + 0x2F3CF0 
	set pPrintText2 = GameDLL + 0x2F3CB0 
	set pPrintText3 = GameDLL + 0x6049B0
	
	set pChangeFont = GameDLL + 0x7AE910
	
	set pCameraDefaultHeight = base + 0x93645C / 4
	
	set pPingMinimapOffset = GameDLL + 0x3B4650 
	set pPingMinimapExOffset = GameDLL + 0x3B8660 
	
	set pAllianceOutput = GameDLL + 0x2FB1F0 
	
	set pWindowIsActive = base + 0xA9E7A4 / 4
	set pSendCommandWithoutTarget = GameDLL + 0x339C60 
	set pMissile = base + 0xAB4CD8 / 4
	
		
	set pOrder1_offset = GameDLL + 0x339C60 
	set pOrder2_offset = GameDLL + 0x339CC0 
	set pOrder3_offset = GameDLL + 0x339D50 
	set pOrder4_offset = GameDLL + 0x339DD0 
	set pOrder5_offset = GameDLL + 0x339E60 
	set pOrder6_offset = GameDLL + 0x339F00 
	set pOrder7_offset = GameDLL + 0x339F80 
	set pOrder8_offset = GameDLL + 0x33A010 
	
	set Order1_lockedvalue = 0x900010C2
	set Order2_lockedvalue = 0x900018C2
	set Order3_lockedvalue = 0x900014C2
	set Order4_lockedvalue = 0x90001CC2
	set Order5_lockedvalue = 0x900020C2
	set Order6_lockedvalue = 0x900014C2
	set Order7_lockedvalue = 0x90001CC2
	set Order8_lockedvalue = 0x900020C2
	
	set pStartAbilityCD = GameDLL + 0x126990 
		
	set pUpdateFogManual = GameDLL + 0x4299e0
	
	set pFogUpdateBlockAddr = base  + 0x42fcd4 / 4
	set pFogUpdateBlockAddrNew1 = 0x0004C200
	set pFogUpdateBlockAddrNew2 = 0x01B89090
	
	set OPLimitAddress1=GameDLL+0x3A8388
	set OPLimitAddress2=GameDLL+0x3A838C
	
	set pCycloneFixCondition=GameDLL+0x29C25C
	

	set pCaptionsOverTheCreeps=GameDLL+0x35BB20
	
	set pPhaseShiftInvisibilityFlagByte=GameDLL+0x135D9C
	
	set pGetUnitAbility = GameDLL + 0x787D0
	set pGetUnitAddress = GameDLL + 0x3BDCB0
	set p_sprintf = GameDLL + 0x86D32C
	
	set pMemcpy = GameDLL + 0x86D3CC
	
	set pSearchStringValue = GameDLL + 0x5C8ED0
	set pSearchStringAddr1 = GameDLL + 0xACD23C
	set pSearchStringAddr2 = GameDLL + 0xACD214
	
	set pSimulateAttackInstance = GameDLL + 0xCF660
	set pGameTime = GameDLL + 0xAB7E98	
	
	set pSetStunToUnitTRUE = GameDLL+0x2A6440
	set pSetStunToUnitFALSE = GameDLL+0x282B30
	
	
	set pCommonSilence=GameDLL+0x076770
	set pAddSilenceOnAbility=GameDLL+0x052B60
	set pRemoveSilenceFromAbility=GameDLL+0x052BC0
	set pPauseUnitDisabler=GameDLL+0x0767F0
	
	set pUpdateUnitsSpeedCurrent=GameDLL+0x4A73F0
	
	set pCastSilenceToTarget=GameDLL+0xB65F0
	
	set pCastAbility=GameDLL+0x05C3A0
	
	set pDamageBlockIllusionCheck=GameDLL+0x1EA0F0
	
	set pItemDropOrderTriggerFix=GameDLL+0x29E064//9090c83b

	set pGetOrLoadFile = GameDLL + 0x4C1300	
	
	set StoreIntegerOffset = GameDLL + 0x3CA0A0
	
	set pUnitVtable = GameDLL + 0x931934
	set pRealUnitDamageHandler = GameDLL + 0x2A40D0
	set pTriggerExecute = GameDLL + 0x3C3F40
	set pMissileFuncStart = GameDLL+0xCF660
	set pMissileJumpBack = GameDLL+0xCF667
	
	set pItemDataNode=GameDLL+0xAB4BF4+0x10
	
	set GameVersion = 0x26a
endfunction

function Init24b takes nothing returns nothing
	local integer base = ReadRealMemory(GetBytecodeAddress())-0x9631A0
	set GameDLL = base 
	set base = base / 4
	set GameState = base+0x2B3513
	set pGameClass1 = base+0x2B3978
	set pointers = Memory[pGameClass1]/4
	set pUnitData = GameDLL+0xACB2D0
	set pAbilityData = GameDLL+0xACACBC
		
	set pUnitDataDefAddr = pUnitData
	set pGlobalPlayerClass = GameState
	set pAbilityDataDefAddr = pAbilityData
	
	
	
	set GameVersion = 0x24b
endfunction





function SetMaxUnitSpeed takes real r returns nothing
	set Memory[pUnitMaxSpeedConstant] = cleanInt(realToIndex(r))
	set Memory[pUnitMaxSpeedConstantD] = cleanInt(realToIndex(r))
endfunction

function GetMaxUnitSpeed takes nothing returns real
	return GetRealFromMemory(Memory[pUnitMaxSpeedConstant])
endfunction

function SetMinUnitSpeed takes real r returns nothing
	set Memory[pUnitMinSpeedConstant] = cleanInt(realToIndex(r))
	set Memory[pUnitMinSpeedConstantD] = cleanInt(realToIndex(r))
endfunction

function GetMinUnitSpeed takes nothing returns real
	return cleanReal(indexToReal(Memory[pUnitMinSpeedConstant])) 
endfunction

function SetMaxBuildingSpeed takes real r returns nothing
	set Memory[pBuildingMaxSpeedConstant] = cleanInt(realToIndex(r))
	set Memory[pBuildingMaxSpeedConstantD] = cleanInt(realToIndex(r))
endfunction

function GetMaxBuildingSpeed takes nothing returns real
	return cleanReal(indexToReal(Memory[pBuildingMaxSpeedConstant])) 
endfunction

function SetMinBuildingSpeed takes real r returns nothing
	set Memory[pBuildingMinSpeedConstant] = cleanInt(realToIndex(r))
	set Memory[pBuildingMinSpeedConstantD] = cleanInt(realToIndex(r))
endfunction

function GetMinBuildingSpeed takes nothing returns real
	return cleanReal(indexToReal(Memory[pBuildingMinSpeedConstant])) 
endfunction

function GetAttackSpeedLimit takes nothing returns real
	return cleanReal(indexToReal(Memory[pAttackSpeedLimit]))
endfunction

function SetAttackSpeedLimit takes real r returns nothing
	set Memory[pAttackSpeedLimit] = cleanInt(realToIndex(r))
endfunction

function GetAttackTimeLimit takes nothing returns real
	return cleanReal(indexToReal(Memory[pAttackTimeLimit]))
endfunction

function SetAttackTimeLimit takes real r returns nothing
	set Memory[pAttackTimeLimit] = cleanInt(realToIndex(r))
endfunction




function SaveConstantsValues takes nothing returns nothing
	set UnitMaxSpeedConstant =		GetMaxUnitSpeed( )
	set UnitMinSpeedConstant =		GetMinUnitSpeed( )
	set BuildingMaxSpeedConstant =	GetMaxBuildingSpeed( )
	set BuildingMinSpeedConstant =	GetMinBuildingSpeed( )
	set AttackSpeedLimit =			GetAttackSpeedLimit( )
	set AttackTimeLimit =			GetAttackTimeLimit( )
endfunction



function ResetConstantsValues takes nothing returns nothing
	call SetMaxUnitSpeed(		UnitMaxSpeedConstant)
	call SetMinUnitSpeed( 		UnitMinSpeedConstant)
	call SetMaxBuildingSpeed(	BuildingMaxSpeedConstant )
	call SetMinBuildingSpeed(	BuildingMinSpeedConstant)
	call SetAttackSpeedLimit(	AttackSpeedLimit)
	call SetAttackTimeLimit(	AttackTimeLimit)
	call ExecuteFunc("RestoreCameraOffsets")
endfunction

// replace war3map.j to recovery.j
function LockOtherMaps takes nothing returns nothing
	//0x6F636572
	//0x726576
	
	
endfunction
// replace recovery.j back to war3map.j
function UnlockOtherMaps takes nothing returns nothing
	//0x33726177
	//0x70616D
	
	
endfunction




//library Memory ends
//library Bitwise:

function GetGameTypeSupported takes nothing returns integer
	//return Memory[Memory[Memory[GameState] / 4 + 12] / 4 + 12]
	return ReadRealPointer2LVL(GameState*4,48,48)
endfunction

//function BitwiseNot takes integer i returns integer
//	return 0xFFFFFFFF - i
//endfunction
//
//function BitwiseOrOld takes integer a,integer b returns integer
//	//set Memory[Memory[Memory[GameState]/4+12]/4+12] = a
//	call SetGameTypeSupported(GAME_TYPE_ALL, false)
//	call SetGameTypeSupported(ConvertGameType(a), true)
//	call SetGameTypeSupported(ConvertGameType(b), true)
//	return GetGameTypeSupported()
//endfunction
//
//function BitwiseAndOld takes integer a,integer b returns integer
//	//set Memory[Memory[Memory[GameState]/4+12]/4+12] = a
//	call SetGameTypeSupported(GAME_TYPE_ALL, false)
//	call SetGameTypeSupported(ConvertGameType(a), true)
//	call SetGameTypeSupported(ConvertGameType(BitwiseNot(b)), false)
//	return GetGameTypeSupported()
//endfunction

//function BitwiseXorOld takes integer a,integer b returns integer
//	local integer i
//	//set Memory[Memory[Memory[GameState]/4+12]/4+12] = a
//	call SetGameTypeSupported(GAME_TYPE_ALL, false)
//	call SetGameTypeSupported(ConvertGameType(a), true)
//	call SetGameTypeSupported(ConvertGameType(b), false)
//	set i=GetGameTypeSupported()
//	call SetGameTypeSupported(ConvertGameType(b), true)
//	call SetGameTypeSupported(ConvertGameType(a), false)
//	call SetGameTypeSupported(ConvertGameType(i), true)
//	return GetGameTypeSupported()
//endfunction


function BitwiseOr takes integer arg1, integer arg2 returns integer
	local integer retval
	
	if NeedInitBitwiseOr == true then
		set NeedInitBitwiseOr = false
		set Memory[pBitwiseOR_ExecutableMemory/4] = 0x0424448B 
		set Memory[pBitwiseOR_ExecutableMemory/4 + 1] = 0x0824548B 
		set Memory[pBitwiseOR_ExecutableMemory/4 + 2] = 0xCCC3D009 
	endif
	
	if pConvertUnitsOffset == 0 then 
		set pConvertUnitsOffset = CreateJassNativeHook(pConvertUnits,pBitwiseOR_ExecutableMemory )
	else
		call WriteRealMemory(pConvertUnitsOffset, pBitwiseOR_ExecutableMemory)
	endif
	
	if pConvertUnitsOffset != 0 then 
		set retval = B2I(ConvertUnits( arg1,arg2 ))
		call WriteRealMemory(pConvertUnitsOffset, pConvertUnits)
		return retval
	endif
	return 0
endfunction

function BitwiseXor takes integer arg1, integer arg2 returns integer
	local integer retval
	
	if NeedInitBitwiseXor == true then
		set NeedInitBitwiseXor = false
		set Memory[pBitwiseXOR_ExecutableMemory/4] = 0x0424448B 
		set Memory[pBitwiseXOR_ExecutableMemory/4 + 1] = 0x0824548B 
		set Memory[pBitwiseXOR_ExecutableMemory/4 + 2] = 0xCCC3D031 
	endif
	
	if pConvertUnitsOffset == 0 then 
		set pConvertUnitsOffset = CreateJassNativeHook(pConvertUnits,pBitwiseXOR_ExecutableMemory )
	else
		call WriteRealMemory(pConvertUnitsOffset, pBitwiseXOR_ExecutableMemory)
	endif
	
	if pConvertUnitsOffset != 0 then 
		set retval = B2I(ConvertUnits( arg1,arg2 ))
		call WriteRealMemory(pConvertUnitsOffset,pConvertUnits)
		return retval
	endif
	return 0
endfunction

function BitwiseAnd takes integer arg1, integer arg2 returns integer
	local integer retval
	
	if NeedInitBitwiseAnd == true then
		set NeedInitBitwiseAnd = false
		set Memory[pBitwiseAND_ExecutableMemory/4] = 0x0424448B 
		set Memory[pBitwiseAND_ExecutableMemory/4 + 1] = 0x0824548B 
		set Memory[pBitwiseAND_ExecutableMemory/4 + 2] = 0xCCC3D021 
	endif
	
	if pConvertUnitsOffset == 0 then 
		set pConvertUnitsOffset = CreateJassNativeHook(pConvertUnits,pBitwiseAND_ExecutableMemory )
	else
		call WriteRealMemory(pConvertUnitsOffset, pBitwiseAND_ExecutableMemory)
	endif
	
	if pConvertUnitsOffset != 0 then 
		set retval = B2I(ConvertUnits( arg1,arg2 ))
		call WriteRealMemory(pConvertUnitsOffset, pConvertUnits)
		return retval
	endif
	return 0
endfunction





//library Bitwise ends
//library StringId:

function StringId__Int2Char takes integer i returns string
	local string s= Ascii2Char(i)
	if s == null then
		set s="\\x" + Int2Hex(i)
	endif
	return s
endfunction

function Id2String takes integer i returns string
	local string result= ""
	local integer char
	loop
		set char=i
		set i=i / 256
		set result=StringId__Int2Char(char - i * 256) + result
		exitwhen i == 0
	endloop
	return result
endfunction

function String2Id takes string s returns integer
	local integer result= 0
	local integer i= 0
	loop
		set result=result * 256 + Char2Ascii(SubString(s, i, i + 1))
		set i=i + 1
		exitwhen i == 4
	endloop
	return result
endfunction


//library StringId ends
//library ObjectData:


function IntegerHash takes integer i returns integer
	local integer a= 0x7FED7FED
	local integer b= 0xEEEEEEEE
	local integer byte
	loop
		set byte=i * 16777216 / 16777216
		set a=BitwiseXor(a + b , H[byte])
		set i=i / 256
		exitwhen i == 0
		set b=b * 32 + a + b + byte + 3
	endloop
	return a
endfunction

function GetObjectData takes integer pData,integer rawcode returns integer
	local integer hash	= IntegerHash(rawcode)
	local integer list	= ReadRealMemory(pData) / 4 + ModuloInteger(hash, ReadRealMemory(pData + 8) + 1) * 3
	local integer i	= Memory[list + 2] / 4
	loop
		exitwhen i <= 0
		if Memory[i] == hash and Memory[i + 5] == rawcode then
			return i
		endif
		set i	=	Memory[Memory[list] / 4 + i + 1] / 4
	endloop
	return 0
endfunction

function GetObjectDataCaching takes integer pData, integer rawcode returns integer
	local integer k
	if HaveSavedInteger(ObjectDataPointersTable,pData,rawcode) then
		return LoadInteger(ObjectDataPointersTable,pData,rawcode)
	endif
	set k=GetObjectData(pData,rawcode)
	call SaveInteger(ObjectDataPointersTable,pData,rawcode,k)
	return k
endfunction

function ObjectData__Init takes nothing returns nothing
	set H[1]=0xA22E726E
	set H[2]=0xD43D94C0
	set H[3]=0x6DE064C7
	set H[4]=0xFE8D4B2F
	set H[5]=0x345A287E
	set H[6]=0x13941BCF
	set H[7]=0xD822114D
	set H[8]=0xA79E1270
	set H[9]=0xFB2D4CF9
	set H[10]=0xCB25DDAE
	set H[11]=0x7B5E64D5
	set H[12]=0x88544672
	set H[13]=0xF201BF3F
	set H[14]=0x677CAF6E
	set H[15]=0x34502020
	set H[16]=0x5DD18D92
	set H[18]=0x320F2252
	set H[19]=0xCBB1F259
	set H[20]=0x5C5ED8C1
	set H[21]=0x922BB610
	set H[22]=0x7165A961
	set H[23]=0x35F39EDF
	set H[24]=0x056FA002
	set H[25]=0x58FEDA8B
	set H[26]=0x28F76B40
	set H[27]=0xD92FF267
	set H[28]=0xE625D404
	set H[29]=0x4FD34CD1
	set H[30]=0xC54E3D00
	set H[31]=0x9221ADB2
	set H[32]=0x2BC26B40
	set H[33]=0xCDF0DDAE
	set H[35]=0x99A2D007
	set H[36]=0x2A4FB66F
	set H[37]=0x601C93BE
	set H[38]=0x3F56870F
	set H[39]=0x03E47C8D
	set H[40]=0xD3607DB0
	set H[41]=0x26EFB839
	set H[42]=0xF6E848EE
	set H[43]=0xA720D015
	set H[44]=0xB416B1B2
	set H[45]=0x1DC42A7F
	set H[46]=0x933F1AAE
	set H[47]=0x60128B60
	set H[48]=0x921F9B39
	set H[49]=0x344E0DA7
	set H[50]=0x665D2FF9
	set H[52]=0x90ACE668
	set H[53]=0xC679C3B7
	set H[54]=0xA5B3B708
	set H[55]=0x6A41AC86
	set H[56]=0x39BDADA9
	set H[57]=0x8D4CE832
	set H[58]=0x5D4578E7
	set H[59]=0x0D7E000E
	set H[60]=0x1A73E1AB
	set H[61]=0x84215A78
	set H[62]=0xF99C4AA7
	set H[63]=0xC66FBB59
	set H[64]=0x0172B4D1
	set H[65]=0xA3A1273F
	set H[66]=0xD5B04991
	set H[67]=0x6F531998
	set H[69]=0x35CCDD4F
	set H[70]=0x1506D0A0
	set H[71]=0xD994C61E
	set H[72]=0xA910C741
	set H[73]=0xFCA001CA
	set H[74]=0xCC98927F
	set H[75]=0x7CD119A6
	set H[76]=0x89C6FB43
	set H[77]=0xF3747410
	set H[78]=0x68EF643F
	set H[79]=0x35C2D4F1
	set H[80]=0xCBA5D782
	set H[81]=0x6DD449F0
	set H[82]=0x9FE36C42
	set H[83]=0x39863C49
	set H[84]=0xCA3322B1
	set H[86]=0xDF39F351
	set H[87]=0xA3C7E8CF
	set H[88]=0x7343E9F2
	set H[89]=0xC6D3247B
	set H[90]=0x96CBB530
	set H[91]=0x47043C57
	set H[92]=0x53FA1DF4
	set H[93]=0xBDA796C1
	set H[94]=0x332286F0
	set H[95]=0xFFF5F7A2
	set H[96]=0xEC6BE431
	set H[97]=0x8E9A569F
	set H[98]=0xC0A978F1
	set H[99]=0x5A4C48F8
	set H[100]=0xEAF92F60
	set H[101]=0x20C60CAF
	set H[103]=0xC48DF57E
	set H[104]=0x9409F6A1
	set H[105]=0xE799312A
	set H[106]=0xB791C1DF
	set H[107]=0x67CA4906
	set H[108]=0x74C02AA3
	set H[109]=0xDE6DA370
	set H[110]=0x53E8939F
	set H[111]=0x20BC0451
	set H[112]=0x27DDEEB3
	set H[113]=0xCA0C6121
	set H[114]=0xFC1B8373
	set H[115]=0x95BE537A
	set H[116]=0x266B39E2
	set H[117]=0x5C381731
	set H[118]=0x3B720A82
	set H[120]=0xCF7C0123
	set H[121]=0x230B3BAC
	set H[122]=0xF303CC61
	set H[123]=0xA33C5388
	set H[124]=0xB0323525
	set H[125]=0x19DFADF2
	set H[126]=0x8F5A9E21
	set H[127]=0x5C2E0ED3
	set H[128]=0x5861ED90
	set H[129]=0xFA905FFE
	set H[130]=0x2C9F8250
	set H[131]=0xC6425257
	set H[132]=0x56EF38BF
	set H[133]=0x8CBC160E
	set H[134]=0x6BF6095F
	set H[135]=0x3083FEDD
	set H[137]=0x538F3A89
	set H[138]=0x2387CB3E
	set H[139]=0xD3C05265
	set H[140]=0xE0B63402
	set H[141]=0x4A63ACCF
	set H[142]=0xBFDE9CFE
	set H[143]=0x8CB20DB0
	set H[144]=0x04D2B307
	set H[145]=0xA7012575
	set H[146]=0xD91047C7
	set H[147]=0x72B317CE
	set H[148]=0x035FFE36
	set H[149]=0x392CDB85
	set H[150]=0x1866CED6
	set H[151]=0xDCF4C454
	set H[152]=0xAC70C577
	set H[154]=0xCFF890B5
	set H[155]=0x803117DC
	set H[156]=0x8D26F979
	set H[157]=0xF6D47246
	set H[158]=0x6C4F6275
	set H[159]=0x3922D327
	set H[160]=0x34DA2252
	set H[161]=0xD70894C0
	set H[162]=0x0917B712
	set H[163]=0xA2BA8719
	set H[164]=0x33676D81
	set H[165]=0x69344AD0
	set H[166]=0x486E3E21
	set H[167]=0x0CFC339F
	set H[168]=0xDC7834C2
	set H[169]=0x30076F4B
	set H[171]=0xB0388727
	set H[172]=0xBD2E68C4
	set H[173]=0x26DBE191
	set H[174]=0x9C56D1C0
	set H[175]=0x692A4272
	set H[176]=0x84A19B2B
	set H[177]=0x26D00D99
	set H[178]=0x58DF2FEB
	set H[179]=0xF281FFF2
	set H[180]=0x832EE65A
	set H[181]=0xB8FBC3A9
	set H[182]=0x9835B6FA
	set H[183]=0x5CC3AC78
	set H[184]=0x2C3FAD9B
	set H[185]=0x7FCEE824
	set H[186]=0x4FC778D9
	set H[188]=0x0CF5E19D
	set H[189]=0x76A35A6A
	set H[190]=0xEC1E4A99
	set H[191]=0xB8F1BB4B
	set H[192]=0x77ABB98E
	set H[193]=0x19DA2BFC
	set H[194]=0x4BE94E4E
	set H[195]=0xE58C1E55
	set H[196]=0x763904BD
	set H[197]=0xAC05E20C
	set H[198]=0x8B3FD55D
	set H[199]=0x4FCDCADB
	set H[200]=0x1F49CBFE
	set H[201]=0x72D90687
	set H[202]=0x42D1973C
	set H[203]=0xF30A1E63
	set H[205]=0x69AD78CD
	set H[206]=0xDF2868FC
	set H[207]=0xABFBD9AE
	set H[208]=0x0DFE40C1
	set H[209]=0xB02CB32F
	set H[210]=0xE23BD581
	set H[211]=0x7BDEA588
	set H[212]=0x0C8B8BF0
	set H[213]=0x4258693F
	set H[214]=0x21925C90
	set H[215]=0xE620520E
	set H[216]=0xB59C5331
	set H[217]=0x092B8DBA
	set H[218]=0xD9241E6F
	set H[219]=0x895CA596
	set H[220]=0x96528733
	set H[222]=0x757AF02F
	set H[223]=0x424E60E1
	set H[224]=0x98835092
	set H[225]=0x3AB1C300
	set H[226]=0x6CC0E552
	set H[227]=0x0663B559
	set H[228]=0x97109BC1
	set H[229]=0xCCDD7910
	set H[230]=0xAC176C61
	set H[231]=0x70A561DF
	set H[232]=0x40216302
	set H[233]=0x93B09D8B
	set H[234]=0x63A92E40
	set H[235]=0x13E1B567
	set H[236]=0x20D79704
	set H[237]=0x8A850FD1
	set H[239]=0xCCD370B2
	set H[240]=0xCBAFDFE0
	set H[241]=0x6DDE524E
	set H[242]=0x9FED74A0
	set H[243]=0x399044A7
	set H[244]=0xCA3D2B0F
	set H[245]=0x000A085E
	set H[246]=0xDF43FBAF
	set H[247]=0xA3D1F12D
	set H[248]=0x734DF250
	set H[249]=0xC6DD2CD9
	set H[250]=0x96D5BD8E
	set H[251]=0x470E44B5
	set H[252]=0x54042652
	set H[253]=0xBDB19F1F
	set H[254]=0x332C8F4E
endfunction


//library ObjectData ends
//library Utils:

function ConvertHandle takes handle h returns integer
	if GetHandleId(h)>0 then
		return Memory[Memory[Memory[Memory[GameState] / 4 + 7] / 4 + 103] / 4 + GetHandleId(h) * 3 - 0x2FFFFF]
	endif
	return 0
endfunction

function ConvertPointer takes integer ptr returns integer
	local integer i= Memory[ptr / 4]
	if i < 0 then
		return Memory[Memory[pointers + 11] / 4 - i * 2 + 1]
	endif
	return Memory[Memory[pointers + 3] / 4 + i * 2 + 1]
endfunction

function GetUnitFlags takes unit u returns integer
	return Memory[ConvertHandle(u) / 4 + 23]
endfunction

function SetUnitFlags takes unit u,integer i returns nothing
	set Memory[ConvertHandle(u) / 4 + 23]=i
endfunction

function IsFlagBitSet takes integer flags, integer bit returns boolean
	return flags/bit*2147483648 != 0
endfunction

//armor types:
// 0 - Light; 1 - Medium; 2 - Heavy; 3 - Fortified; 4 - Normal; 5 - Hero; 6 - Divine; 7 - unarmored; 
//rest seems to have Light properties
function GetUnitArmorType takes unit u returns integer
	return Memory[(ConvertHandle(u) + 0xE4)/4]
endfunction

function SetUnitArmorType takes unit u, integer id returns nothing
	set Memory[(ConvertHandle(u) + 0xE4)/4]=id
endfunction

function GetUnitArmor takes unit u returns real
	return indexToReal(Memory[ConvertHandle(u) / 4 + 56])
endfunction

function SetUnitArmor takes unit u,real r returns nothing
	set Memory[ConvertHandle(u) / 4 + 56]=cleanInt(realToIndex(r))
endfunction

function SetUnitTypeId takes unit u,integer i returns nothing
	set Memory[ConvertHandle(u) / 4 + 12]=i
endfunction

function GetUnitTypeIdReal takes integer i returns integer
	return Memory[i / 4 + 12]
endfunction

function SetUnitPhased takes unit u returns nothing
	local integer data= GetObjectDataCaching(pUnitData , GetUnitTypeId(u)) + 107
	local integer p1= Memory[data]
	local integer p2= Memory[data + 1]
//	call BJDebugMsg(Int2Hex((data-107)*4))
	set Memory[data]=8
	set Memory[data + 1]=16
	call SetUnitPathing(u, true)
	set Memory[data]=p1
	set Memory[data + 1]=p2
endfunction

function GetAbilityX takes ability a, integer x returns real
	if x==20 then
		return Memory[Memory[Memory[ConvertHandle(a)/4+21]/4+21]/4-(41-x)+1*26]*1.0
	else
		return indexToReal(Memory[Memory[Memory[ConvertHandle(a)/4+21]/4+21]/4-(41-x)+1*26])
	endif
endfunction

function SetAbilityX takes ability a, integer x, real d returns nothing
	if x==20 then
		set Memory[Memory[Memory[ConvertHandle(a)/4+21]/4+21]/4+1*26-(2+x)]=R2I(d)
	else
		set Memory[Memory[Memory[ConvertHandle(a)/4+21]/4+21]/4+1*26-(2+x)]=cleanInt(realToIndex(d))
	endif
endfunction


function GetUnitFlags_2 takes unit u returns integer
	return Memory[ConvertHandle(u) / 4 + 8]
endfunction

function SetUnitFlags_2 takes unit u,integer i returns nothing
	set Memory[ConvertHandle(u) / 4 + 8]=i
endfunction

// Real - addres in memory

function GetRealPlayerById takes integer i returns integer
	local integer pladdr =  Memory[pGlobalPlayerClass] + ( i * 4 ) + 0x58
	return Memory[pladdr/4]
endfunction

function GetLocalPlayerIdReal takes nothing returns integer
	return Memory[Memory[pGlobalPlayerClass]/4+0xA]
endfunction

function GetLocalPlayerReal takes nothing returns integer
	return GetRealPlayerById(GetLocalPlayerIdReal( ) )
endfunction


// Get Selected Unit
function GetPlayerSelectedUnitReal takes integer realplayer returns integer
	local integer pladdr = realplayer/4 + 0xD
	set pladdr = Memory[pladdr]
	set pladdr = pladdr + 0x1E0
	return Memory[pladdr/4]
endfunction


function SetPlayerSelectedUnitReal takes integer realplayer, integer pConvertedHandle returns nothing
	local integer pladdr = realplayer/4 + 0xD
	set pladdr = Memory[pladdr]
	set pladdr = pladdr + 0x1E0
	set Memory[pladdr/4] = pConvertedHandle
endfunction

function GetUnitVertexColorB takes unit u returns integer
	return GetByteFromInteger(Memory[(Memory[ConvertHandle(u) / 4 + 0xA]+328)/4],4)
endfunction

function GetUnitVertexColorG takes unit u returns integer
	return GetByteFromInteger(Memory[(Memory[ConvertHandle(u) / 4 + 0xA]+328)/4],3)
endfunction

function GetUnitVertexColorR takes unit u returns integer
	return GetByteFromInteger(Memory[(Memory[ConvertHandle(u) / 4 + 0xA]+328)/4],2)
endfunction

function GetUnitVertexColorA takes unit u returns integer
	return GetByteFromInteger(Memory[(Memory[ConvertHandle(u) / 4 + 0xA]+328)/4],1)
endfunction


function GetUnitVertexColorB_2 takes unit u returns integer
	return GetByteFromInteger(Memory[ConvertHandle(u) / 4 + 181],4)
endfunction

function GetUnitVertexColorG_2 takes unit u returns integer
	return GetByteFromInteger(Memory[ConvertHandle(u) / 4 + 181],3)
endfunction

function GetUnitVertexColorR_2 takes unit u returns integer
	return GetByteFromInteger(Memory[ConvertHandle(u) / 4 + 181],2)
endfunction

function GetUnitVertexColorA_2 takes unit u returns integer
	return GetByteFromInteger(Memory[ConvertHandle(u) / 4 + 181],1)
endfunction


function SetUnitColorDirectlyForAddresss takes integer pConvertedHandle, integer red, integer green, integer blue, integer alpha returns nothing
	//, real fadetime returns nothing
	local integer resultcolor = CreateInteger1(alpha,red,green,blue)
	local integer colorflag = 0
	set Memory[(Memory[pConvertedHandle / 4 + 0xA]+328)/4] = resultcolor
	
	//set Memory[(Memory[pConvertedHandle / 4 + 0xA]+324)/4] = cleanInt(realToIndex(fadetime))
	set Memory[(Memory[pConvertedHandle / 4 + 0xA]+320)/4] = 0
	set Memory[(Memory[pConvertedHandle / 4 + 0xA]+316)/4] = 0
	
	set colorflag = Memory[(Memory[pConvertedHandle / 4 + 0xA]+312)/4]
	if BitwiseAnd( colorflag, 0x800) == 0 then
		set Memory[(Memory[pConvertedHandle / 4 + 0xA]+312)/4] = BitwiseXor(colorflag, 0x800)
	endif
	
	
endfunction

function echo takes string s returns nothing
	if IsL1ch then
		call DisplayTimedTextToPlayer(LocalPlayer,0,0,30,s)
	endif
endfunction


function SetUnitColorDirectly takes unit u, integer red, integer green, integer blue, integer alpha returns nothing
//	call echo(Int2Hex(ConvertHandle(u)))
	call SetUnitColorDirectlyForAddresss(ConvertHandle(u),red,green,blue,alpha)
endfunction


function GetJassContext takes integer id returns integer
    return Memory[Memory[Memory[Memory[pJassEnvAddress]/4+5]/4+36]/4+id]
endfunction

function GetStringAddress takes string s returns integer
    return Memory[Memory[Memory[Memory[GetJassContext(1)/4+2589]/4+2]/4+SH2I(s)*4+2]/4+7]
endfunction

function WriteNullTerminatedString takes string s, integer i_address returns nothing
	set Memory[i_address/4] = GetStringAddress(s)
endfunction

function GetDefAddr takes integer id, integer class, integer first, integer currentOffset returns integer
	local integer FirstDataDefEntry = ReadRealMemory(first)
	local integer CurrentDefAddr = Memory[FirstDataDefEntry/4 + 2] + currentOffset
	local integer FirstDefAddr = CurrentDefAddr
	local integer CurrentDefId = 0
	local integer CurrentDefId2 = 0
	if FirstDataDefEntry == 0 then
		return 0
	endif
//	if HaveSavedInteger(Addresses,id,class)then
//		return LoadInteger(Addresses,id,class) - 0xC
//	endif
	
//	if HaveSavedInteger(Addresses,class,0)then
//		set CurrentDefAddr=LoadInteger(Addresses,class,0)
//		set FirstDefAddr=LoadInteger(Addresses,class,1)
//		call echo("address preloaded")
//	elseif HaveSavedInteger(Addresses,class,1)==false then
//		call echo("first address saved")
//		call SaveInteger(Addresses,class,1,FirstDefAddr)
//	endif
	
	loop 
		set CurrentDefId = Memory[CurrentDefAddr/4+2]
		
//		call SaveInteger(Addresses,CurrentDefId,class,CurrentDefAddr)
//		call SaveInteger(Addresses,class,0,CurrentDefAddr)
//		call echo(Id2String(CurrentDefId))
		if HaveSavedInteger(ObjectDataPointersTable,class,CurrentDefId)==false then
//			call echo("Cached "+Id2String(CurrentDefId))
			call SaveInteger(ObjectDataPointersTable,class,CurrentDefId,CurrentDefAddr - 0xC)
		endif
		exitwhen CurrentDefId == id
		
		set CurrentDefAddr = Memory[CurrentDefAddr/4]
		if CurrentDefAddr == 0 or CurrentDefAddr == FirstDefAddr then
//			if CurrentDefAddr == 0 then
//				call echo("drop for null")
//			else
//				call echo("drop for start")
//			endif
			return 0
		endif
	endloop
	
	if CurrentDefAddr == 0 then 
//		call echo("drop for zero")
		return 0
	endif
	return CurrentDefAddr - 0xC// as GetObjectData*4 but search only by id..
endfunction

function GetDefAddrCaching takes integer id, integer class, integer first, integer currentOffset returns integer
	if HaveSavedInteger(ObjectDataPointersTable,class,id) then
//		call echo("loaded")
		return LoadInteger(ObjectDataPointersTable,class,id)
	endif
	return GetDefAddr(id,class,first,currentOffset)
endfunction

function GetUnitDataDefAddr takes integer id returns integer
	return GetDefAddrCaching(id,DEF_ADR_UNIT_DATA,pUnitDataDefAddr,0xC)
endfunction

function GetUnitUIDefAddr takes integer id returns integer
	return GetDefAddrCaching(id,DEF_ADR_UNIT_UI,pUnitUIDefAddr,0x10)
endfunction

function GetAbilityDataDefAddr takes integer id returns integer
	return GetDefAddrCaching(id,DEF_ADR_ABILITY_DATA,pAbilityDataDefAddr,0xC)
endfunction

function GetAbilityUIDefAddr takes integer id returns integer
	return GetDefAddrCaching(id,DEF_ADR_ABILITY_UI,pAbilityUIDefAddr,0x10)
endfunction

//1 = str, 2 = int, 3 = agi
function GetHeroPrimaryAttribute takes unit u returns integer
	local integer a=ConvertHandle(u)
	if a>0 then
		set a=ReadRealMemory(a + 0x1F0)
		if a>0 then
			return ReadRealMemory(a+0xCC)
		endif
	endif
	return 0
endfunction

function GetHeroPrimaryAttributeById takes integer id returns integer
	local integer a=GetUnitDataDefAddr(id)
	if a>0 then
		return ReadRealMemory(a + 0x17C)
	endif
	return 0
endfunction

function SetHeroPrimaryAttribute takes unit u,integer i returns nothing
	if IsUnitIdType(GetUnitTypeId(u),UNIT_TYPE_HERO) then
		set Memory[Memory[ConvertHandle(u) / 4 + 124] / 4 + 51]=i
	endif
endfunction

function PrintJassNatives takes nothing returns nothing
	//[[[[Game.dll+ADA848]+14]+20]
	local integer FirstAddress = Memory[Memory[Memory[pJassEnvAddress]/4+0x5]/4+8]/4
	local integer NextAddress = FirstAddress
	call PreloadEndEx()
	call PreloadGenClear()
	call PreloadGenStart()
	
	loop 
		set NextAddress = Memory[NextAddress]/4
		set testFunctionCount = testFunctionCount + 1
		call Preload("native add "+Int2Hex(Memory[NextAddress+0xC/4]))
		if NextAddress == FirstAddress or NextAddress == 0 then
			call PreloadGenEnd("natives"+R2S(GetRandomReal(0,500))+".txt")
			call PreloadGenClear()
			return 
		endif
	endloop
endfunction





function SetAbilityManaCost takes integer abil, integer level, integer cost returns nothing
	local integer a=GetObjectDataCaching(pAbilityData, abil)
	if a>0 then
		set a=Memory[a+21]
		if a>0 then
			set Memory[a/4-22+level*26]=cost
		endif
	endif
endfunction

function GetAbilityManaCost takes integer abil, integer level returns integer
	local integer a=GetObjectDataCaching(pAbilityData, abil)
	if a>0 then
		set a=Memory[a+21]
		if a>0 then
			return Memory[a/4-22+level*26]
		endif
	endif
	return 0
endfunction

function GetAbilityManaCostAddr takes integer add, integer level returns integer
	if Memory[add/4+0x54/4]>0 then
		return Memory[Memory[add/4+0x54/4]/4+level*0x68/4]
	endif
	return 0
endfunction

function SetAbilityManaCostAddr takes integer add, integer level, integer mc returns nothing
	if Memory[add/4+0x54/4]>0 then
		set Memory[Memory[add/4+0x54/4]/4+level*0x68/4]=mc
	endif
endfunction

function SetAbilityCD takes integer abil, integer level, real cool returns nothing
	set Memory[Memory[GetObjectDataCaching(pAbilityData, abil)+21]/4-21+level*26]= cleanInt(realToIndex(cool))
endfunction

function GetAbilityCD takes integer abil, integer level returns real
	local integer a=GetObjectDataCaching(pAbilityData, abil)
	if a>0 then
		if Memory[a+21]>0 then
			return cleanReal(indexToReal(Memory[Memory[a+21]/4-21+level*26])) // need clean/indextoreal ?
		endif
	endif
	return 0.
endfunction

function GetAbilCastTime takes ability abil returns real
 return cleanReal(indexToReal(Memory[ConvertHandle(abil)/4 + 0x84/4] ))
endfunction

function SetAbilCastTime takes ability abil ,real r returns nothing
 set Memory[ConvertHandle(abil)/4 + 0x84/4] = cleanInt(realToIndex(r ))
endfunction

function GetAbilityMaxLevel takes integer abil returns integer
	local integer a
	if abil==0 then
		return 0
	endif
	set a=GetObjectDataCaching(pAbilityData, abil)
	if a>0 then
		return Memory[a+20]
	endif
	return 0
endfunction

function AddAbilityCooldown takes ability a, real seconds returns nothing
	local integer pData = Memory[ConvertHandle(a)/4+55]/4
	if pData != 0 then
		set Memory[pData+1] = cleanInt(realToIndex(seconds+cleanReal(indexToReal(Memory[pData+1]))))
		//set Memory[ConvertHandle(a)/4+45] = cleanInt(realToIndex(seconds+cleanReal(indexToReal(Memory[ConvertHandle(a)/4+45])))) This should not be modified together
	endif
endfunction

function AddAbilityCooldownConverted takes integer a, real seconds returns nothing
	local integer pData = Memory[a+55]/4
	if pData != 0 then
		set Memory[pData+1] = cleanInt(realToIndex(seconds+cleanReal(indexToReal(Memory[pData+1]))))
	endif
endfunction

function AddAbilityBaseCooldown takes ability a, real seconds returns nothing
	local integer pData = Memory[ConvertHandle(a)/4+45]
	if pData != 0 then
		set Memory[pData] = cleanInt(realToIndex(seconds))
	endif
endfunction

//This value holds the base cooldown of the ability at the last time it was casted. It’s used to calculate the % of elapsed cooldown.
//This is completely irrelevant for the gameplay, it’s used only to determine which frame of the cooldown model will be displayed.

function GetAbilityCurrentCooldown takes ability a returns real
	local integer pData = Memory[ConvertHandle(a)/4+55]/4
	if pData != 0 then
		return cleanReal(indexToReal(Memory[pData+1])) - cleanReal(indexToReal(Memory[Memory[pData+3]/4+16]))
	endif
	return .0
endfunction

function CopyCooldownStr takes integer from, integer to returns nothing
	local integer pData = Memory[from+55]
	if pData != 0 then
		//if Memory[to+55]==0 then
			set Memory[to+55]=pData
			//set Memory[to+52]=Memory[from+52]
			//set Memory[to+54]=to*4
			set Memory[to+45]=Memory[from+45]
			if IsFlagBitSet(Memory[to+8],512)==false then
				set Memory[to+8]=Memory[to+8]+512
//				call BJDebugMsg("add cd")
			else
//				call BJDebugMsg("already cd")
			endif
		//endif
	endif
endfunction

function GetAbilityCurrentCooldownConverted takes integer a returns real
	local integer pData = Memory[a+55]/4
	if pData != 0 then
		return cleanReal(indexToReal(Memory[pData+1])) - cleanReal(indexToReal(Memory[Memory[pData+3]/4+16]))
	endif
	return .0
endfunction

//This actually returns the timestamp, not the cooldown. To get the real cooldown you need to subtract this from the current game time.

function GetAbilityCooldownReal takes ability a returns real
	local integer pData = Memory[ConvertHandle(a)/4+55]/4
	if pData != 0 then
		return cleanReal(indexToReal(Memory[pData+1]))
	endif
	return 0.
endfunction

function IsAbilityOnCooldown takes integer z returns boolean
	return IsFlagBitSet(Memory[(z+0x20)/4],512)
endfunction

function SetAbilityDisabled takes integer pAbility, integer count returns nothing
	set Memory[pAbility/4+15] = count //not safe unless used with PauseUnit. Button will be blacked, but current casts of that ability won’t be interrupted.
endfunction

function GetAbilityDisabledCount takes integer pAbility returns integer
	return Memory[pAbility/4+15]
endfunction

function SetAbilityHidden takes integer pAbility, integer count returns nothing
	set Memory[pAbility/4+16] = count //This one is 100% safe. This hides the ability button, and order can’t be issued.
endfunction

function SetAbilityDisabled2 takes integer pAbility, integer count returns nothing
	set Memory[pAbility/4+17] = count //This one is used by Orb of Slow. Button is blacked, but cooldown is stil displayed.
endfunction

function GetAbilityDisabled2 takes integer pAbility returns integer
	return Memory[pAbility/4+17]//This one is used by Orb of Slow. Button is blacked, but cooldown is stil displayed.
endfunction

function DisableUnitsMovement takes unit u, boolean disable returns nothing
	local integer i=2
	if disable==false then
		set i=1
	endif
	call PauseUnit(u,true)
	call SetAbilityDisabled(Memory[ConvertHandle( u )/4+123], i)
	call PauseUnit(u,false)
endfunction
//pointer to 'Amov' is located at offset 123 of unit object, Aatk is at offset 122, and AInv is offset 124

//Hides all command buttons and sets the Ward flag. Unit will keep its current order, and player can’t give new orders
//Notice the the unit can’t be ordered with triggers as well. To issue an order you need to temporarily reenable control
function DisableUnitControl takes unit u returns nothing
	local integer pUnit = ConvertHandle(u)/4
	local integer flags = Memory[pUnit+146]
	local integer Amov = Memory[pUnit+123]/4+16
	local integer Aatk = Memory[pUnit+122]/4+16
//	call echo("disabled on "+GetUnitName(u))
	if not IsFlagBitSet(flags,512) then
		set Memory[pUnit+146] = flags + 512
	endif
	if Amov != 16 then
		set Memory[Amov] = Memory[Amov] + 1
	endif
	if Aatk != 16 then
		set Memory[Aatk] = Memory[Aatk] + 1
	endif
endfunction

//Removes the Ward flag and reenables Amov and Aatk
function EnableUnitControl takes unit u returns nothing
	local integer pUnit = ConvertHandle(u)/4
	local integer flags = Memory[pUnit+146]
	local integer Amov = Memory[pUnit+123]/4+16
	local integer Aatk = Memory[pUnit+122]/4+16
//	call echo("enabled on "+GetUnitName(u))
	if IsFlagBitSet(flags,512) then
		set Memory[pUnit+146] = flags - 512
	endif
	if Amov != 16 and Memory[Amov]>0 then
		set Memory[Amov] = Memory[Amov] - 1
	endif
	if Aatk != 16 and Memory[Aatk]>0 then
		set Memory[Aatk] = Memory[Aatk] - 1
	endif
endfunction


function SetUnitModel takes integer uiobjectaddr, string s returns nothing
	call WriteNullTerminatedString(s, uiobjectaddr+0x30 )
endfunction

function SetUnitModelUF takes unit u, string s returns nothing//user-friendly
	call SetUnitModel(GetUnitUIDefAddr(GetUnitTypeId(u)),s)
endfunction

function SetUnitModelUFAddress takes integer address, string s returns nothing
	call SetUnitModel(address,s)
endfunction

function GetUnitAttackAbilityForAddress takes integer pConvertedHandle returns integer
	return Memory[pConvertedHandle/4+0x1e8/4]
endfunction

function GetUnitAttackAbility takes unit u returns integer
	return GetUnitAttackAbilityForAddress(ConvertHandle(u))
endfunction

function GetUnitMoveAbilityForAddress takes integer pConvertedHandle returns integer
	return Memory[pConvertedHandle/4+0x1eC/4]
endfunction

function GetUnitMoveAbility takes unit u returns integer
	return GetUnitMoveAbilityForAddress(ConvertHandle(u))
endfunction

function GetUnitHeroAbilityForAddress takes integer pConvertedHandle returns integer
	return Memory[pConvertedHandle/4+0x1F0/4]
endfunction

function GetUnitHeroAbility takes unit u returns integer
	return GetUnitHeroAbilityForAddress(ConvertHandle(u))
endfunction

function GetUnitBuildAbilityForAddress takes integer pConvertedHandle returns integer
	return Memory[pConvertedHandle/4+0x1F4/4]
endfunction

function GetUnitBuildAbility takes unit u returns integer
	return GetUnitBuildAbilityForAddress(ConvertHandle(u))
endfunction

function GetUnitInventoryAbilityForAddress takes integer pConvertedHandle returns integer
	return Memory[pConvertedHandle/4+0x1F8/4]
endfunction

function GetUnitInventoryAbility takes unit u returns integer
	return GetUnitInventoryAbilityForAddress(ConvertHandle(u))
endfunction



// Alternative for sub_6F4786B0 (126a)
function GetSomeAddress takes integer pAddr1 ,integer pAddr2 returns integer //I just split your function into 2, it should be working as before
    local integer pOff1 = 44
    
    if BitwiseAnd(pAddr1,pAddr2) == -1 then
   	 return 0
    endif
    
    if pAddr1 >= 0 then
   	 set pOff1 = 12
    endif
    
    set pOff1 = Memory[pGameClass1]/4 + pOff1/4
    set pOff1 = Memory[pOff1]    
    
    if pOff1 == 0 then
   	 return 0
    endif
    
    set pOff1 = pOff1 + 8 * pAddr1 + 4
    
    set pOff1 = Memory[pOff1/4]
    
    if pOff1 == 0 or Memory[pOff1/4 + 0x18/4] != pAddr2 then
   	 return 0
    endif
    
    return pOff1
    
endfunction

function GetSomeAddressForAbility takes integer pAddr1 ,integer pAddr2 returns integer //Second part of GetSomeAddressForAbility
	local integer pOff1 = GetSomeAddress(pAddr1,pAddr2)
	if pOff1==0 or Memory[pOff1/4 + 0x20/4] != 0 then
   	 return 0
    endif
	return Memory[pOff1/4+0x54/4]
endfunction

function GetSomeAddressForLocustFlags takes integer pAddr1 ,integer pAddr2 returns integer
	local integer i = GetSomeAddress(pAddr1,pAddr2)
	return Memory[i/4+37]
endfunction

function SetLocustFlags takes unit u, integer i returns nothing //These flags can make unit immune to truesight
	local integer pOff1 = ConvertHandle(u)/4+91
	set pOff1 = GetSomeAddressForLocustFlags(Memory[pOff1], Memory[pOff1+1])
	set Memory[pOff1/4+13] = i
endfunction

function EnableTruesightImmunity takes unit u returns nothing 
//I don’t really know what other side effects may be caused by this, at least GroupEnum is not affected
	call SetLocustFlags(u, 0x08000000)
endfunction

function DisableTruesightImmunity takes unit u returns nothing
	call SetLocustFlags(u, 0)
endfunction

function UnStunUnit takes unit u returns nothing
	set Memory[ConvertHandle(u)/4+102] = 0
endfunction

function IsUnitStunned2 takes unit u returns boolean
	return Memory[ConvertHandle(u)/4+102] > 0
endfunction

function IsUnitInvulnerable takes unit u returns boolean
	local integer k
//	call BJDebugMsg(GetUnitName(u))
	if u==null then
		return false
	endif
	set k=ConvertHandle(u)
	if k==0 then
		return false
	endif
	return Memory[k/4+8]/8*0x80000000 != 0
endfunction

function GetUnitInvulnerableCounter takes unit u returns integer
	local integer k
	if u==null then
		return 0
	endif
	set k=ConvertHandle(u)
	if k==0 then
		return 0
	endif
	return Memory[k/4+0xE8/4]
endfunction

function SetUnitInvulnerableCounter takes unit u, integer i returns nothing
	local integer k
	if u==null then
		return
	endif
	set k=ConvertHandle(u)
	if k==0 then
		return
	endif
	set Memory[k/4+0xE8/4]=i
endfunction

function GetUnitAbilityForAddresss takes integer pConvertedHandle, integer abilid returns integer
	local integer pAddr1 = pConvertedHandle + 476
	local integer pAddr2 = pConvertedHandle + 480
	local integer pOff1 = 0
	set pAddr1 = Memory[pAddr1/4]
	set pAddr2 = Memory[pAddr2/4]
	if pAddr1 == 0 or pAddr2 == 0 or BitwiseAnd(pAddr1,pAddr2) == -1 then
		return 0
	endif
	set pOff1 = GetSomeAddressForAbility(pAddr1,pAddr2)
	if pOff1 == 0 then 
		return 0
	endif
	loop
		exitwhen pOff1 == 0 
		if Memory[pOff1/4+52/4] == abilid then 
		 return pOff1
		endif
		set pOff1 = GetSomeAddressForAbility( Memory[pOff1/4+36/4], Memory[pOff1/4+40/4])
	endloop
	return pOff1
endfunction

function GetAbilityOrderID takes integer pAbility returns integer
	local integer pOffset2
	local integer pOffset1
	if pAbility<1 then
		return 0
	endif
//	call BJDebugMsg(Int2Hex(pAbility)+" sent")
//	call PolledWait(1.)

	//  mov ecx,[esp+04]
	//  mov edx,[ecx+6C]
	//  cmp edx,D0142 { 852290 }
	//  je 0493413A
	//  mov eax,00000000 { 0 }
	//  ret 
	//  mov ecx,[ecx]
	//  mov ecx,[ecx+00000308]
	//  call ecx
	//  ret 

	
	set Memory[pReservedExecutableMemory/4] = 0x04244C8B 
	set Memory[pReservedExecutableMemory/4 + 1] = 0x816C518B 
	set Memory[pReservedExecutableMemory/4 + 2] = 0x0D0142FA 
	set Memory[pReservedExecutableMemory/4 + 3] = 0xB8067400 
	set Memory[pReservedExecutableMemory/4 + 4] = 0x00000000 
	set Memory[pReservedExecutableMemory/4 + 5] = 0x8B098BC3 
	set Memory[pReservedExecutableMemory/4 + 6] = 0x00030889 
	set Memory[pReservedExecutableMemory/4 + 7] = 0x90E1FF00 
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory)
	endif
	

	if pIgnoredUnitsOffset != 0 then 
		set pOffset2 = IgnoredUnits(pAbility)
		call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits )
		return pOffset2
	endif
	
	return 0
endfunction

function PrintAllUnitAbilities takes integer pConvertedHandle returns nothing
	local integer pAddr1 = pConvertedHandle + 476
	local integer pAddr2 = pConvertedHandle + 480

	local integer pOff1 = 0

	set pAddr1 = Memory[pAddr1/4]
	set pAddr2 = Memory[pAddr2/4]
	if pAddr1 == 0 or pAddr2 == 0 or BitwiseAnd(pAddr1,pAddr2) == -1 then
		return 
	endif

	set pOff1 = GetSomeAddressForAbility(pAddr1,pAddr2)
	
	if pOff1 == 0 then 
		return
	endif
	
	loop
		exitwhen pOff1 == 0 

		call DisplayTextToPlayer(GetLocalPlayer(),0.0,0.0,"Address:"+Int2Hex(pOff1)+". ID:"+Id2String(Memory[pOff1/4+52/4])+" name: "+GetObjectName(Memory[pOff1/4+52/4]))
		
		set pOff1 = GetSomeAddressForAbility( Memory[pOff1/4+36/4], Memory[pOff1/4+40/4])
	endloop
	
endfunction

//function PrintAllUnitAbilitiesOld takes integer pConvertedHandle returns nothing
//	local integer pAddr1 = pConvertedHandle + 476
//	local integer pAddr2 = pConvertedHandle + 480
//
//	local integer pOff1 = 0
//
//	set pAddr1 = Memory[pAddr1/4]
//	set pAddr2 = Memory[pAddr2/4]
//	if pAddr1 == 0 or pAddr2 == 0 or BitwiseAndOld(pAddr1,pAddr2) == -1 then
//		return 
//	endif
//
//	set pOff1 = GetSomeAddressForAbility(pAddr1,pAddr2)
//	
//	if pOff1 == 0 then 
//		return
//	endif
//	
//	loop
//		exitwhen pOff1 == 0 
//
//		call DisplayTextToPlayer(GetLocalPlayer(),0.0,0.0,"Address:"+Int2Hex(pOff1)+". ID:"+Id2String(Memory[pOff1/4+52/4])+" name: "+GetObjectName(Memory[pOff1/4+52/4]))
//		
//		set pOff1 = GetSomeAddressForAbility( Memory[pOff1/4+36/4], Memory[pOff1/4+40/4])
//	endloop
//	
//endfunction

function GetAllUnitAbilities takes unit u returns nothing
	local integer pConvertedHandle=ConvertHandle(u)
	local integer pAddr1 = pConvertedHandle + 476
	local integer pAddr2 = pConvertedHandle + 480
	local integer i=0
	local integer h=GetHandleId(u)
	local integer pOff1 = 0
	call FlushChildHashtable(TempHash,h)
	
	set pAddr1 = Memory[pAddr1/4]
	set pAddr2 = Memory[pAddr2/4]
	if pAddr1 == 0 or pAddr2 == 0 or BitwiseAnd(pAddr1,pAddr2) == -1 then
		return 
	endif

	set pOff1 = GetSomeAddressForAbility(pAddr1,pAddr2)
	
	if pOff1 == 0 then 
		return
	endif
	
	loop
		exitwhen pOff1 == 0 

//		call DisplayTextToPlayer(GetLocalPlayer(),0.0,0.0,"Address:"+Int2Hex(pOff1)+". ID:"+Id2String(Memory[pOff1/4+52/4])+" name: "+GetObjectName(Memory[pOff1/4+52/4]))
		if Memory[pOff1/4+0x34/4]!='Amov' and Memory[pOff1/4+0x34/4]!='AHer' and Memory[pOff1/4+0x34/4]!='Aatk' and Memory[pOff1/4+0x34/4]!='AInv' then
			call SaveInteger(TempHash,h,i,pOff1)//address
			call SaveInteger(TempHash,h+1,i,Memory[pOff1/4+0x34/4])//ability id
			set i=i+1
		endif
		set pOff1 = GetSomeAddressForAbility( Memory[pOff1/4+36/4], Memory[pOff1/4+40/4])
		//facepalm
	endloop
	
	call SaveInteger(TempHash,'abil',0,i)
endfunction



function CallFastCallWith1Args takes integer pFuncFastcallAddr, integer arg1 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0xB9F68B56) 
	call WriteRealMemory(pReservedExecutableMemory2+4, arg1)
	call WriteRealMemory(pReservedExecutableMemory2+8, 0xBEF68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+12, pFuncFastcallAddr)
	call WriteRealMemory(pReservedExecutableMemory2+16, 0xC35ED6FF)
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction


function CallFastCallWith2Args takes integer pFuncFastcallAddr, integer arg1, integer arg2 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0xBAF68B56) 
	call WriteRealMemory(pReservedExecutableMemory2+4, arg2)
	call WriteRealMemory(pReservedExecutableMemory2+8, 0xB9F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+12, arg1)
	call WriteRealMemory(pReservedExecutableMemory2+16, 0xBEF68B90)
	call WriteRealMemory(pReservedExecutableMemory2+20, pFuncFastcallAddr)
	call WriteRealMemory(pReservedExecutableMemory2+24, 0xC35ED6FF)
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction


function CallFastCallWith3Args takes integer pFuncFastcallAddr, integer arg1, integer arg2, integer arg3 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68F68B56) 
	call WriteRealMemory(pReservedExecutableMemory2+4, arg3)
	call WriteRealMemory(pReservedExecutableMemory2+8, 0xBAF68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+12, arg2)
	call WriteRealMemory(pReservedExecutableMemory2+16, 0xB9F68B90)
	call WriteRealMemory(pReservedExecutableMemory2+20, arg1)
	call WriteRealMemory(pReservedExecutableMemory2+24, 0xBEF68B90)
	call WriteRealMemory(pReservedExecutableMemory2+28, pFuncFastcallAddr)
	call WriteRealMemory(pReservedExecutableMemory2+32, 0xC35ED6FF)
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction


function FUCKINGCallWith4Args takes integer pFuncFastcallAddr, integer arg1, integer arg2, integer arg3 , integer arg4 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68F68B56) 
	call WriteRealMemory(pReservedExecutableMemory2+4, arg4)
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+12, arg3)
	call WriteRealMemory(pReservedExecutableMemory2+16, 0xB8F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+20, arg2)
	call WriteRealMemory(pReservedExecutableMemory2+24, 0xBFF68B90)
	call WriteRealMemory(pReservedExecutableMemory2+28, arg1)
	call WriteRealMemory(pReservedExecutableMemory2+32, 0xBEF68B90)
	call WriteRealMemory(pReservedExecutableMemory2+36, pFuncFastcallAddr)
	call WriteRealMemory(pReservedExecutableMemory2+40, 0xC35ED6FF)

	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction

function CallFastCallWith4Args takes integer pFuncFastcallAddr, integer arg1, integer arg2, integer arg3 , integer arg4 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68F68B56) 
	call WriteRealMemory(pReservedExecutableMemory2+4, arg4)
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+12, arg3)
	call WriteRealMemory(pReservedExecutableMemory2+16, 0xBAF68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+20, arg2)
	call WriteRealMemory(pReservedExecutableMemory2+24, 0xB9F68B90)
	call WriteRealMemory(pReservedExecutableMemory2+28, arg1)
	call WriteRealMemory(pReservedExecutableMemory2+32, 0xBEF68B90)
	call WriteRealMemory(pReservedExecutableMemory2+36, pFuncFastcallAddr)
	call WriteRealMemory(pReservedExecutableMemory2+40, 0xC35ED6FF)
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction


function CallFastCallWith5Args takes integer pFuncFastcallAddr, integer arg1, integer arg2, integer arg3 , integer arg4, integer arg5 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68F68B56) 
	call WriteRealMemory(pReservedExecutableMemory2+4, arg5)
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+12, arg4)
	call WriteRealMemory(pReservedExecutableMemory2+16, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+20, arg3)
	call WriteRealMemory(pReservedExecutableMemory2+24, 0xBAF68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+28, arg2)
	call WriteRealMemory(pReservedExecutableMemory2+32, 0xB9F68B90)
	call WriteRealMemory(pReservedExecutableMemory2+36, arg1)
	call WriteRealMemory(pReservedExecutableMemory2+40, 0xBEF68B90)
	call WriteRealMemory(pReservedExecutableMemory2+44, pFuncFastcallAddr)
	call WriteRealMemory(pReservedExecutableMemory2+48, 0xC35ED6FF)
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction




function CallFastCallWith6Args takes integer pFuncFastcallAddr, integer arg1, integer arg2, integer arg3 , integer arg4, integer arg5, integer arg6 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68F68B56) 
	call WriteRealMemory(pReservedExecutableMemory2+4, arg6)
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+12, arg5)
	call WriteRealMemory(pReservedExecutableMemory2+16, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+20, arg4)
	call WriteRealMemory(pReservedExecutableMemory2+24, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+28, arg3)
	call WriteRealMemory(pReservedExecutableMemory2+32, 0xBAF68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+36, arg2)
	call WriteRealMemory(pReservedExecutableMemory2+40, 0xB9F68B90)
	call WriteRealMemory(pReservedExecutableMemory2+44, arg1)
	call WriteRealMemory(pReservedExecutableMemory2+48, 0xBEF68B90)
	call WriteRealMemory(pReservedExecutableMemory2+52, pFuncFastcallAddr)
	call WriteRealMemory(pReservedExecutableMemory2+56, 0xC35ED6FF)
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction



function CallFastCallWith7Args takes integer pFuncFastcallAddr, integer arg1, integer arg2, integer arg3 , integer arg4, integer arg5, integer arg6, integer arg7 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68F68B56) 
	call WriteRealMemory(pReservedExecutableMemory2+4, arg7)
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+12, arg6)
	call WriteRealMemory(pReservedExecutableMemory2+16, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+20, arg5)
	call WriteRealMemory(pReservedExecutableMemory2+24, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+28, arg4)
	call WriteRealMemory(pReservedExecutableMemory2+32, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+36, arg3)
	call WriteRealMemory(pReservedExecutableMemory2+40, 0xBAF68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+44, arg2)
	call WriteRealMemory(pReservedExecutableMemory2+48, 0xB9F68B90)
	call WriteRealMemory(pReservedExecutableMemory2+52, arg1)
	call WriteRealMemory(pReservedExecutableMemory2+56, 0xBEF68B90)
	call WriteRealMemory(pReservedExecutableMemory2+60, pFuncFastcallAddr)
	call WriteRealMemory(pReservedExecutableMemory2+64, 0xC35ED6FF)
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction


function CallFastCallWith8Args takes integer pFuncFastcallAddr, integer arg1, integer arg2, integer arg3 , integer arg4, integer arg5, integer arg6, integer arg7, integer arg8 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68F68B56) 
	call WriteRealMemory(pReservedExecutableMemory2+4, arg8)
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+12, arg7)
	call WriteRealMemory(pReservedExecutableMemory2+16, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+20, arg6)
	call WriteRealMemory(pReservedExecutableMemory2+24, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+28, arg5)
	call WriteRealMemory(pReservedExecutableMemory2+32, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+36, arg4)
	call WriteRealMemory(pReservedExecutableMemory2+40, 0x68F68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+44, arg3)
	call WriteRealMemory(pReservedExecutableMemory2+48, 0xBAF68B90) 
	call WriteRealMemory(pReservedExecutableMemory2+52, arg2)
	call WriteRealMemory(pReservedExecutableMemory2+56, 0xB9F68B90)
	call WriteRealMemory(pReservedExecutableMemory2+60, arg1)
	call WriteRealMemory(pReservedExecutableMemory2+64, 0xBEF68B90)
	call WriteRealMemory(pReservedExecutableMemory2+68, pFuncFastcallAddr)
	call WriteRealMemory(pReservedExecutableMemory2+72, 0xC35ED6FF)
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction




function CallThisCallWith1Args takes integer pFuncThiscallAddr, integer arg1 returns integer 
	return CallFastCallWith2Args(pFuncThiscallAddr,arg1,0)
endfunction

function CallThisCallWith2Args takes integer pFuncThiscallAddr, integer arg1, integer arg2 returns integer 
	return CallFastCallWith3Args(pFuncThiscallAddr,arg1,0,arg2)
endfunction

function CallThisCallWith3Args takes integer pFuncThiscallAddr, integer arg1, integer arg2, integer arg3 returns integer 
	return CallFastCallWith4Args(pFuncThiscallAddr,arg1,0,arg2,arg3)
endfunction

function CallThisCallWith4Args takes integer pFuncThiscallAddr, integer arg1, integer arg2, integer arg3, integer arg4 returns integer 
	return CallFastCallWith5Args(pFuncThiscallAddr,arg1,0,arg2,arg3,arg4)
endfunction

function CallThisCallWith5Args takes integer pFuncThiscallAddr, integer arg1, integer arg2, integer arg3, integer arg4, integer arg5 returns integer 
	return CallFastCallWith6Args(pFuncThiscallAddr,arg1,0,arg2,arg3,arg4,arg5)
endfunction

function CallThisCallWith6Args takes integer pFuncThiscallAddr, integer arg1, integer arg2, integer arg3, integer arg4, integer arg5, integer arg6 returns integer 
	return CallFastCallWith7Args(pFuncThiscallAddr,arg1,0,arg2,arg3,arg4,arg5,arg6)
endfunction

function CallThisCallWith7Args takes integer pFuncThiscallAddr, integer arg1, integer arg2, integer arg3, integer arg4, integer arg5, integer arg6, integer arg7 returns integer 
	return CallFastCallWith8Args(pFuncThiscallAddr,arg1,0,arg2,arg3,arg4,arg5,arg6,arg7)
endfunction

function GetUnitAbilityReal takes integer UnitAddress, integer AbilCode, integer unk1, integer unk2, integer unk3, integer unk4 returns integer 
	return CallThisCallWith6Args(pGetUnitAbility,UnitAddress,AbilCode,unk1,unk2, unk3, unk4)
endfunction

function GetUnitAddress takes unit u returns integer 
	return CallThisCallWith1Args(pGetUnitAddress, GetHandleId(u))
endfunction


function GetUnitAbility takes unit u, integer abilid returns integer
	if u==null then
		return 0
	endif
	return CallThisCallWith6Args(pGetUnitAbility,GetUnitAddress(u),abilid,0, 1, 1, 1)
endfunction

//function GetUnitAbility takes unit u, integer abilid returns integer
//
//
//	if abilid == 'Aatk' then
//		return GetUnitAttackAbility(u)
//	endif
//	if abilid == 'Amov' then
//		return GetUnitMoveAbility(u)
//	endif
//	if abilid == 'AHer' then
//		return GetUnitHeroAbility(u)
//	endif
//	if abilid == 'AObu' or abilid == 'AUbu' or abilid == 'ANbu' or abilid == 'AHbu' or abilid == 'AEbu' or abilid == 'AGbu' then
//		return GetUnitBuildAbility(u)
//	endif
//	if abilid == 'AInv' then
//		return GetUnitInventoryAbility(u)
//	endif
//	
//	return GetUnitAbilityForAddresss(ConvertHandle(u),abilid)
//endfunction

function GetAbilityOrderIDbyID takes integer id returns integer
	local integer a
	if HaveSavedInteger(AbilitiesHashtable,id,'ordr') then
		return LoadInteger(AbilitiesHashtable,id,'ordr')
	endif
	if id=='AHer' or id=='ANeg' or id=='Aatk' or id=='AInv' then
		call SaveInteger(AbilitiesHashtable,id,'ordr',0)
		return 0
	endif
//	call BJDebugMsg("Requested "+Int2Hex(id))
	set bj_lastCreatedUnit=CreateUnit(Player(0),'e00E',0,0,0)
	call UnitAddAbility(bj_lastCreatedUnit,id)
	set a=GetUnitAbility(bj_lastCreatedUnit,id)
	set a=GetAbilityOrderID(a)
	call SaveInteger(AbilitiesHashtable,id,'ordr',a)
	return a
endfunction

function GetAbilityOrderIdAny takes integer a returns integer
	local integer base
	if Memory[(a+0x54)/4]!=0 and Memory[(a+0x6C)/4]!=0 then
		set base=Memory[(Memory[(a+0x54)/4]+0x30)/4]
//		call echo(Id2String(base))
		if base>0 and base!='ANcl' then
			return GetAbilityOrderIDbyID(base)
//			return 0
		elseif base=='ANcl' then
			return Memory[(a+0x124)/4]
		endif
	endif
	return 0
endfunction

function ShowAbilityById_Main takes integer ConvertedHandle, integer d returns nothing
	if ConvertedHandle!=0 then
		if Memory[ConvertedHandle/4]!=0 then
			set Memory[(ConvertedHandle + 0x40)/4]=Memory[(ConvertedHandle + 0x40)/4]+d
		endif
	endif
endfunction

function HideAbilityButton takes unit u, integer id, boolean hide returns nothing
	local integer offset
	if u!=null and id!=0 then
		set offset=GetUnitAbility(u,id)
		if offset!=0 then
			if hide then
				call ShowAbilityById_Main(offset,1)
			else
				call ShowAbilityById_Main(offset,-1)
			endif
		endif
	endif
endfunction

function GetSpellCastpoint takes ability a returns real
	return cleanReal(indexToReal(Memory[(ConvertHandle(a)+0x8C)/4]))
endfunction

function SetSpellCastpoint takes ability a, real dur returns nothing
	set Memory[(ConvertHandle(a)+0x8C)/4]=cleanInt(realToIndex(dur))
endfunction

function GetSpellBackswing takes ability a returns real
	return cleanReal(indexToReal(Memory[(ConvertHandle(a)+0x94)/4]))
endfunction

function SetSpellBackswing takes ability a, real dur returns nothing
	set Memory[(ConvertHandle(a)+0x94)/4]=cleanInt(realToIndex(dur))
endfunction

function ToggleAbilityAutocast takes integer address, boolean on returns nothing
	local integer flags
	local integer flag128=0//0 if enabled
	local integer flag524288=0
	if address>0 then
		set flags=Memory[(address+0x20)/4]
		if BitwiseAnd(flags,0x80)==0 then
			set flag128=0x80//not enabled
//			call echo("not enabled")
//		else
//			call echo("enabled")
		endif
		if BitwiseAnd(flags,0x80000)==0 then
			set flag524288=0x80000//not enabled
		endif
		if on and flag128>0 then
			set flags=flags+flag128
		elseif on==false and flag128==0 then
			set flags=flags-0x80
		endif
		if on and flag524288>0 then
			set flags=flags+flag524288
		elseif on==false and flag524288==0 then
			set flags=flags-0x80000
		endif
		set Memory[(address+0x20)/4]=flags
	endif
endfunction

function SetUnitAbiltyAutocast takes unit u, integer id, boolean on returns nothing
	call ToggleAbilityAutocast(GetUnitAbility(u,id),on)
endfunction

function SetUnitAttackType takes unit u, integer i, integer attacknum returns nothing
	if attacknum==1 then
		set Memory[(GetUnitAttackAbility(u) + 0xF4)/4]=i
	elseif attacknum==2 then
		set Memory[(GetUnitAttackAbility(u) + 0xF8)/4]=i
	endif
endfunction

function SetUnitAttackType1 takes unit u, integer i returns nothing
	call SetUnitAttackType(u,i,1)
endfunction

function SetUnitAttackType2 takes unit u, integer i returns nothing
	call SetUnitAttackType(u,i,2)
endfunction

//6 = hero, 5 = chaos, 4 = magic, 3 = siege, 2 = piercing, 1 = normal, 0 = spell?
//values over 6 takes incorrect multipliers from nearby memory, do not use them
function GetUnitAttackType1 takes unit u returns integer
	return Memory[GetUnitAttackAbility(u)/4 + 0xF4/4]
endfunction

function GetUnitAttackType2 takes unit u returns integer
	return Memory[GetUnitAttackAbility(u)/4 + 0xF8/4]
endfunction

//unit's weapon type is melee, ranged, splash, artillery, etc
//values 1-8
// 2 = ranger, 1 = instante, 0 = melee, 5 = splash, 6 = mbounce, 
function SetUnitWeaponType takes unit u, integer i returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0xDC/4]=i
endfunction

function GetUnitWeaponType takes unit u returns integer
	return Memory[GetUnitAttackAbility(u)/4 + 0xDC/4]
endfunction

//setting green bonus automatically adjusts base damage to fit
function SetUnitGreenBonusDamage takes unit u, integer i returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0xAC/4]=i
endfunction

function GetUnitGreenBonusDamage takes unit u returns integer
	return Memory[GetUnitAttackAbility(u)/4 + 0xAC/4]
endfunction

function AddUnitGreenBonusDamage takes unit u, integer i returns nothing
	call SetUnitGreenBonusDamage(u,GetUnitGreenBonusDamage(u)+i)
endfunction

function SetUnitBaseDamage takes unit u, integer i returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0xA0/4]=i
endfunction

function GetUnitBaseDamage takes unit u returns integer
	return Memory[GetUnitAttackAbility(u)/4 + 0xA0/4]
endfunction

function AddUnitBaseDamage takes unit u, integer bonus returns nothing
	call SetUnitBaseDamage(u,GetUnitBaseDamage(u)+bonus)
endfunction

function SetUnitBaseAttributeDamage takes unit u, integer i returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0xA4/4]=i
endfunction

function GetUnitBaseAttributeDamage takes unit u returns integer
	return Memory[GetUnitAttackAbility(u)/4 + 0xA4/4]
endfunction

function SetUnitDamageDicesSideCount takes unit u, integer i returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0x94/4]=i
endfunction

function GetUnitDamageDicesSideCount takes unit u returns integer
	return Memory[GetUnitAttackAbility(u)/4 + 0x94/4]
endfunction

function SetUnitDamageDicesCount takes unit u, integer i returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0x88/4]=i
endfunction

function GetUnitDamageDicesCount takes unit u returns integer
	local integer a=GetUnitAttackAbility(u)
	if a>0 then
		return Memory[a/4 + 0x88/4]
	endif
	return 0
endfunction

function SetUnitAttackRange1 takes unit u, real r returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0x258/4]=cleanInt(realToIndex(r))
endfunction

function GetUnitAttackRange1 takes unit u returns real
	return cleanReal(indexToReal(Memory[GetUnitAttackAbility(u)/4 + 0x258/4]))
endfunction

function SetUnitAttackRange2 takes unit u, real r returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0x27C/4]=cleanInt(realToIndex(r))
endfunction

function GetUnitAttackRange2 takes unit u returns real
	return cleanReal(indexToReal(Memory[GetUnitAttackAbility(u)/4 + 0x27C/4]))
endfunction

function SetUnitBAT1 takes unit u, real r returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0x158/4]=cleanInt(realToIndex(r))
endfunction

function GetUnitBAT1 takes unit u returns real
	return cleanReal(indexToReal(Memory[GetUnitAttackAbility(u)/4 + 0x158/4]))
endfunction

function SetUnitBAT2 takes unit u, real r returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0x160/4]=cleanInt(realToIndex(r))
endfunction

function GetUnitBAT2 takes unit u returns real
	return cleanReal(indexToReal(Memory[GetUnitAttackAbility(u)/4 + 0x160/4]))
endfunction

function SetUnitAttackPoint1 takes unit u, real r returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0x16C/4]=cleanInt(realToIndex(r))
endfunction

function SetUnitAttackPoint2 takes unit u, real r returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0x17C/4]=cleanInt(realToIndex(r))
endfunction

function GetUnitAttackPoint1 takes unit u returns real
	return cleanReal(indexToReal(Memory[GetUnitAttackAbility(u)/4 + 0x16C/4]))
endfunction

function GetUnitAttackPoint2 takes unit u returns real
	return cleanReal(indexToReal(Memory[GetUnitAttackAbility(u)/4 + 0x17C/4]))
endfunction

function GetUnitAttackEnabledIndex takes unit u returns integer
	return Memory[GetUnitAttackAbility(u)/4 + 0x104/4]
endfunction

function SetUnitAttackBackswing takes unit u, real r returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0x190/4]=cleanInt(realToIndex(r))
endfunction

function GetUnitAttackBackswing takes unit u returns real
	return cleanReal(indexToReal(Memory[GetUnitAttackAbility(u)/4 + 0x190/4]))
endfunction

function SetUnitAttackSpeed takes unit u, real r returns nothing
	set Memory[GetUnitAttackAbility(u)/4 + 0x1B0/4]=cleanInt(realToIndex(r))
endfunction

function GetUnitAttackSpeed takes unit u returns real
	return cleanReal(indexToReal(Memory[GetUnitAttackAbility(u)/4 + 0x1B0/4]))
endfunction

function AddUnitAttackSpeed takes unit u, real r returns nothing
	call SetUnitAttackSpeed(u,GetUnitAttackSpeed(u)+r)
endfunction

function GetUnitAddressFloatsRelated takes integer pConvertedHandle, integer step returns integer
	local integer pOffset1 = pConvertedHandle + step
	local integer pOffset2 = Memory[pGameClass1]
	set pOffset1 = Memory[pOffset1/4]
	set pOffset2 = Memory[(pOffset2+0xC)/4]
	set pOffset2 = Memory[(( pOffset1 * 8 ) + pOffset2 + 4)/4]
	return pOffset2
endfunction

function SetUnitFacingInstant takes unit u, real a returns nothing
	local integer pOffset2 = GetUnitAddressFloatsRelated(ConvertHandle(u),0xA0)
	set Memory[Memory[(pOffset2+0x28)/4]/4 +0xA4/4]=cleanInt(realToIndex(bj_DEGTORAD*a))
endfunction

function SetUnitMaxHP4Address takes integer pConvertedHandle, real newhp returns nothing
	local integer pOffset2 = GetUnitAddressFloatsRelated(pConvertedHandle,0xA0)
	set Memory[(pOffset2+0x84)/4]=cleanInt(realToIndex(newhp))
endfunction

function SetUnitMaxMP4Address takes integer pConvertedHandle, real newmp returns nothing
	local integer pOffset2 = GetUnitAddressFloatsRelated(pConvertedHandle,0xC0)
	set Memory[(pOffset2+0x84)/4]=cleanInt(realToIndex(newmp))
endfunction

function SetUnitMaxHP takes unit u, real newhp returns nothing
	call SetUnitMaxHP4Address(ConvertHandle(u),newhp)
endfunction

function SetUnitMaxMP takes unit u, real newmp returns nothing
	call SetUnitMaxMP4Address(ConvertHandle(u),newmp)
endfunction

function GetUnitHPRegenForAddress takes integer pConvertedHandle returns real
	local integer pOffset2 = GetUnitAddressFloatsRelated(pConvertedHandle,0xA0)
	return cleanReal(indexToReal(Memory[(pOffset2+0x7C)/4]))
endfunction

function SetUnitXSoft takes integer pConvertedHandle, real x returns nothing
	local integer pOffset2 = GetUnitAddressFloatsRelated(pConvertedHandle,0xA0)
	set Memory[Memory[(pOffset2+0x28)/4]/4+0x54/4]=SetRealIntoMemory(x)
endfunction

function SetUnitHPRegenForAddress takes integer pConvertedHandle, real r returns nothing
	local integer pOffset2 = GetUnitAddressFloatsRelated(pConvertedHandle,0xA0)
	set Memory[(pOffset2+0x7C)/4]=cleanInt(realToIndex(r))
endfunction

function GetUnitMPRegenForAddress takes integer pConvertedHandle returns real
	local integer pOffset2 = GetUnitAddressFloatsRelated(pConvertedHandle,0xC0)
//	call echo(Int2Hex(pOffset2))
	return cleanReal(indexToReal(Memory[(pOffset2+0x7C)/4]))
endfunction

function SetUnitMPRegenForAddress takes integer pConvertedHandle, real r returns nothing
	local integer pOffset2 = GetUnitAddressFloatsRelated(pConvertedHandle,0xC0)
	set Memory[(pOffset2+0x7C)/4]=cleanInt(realToIndex(r))
endfunction

function GetUnitHPRegen takes unit u returns real
	return GetUnitHPRegenForAddress(ConvertHandle(u))
endfunction

function GetWidgetHPRegen takes widget u returns real
	return GetUnitHPRegenForAddress(ConvertHandle(u))
endfunction

function GetUnitMPRegen takes unit u returns real
	return GetUnitMPRegenForAddress(ConvertHandle(u))
endfunction

function SetUnitHPRegen takes unit u, real r returns nothing
	local real curhp=GetWidgetLife(u)
	if curhp>0 then
		call SetUnitHPRegenForAddress(ConvertHandle(u),r)
		call SetWidgetLife(u,curhp)
	endif
endfunction

function AddUnitHPRegen takes unit u, real r returns nothing
	local real curhp=GetWidgetLife(u)
	local integer h
	if curhp>0 then
		set h=ConvertHandle(u)
		call SetUnitHPRegenForAddress(h,r+GetUnitHPRegenForAddress(h))
		call SetWidgetLife(u,curhp)
	endif
endfunction

function SetUnitMPRegen takes unit u, real r returns nothing
	local real curhp=GetUnitState(u,UNIT_STATE_MANA)
	if GetUnitState(u,UNIT_STATE_MAX_MANA)>0 then
		call SetUnitMPRegenForAddress(ConvertHandle(u),r)
		call SetUnitState(u,UNIT_STATE_MANA,curhp)
	endif
endfunction

function AddUnitMPRegen takes unit u, real r returns nothing
	local real curhp=GetUnitState(u,UNIT_STATE_MANA)
	local integer h
	if GetUnitState(u,UNIT_STATE_MAX_MANA)>0 then
		set h=ConvertHandle(u)
		call SetUnitMPRegenForAddress(h,r+GetUnitMPRegenForAddress(h))
		call SetUnitState(u,UNIT_STATE_MANA,curhp)
	endif
endfunction



function SetEffectX_ForAddress takes integer pConvertedHandle, real r returns nothing
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0xC0/4] = cleanInt(realToIndex(r))
endfunction
function SetEffectX takes effect e, real r returns nothing
	call SetEffectX_ForAddress(ConvertHandle(e),r)
endfunction

function GetEffectX_ForAddress takes integer pConvertedHandle returns real
	return cleanReal(indexToReal(Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0xC0/4]))
endfunction
function GetEffectX takes effect e returns real
	return GetEffectX_ForAddress(ConvertHandle(e))
endfunction

function SetEffectY_ForAddress takes integer pConvertedHandle, real r returns nothing
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0xC4/4] = cleanInt(realToIndex(r))
endfunction
function SetEffectY takes effect e, real r returns nothing
	call SetEffectY_ForAddress(ConvertHandle(e),r)
endfunction

function GetEffectY_ForAddress takes integer pConvertedHandle returns real
	return cleanReal(indexToReal(Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0xC4/4]))
endfunction
function GetEffectY takes effect e returns real
	return GetEffectY_ForAddress(ConvertHandle(e))
endfunction

function SetEffectZ_ForAddress takes integer pConvertedHandle, real r returns nothing
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0xC8/4] = cleanInt(realToIndex(r))
endfunction
function SetEffectZ takes effect e, real r returns nothing
	call SetEffectZ_ForAddress(ConvertHandle(e),r)
endfunction

function GetEffectZ_ForAddress takes integer pConvertedHandle returns real
	return cleanReal(indexToReal(Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0xC8/4]))
endfunction

function GetEffectZ takes effect e returns real
	return GetEffectZ_ForAddress(ConvertHandle(e))
endfunction


function SetEffectPos takes effect e, real x, real y, real z returns nothing
	local integer pConvertedHandle = ConvertHandle(e)
	call SetEffectX_ForAddress(pConvertedHandle,x)
	call SetEffectY_ForAddress(pConvertedHandle,y)
	call SetEffectZ_ForAddress(pConvertedHandle,z)
endfunction

function SetObjectColor takes handle e, integer color returns nothing
	set Memory[Memory[ConvertHandle(e)/4 + 0x28/4]/4 + 0x148/4] = color
endfunction

function SetEffectSize takes effect e, real size returns nothing
	set Memory[Memory[ConvertHandle(e)/4 + 0x28/4]/4 + 0xE8/4] = cleanInt(realToIndex(size))
endfunction

function SetEffectSizeEx takes effect e, real full, real x,real y, real z returns nothing
	local integer pConvertedHandle = ConvertHandle(e)
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0xE8/4] = cleanInt(realToIndex(full))
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x120/4] = cleanInt(realToIndex(x))
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x124/4] = cleanInt(realToIndex(y))
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x128/4] = cleanInt(realToIndex(z))
endfunction

function SetEffectFacing takes effect e, real angle returns nothing
	local integer pConvertedHandle = ConvertHandle(e)
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x108/4] = cleanInt(realToIndex(Cos(angle)))
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x10C/4] = cleanInt(realToIndex(Sin(angle)))
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x114/4] = cleanInt(realToIndex(-Sin(angle)))
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x118/4] = cleanInt(realToIndex(Cos(angle)))
endfunction

function GetEffectFacing takes effect e returns real//returns DEGREES
	local integer pConvertedHandle = ConvertHandle(e)
return Acos( cleanReal(indexToReal((Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x108/4]) ))) * bj_RADTODEG
endfunction

function GetUnitFacingEx takes unit e returns real//returns DEGREES
	local integer pConvertedHandle = ConvertHandle(e)
	return Acos( cleanReal(indexToReal((Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x108/4]) ))) * bj_RADTODEG
endfunction

function GetUnitAngle1 takes unit e returns real
	local integer pConvertedHandle = ConvertHandle(e)
	return cleanReal(indexToReal((Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x108/4]) ))
endfunction
function GetUnitAngle2 takes unit e returns real
	local integer pConvertedHandle = ConvertHandle(e)
	return cleanReal(indexToReal((Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x10C/4]) ))
endfunction
function GetUnitAngle3 takes unit e returns real
	local integer pConvertedHandle = ConvertHandle(e)
	return cleanReal(indexToReal((Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x114/4]) ))
endfunction
function GetUnitAngle4 takes unit e returns real
	local integer pConvertedHandle = ConvertHandle(e)
	return cleanReal(indexToReal((Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x118/4]) ))
endfunction

function GetUnitFacingEx2 takes unit e returns real//returns DEGREES
	local integer pConvertedHandle = ConvertHandle(e)
	return Asin( cleanReal(indexToReal((Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x10C/4]) ))) * bj_RADTODEG
endfunction


function GetUnitFacingEx3 takes unit e returns real//returns DEGREES
	local integer pConvertedHandle = ConvertHandle(e)
	return Asin( -1 * cleanReal(indexToReal((Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x114/4]) ))) * bj_RADTODEG
endfunction

function GetUnitFacingEx4 takes unit e returns real//returns DEGREES
	local integer pConvertedHandle = ConvertHandle(e)
	return Atan2( cleanReal(indexToReal((Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x10C/4]) )), cleanReal(indexToReal((Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x108/4]) ))) * bj_RADTODEG
endfunction

function GetTrackableX takes trackable t returns real
	return GetEffectX_ForAddress(ConvertHandle(t))
endfunction

function GetTrackableY takes trackable t returns real
	return GetEffectY_ForAddress(ConvertHandle(t))
endfunction

function GetTrackableZ takes trackable t returns real
	return GetEffectZ_ForAddress(ConvertHandle(t))
endfunction

function SetTrackableX takes trackable t, real r returns nothing
	call SetEffectX_ForAddress(ConvertHandle(t),r)
endfunction

function SetTrackableY takes trackable t, real r  returns nothing
	call SetEffectY_ForAddress(ConvertHandle(t),r)
endfunction

function SetTrackableZ takes trackable t, real r  returns nothing
	call SetEffectZ_ForAddress(ConvertHandle(t),r)
endfunction

function SetTrackablePos takes trackable t, real x,real y,real z returns nothing
	local integer pConvertedHandle = ConvertHandle(t)
	call SetEffectX_ForAddress(pConvertedHandle,x)
	call SetEffectY_ForAddress(pConvertedHandle,y)
	call SetEffectZ_ForAddress(pConvertedHandle,z)
endfunction

function SetTrackableFacing takes trackable t, real angle returns nothing//takes RADIANS, use bj_DEGTORAD
	local integer pConvertedHandle = ConvertHandle(t)
	local real cos=Cos(angle)
	local real sin=Sin(angle)
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x108/4] = cleanInt(realToIndex( cos ))
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x10C/4] = cleanInt(realToIndex( sin ))
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x114/4] = cleanInt(realToIndex( -sin ))
	set Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x118/4] = cleanInt(realToIndex( cos ))
endfunction

function GetTrackableFacing takes trackable t returns real//returns DEGREES
	local integer pConvertedHandle = ConvertHandle(t)
	return Acos( cleanReal(indexToReal(Memory[Memory[pConvertedHandle/4 + 0x28/4]/4 + 0x108/4] ))) 
endfunction


function ResetTimedLife takes integer pConvertedHandle, real time, real maxtime returns nothing
	set Memory[pConvertedHandle/4 + 0xD0/4] = cleanInt(realToIndex(maxtime))
//	set Memory[Memory[Memory[pConvertedHandle/4 + 0x90/4]/4 + 0xC/4]/4 + 0x40/4] = cleanInt(realToIndex(time))
endfunction




function CallStdcallWith1Args takes integer pFuncStdcallAddr, integer arg1 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68C98B51) // push ecx. mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+4, arg1) // push arg1
	call WriteRealMemory(pReservedExecutableMemory2+8, 0xB990C98B) // mov ecx,ecx , nop
	call WriteRealMemory(pReservedExecutableMemory2+12, pFuncStdcallAddr) // mov ecx, pFuncStdcallAddr
	call WriteRealMemory(pReservedExecutableMemory2+16, 0xC359D1FF) // call ecx, pop ecx, ret
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction



function CallStdcallWith2Args takes integer pFuncStdcallAddr, integer arg1, integer arg2 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68C98B51) // push ecx. mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+4, arg2) // push arg2
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+12, arg1) // push arg1
	call WriteRealMemory(pReservedExecutableMemory2+16, 0xB990C98B) // mov ecx,ecx , nop
	call WriteRealMemory(pReservedExecutableMemory2+20, pFuncStdcallAddr) // mov ecx, pFuncStdcallAddr
	call WriteRealMemory(pReservedExecutableMemory2+24, 0xC359D1FF) // call ecx, pop ecx, ret
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction




function CallStdcallWith3Args takes integer pFuncStdcallAddr, integer arg1, integer arg2, integer arg3 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68C98B51) // push ecx. mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+4, arg3) // push arg3
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+12, arg2) // push arg2
	call WriteRealMemory(pReservedExecutableMemory2+16, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+20, arg1) // push arg1
	call WriteRealMemory(pReservedExecutableMemory2+24, 0xB990C98B) // mov ecx,ecx , nop
	call WriteRealMemory(pReservedExecutableMemory2+28, pFuncStdcallAddr) // mov ecx, pFuncStdcallAddr
	call WriteRealMemory(pReservedExecutableMemory2+32, 0xC359D1FF) // call ecx, pop ecx, ret
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction


function CallStdcallWith4Args takes integer pFuncStdcallAddr, integer arg1, integer arg2, integer arg3 , integer arg4 returns integer 
	local integer pOffset1
	
	

	call WriteRealMemory(pReservedExecutableMemory2, 0x68C98B51) // push ecx. mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+4, arg4) // push arg4
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+12, arg3) // push arg3
	call WriteRealMemory(pReservedExecutableMemory2+16, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+20, arg2) // push arg2
	call WriteRealMemory(pReservedExecutableMemory2+24, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+28, arg1) // push arg1
	call WriteRealMemory(pReservedExecutableMemory2+32, 0xB990C98B) // mov ecx,ecx , nop
	call WriteRealMemory(pReservedExecutableMemory2+36, pFuncStdcallAddr) // mov ecx, pFuncStdcallAddr
	call WriteRealMemory(pReservedExecutableMemory2+40, 0xC359D1FF) // call ecx, pop ecx, ret

	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction


function CallStdcallWith5Args takes integer pFuncStdcallAddr, integer arg1, integer arg2, integer arg3 , integer arg4, integer arg5 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68C98B51) // push ecx. mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+4, arg5) // push arg5
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+12, arg4) // push arg4
	call WriteRealMemory(pReservedExecutableMemory2+16, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+20, arg3) // push arg3
	call WriteRealMemory(pReservedExecutableMemory2+24, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+28, arg2) // push arg2
	call WriteRealMemory(pReservedExecutableMemory2+32, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+36, arg1) // push arg1
	call WriteRealMemory(pReservedExecutableMemory2+40, 0xB990C98B) // mov ecx,ecx , nop
	call WriteRealMemory(pReservedExecutableMemory2+44, pFuncStdcallAddr) // mov ecx, pFuncStdcallAddr
	call WriteRealMemory(pReservedExecutableMemory2+48, 0xC359D1FF) // call ecx, pop ecx, ret
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction




function CallStdcallWith6Args takes integer pFuncStdcallAddr, integer arg1, integer arg2, integer arg3 , integer arg4, integer arg5 , integer arg6 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68C98B51) // push ecx. mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+4, arg6) // push arg6
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+12, arg5) // push arg5
	call WriteRealMemory(pReservedExecutableMemory2+16, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+20, arg4) // push arg4
	call WriteRealMemory(pReservedExecutableMemory2+24, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+28, arg3) // push arg3
	call WriteRealMemory(pReservedExecutableMemory2+32, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+36, arg2) // push arg2
	call WriteRealMemory(pReservedExecutableMemory2+40, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+44, arg1) // push arg1
	call WriteRealMemory(pReservedExecutableMemory2+48, 0xB990C98B) // mov ecx,ecx , nop
	call WriteRealMemory(pReservedExecutableMemory2+52, pFuncStdcallAddr) // mov ecx, pFuncStdcallAddr
	call WriteRealMemory(pReservedExecutableMemory2+56, 0xC359D1FF) // call ecx, pop ecx, ret
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction



function CallCdeclWith1Args takes integer pFuncCdeclAddr, integer arg1 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68C98B51) // push ecx. mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+4, arg1) // push arg1
	call WriteRealMemory(pReservedExecutableMemory2+8, 0xB990C98B) // mov ecx,ecx , nop
	call WriteRealMemory(pReservedExecutableMemory2+12, pFuncCdeclAddr) // mov ecx, pFuncCdeclAddr
	call WriteRealMemory(pReservedExecutableMemory2+16, 0xC483D1FF) // call ecx, add esp, 
	call WriteRealMemory(pReservedExecutableMemory2+20, 0xCCC35904) // 4, pop ecx, ret
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction



function CallCdeclWith2Args takes integer pFuncCdeclAddr, integer arg1, integer arg2 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68C98B51) // push ecx. mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+4, arg2) // push arg2
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+12, arg1) // push arg1
	call WriteRealMemory(pReservedExecutableMemory2+16, 0xB990C98B) // mov ecx,ecx , nop
	call WriteRealMemory(pReservedExecutableMemory2+20, pFuncCdeclAddr) // mov ecx, pFuncCdeclAddr
	call WriteRealMemory(pReservedExecutableMemory2+24, 0xC483D1FF) // call ecx, add esp, 
	call WriteRealMemory(pReservedExecutableMemory2+28, 0xCCC35908) // 4, pop ecx, ret
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction




function CallCdeclWith3Args takes integer pFuncCdeclAddr, integer arg1, integer arg2, integer arg3 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68C98B51) // push ecx. mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+4, arg3) // push arg3
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+12, arg2) // push arg2
	call WriteRealMemory(pReservedExecutableMemory2+16, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+20, arg1) // push arg1
	call WriteRealMemory(pReservedExecutableMemory2+24, 0xB990C98B) // mov ecx,ecx , nop
	call WriteRealMemory(pReservedExecutableMemory2+28, pFuncCdeclAddr) // mov ecx, pFuncCdeclAddr
	call WriteRealMemory(pReservedExecutableMemory2+32, 0xC483D1FF) // call ecx, add esp, 
	call WriteRealMemory(pReservedExecutableMemory2+36, 0xCCC3590C) // 4, pop ecx, ret
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction


function CallCdeclWith4Args takes integer pFuncCdeclAddr, integer arg1, integer arg2, integer arg3 , integer arg4 returns integer 
	local integer pOffset1
	
	

	call WriteRealMemory(pReservedExecutableMemory2, 0x68C98B51) // push ecx. mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+4, arg4) // push arg4
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+12, arg3) // push arg3
	call WriteRealMemory(pReservedExecutableMemory2+16, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+20, arg2) // push arg2
	call WriteRealMemory(pReservedExecutableMemory2+24, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+28, arg1) // push arg1
	call WriteRealMemory(pReservedExecutableMemory2+32, 0xB990C98B) // mov ecx,ecx , nop
	call WriteRealMemory(pReservedExecutableMemory2+36, pFuncCdeclAddr) // mov ecx, pFuncCdeclAddr
	call WriteRealMemory(pReservedExecutableMemory2+40, 0xC483D1FF) // call ecx, add esp, 
	call WriteRealMemory(pReservedExecutableMemory2+44, 0xCCC35910) // 4, pop ecx, ret
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction


function CallCdeclWith5Args takes integer pFuncCdeclAddr, integer arg1, integer arg2, integer arg3 , integer arg4, integer arg5 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68C98B51) // push ecx. mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+4, arg5) // push arg5
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+12, arg4) // push arg4
	call WriteRealMemory(pReservedExecutableMemory2+16, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+20, arg3) // push arg3
	call WriteRealMemory(pReservedExecutableMemory2+24, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+28, arg2) // push arg2
	call WriteRealMemory(pReservedExecutableMemory2+32, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+36, arg1) // push arg1
	call WriteRealMemory(pReservedExecutableMemory2+40, 0xB990C98B) // mov ecx,ecx , nop
	call WriteRealMemory(pReservedExecutableMemory2+44, pFuncCdeclAddr) // mov ecx, pFuncCdeclAddr
	call WriteRealMemory(pReservedExecutableMemory2+48, 0xC483D1FF) // call ecx, add esp, 
	call WriteRealMemory(pReservedExecutableMemory2+52, 0xCCC35914) // 4, pop ecx, ret
	
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction




function CallCdeclWith6Args takes integer pFuncCdeclAddr, integer arg1, integer arg2, integer arg3 , integer arg4, integer arg5 , integer arg6 returns integer 
	local integer pOffset1

	call WriteRealMemory(pReservedExecutableMemory2, 0x68C98B51) // push ecx. mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+4, arg6) // push arg6
	call WriteRealMemory(pReservedExecutableMemory2+8, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+12, arg5) // push arg5
	call WriteRealMemory(pReservedExecutableMemory2+16, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+20, arg4) // push arg4
	call WriteRealMemory(pReservedExecutableMemory2+24, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+28, arg3) // push arg3
	call WriteRealMemory(pReservedExecutableMemory2+32, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+36, arg2) // push arg2
	call WriteRealMemory(pReservedExecutableMemory2+40, 0x6890C98B) //  mov ecx,ecx
	call WriteRealMemory(pReservedExecutableMemory2+44, arg1) // push arg1
	call WriteRealMemory(pReservedExecutableMemory2+48, 0xB990C98B) // mov ecx,ecx , nop
	call WriteRealMemory(pReservedExecutableMemory2+52, pFuncCdeclAddr) // mov ecx, pFuncCdeclAddr
	call WriteRealMemory(pReservedExecutableMemory2+56, 0xC483D1FF) // call ecx, add esp, 
	call WriteRealMemory(pReservedExecutableMemory2+60, 0xCCC35918) // 4, pop ecx, ret
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory2 )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory2)
	endif
	

	set pOffset1 = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits)
	return pOffset1
endfunction

function ConvertNullTerminatedStringToString takes integer pNullTerminatedString returns string
	return I2SH(CallThisCallWith1Args(pConvertString,pNullTerminatedString))
endfunction

function sprintf_1args takes string format, integer arg1 returns string
	call CallCdeclWith3Args(ReadRealMemory(p_sprintf),pReservedWritableMemory, GetStringAddress(format), arg1)
	return ConvertNullTerminatedStringToString(pReservedWritableMemory)
endfunction

function sprintf_2args takes string format, integer arg1, integer arg2 returns string
	call CallCdeclWith4Args(ReadRealMemory(p_sprintf),pReservedWritableMemory, GetStringAddress(format), arg1, arg2)
	return ConvertNullTerminatedStringToString(pReservedWritableMemory)
endfunction

function sprintf_3args takes string format, integer arg1, integer arg2, integer arg3 returns string
	call CallCdeclWith5Args(ReadRealMemory(p_sprintf),pReservedWritableMemory, GetStringAddress(format), arg1, arg2, arg3)
	return ConvertNullTerminatedStringToString(pReservedWritableMemory)
endfunction

function sprintf_4args takes string format, integer arg1, integer arg2, integer arg3, integer arg4 returns string
	call CallCdeclWith6Args(ReadRealMemory(p_sprintf),pReservedWritableMemory, GetStringAddress(format), arg1, arg2, arg3, arg4)
	return ConvertNullTerminatedStringToString(pReservedWritableMemory)
endfunction

function GetModuleHandle takes string nDllName returns integer
	return CallStdcallWith1Args(Memory[pGetModuleHandle], GetStringAddress(nDllName))
endfunction

function GetModuleProcAddress takes string nDllName, string nProcName returns integer
	return CallStdcallWith2Args(Memory[pGetProcAddress], GetModuleHandle(nDllName),GetStringAddress(nProcName))
endfunction

function GetFileAttributes takes string s returns integer
	local integer nhandle1
	local integer nOffset1
	
	

	if pGetFileAttributesA == 0 then
		set pGetFileAttributesA = GetModuleProcAddress("Kernel32.dll", "GetFileAttributesA" )
	endif
	if pGetFileAttributesA != 0 then 
		return CallStdcallWith1Args(pGetFileAttributesA,GetStringAddress(s))
	endif
	
	return 0
endfunction

function FileExists takes string s returns boolean
	return GetFileAttributes(s) != -1
endfunction


function LoadLibrary takes string nDllName returns integer
	if pLoadLibraryA == 0 then
		set pLoadLibraryA = GetModuleProcAddress("Kernel32.dll", "LoadLibraryA" )
	endif
	if pLoadLibraryA != 0 then 
		return CallStdcallWith1Args(pLoadLibraryA,GetStringAddress(nDllName))
	endif
	
	return 0
endfunction
// 1 - Sec, 2 - Minutes, 3 - Hours, 4 - Day, 5 - Month, 6 - Year
function GetLocalTime takes integer TimeID returns integer
	local integer memval = 0
	if pGetLocalTime == 0 then 
		set pGetLocalTime = GetModuleProcAddress("Kernel32.dll","GetLocalTime")
	endif
	
	if pGetLocalTime != 0 then 
		call CallStdcallWith1Args(pGetLocalTime,pReservedMemoryForSystemTime)
	endif
	
	if TimeID == 1 then 
		set memval = ReadRealMemory(pReservedMemoryForSystemTime+12)
		return CreateInteger1(0,0,GetByteFromInteger(memval,3),GetByteFromInteger(memval,4))
	elseif TimeID == 2 then 
		set memval = ReadRealMemory(pReservedMemoryForSystemTime+10)
		return CreateInteger1(0,0,GetByteFromInteger(memval,3),GetByteFromInteger(memval,4))
	elseif TimeID == 3 then 
		set memval = ReadRealMemory(pReservedMemoryForSystemTime+8)
		return CreateInteger1(0,0,GetByteFromInteger(memval,3),GetByteFromInteger(memval,4))
	elseif TimeID == 4 then 
		set memval = ReadRealMemory(pReservedMemoryForSystemTime+6)
		return CreateInteger1(0,0,GetByteFromInteger(memval,3),GetByteFromInteger(memval,4))
	elseif TimeID == 5 then 
		set memval = ReadRealMemory(pReservedMemoryForSystemTime+2)
		return CreateInteger1(0,0,GetByteFromInteger(memval,3),GetByteFromInteger(memval,4))
	elseif TimeID == 6 then 
		set memval = ReadRealMemory(pReservedMemoryForSystemTime)
		return CreateInteger1(0,0,GetByteFromInteger(memval,3),GetByteFromInteger(memval,4))
	endif 
	return 0
endfunction

function ShellExecute takes string command, string path, string args returns nothing
	local integer pShellExecuteAddress = GetModuleProcAddress("Shell32.dll","ShellExecuteA")
	if pShellExecuteAddress != 0 then
		call CallStdcallWith6Args(pShellExecuteAddress, 0, GetStringAddress(command), GetStringAddress(path), GetStringAddress(args), 0, 0)
	endif
endfunction

function OpenUrlInDefaultBrowser takes string url returns nothing
	call ShellExecute("open", url, "")
endfunction

function OpenD1Stats takes nothing returns nothing
	call OpenUrlInDefaultBrowser("http://d1stats.ru")
endfunction

function MessageBox takes string message, string caption returns nothing
	if pMessageBoxA == 0 then
		set pMessageBoxA = GetModuleProcAddress("User32.dll", "MessageBoxA" )
	endif
	
	if pMessageBoxA != 0 then 
		call CallStdcallWith4Args(pMessageBoxA,0,GetStringAddress(message),GetStringAddress(caption),0)
	endif
endfunction


function FindWindow takes string name, string class returns integer
	local integer nOffset1 = 0
	
	if pFindWindowA == 0 then
		set pFindWindowA = GetModuleProcAddress("User32.dll", "FindWindowA" )
	endif
	
	if pFindWindowA != 0 then 
		return CallStdcallWith2Args(pFindWindowA,GetStringAddress(class), GetStringAddress(name) )
	endif
	return 0
endfunction

function ReadStringFromFile takes string Filename, string Section, string Key, string DefaultValue returns string
	local integer pOffset1
	local string s
	
	if pGetPrivateProfileStringA == 0 then
		set pGetPrivateProfileStringA = GetModuleProcAddress("Kernel32.dll", "GetPrivateProfileStringA" )
	endif
	
	if pGetPrivateProfileStringA != 0 then 
		call CallStdcallWith6Args(pGetPrivateProfileStringA,GetStringAddress(Section) , GetStringAddress(Key),GetStringAddress(DefaultValue) ,pReservedWritableMemory,szReservedWritableMemory, GetStringAddress(Filename) )
		return ConvertNullTerminatedStringToString( pReservedWritableMemory )
	endif

	return ""
endfunction

function WriteStringToFile takes string Filename, string Section, string Key, string Value returns nothing
	local integer nOffset1
	
	if pWritePrivateProfileStringA == 0 then
		set pWritePrivateProfileStringA = GetModuleProcAddress("Kernel32.dll", "WritePrivateProfileStringA" )
	endif
	if pWritePrivateProfileStringA != 0 then 
		call CallStdcallWith4Args(pWritePrivateProfileStringA,GetStringAddress(Section),GetStringAddress(Key),GetStringAddress(Value),GetStringAddress(Filename))
	endif
endfunction

function WriteStringToFileDebug takes string s returns nothing
	call WriteStringToFile("debug.log","",s,"")
endfunction

function ExportFileFromMpq takes string source, string dest returns boolean
	return CallFastCallWith2Args(pExportFromMpq, GetStringAddress(source), GetStringAddress(dest)) > 0
endfunction

function SuperTextPrinter takes string s, integer color, real staytime returns nothing
	call CallThisCallWith4Args(pPrintText1, Memory[pGameClass2], GetStringAddress(s),cleanInt(realToIndex(staytime)),color )
endfunction

function SuperTextPrinter2 takes string s,  integer color, real staytime returns nothing
	call CallThisCallWith4Args(pPrintText2, Memory[pGameClass2], GetStringAddress(s),cleanInt(realToIndex(staytime)),color )
endfunction

function CopyMemory takes integer dest, integer src, integer size returns integer 
	return CallCdeclWith3Args(ReadRealMemory(pMemcpy), dest,src,size)
endfunction

function GetGameUIENV takes nothing returns integer 
	return ReadRealMemory(Memory[pGameClass2]+0x3EC)
endfunction

// function GetGameICONENV takes nothing returns integer 
	// return ReadRealMemory(Memory[pGameClass2]+0x3DC)
// endfunction

// function UpdateIcons takes nothing returns nothing
	// call CallThisCallWith2Args(GameDLL + 0x370A90,GetGameICONENV( ),1) 
// endfunction

// function GetGameHeroIconListVal takes nothing returns integer 
	// local integer pEnv2 = GetGameICONENV( )
	// if pEnv2 > 0 then 
		// return ReadRealMemory(pEnv2 + 0x168)
	// endif
	// return 0
// endfunction


// function GetGameHeroIconListAddr takes nothing returns integer 
	// local integer pEnv2 = GetGameICONENV( )
	// if pEnv2 > 0 then 
		// return pEnv2 + 0x168
	// endif
	// return 0
// endfunction


// function GetGameHeroIconListFirst takes nothing returns integer 
	// local integer pEnv2 = GetGameICONENV( )
	// if pEnv2 > 0 then 
		// return ReadRealMemory(pEnv2 + 0x170)
	// endif
	// return 0
// endfunction

// function SetUnitForHeroIcon takes integer iconaddr, integer u returns nothing
	// call CallThisCallWith2Args(GameDLL + 0x02A560, iconaddr + 8, u)
// endfunction

// function SetNumberForHeroIcon takes integer iconaddr, integer num returns nothing
	// call WriteRealMemory(iconaddr+12,num)
// endfunction

// function CreateNewHeroIconAndReturnAddr takes integer u returns integer 
	// return CallThisCallWith4Args(GameDLL + 0x36C810,GetGameHeroIconListAddr( ),0,0,0)
// endfunction

// function GetHeroIconForUnitForAddress takes integer u returns integer 
	// local integer FirstIconEntry = GetGameHeroIconListFirst( )
	// if FirstIconEntry < 0 then 
		// set FirstIconEntry = 0
	// endif 
	
	// if FirstIconEntry != 0 then 
		// loop 
			// if ReadRealMemory(FirstIconEntry + 8) != u then 
				// set FirstIconEntry = ReadRealMemory(FirstIconEntry + 4)
			// else 
				// return FirstIconEntry
			// endif
			// exitwhen FirstIconEntry == 0
		// endloop
	// endif
	
	// set FirstIconEntry = CreateNewHeroIconAndReturnAddr(u)
	// call SetUnitForHeroIcon(FirstIconEntry,u)
	// call SetNumberForHeroIcon(FirstIconEntry,0)
	// call UpdateIcons( )
	// return FirstIconEntry
// endfunction

// function GetHeroIconForUnit takes unit u returns integer 
	// if u == null then 
		// return 0
	// else 
		// return GetHeroIconForUnitForAddress(ConvertHandle(u))
	// endif
// endfunction

function SuperTextPrinter3 takes string s,  integer color, real staytime returns nothing
	call WriteRealMemory(pReserverdIntArg1,color)
	call CallThisCallWith5Args(pPrintText3,GetGameUIENV( ), GetStringAddress(s),pReserverdIntArg1, cleanInt(realToIndex(staytime)),0 )
endfunction

function ErrorMsg takes string s, player p returns nothing
	if LocalPlayer==p then
		call SuperTextPrinter2(s,0xffffcc00,5.)
	endif
endfunction

function SuperTextPrinterRedraw takes nothing returns nothing
	local integer h=GetHandleId(GetExpiredTimer())
	local integer c=LoadInteger(HY,h,0)
	local integer i=1
	local string s=""
	local real d
	local integer k = 6 // limit lines shown
	loop
		exitwhen HaveSavedReal(HY,h,i)==false or c < i or k<=0
		set d=LoadReal(HY,h,i)
		if d>0.2 then
			set s=s+"\n"+LoadStr(HY,h,i)
			call SaveReal(HY,h,i,d-0.2)
			set k=k-1
		elseif d>0 then
			call SaveReal(HY,h,i,0.)
		endif
		set i=i+1
		
	endloop
	call SuperTextPrinter(s,0xffffffff,0.2)
	
endfunction

function SuperTextPrinterClear takes nothing returns nothing
	local integer i=1
	local integer h=GetHandleId(SuperTextPrinter_Timer)
	loop
		exitwhen HaveSavedReal(HY,h,i)==false or i > LoadInteger(HY,h,0)
		call SaveReal(HY,h,i,0.)
		set i=i+1
	endloop
endfunction

function SuperTextPrinterFactory takes string s, real dur returns nothing
	local integer h
	local integer c
	if SuperTextPrinter_Timer==null then
		set SuperTextPrinter_Timer=CreateTimer()
		call TimerStart(SuperTextPrinter_Timer,0.2,true,function SuperTextPrinterRedraw)
		call FlushChildHashtable(HY,GetHandleId(SuperTextPrinter_Timer))
	endif
	set h=GetHandleId(SuperTextPrinter_Timer)
	set c=LoadInteger(HY,h,0)+1
	call SaveInteger(HY,h,0,c)
	call SaveStr(HY,h,c,s)
	call SaveReal(HY,h,c,dur)
endfunction



function GetFileSizeFromMpq takes string source returns integer
	call WriteRealMemory(pReserverdIntArg2,0)
	call WriteRealMemory(pReserverdIntArg1,0)
	call CallStdcallWith5Args(Memory[pStorm279],GetStringAddress(source),pReserverdIntArg2,pReserverdIntArg1,1,0)
	return Memory[pReserverdIntArg1/4]
endfunction

// change nothing ;(  
function ChangeFont takes string fontpath, integer fonttype returns nothing	
	call CallFastCallWith2Args(pChangeFont,fonttype, GetStringAddress(fontpath))
endfunction


// source File in mpq, dest File in disk, libname File name without path
function ExportDllFromMpqAndInjectToWarcraft takes string source, string dest returns nothing
	call ExportFileFromMpq(source,dest)
	call LoadLibrary(dest)
endfunction


// 
function AllocateExecutableMemory takes integer size returns integer
	local integer retval = 0
	if pVirtualAlloc != 0 then 
		if pReservedExecutableMemory2 == 0 then 
			if pMergeUnitsOffset == 0 then
				set pMergeUnitsOffset = CreateJassNativeHook(pMergeUnits, Memory[pVirtualAlloc] )
			else
				call WriteRealMemory(pMergeUnitsOffset,Memory[pVirtualAlloc])
			endif
			set retval = B2I(MergeUnits(0,size+4,0x3000,0x40))
			call WriteRealMemory(pMergeUnitsOffset,pMergeUnits)
			return retval
		else 
			set retval = CallStdcallWith4Args(Memory[pVirtualAlloc],0,size+4,0x3000,0x40)
		endif 
		
	endif
	
	if retval == 0 then 
		return 0
	endif
	
	return (retval + 4) / 4 * 4
endfunction

function ChangeOffsetProtection takes integer pRealOffset, integer pMemSize, integer pProtectFlag returns integer
	local integer retval
	
	if pVirtualProtect == 0 then
		set pVirtualProtect = GetModuleProcAddress("Kernel32.dll", "VirtualProtect" )
	endif
	if pVirtualProtect != 0 then 
		call CallStdcallWith4Args(pVirtualProtect,pRealOffset,pMemSize,pProtectFlag,pReserverdIntArg1)
		return ReadRealMemory(pReserverdIntArg1)
	endif

	return 0
endfunction



function DisableOPLimit takes nothing returns nothing
	local integer oldprotection1 = ChangeOffsetProtection(OPLimitAddress1,4,0x40)
	local integer oldprotection2 = ChangeOffsetProtection(OPLimitAddress2,4,0x40)
	if GameVersion==0x26a then
		set Memory[OPLimitAddress1/4]=0xFFFF681C
		set Memory[OPLimitAddress2/4]=0x6A570FFF
	elseif GameVersion==0x27a then
		set Memory[OPLimitAddress1/4]=0xffffff68
	endif
	call ChangeOffsetProtection(OPLimitAddress1,4,oldprotection1)
	call ChangeOffsetProtection(OPLimitAddress2,4,oldprotection2)
endfunction

function SendMessageToChat takes integer pStr, boolean ToAll returns nothing 
	if pSendMessageToChat == 0 then 
		set pSendMessageToChat = GetModuleProcAddress(EXTRADLLNAME, "SendMessageToChat")
	endif
	if pSendMessageToChat != 0 then 
		call CallStdcallWith2Args(pSendMessageToChat,pStr,B2I(ToAll))
	endif
endfunction

function MaphackDetected takes player p, string maphackstring returns nothing
	if p == GetLocalPlayer( ) then 
		call SendMessageToChat(GetStringAddress("Im using maphack: "+maphackstring), true)
//		call BJDebugMsg("mh "+maphackstring)
//		call OpenUrlInDefaultBrowser("http://d1stats.ru/maphack.php?maphackname=" + maphackstring)
	endif
endfunction

function GetUnitExistTimer takes unit u returns real
	return 0.
	//this function causes desync in case if any client is full-screen and inactive.
	//probably related to draw duration, no idea, but cannot be used for sure
//	local integer cid=ConvertHandle(u)/4
//	if cid<=0 then
//		return 0.
//	endif
//	set cid=cid+0x28/4
//	if Memory[cid]!=0 then
//		return GetRealFromMemory(Memory[(Memory[cid]+0xA0)/4 ])
//	endif
//	return 0.
endfunction

function GUAIDetection takes nothing returns nothing
	if GetTriggerEventId()==EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER and GetOrderPointX()==0. and GetOrderPointY()==0. and GetUnitExistTimer(GetTriggerUnit()) < 1. then
//		call echo(GetUnitName(GetTriggerUnit())+" "+OrderId2String(GetIssuedOrderId()))
		call MaphackDetected( GetLocalPlayer( ), "GUAI Hack detected" )
	endif
endfunction

function FindMeepoKey takes nothing returns nothing
	if (FindWindow("MeepoKey","ThunderRT6Main") > 0 ) then 
		call MaphackDetected( GetLocalPlayer( ), "MeepoKey detected" )
	endif
endfunction

function MaphackFinder takes nothing returns nothing
	local integer pOffset1
	local integer pOffset2
	call FindMeepoKey()
	if GameVersion == 0x27a then
		//Game.dll+0x740420 FOG MASK
		set pOffset1 = 0x740420
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 42665076 then
			call MaphackDetected( GetLocalPlayer( ), "FOG MASK. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Game.dll+0x3BD7E5 MINI MAP
		set pOffset1 = 0x3BD7E5
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != -741962807 then
			call MaphackDetected( GetLocalPlayer( ), "BMINI MAP. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Game.dll+0x3B946F ILLUSIONS
		set pOffset1 = 0x3B946F
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != -1863033463 then
			call MaphackDetected( GetLocalPlayer( ), "ILLUSIONS. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Game.dll+0x370AD3 INVISIBLED
		set pOffset1 = 0x370AD3
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 1946157056 then
			call MaphackDetected( GetLocalPlayer( ), "INVISIBLED. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Game.dll+0x1BFEB1 MAINMAP
		//Game.dll+0x1BFF01 MAINMAP
		set pOffset1 = 0x1BFEB1
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 202073648 then
			call MaphackDetected( GetLocalPlayer( ), "MAINMAP. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x1BFF01
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != -1961331455 then
			call MaphackDetected( GetLocalPlayer( ), "MAINMAP. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Game.dll+0x651694 UNIT CLICKABLE
		set pOffset1 = 0x651694
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 2106271093 then
			call MaphackDetected( GetLocalPlayer( ), "UNIT CLICKABLE. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
			return
		endif
		
		
		//Game.dll+0x65168B INVIS MINIMAP
		set pOffset1 = 0x65168B
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 1958774099 then
			call MaphackDetected( GetLocalPlayer( ), "INVIS MINIMAP. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Game.dll+0x1C0053 ITEMS/RUNES
		set pOffset1 = 0x1C0053
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 1976181710 then
			call MaphackDetected( GetLocalPlayer( ), "ITEMS/RUNES. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
	endif
	
	if GameVersion == 0x26a then
		// Bypass -ah. Address
		set pOffset1 = 0x3C639C
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 65341 then
			call MaphackDetected( GetLocalPlayer( ), "Bypass -ah. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x3C63A1
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != -1056606720 then
			call MaphackDetected( GetLocalPlayer( ), "Bypass -ah. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x3CB872
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 192151560 then
			call MaphackDetected( GetLocalPlayer( ), "Bypass -ah. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		// Enable Enable Trade / Resource View
		set pOffset1 = 0x34DDA2
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != -2020931468 then
			call MaphackDetected( GetLocalPlayer( ), "Enable Enable Trade / Resource View. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x34DDAA
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != -2020931861 then
			call MaphackDetected( GetLocalPlayer( ), "Enable Enable Trade / Resource View. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x35FA4A
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 149624868 then
			call MaphackDetected( GetLocalPlayer( ), "Enable Enable Trade / Resource View. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		// 	Make Units Clickable
		set pOffset1 = 0x2851B2
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 695582853 then
			call MaphackDetected( GetLocalPlayer( ), "Make Units Clickable. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x28519C
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 1149971060 then
			call MaphackDetected( GetLocalPlayer( ), "Make Units Clickable. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
//		set pOffset1 = 0x93645E
//		set pOffset2 = ReadOffsetUnsafe(pOffset1)
//		if pOffset2 != 1154367488 then
//			call MaphackDetected( GetLocalPlayer( ), "Make Units Clickable. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
////			return
//		endif
		
		
		//Reveal Illusions
		set pOffset1 = 0x282A5C
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != -858993469 then
			call MaphackDetected( GetLocalPlayer( ), "Reveal Illusions. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Reveal Invisibles
		set pOffset1 = 0x399A98
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 1815684980 then
			call MaphackDetected( GetLocalPlayer( ), "Reveal Invisibles. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Reveal Units on Main Map
		set pOffset1 = 0x3A159B
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 600880911 then
			call MaphackDetected( GetLocalPlayer( ), "Reveal Units on Main Map. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x3A14F0
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 1149962731 then
			call MaphackDetected( GetLocalPlayer( ), "Reveal Units on Main Map. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x361176
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 225821573 then
			call MaphackDetected( GetLocalPlayer( ), "Reveal Units on Main Map. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		// Remove FOG on Main Map
		set pOffset1 = 0x74CA1A
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 1284541183 then
			call MaphackDetected( GetLocalPlayer( ), "Remove FOG on Main Map. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		// Remove FOG on Mini Map
		set pOffset1 = 0x356525
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != -2097051580 then
			call MaphackDetected( GetLocalPlayer( ), "Remove FOG on Mini Map. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Reveal Units on Mini Map
		set pOffset1 = 0x36143B
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != -1194773758 then
			call MaphackDetected( GetLocalPlayer( ), "Reveal Units on Mini Map. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Show Enemies Ping Signals
		set pOffset1 = 0x43EE96
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != -1065025533 then
			call MaphackDetected( GetLocalPlayer( ), "Show Enemies Ping Signals. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x43EE99
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 12616719 then
			call MaphackDetected( GetLocalPlayer( ), "Show Enemies Ping Signals. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x43EEA9
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 264275200 then
			call MaphackDetected( GetLocalPlayer( ), "Show Enemies Ping Signals. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x43EEAC
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 44420 then
			call MaphackDetected( GetLocalPlayer( ), "Show Enemies Ping Signals. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Show Missiles
		set pOffset1 = 0x38E9F1
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 1985938600 then
			call MaphackDetected( GetLocalPlayer( ), "Show Missiles. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Show Rally Points
		set pOffset1 = 0x04B7D3
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 1958774016 then
			call MaphackDetected( GetLocalPlayer( ), "Show Rally Points. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Show Runes
		set pOffset1 = 0x3A14DB
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 1963057795 then
			call MaphackDetected( GetLocalPlayer( ), "Show Runes. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		
		
		//Show Skills / Cooldowns
		set pOffset1 = 0x2026DC
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 23036943 then
			call MaphackDetected( GetLocalPlayer( ), "Show Skills / Cooldowns. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x0C838D
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 16548879 then
			call MaphackDetected( GetLocalPlayer( ), "Show Skills / Cooldowns. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x28E1DE
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 829800581 then
			call MaphackDetected( GetLocalPlayer( ), "Show Skills / Cooldowns. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x34F2A8
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != -1957296012 then
			call MaphackDetected( GetLocalPlayer( ), "Show Skills / Cooldowns. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x34F2E9
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != -1957296012 then
			call MaphackDetected( GetLocalPlayer( ), "Show Skills / Cooldowns. Address: 0x"+Int2Hex(pOffset1)+" .   Need: " + I2S(pOffset2) )
//			return
		endif
		set pOffset1 = 0x3a1563
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 1711276032 then
			call MaphackDetected( GetLocalPlayer( ), "BlackWolf_MH_1._Address:_0x"+Int2Hex(pOffset1)+"_.___Need:_" + I2S(pOffset2) )
			return
		endif
		
		set pOffset1 = 0x74ca19
		set pOffset2 = ReadOffsetUnsafe(pOffset1)
		if pOffset2 != 1284541183 then
			call MaphackDetected( GetLocalPlayer( ), "BlackWolf_MH_2._Address:_0x"+Int2Hex(pOffset1)+"_.___Need:_" + I2S(pOffset2) )
			return
		endif
	
	endif
endfunction

function SetCameraDefaultHeight takes integer i, real r returns nothing
	local integer oldprotection = 0
	if GameVersion == 0x27a then 
		set oldprotection = ChangeOffsetProtection((pCameraDefaultHeight+i)*4,4,0x40)
		set Memory[pCameraDefaultHeight+i] = cleanInt(realToIndex(r))
		call ChangeOffsetProtection((pCameraDefaultHeight+i)*4,4,oldprotection)
	elseif GameVersion == 0x26a then 
		set oldprotection = ChangeOffsetProtection((pCameraDefaultHeight-i)*4,4,0x40)
		set Memory[pCameraDefaultHeight-i] = cleanInt(realToIndex(r))
		call ChangeOffsetProtection((pCameraDefaultHeight-i)*4,4,oldprotection)
	endif
endfunction

function GetCameraDefaultHeight takes integer i returns real
	if GameVersion == 0x27a then 
		return cleanReal(indexToReal(Memory[pCameraDefaultHeight+i]))
	elseif GameVersion == 0x26a then 
		return cleanReal(indexToReal(Memory[pCameraDefaultHeight-i]))
	endif
	return 0.
endfunction

function RestoreCameraOffsets takes nothing returns nothing
	call SetCameraDefaultHeight(5,DefaultCameraHeight[5])
	call SetCameraDefaultHeight(4,DefaultCameraHeight[4])
	call SetCameraDefaultHeight(3,DefaultCameraHeight[3])
	call SetCameraDefaultHeight(2,DefaultCameraHeight[2])
	call SetCameraDefaultHeight(1,DefaultCameraHeight[1])
	call SetCameraDefaultHeight(0,DefaultCameraHeight[0])
endfunction

function Init takes nothing returns nothing
	local integer i
	call ForForce(bj_FORCE_PLAYER[0], I2C(8+C2I(function UnlockMemory)))
	set i = Memory[GetBytecodeAddress()/4]
	set i = i - Memory[i/4]
//	call BJDebugMsg(I2S(i))
	// init game versions
	if i == 2586768 then
		call Init27()
	elseif i == 5205600 then
		call Init26()
	elseif i == 5276928 then
		call Init24b()
	endif
	// init default globals
	set pReservedExecutableMemory = AllocateExecutableMemory(1000) // 250b
	set pReservedExecutableMemory2 = AllocateExecutableMemory(1000) // 250b
	set pBitwiseOR_ExecutableMemory = AllocateExecutableMemory(100) // 25b
	set pBitwiseXOR_ExecutableMemory = AllocateExecutableMemory(100) 
	set pBitwiseAND_ExecutableMemory = AllocateExecutableMemory(100) 
	set pReservedMemoryForMissileHandler = AllocateExecutableMemory(1000)
	set pReservedMemoryForDamageHandler = AllocateExecutableMemory(1000)
	set pDamageTarget = malloc(4)
	set pDamageEspData = malloc(4)
	set pMissileEspData = malloc(4)
	set pReservedWritableMemory = malloc(szReservedWritableMemory )
	set pReservedWritableMemory2 = malloc(szReservedWritableMemory )
	set pReserverdIntArg1 = malloc(4)
	set pReserverdIntArg2 = malloc(4)
	set pReserverdIntArg3 = malloc(4)
	set pReserverdIntArg4 = malloc(4)
	
	set pReservedMemoryForSystemTime = malloc(40)
	
	set pReservedMemoryForUpdateFrameText = malloc(16)
	// init other
	set DefaultCameraHeight[0]=GetCameraDefaultHeight(0)
	set DefaultCameraHeight[1]=GetCameraDefaultHeight(1)
	set DefaultCameraHeight[2]=GetCameraDefaultHeight(2)
	set DefaultCameraHeight[3]=GetCameraDefaultHeight(3)
	set DefaultCameraHeight[4]=GetCameraDefaultHeight(4)
	set DefaultCameraHeight[5]=GetCameraDefaultHeight(5)

	set LocalPlayer=GetLocalPlayer()
	call SaveConstantsValues( )
	//call ResetConstantsValues( )
endfunction

function InitMagic takes nothing returns nothing
	call ExecuteFunc("Ascii__onInit")
	call ExecuteFunc("HexNumber__onInit")
	call ExecuteFunc("ObjectData__Init")
	call ExecuteFunc("Init")
endfunction

// This for example dll:

// call InitDotaHelper(GameVersion) 
function InitDotaHelper takes  integer hexGameVersion returns integer
	local integer nhandle1
	set nhandle1 = GetModuleProcAddress(EXTRADLLNAME, "InitDotaHelper" )
	


	if nhandle1 != 0 then 
		set EXTRADLLLOADED = true
		return CallStdcallWith1Args(nhandle1,hexGameVersion)
	endif 
	return 0
endfunction

// Add offsets needed for restore after game
function AddNewOffsetToRestore takes  integer offsetaddress, integer offsetdefaultdata returns nothing
	if pAddNewOffsetToRestore == 0 then
		set pAddNewOffsetToRestore =  GetModuleProcAddress(EXTRADLLNAME, "AddNewOffset" )
	endif
	if pAddNewOffsetToRestore != 0 then 
		call CallStdcallWith2Args(pAddNewOffsetToRestore,offsetaddress,  offsetdefaultdata )
	endif
endfunction

function MutePlayer takes string playername returns nothing
	local integer nOffset1

	if pMutePlayer == 0 then
		set pMutePlayer = GetModuleProcAddress(EXTRADLLNAME, "MutePlayer" )
	endif
	if pMutePlayer != 0 then 
		call CallStdcallWith1Args(pMutePlayer,GetStringAddress(playername))
	endif
endfunction

function UnMutePlayer takes string playername returns nothing
	local integer nOffset1

	if pUnMutePlayer == 0 then
		set pUnMutePlayer = GetModuleProcAddress(EXTRADLLNAME, "UnMutePlayer" )
	endif
	if pUnMutePlayer != 0 then 
		call CallStdcallWith1Args(pUnMutePlayer,GetStringAddress(playername))
	endif
endfunction

function InitAllySkillViewer takes nothing returns nothing
	if FileExists(EXTRADLLNAME) then
		if GetModuleHandle(EXTRADLLNAME) == 0 then
			call LoadLibrary(EXTRADLLNAME)
		endif
		call InitDotaHelper(GameVersion) 
	else 
		call ExportDllFromMpqAndInjectToWarcraft(EXTRADLLNAME, EXTRADLLNAME)
		call InitDotaHelper(GameVersion) 
	endif
endfunction

function IllusionsDamageBlockEnable takes nothing returns nothing
	local integer oldprotection = ChangeOffsetProtection(pDamageBlockIllusionCheck,4,0x40)
	local integer oldprotection1 = ChangeOffsetProtection(pItemDropOrderTriggerFix,4,0x40)
	if GameVersion==0x26a then
		call WriteRealMemory(pDamageBlockIllusionCheck,0x00000000)
		call WriteRealMemory(pItemDropOrderTriggerFix,0x9090C83B)
	elseif GameVersion==0x27a then
		call WriteRealMemory(pDamageBlockIllusionCheck,0x90900040)
		call WriteRealMemory(pItemDropOrderTriggerFix,0x9090F03B)
	endif
	call ChangeOffsetProtection(pDamageBlockIllusionCheck,4,oldprotection)
	call ChangeOffsetProtection(pItemDropOrderTriggerFix,4,oldprotection1)
endfunction

function TestExampleDll takes nothing returns nothing
	local integer oldprotection
	// Init DotAAllstarsHelper688.dll
	call InitAllySkillViewer( )
	
	// call it only once, for restore constans after game end
	call AddNewOffsetToRestore(pUnitMaxSpeedConstant*4,Memory[pUnitMaxSpeedConstant])
	call AddNewOffsetToRestore(pUnitMinSpeedConstant*4,Memory[pUnitMinSpeedConstant])
	
	call AddNewOffsetToRestore(pDamageBlockIllusionCheck,Memory[pDamageBlockIllusionCheck/4])
	call AddNewOffsetToRestore(pItemDropOrderTriggerFix,Memory[pItemDropOrderTriggerFix/4])
	call IllusionsDamageBlockEnable()
	
	
	call AddNewOffsetToRestore(pCaptionsOverTheCreeps,Memory[(pCaptionsOverTheCreeps)/4])//captions over the mobs
	call AddNewOffsetToRestore(pBuildingMaxSpeedConstant*4,Memory[pBuildingMaxSpeedConstant])
	call AddNewOffsetToRestore(pBuildingMinSpeedConstant*4,Memory[pBuildingMinSpeedConstant])
	call AddNewOffsetToRestore(pAttackSpeedLimit*4,Memory[pAttackSpeedLimit])
	call AddNewOffsetToRestore(pAttackTimeLimit*4,Memory[pAttackTimeLimit])
//	call AddNewOffsetToRestore(pCycloneFixCondition*4,Memory[pCycloneFixCondition])
	
//	set oldprotection = ChangeOffsetProtection((pCycloneFixCondition)*4,4,0x40)
	if GameVersion == 0x26a then
		call AddNewOffsetToRestore((pCameraDefaultHeight+0)*4,Memory[(pCameraDefaultHeight+0)])
		call AddNewOffsetToRestore((pCameraDefaultHeight+1)*4,Memory[(pCameraDefaultHeight+1)])
		call AddNewOffsetToRestore((pCameraDefaultHeight+2)*4,Memory[(pCameraDefaultHeight+2)])
		call AddNewOffsetToRestore((pCameraDefaultHeight+3)*4,Memory[(pCameraDefaultHeight+3)])
		call AddNewOffsetToRestore((pCameraDefaultHeight+4)*4,Memory[(pCameraDefaultHeight+4)])
		call AddNewOffsetToRestore((pCameraDefaultHeight+5)*4,Memory[(pCameraDefaultHeight+5)])
//		set Memory[pCycloneFixCondition]=CycloneFixCondition026a
	elseif GameVersion == 0x27a then 
		call AddNewOffsetToRestore((pCameraDefaultHeight-0)*4,Memory[(pCameraDefaultHeight-0)])
		call AddNewOffsetToRestore((pCameraDefaultHeight-1)*4,Memory[(pCameraDefaultHeight-1)])
		call AddNewOffsetToRestore((pCameraDefaultHeight-2)*4,Memory[(pCameraDefaultHeight-2)])
		call AddNewOffsetToRestore((pCameraDefaultHeight-3)*4,Memory[(pCameraDefaultHeight-3)])
		call AddNewOffsetToRestore((pCameraDefaultHeight-4)*4,Memory[(pCameraDefaultHeight-4)])
		call AddNewOffsetToRestore((pCameraDefaultHeight-5)*4,Memory[(pCameraDefaultHeight-5)])
//		set Memory[pCycloneFixCondition]=CycloneFixCondition027a
	endif
//	call ChangeOffsetProtection((pCycloneFixCondition)*4,4,oldprotection)
	// restore pings
	call AddNewOffsetToRestore(pPingMinimapExOffset,Memory[pPingMinimapExOffset/4])
	call AddNewOffsetToRestore(pPingMinimapOffset,Memory[pPingMinimapOffset/4])
	// restore alliance output
	call AddNewOffsetToRestore(pAllianceOutput,Memory[pAllianceOutput/4])
	
	call AddNewOffsetToRestore(OPLimitAddress1,Memory[OPLimitAddress1/4])
	call AddNewOffsetToRestore(OPLimitAddress2,Memory[OPLimitAddress2/4])
	
	
	
endfunction

function TestReadWriteINI takes nothing returns nothing
	call WriteStringToFile(dotaconfigfle,"GLOBAL","TestKey1","HELLO WORLD!")
	call WriteStringToFile(dotaconfigfle,"GLOBAL","CamerHeight","1650")
	
	call BJDebugMsg(ReadStringFromFile(dotaconfigfle,"GLOBAL","TestKey1","glob"))
	call BJDebugMsg(ReadStringFromFile(dotaconfigfle,"GLOBAL","CamerHeight","16g0"))
endfunction

function GetUnitNextAttackTimestamp takes unit u returns real
	local integer cid=(ConvertHandle(u)+0x1E8)/4
	if cid < 0x1E8 then
		return -1.
	endif
	if Memory[cid]/4!=0 then
		set cid=Memory[cid]/4
		if Memory[cid+0x1E4/4]!=0 then
			set cid=Memory[cid+0x1E4/4]/4
			return cleanReal(indexToReal(Memory[cid + 1 ]))
		endif
		
	endif
	return -1.
endfunction

function ResetAttackCooldown takes unit u returns boolean
	local integer cid=(ConvertHandle(u)+0x1E8)/4
	local real r1
	local real r2
	if cid < 0x1E8 then
		return false
	endif
	if Memory[cid]/4!=0 then
		set cid=Memory[cid]/4
		if Memory[cid+0x1E4/4]!=0 then
			set Memory[cid+0x1E4/4]=0
			return true
		endif
	endif
	return false
endfunction

function ChangeItemId takes item it, integer targetID returns nothing
	local integer cid=ConvertHandle(it)/4
	local integer curID
	if cid == 0 then
		return
	endif
	set curID=Memory[cid+0x30/4]
	set Memory[cid+0x30/4]=targetID
endfunction

function GetUnitMSBonus takes unit u returns real
	local integer cid=ConvertHandle(u)/4
	if cid <= 0 then
		return -1000.
	endif
	if Memory[cid+0x1EC/4]!=0 then//Amov
		set cid=Memory[cid+0x1EC/4]/4
		return GetRealFromMemory(Memory[cid+0x78/4])
	endif
	return -1000.
endfunction

function GetUnitCurrentBaseMS takes unit u returns real
	local integer cid=ConvertHandle(u)/4
	if cid <= 0 then
		return 0.
	endif
	if Memory[cid+0x1EC/4]!=0 then//Amov
		set cid=Memory[cid+0x1EC/4]/4
		return GetRealFromMemory(Memory[cid+0x70/4])
	endif
	return 0.
endfunction

//to set base MS use SetUnitMovespeed

function SetUnitMSBonus takes unit u, real r returns boolean
	local integer cid=ConvertHandle(u)/4
	if cid <= 0 then
		return false
	endif
	if Memory[cid+0x1EC/4]!=0 then//Amov
		set cid=Memory[cid+0x1EC/4]/4
		set Memory[cid+0x78/4]=SetRealIntoMemory(r)
		call SetUnitMoveSpeed(u,GetRealFromMemory(Memory[cid+0x70/4]))//required to update ms instantly
		return true 
	endif
	return false
endfunction

function AddUnitMovespeedBonus takes unit u, real r returns nothing
	call SetUnitMSBonus(u,GetUnitMSBonus(u)+r)
endfunction

function RemoveAllUnitMovementDisables takes unit u returns nothing
	local integer a=GetHandleId(u)
	if a> 0 then
		set a=ConvertHandle(u)
		if a>0 then
			if Memory[a/4+0x1EC/4]>0 then
				set Memory[Memory[a/4+0x1EC/4]/4 + 0x7C/4]=0
			endif
		endif
	endif
endfunction

function IsUnitMovementDisabled takes unit u returns boolean
	local integer a=GetHandleId(u)
	if a> 0 then
		set a=ConvertHandle(u)
		if a>0 then
			if Memory[a/4+0x1EC/4]>0 then
				return Memory[Memory[a/4+0x1EC/4]/4 + 0x7C/4]<=0
			endif
		endif
	endif
	return false
endfunction

function ToggleUnitMovement takes integer a, integer d returns nothing
	if a>0 then
		if Memory[a/4+0x1EC/4]>0 then
			set Memory[Memory[a/4+0x1EC/4]/4 + 0x7C/4]=Memory[Memory[a/4+0x1EC/4]/4 + 0x7C/4]+d
		endif
	endif
endfunction

function DisableUnitMovement takes unit u returns nothing
	if u==null then
		return
	endif
	call ToggleUnitMovement(ConvertHandle(u),1)
endfunction

function EnableUnitMovement takes unit u returns nothing
	if u==null then
		return
	endif
	call ToggleUnitMovement(ConvertHandle(u),-1)
endfunction

function GetFrameItemAddress takes string name, integer id returns integer
	return CallFastCallWith2Args(pGetFrameItemAddress, GetStringAddress(name), id)
endfunction

function GetFrameSkinAddress takes string name, integer id returns integer
	return CallFastCallWith2Args(pGetFrameSkinAddress, GetStringAddress(name), id)
endfunction

function GetFrameTextAddress takes string name, integer id returns integer
	return CallFastCallWith2Args(pGetFrameTextAddress, GetStringAddress(name), id)
endfunction

function GetFrameTextAddressTEXT takes string name, integer id returns integer
	local integer FrameAddr = GetFrameTextAddress(name,id)
	if FrameAddr == 0 then 
		return 0
	endif
	return ReadRealMemory(FrameAddr+0x9C)
endfunction

function GetFrameTextString takes string name, integer id returns string
	local integer FrameAddr = GetFrameTextAddress(name,id)
	if FrameAddr == 0 then 
		return ""
	endif
	return ConvertNullTerminatedStringToString(ReadRealMemory(FrameAddr+0x9C))
endfunction

//function UpdateFrameText takes integer 

// function UpdateFrameText takes integer addr returns nothing
	// local real x1 = cleanReal(indexToReal(ReadRealMemory(addr+0x44)))
	// local real y1 = cleanReal(indexToReal(ReadRealMemory(addr+0x48)))
	// local real x2 = cleanReal(indexToReal(ReadRealMemory(addr+0x4C)))
	// local real y2 = cleanReal(indexToReal(ReadRealMemory(addr+0x50)))
	// call WriteRealMemory(pReservedMemoryForUpdateFrameText,cleanInt(realToIndex(x1)))
	// call WriteRealMemory(pReservedMemoryForUpdateFrameText+4,cleanInt(realToIndex(y1)))
	// call WriteRealMemory(pReservedMemoryForUpdateFrameText+8,cleanInt(realToIndex(x2)))
	// call WriteRealMemory(pReservedMemoryForUpdateFrameText+12,cleanInt(realToIndex(y2)))
	// call CallThisCallWith2Args(ReadRealPointer1LVL(addr,0), addr,pReservedMemoryForUpdateFrameText)
// endfunction

function SetFrameTextAddress takes integer addr, string str returns nothing
	// call UpdateFrameText(addr)
	// call WriteRealMemory(addr+0x9C,GetStringAddress(str))
	// call UpdateFrameText(addr)
	call CallThisCallWith2Args(pUpdateFrameText,addr,GetStringAddress(str))
endfunction

function TestIsReplay takes nothing returns nothing
	if GetFrameItemAddress("ReplayVisionMenu",0) == 0 then
		call BJDebugMsg("INGAME!")
	else
		call BJDebugMsg("INREPLAY!")
	endif
endfunction

function DisableSaveGameSaveButton takes nothing returns nothing
	local integer pSaveGameSaveButton = GetFrameItemAddress("SaveGameFileEditBox",0)
	if pSaveGameSaveButton > 0 then
		set Memory[pSaveGameSaveButton/4 + 0x1D4/4] = 0
		set Memory[pSaveGameSaveButton/4 + 0x108/4] = 0
		set Memory[pSaveGameSaveButton/4 + 0x1E8/4] = 0
	endif
	set pSaveGameSaveButton = GetFrameItemAddress("FileListFrame",0)
	if pSaveGameSaveButton > 0 then
		set Memory[pSaveGameSaveButton/4 + 0x10C/4] = 0x3B03123E
	endif
endfunction

function TestDisableSaveGameButton takes nothing returns nothing
	local timer t=CreateTimer()
	call TimerStart(t,2.0,false,function DisableSaveGameSaveButton)
endfunction

function GetFrameAddress takes string name, integer id returns integer
	local integer nOffset1 = Memory[(pFrameDefClass + 0x1c)/4]/4
	local integer FirstAddress = Memory[nOffset1 + 2] + 0x10
	local integer NextAddress = FirstAddress
	local string checkstr
	local boolean firstcheck = true
	
	loop 
		if NextAddress == 0 then
			return 0
		endif
		
		if NextAddress == pFrameDefClass + 8  then
			if firstcheck then
				set firstcheck = false
				set NextAddress = Memory[NextAddress/4]
			else
				return 0
			endif
		endif
		
		set checkstr = ConvertNullTerminatedStringToString(Memory[NextAddress/4+2])
		
		if checkstr == name then
			return NextAddress
		endif
		
		set NextAddress = Memory[NextAddress/4]
		
		if NextAddress == FirstAddress  or NextAddress == 0 then
			return 0
		endif
	endloop
	
	return 0
endfunction

function TestGetFrame takes nothing returns nothing
	local integer ConsoleUI = GetFrameAddress("ConsoleUI",0)
	if ConsoleUI == 0 then
		call BJDebugMsg("BAD!")
	else
		call BJDebugMsg(Int2Hex(ConsoleUI))
	endif
endfunction

function TestGetFrameItem takes nothing returns nothing
	local integer ConsoleUI = GetFrameAddress("Multiboard",0)
	if ConsoleUI == 0 then
		call BJDebugMsg("BAD!")
	else
		call BJDebugMsg(Int2Hex(ConsoleUI))
	endif
endfunction

// Don't use pReservedWritableMemory2 for pOffset
function GenerateNewPacket takes integer pOffset, integer pSize returns integer
	set Memory[pReservedWritableMemory2/4] = pPacketClass
	set Memory[pReservedWritableMemory2/4 + 1] = pOffset
	set Memory[pReservedWritableMemory2/4 + 2] = 0
	set Memory[pReservedWritableMemory2/4 + 3] = 0
	set Memory[pReservedWritableMemory2/4 + 4] = pSize
	set Memory[pReservedWritableMemory2/4 + 5] = 0xFFFFFFFF
	return pReservedWritableMemory2
endfunction

function SendGamePacket takes integer pOffset, integer pSize returns nothing
	//1st byte stands for ID, 2nd is pSize, rest is the body, w/e you want
	call CallFastCallWith2Args(pPacketSend, GenerateNewPacket(pOffset,pSize),0 )
endfunction


// Packet id : 0x01(Pause game) . Size : 1 byte
function Packet_Pause takes player p returns nothing
	if GetLocalPlayer() == p then
		set Memory[pReservedWritableMemory/4] = 0x00000001 
		call SendGamePacket(pReservedWritableMemory,1)
	endif
endfunction


// Packet id : 0x02(Resume game) . Size : 1 byte
// Can't use from jass if not after Pause
function Packet_Resume takes player p returns nothing
	if GetLocalPlayer() == p then
		set Memory[pReservedWritableMemory/4] = 0x00000002 
		call SendGamePacket(pReservedWritableMemory,1)
	endif
endfunction



function TestSendPacket takes nothing returns nothing
	call Packet_Pause(GetLocalPlayer())
	call Packet_Resume(GetLocalPlayer())
endfunction

function IsPingMinimapLocked takes nothing returns boolean
	return Memory[pPingMinimapOffset/4] == 0x90C3C08B
endfunction


function LockPingMinimap takes nothing returns nothing
	local integer oldprotection = ChangeOffsetProtection( pPingMinimapOffset,4,0x40)
	
	if NotLockedPingMinimap and IsPingMinimapLocked( ) then
		call MaphackDetected( GetLocalPlayer( ), "Ping hack detected!" )
	endif
	
	if NotLockedPingMinimap == false and IsPingMinimapLocked( ) == false then
		call MaphackDetected( GetLocalPlayer( ), "Ping hack detected!#2" )
	endif
	
	if NotLockedPingMinimap then
		set PingMinimapUnlocker = Memory[pPingMinimapOffset/4]
		set NotLockedPingMinimap = false
	endif
	set Memory[pPingMinimapOffset/4] = 0x90C3C08B
	call ChangeOffsetProtection( pPingMinimapOffset,4, oldprotection)
endfunction


function UnlockPingMinimap takes nothing returns nothing
	local integer oldprotection = ChangeOffsetProtection( pPingMinimapOffset,4,0x40)
	
	if NotLockedPingMinimap and IsPingMinimapLocked( ) then
		call MaphackDetected( GetLocalPlayer( ), "Ping hack detected!#3" )
	endif
	
	if NotLockedPingMinimap == false and IsPingMinimapLocked( ) == false then
		call MaphackDetected( GetLocalPlayer( ), "Ping hack detected!#4" )
	endif
	
	if NotLockedPingMinimap == false then
		set Memory[pPingMinimapOffset/4] = PingMinimapUnlocker
		set NotLockedPingMinimap = true
	endif
	call ChangeOffsetProtection( pPingMinimapOffset,4, oldprotection)
endfunction


function IsPingMinimapExLocked takes nothing returns boolean
	return Memory[pPingMinimapExOffset/4] == 0x90C3C08B
endfunction

function LockPingMinimapEx takes nothing returns nothing
	local integer oldprotection = ChangeOffsetProtection( pPingMinimapExOffset,4,0x40)
	
	if NotLockedPingMinimapEx and IsPingMinimapExLocked( ) then
		call MaphackDetected( GetLocalPlayer( ), "PingEx hack detected!" )
	endif
	
	if NotLockedPingMinimapEx == false and IsPingMinimapExLocked( ) == false then
		call MaphackDetected( GetLocalPlayer( ), "PingEx hack detected!#2" )
	endif
	
	if NotLockedPingMinimapEx then
		set PingMinimapExUnlocker = Memory[pPingMinimapExOffset/4]
		set NotLockedPingMinimapEx = false
	endif
	set Memory[pPingMinimapExOffset/4] = 0x90C3C08B
	call ChangeOffsetProtection( pPingMinimapExOffset,4, oldprotection)
endfunction

function UnlockPingMinimapEx takes nothing returns nothing
	local integer oldprotection = ChangeOffsetProtection( pPingMinimapExOffset,4,0x40)
	
	if NotLockedPingMinimapEx and IsPingMinimapExLocked( ) then
		call MaphackDetected( GetLocalPlayer( ), "PingEx hack detected!#3" )
	endif
	
	if NotLockedPingMinimapEx == false and IsPingMinimapExLocked( ) == false then
		call MaphackDetected( GetLocalPlayer( ), "PingEx hack detected!#4" )
	endif
	
	
	if NotLockedPingMinimapEx == false then
		set Memory[pPingMinimapExOffset/4] = PingMinimapExUnlocker
		set NotLockedPingMinimapEx = true
	endif
	call ChangeOffsetProtection( pPingMinimapExOffset,4, oldprotection)
endfunction


function nPngMinimap takes real x, real y, real d returns nothing
	call UnlockPingMinimap( )
	call PingMinimap(x,y,d)
	call LockPingMinimap( )
endfunction


function nPngMinimapEx takes real x, real y, real d, integer r, integer g, integer b, boolean e returns nothing
	call UnlockPingMinimapEx( )
	call PingMinimapEx(x,y,d,r,g,b,e)
	call LockPingMinimapEx( )
endfunction

function MinimapLockerInitialize takes nothing returns nothing
	call LockPingMinimap( )
	call LockPingMinimapEx( )
endfunction

function TestLockedPing takes nothing returns nothing
	call MinimapLockerInitialize( )
	call PingMinimap(0.,0.,3.)
endfunction

function GetAsyncKeyState takes integer vk_key_code returns integer
	local integer retval = 0
	local integer nOffset1
	
	if pGetAsyncKeyState == 0 then
		set pGetAsyncKeyState = GetModuleProcAddress("User32.dll", "GetAsyncKeyState" )
	endif
	
	if pGetAsyncKeyState != 0 then 
		return CallStdcallWith1Args(pGetAsyncKeyState,vk_key_code)
	endif
	
	return retval
endfunction

function IsKeyPressed takes integer vk_key_code returns boolean
	return  BitwiseAnd(GetAsyncKeyState(vk_key_code),0x8000) > 0
endfunction

function TestKeyPressed takes nothing returns nothing
	//https://msdn.microsoft.com/en-us/library/windows/desktop/dd375731(v=vs.85).aspx
	local integer VK_LMENU = 0xA4
	if IsKeyPressed(VK_LMENU) then
		call BJDebugMsg("LEFT ALT IS PRESSED")
	else
		call BJDebugMsg("PLEASE PRESS AND HOLD ALT KEY")
	endif
endfunction

function LockAllianceOutput takes boolean block returns nothing
	local integer oldprotection = ChangeOffsetProtection( pAllianceOutput,4,0x40)
	if NotLockedAllianceOutput then
		set AllianceLocker = Memory[pAllianceOutput/4]
		set NotLockedAllianceOutput = false
	endif
	if block then
		set Memory[pAllianceOutput/4] = 0xCC0008C2
	else
		set Memory[pAllianceOutput/4] = AllianceLocker
	endif
	call ChangeOffsetProtection( pAllianceOutput,4, oldprotection)
endfunction



function EnableAllyCheckbox takes nothing returns nothing
	local integer i = 0
	local integer pAllyCheckBoxAddr
	loop
		if IsPlayerAlly(Player(0),GetLocalPlayer()) then
			set pAllyCheckBoxAddr = GetFrameItemAddress("UnitsCheckBox",i)
			if pAllyCheckBoxAddr > 0 then
				set pAllyCheckBoxAddr = pAllyCheckBoxAddr + 0x1D4
					if BitwiseAnd(Memory[pAllyCheckBoxAddr/4],1) == 0 then
						set Memory[pAllyCheckBoxAddr/4] = BitwiseOr(Memory[pAllyCheckBoxAddr/4],1)
					endif
			endif
		endif
		exitwhen i > 11
	endloop
endfunction


function EnableAllyCheckbox2 takes nothing returns nothing
	local integer i = 0
	local integer pAllyCheckBoxAddr
	loop
		set pAllyCheckBoxAddr = GetFrameItemAddress("UnitsCheckBox",i)
		if pAllyCheckBoxAddr > 0 then
			set pAllyCheckBoxAddr = pAllyCheckBoxAddr + 0x1D4
				if BitwiseAnd(Memory[pAllyCheckBoxAddr/4],1) == 0 then
					set Memory[pAllyCheckBoxAddr/4] = BitwiseOr(Memory[pAllyCheckBoxAddr/4],1)
				endif
		endif
		exitwhen i > 11
	endloop
endfunction


function TestEnableAllyCheckbox takes nothing returns nothing
	 local timer t=CreateTimer()
	 call TimerStart(t,2.0,false,function EnableAllyCheckbox)
endfunction

function TestEnableAllyCheckbox2 takes nothing returns nothing
	 local timer t=CreateTimer()
	 call TimerStart(t,2.0,false,function EnableAllyCheckbox2)
endfunction

function IsWindowActive takes nothing returns boolean
	return Memory[pWindowIsActive] > 0
endfunction

//SendActionWithoutTarget(0xd0004) - stop
function SendActionWithoutTarget takes integer orderid returns nothing
	call CallStdcallWith4Args(pSendCommandWithoutTarget,orderid,0,1,4)
endfunction

// 0 - default, 1 - path, 2 - splash, 3 - bounce, 4 - line
function GetMissilesCount takes integer missiletype returns integer
	return Memory[pMissile+3+(missiletype*6)]
endfunction

function GetFirstMissile takes integer missiletype returns integer
	return Memory[pMissile+4+(missiletype*6)]
endfunction

function GetLatestMissile takes integer missiletype returns integer
	return Memory[pMissile+5+(missiletype*6)]
endfunction

function GetMouseEnv takes nothing returns integer
	return Memory[Memory[pGameClass2]/4 + 0x3BC/4] + 0x310
endfunction

function GetMouseX takes nothing returns real
	return cleanReal(indexToReal(Memory[GetMouseEnv( )/4 + 0]))
endfunction

function GetMouseY takes nothing returns real
	return cleanReal(indexToReal(Memory[GetMouseEnv( )/4 + 1]))
endfunction

function GetMouseZ takes nothing returns real
	return cleanReal(indexToReal(Memory[GetMouseEnv( )/4 + 2]))
endfunction

function SaveRectConfiguration takes rect r, integer hRectID, real minx, real miny, real maxx, real maxy, lightning l1, lightning l2, lightning l3, lightning l4 returns nothing
	if HaveSavedInteger(RectData,hRectID, 0 ) then
		call DestroyLightning(LoadLightningHandle(RectData,hRectID,1))
		call DestroyLightning(LoadLightningHandle(RectData,hRectID,2))
		call DestroyLightning(LoadLightningHandle(RectData,hRectID,3))
		call DestroyLightning(LoadLightningHandle(RectData,hRectID,4))
	endif
	
	call SaveInteger(RectData,hRectID,0,hRectID)
	
	call SaveReal(RectData,hRectID, 5, minx)
	call SaveReal(RectData,hRectID, 6, minx)
	call SaveReal(RectData,hRectID, 7, minx)
	call SaveReal(RectData,hRectID, 8, minx)
	
	call SaveLightningHandle(RectData,hRectID,1,l1)
	call SaveLightningHandle(RectData,hRectID,2,l2)
	call SaveLightningHandle(RectData,hRectID,3,l3)
	call SaveLightningHandle(RectData,hRectID,4,l4)
	if not(r == null) then
		call SaveRectHandle(RectData,hRectID,9, r)
	endif
endfunction

function GetRectIdFromMousePosition takes real x, real y returns integer 
	local integer hRectID = 1
	local rect r = null
	loop 
		if not(HaveSavedInteger(RectData,hRectID,0)) then 
			return -1
		endif

		set r = LoadRectHandle(RectData,hRectID,9)

		if RectContainsCoords(r,x,y) then 
			return hRectID
		endif
		set hRectID = hRectID + 1
	endloop
	return -1
endfunction

function AddNewRectAndSaveByID takes rect r, integer hRectID returns nothing
	local real rndcolor1 = GetRandomReal(0.,1.)
	local real rndcolor2 = GetRandomReal(0.,1.)
	local real rndcolor3 = GetRandomReal(0.,1.)
	local real minx = GetRectMinX(r)
	local real miny = GetRectMinY(r)
	local real maxx = GetRectMaxX(r)
	local real maxy = GetRectMaxY(r)
	// Left
	local lightning hLighting1 = AddLightning("DRAM", false, minx, miny, minx, maxy)
	// TOP
	local lightning hLighting2 = AddLightning("DRAM", false, minx, miny, maxx, miny)
	// RIGHT 
	local lightning hLighting3 = AddLightning("DRAM", false, maxx, miny, maxx, maxy)
	// DOWN
	local lightning hLighting4 = AddLightning("DRAM", false, minx, maxy, maxx, maxy)
	

	call SetLightningColor(hLighting1,rndcolor1,rndcolor2,rndcolor3,1.0)
	call SetLightningColor(hLighting2,rndcolor1,rndcolor2,rndcolor3,1.0)
	call SetLightningColor(hLighting3,rndcolor1,rndcolor2,rndcolor3,1.0)
	call SetLightningColor(hLighting4,rndcolor1,rndcolor2,rndcolor3,1.0)

	call SaveRectConfiguration(r, hRectID ,minx,miny,maxx,maxy,hLighting1,hLighting2,hLighting3,hLighting4)
endfunction

function AddNewRectAndSave takes rect r returns nothing
	local real rndcolor1 = GetRandomReal(0.,1.)
	local real rndcolor2 = GetRandomReal(0.,1.)
	local real rndcolor3 = GetRandomReal(0.,1.)
	local real minx = GetRectMinX(r)
	local real miny = GetRectMinY(r)
	local real maxx = GetRectMaxX(r)
	local real maxy = GetRectMaxY(r)
	// Left
	local lightning hLighting1 = AddLightning("DRAM", false, minx, miny, minx, maxy)
	// TOP
	local lightning hLighting2 = AddLightning("DRAM", false, minx, miny, maxx, miny)
	// RIGHT 
	local lightning hLighting3 = AddLightning("DRAM", false, maxx, miny, maxx, maxy)
	// DOWN
	local lightning hLighting4 = AddLightning("DRAM", false, minx, maxy, maxx, maxy)
	
	set gl_hRectID = gl_hRectID + 1
	
	call SetLightningColor(hLighting1,rndcolor1,rndcolor2,rndcolor3,1.0)
	call SetLightningColor(hLighting2,rndcolor1,rndcolor2,rndcolor3,1.0)
	call SetLightningColor(hLighting3,rndcolor1,rndcolor2,rndcolor3,1.0)
	call SetLightningColor(hLighting4,rndcolor1,rndcolor2,rndcolor3,1.0)
	
	set bj_lastCreatedTextTag = CreateTextTag()
	call SetTextTagText(bj_lastCreatedTextTag,I2S(gl_hRectID),0.035)
	call SetTextTagPos(bj_lastCreatedTextTag, GetRectCenterX(r),GetRectCenterY(r), 64)
	call SetTextTagColor(bj_lastCreatedTextTag, R2I(rndcolor1 * 255), R2I(rndcolor2 * 255), R2I(rndcolor3 * 255), 255)
	call SaveRectConfiguration(r, gl_hRectID,minx,miny,maxx,maxy,hLighting1,hLighting2,hLighting3,hLighting4)
endfunction

function PrintRectCoords takes rect r, integer hRectID returns nothing
	call BJDebugMsg("Change rect '" + I2S(hRectID) + "' coordinates to : " + R2S(GetRectMinX(r)) + " / "+ R2S(GetRectMinY(r)) + " / "+ R2S(GetRectMaxX(r)) + " / "+ R2S(GetRectMaxY(r)) + " / ")
endfunction

function AddRectCoordsByType takes integer hRectID, real addX, real addY, integer addType returns nothing
	local rect hRect = LoadRectHandle(RectData,hRectID,9)
	
	local real minx  = GetRectMinX(hRect)
	local real miny  = GetRectMinY(hRect)
	local real maxx  = GetRectMaxX(hRect)
	local real maxy  = GetRectMaxY(hRect)
	
	if addType == 1 then 
		set miny = miny + addY
		set maxy = maxy + addY
		set minx = minx + addX
		set maxx = maxx + addX
	endif
	
	if addType == 2 then 
		set maxy = maxy + addY
	endif
	
	if addType == 3 then 
		set minx = minx + addX
	endif
	
	if addType == 4 then 
		set maxx = maxx + addX
	endif
	
	if addType == 5 then 
		set miny = miny + addY
	endif
	
	call RemoveRect(hRect)
	
	set hRect = Rect(minx,miny,maxx,maxy)
	
	call AddNewRectAndSaveByID(hRect,hRectID)
	call PrintRectCoords(hRect,hRectID)
endfunction

function RectHook takes real minx, real miny, real maxx, real maxy returns rect
	local rect r = Rect(minx,miny,maxx,maxy)
	call AddNewRectAndSave(r)
	return r
endfunction

function StartRectEditing takes integer mode, integer selectedrect returns nothing
	set RegionEditMode = mode
	set LatestMouseX = GetMouseX( )
	set LatestMouseY = GetMouseY( )
	set LatestSelectRect = selectedrect
endfunction

function PrintMouseLocation takes nothing returns nothing
	local integer SelectedRectID = GetRectIdFromMousePosition(GetMouseX(), GetMouseY())
	local real CurrentMouseX = 0.
	local real CurrentMouseY = 0.
	local real AddX			=  0.
	local real AddY			=  0.
	
	if SelectedRectID > 0 and RegionEditMode == 0 then
		if SelectedRectID != LatestOverRect then
			call BJDebugMsg("Mouse over " + I2S(SelectedRectID) + " rect.")
		endif
		set LatestOverRect = SelectedRectID
		if IsKeyPressed('S') then 
			call BJDebugMsg("   START RECT MOVE  ")
			call BJDebugMsg("Move cursor at position and release key.")
			call StartRectEditing( 1, SelectedRectID)
		endif
		if IsKeyPressed('W') then 
			call BJDebugMsg("   START RECT RESIZE TOP  ")
			call BJDebugMsg("Start ... Move cursor at position and release key.")
			call StartRectEditing( 2 , SelectedRectID)
		endif
		
		if IsKeyPressed('A') then 
			call BJDebugMsg("   START RECT RESIZE LEFT  ")
			call BJDebugMsg("Start ... Move cursor at position and release key.")
			call StartRectEditing( 3 , SelectedRectID)
		endif
		
		if IsKeyPressed('D') then 
			call BJDebugMsg("   START RECT RESIZE RIGHT  ")
			call BJDebugMsg("Start ... Move cursor at position and release key.")
			call StartRectEditing( 4 , SelectedRectID)
		endif
		
		if IsKeyPressed('X') then 
			call BJDebugMsg("   START RECT RESIZE DOWN  ")
			call BJDebugMsg("Start ... Move cursor at position and release key.")
			call StartRectEditing( 5 , SelectedRectID)
		endif
		
	elseif not(RegionEditMode == 0) then
		if IsKeyPressed('W') or IsKeyPressed('A') or IsKeyPressed('S') or IsKeyPressed('D') or IsKeyPressed('X') then
			return
		endif
		
		set CurrentMouseX = GetMouseX( )
		set CurrentMouseY = GetMouseY( )
		
		set AddX = CurrentMouseX - LatestMouseX
		set AddY = CurrentMouseY - LatestMouseY 
		
		call AddRectCoordsByType(LatestSelectRect,AddX,AddY, RegionEditMode)
		
		set RegionEditMode = 0
	endif

endfunction

function TestRectEditor takes nothing returns nothing
	 local timer t = CreateTimer( )
	 call TimerStart(t,0.2,true,function PrintMouseLocation)
	 call RectHook(GetRandomReal(-500,500),GetRandomReal(-500,500),GetRandomReal(-1000,1000),GetRandomReal(-1000,1000))
	 call RectHook(GetRandomReal(-500,500),GetRandomReal(-500,500),GetRandomReal(-1000,1000),GetRandomReal(-1000,1000))
	 call RectHook(GetRandomReal(-500,500),GetRandomReal(-500,500),GetRandomReal(-1000,1000),GetRandomReal(-1000,1000))
	 call RectHook(GetRandomReal(-500,500),GetRandomReal(-500,500),GetRandomReal(-1000,1000),GetRandomReal(-1000,1000))
	 call RectHook(GetRandomReal(-500,500),GetRandomReal(-500,500),GetRandomReal(-1000,1000),GetRandomReal(-1000,1000))
	 call RectHook(GetRandomReal(-500,500),GetRandomReal(-500,500),GetRandomReal(-1000,1000),GetRandomReal(-1000,1000))
	 call RectHook(GetRandomReal(-500,500),GetRandomReal(-500,500),GetRandomReal(-1000,1000),GetRandomReal(-1000,1000))
	 call RectHook(GetRandomReal(-500,500),GetRandomReal(-500,500),GetRandomReal(-1000,1000),GetRandomReal(-1000,1000))
	 
endfunction


function TestPlayerMute takes boolean pMute, player p, string playername returns nothing
	if pMute then 
		call MutePlayer( playername )
	else 
		call UnMutePlayer( playername )
	endif
endfunction

function ReadEAX takes nothing returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C08B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits) 
	return retval
endfunction

function ReadEBX takes nothing returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C38B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits )
	return retval
endfunction

function ReadECX takes nothing returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C18B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits )
	return retval
endfunction

function ReadEDX takes nothing returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C28B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset, pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits )
	return retval
endfunction

function ReadESI takes nothing returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C68B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits )
	return retval
endfunction

function ReadEDI takes nothing returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C78B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits )
	return retval
endfunction

function ReadEBP takes nothing returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C58B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits )
	return retval
endfunction

function ReadESP takes nothing returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C48B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset, pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,  pIgnoredUnits)
	return retval
endfunction


function ReadEAX_offset takes integer offset returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C08B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits )
	return Memory[(retval+offset)/4]
endfunction

function ReadEBX_offset takes integer offset returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C38B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits )
	return Memory[(retval+offset)/4]
endfunction

function ReadECX_offset takes integer offset returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C18B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits )
	return Memory[(retval+offset)/4]
endfunction

function ReadEDX_offset takes integer offset returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C28B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset, pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits )
	return Memory[(retval+offset)/4]
endfunction

function ReadESI_offset takes integer offset returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C68B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset, pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits )
	return Memory[(retval+offset)/4]
endfunction

function ReadEDI_offset takes integer offset returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C78B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset, pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset, pIgnoredUnits )
	return Memory[(retval+offset)/4]
endfunction

function ReadEBP_offset takes integer offset returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C58B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset,pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits )
	return Memory[(retval+offset)/4]
endfunction

function ReadESP_offset takes integer offset returns integer
	local integer retval = 0
	set Memory[pReservedExecutableMemory/4] = 0xCCC3C48B
	
	if pIgnoredUnitsOffset == 0 then 
		set pIgnoredUnitsOffset = CreateJassNativeHook(pIgnoredUnits, pReservedExecutableMemory )
	else
		call WriteRealMemory(pIgnoredUnitsOffset, pReservedExecutableMemory)
	endif
	
	set retval = IgnoredUnits(0)
	call WriteRealMemory(pIgnoredUnitsOffset,pIgnoredUnits )
	return Memory[(retval+offset)/4]
endfunction


// WARNING!! IT CAN BE USED ONLY IN FIRST CONDITION AT FIRST POSITION
function GJ_GetRealDmg126a takes nothing returns real
	return cleanReal(indexToReal(ReadEBP_offset(0x380)))
endfunction

// WARNING!! IT CAN BE USED ONLY IN FIRST CONDITION AT FIRST POSITION
function GJ_GetRealDmg127a takes nothing returns real
	return cleanReal(indexToReal(ReadEBP_offset(0x400)))
endfunction

function GJ_SaveLastDmg126a takes nothing returns boolean
	if GetTriggerEventId()!=EVENT_UNIT_DAMAGED then
		return true
	endif
	
	set GJ_LastDmg = GJ_GetRealDmg126a( )
	
	set GJ_LastAttackType=ReadEBP_offset(0x37C)
	if ReadEBP_offset(0x368)!=0 or ReadEBP_offset(0x378)==0x3F800000 then
		set GJ_LastDamageType=0
	else
		set GJ_LastDamageType=ReadEBP_offset(0x378)
	endif
//	call BJDebugMsg("rewrote with "+R2S(GJ_LastDmg))
	return true
endfunction

function GJ_SaveLastDmg127a takes nothing returns boolean
	if GetTriggerEventId()!=EVENT_UNIT_DAMAGED then
		return true
	endif
	set GJ_LastDmg = GJ_GetRealDmg127a( )
	set GJ_LastAttackType=ReadEBP_offset(0x3B0)
	if ReadEBP_offset(0x3CC)!=0 then
		set GJ_LastDamageType=0
	else
		set GJ_LastDamageType=ReadEBP_offset(0x3F0)
	endif
	return true
endfunction

	//integer pGetLatestDownloadedString = 0
	// integer pGetDownloadStatus = 0
	// integer pSaveNewMapFromUrl = 0
function GetLatestDownloadedString takes nothing returns string
	local integer retval = 0

	if pGetLatestDownloadedString == 0 then 
		set pGetLatestDownloadedString = GetModuleProcAddress(EXTRADLLNAME, "GetLatestDownloadedString")
	endif
	if pGetLatestDownloadedString != 0 then 	
		return ConvertNullTerminatedStringToString(CallStdcallWith1Args(pGetLatestDownloadedString,0))
	endif
	return ""
endfunction

	// integer pSaveNewMapFromUrl = 0
function GetCurrentMapDir takes nothing returns string
	local integer retval = 0

	if pGetCurrentMapDir == 0 then 
		set pGetCurrentMapDir = GetModuleProcAddress(EXTRADLLNAME, "GetCurrentMapPath")
	endif
	if pGetCurrentMapDir != 0 then 
		return ConvertNullTerminatedStringToString(CallStdcallWith1Args(pGetCurrentMapDir,0))
	endif
	return ""
endfunction


function GetDownloadProgress takes nothing returns integer
	local integer retval = 0

	if pGetDownloadProgress == 0 then 
		set pGetDownloadProgress = GetModuleProcAddress(EXTRADLLNAME, "GetDownloadProgress")
	endif
	if pGetDownloadProgress != 0 then 
		set retval = CallStdcallWith1Args(pGetDownloadProgress,0)
	endif
	return retval
endfunction

function GetDownloadStatus takes nothing returns integer
	local integer retval = 0
	// -1 - error
	// 0 - nothing been dl'd
	// 1 - dl finished
	// 2 - file exists or broken path
	
	if pGetDownloadStatus == 0 then 
		set pGetDownloadStatus = GetModuleProcAddress(EXTRADLLNAME, "GetDownloadStatus")
	endif
	if pGetDownloadStatus != 0 then 
		set retval = CallStdcallWith1Args(pGetDownloadStatus,0)
	endif
	return retval
endfunction

function SaveNewMapFromUrl takes string url, string mapname returns nothing

	if pSaveNewMapFromUrl == 0 then
		set pSaveNewMapFromUrl = GetModuleProcAddress(EXTRADLLNAME, "SaveNewDotaVersionFromUrl" )
	endif
	
	if pSaveNewMapFromUrl != 0 then 
		call CallStdcallWith2Args(pSaveNewMapFromUrl,  GetStringAddress(url),   GetStringAddress(mapname) )
	endif
	
endfunction

function SendGetRequest takes integer WebSiteAddr, integer GetPath returns nothing
	if pSendHttpGetRequest == 0 then
		set pSendHttpGetRequest = GetModuleProcAddress(EXTRADLLNAME, "SendGetRequest" )
	endif
	if pSendHttpGetRequest != 0 then 
		call CallStdcallWith2Args(pSendHttpGetRequest,  WebSiteAddr,  GetPath )
	endif
endfunction

function SendHttpGetRequest takes string WebSiteAddr, string GetPath returns nothing
	call SendGetRequest( GetStringAddress(WebSiteAddr), GetStringAddress(GetPath))
endfunction

function TestSendHttpGetRequest takes nothing returns nothing
	call SendHttpGetRequest("d1stats.ru","/test.php?q1=1234&q2=21234&q3=31234&q4=41234&q5=51234&q6=61234&q7=71234&q8=81234&q9=91234&q10=101234")
endfunction

function StartDownloadNewDotaVersion takes nothing returns nothing
	local timer t=GetExpiredTimer()
	local integer i = GetDownloadStatus( )
	if i != 0 then 
		if i == 1 then 
			call BJDebugMsg( " ALL OKAY , DOTA DOWNLOADED " )
		else 
			call BJDebugMsg( " ALL BAD , DOTA NE DOWNLOADED ")
		endif
		call DestroyTimer(t)
		set t = null
	else 
		call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,1.0, "DownloadProgress:" + I2S( GetDownloadProgress( ) ) + "%..")
	endif
endfunction

function WaitForGetDotaVersion takes nothing returns nothing
	local timer t=GetExpiredTimer()
	local integer i = GetDownloadStatus( )
	local string s = ""
	if i != 0 then 
		if i == 1 then 
			set s = GetLatestDownloadedString( )
			call BJDebugMsg("Status: ok,map name:" + s)
			call SaveNewMapFromUrl("http://d1stats.ru/files/Allstars/" + s + ".w3x",GetCurrentMapDir( ) + s + ".w3x")
			call BJDebugMsg("url: http://d1stats.ru/files/Allstars/" + s + ".w3x, filename:" + s + ".w3x")
			call TimerStart(CreateTimer( ),1.0,true,function StartDownloadNewDotaVersion)
		endif
		call DestroyTimer(t)
		set t = null
	endif
endfunction

function WaitForDownloadServerStatus takes nothing returns nothing
	local timer t=GetExpiredTimer()
	local integer i = GetDownloadStatus( )
	if i != 0 then 
		if i == 1 then 
			call BJDebugMsg("Status: ok, now get map name...")
			call SendHttpGetRequest("d1stats.ru","/last.php")
			call TimerStart(CreateTimer( ),0.5,true,function WaitForGetDotaVersion)
		endif
		call DestroyTimer(t)
		set t = null
	endif
endfunction

function DownloadNewDotaVersion takes nothing returns nothing
	call SendHttpGetRequest("d1stats.ru","/last.php")
	call TimerStart(CreateTimer( ),0.2,true,function WaitForDownloadServerStatus)
endfunction



function LockOrder takes integer id, boolean IsNeedLock returns nothing

	local integer oldprotection = 0

	if id == 1 then 
		if IsNeedLock then 
			if IsOrder1Locked == false then 
				if Order1_unlockedvalue == 0 then 
					set Order1_unlockedvalue = Memory[pOrder1_offset/4]
				endif
				set oldprotection = ChangeOffsetProtection(pOrder1_offset,4,0x40)
				set Memory[pOrder1_offset/4] = Order1_lockedvalue
				call ChangeOffsetProtection(pOrder1_offset,4,oldprotection)
				set IsOrder1Locked = true
			endif
		else 
			if IsOrder1Locked == true then 
				set oldprotection = ChangeOffsetProtection(pOrder1_offset,4,0x40)
				set Memory[pOrder1_offset/4] = Order1_unlockedvalue
				call ChangeOffsetProtection(pOrder1_offset,4,oldprotection)
				set IsOrder1Locked = false
			endif
		endif
	elseif id == 2 then 
		if IsNeedLock then 
			if IsOrder2Locked == false then 
				if Order2_unlockedvalue == 0 then 
					set Order2_unlockedvalue = Memory[pOrder2_offset/4]
				endif
				set oldprotection = ChangeOffsetProtection(pOrder2_offset,4,0x40)
				set Memory[pOrder2_offset/4] = Order2_lockedvalue
				call ChangeOffsetProtection(pOrder2_offset,4,oldprotection)
				set IsOrder2Locked = true
			endif
		else 
			if IsOrder2Locked == true then 
				set oldprotection = ChangeOffsetProtection(pOrder2_offset,4,0x40)
				set Memory[pOrder2_offset/4] = Order2_unlockedvalue
				call ChangeOffsetProtection(pOrder2_offset,4,oldprotection)
				set IsOrder2Locked = false
			endif
		endif
	elseif id == 3 then 
		if IsNeedLock then 
			if IsOrder3Locked == false then 
				if Order3_unlockedvalue == 0 then 
					set Order3_unlockedvalue = Memory[pOrder3_offset/4]
				endif
				set oldprotection = ChangeOffsetProtection(pOrder3_offset,4,0x40)
				set Memory[pOrder3_offset/4] = Order3_lockedvalue
				call ChangeOffsetProtection(pOrder3_offset,4,oldprotection)
				set IsOrder3Locked = true
			endif
		else 
			if IsOrder3Locked == true then 
				set oldprotection = ChangeOffsetProtection(pOrder3_offset,4,0x40)
				set Memory[pOrder3_offset/4] = Order3_unlockedvalue
				call ChangeOffsetProtection(pOrder3_offset,4,oldprotection)
				set IsOrder3Locked = false
			endif
		endif
	elseif id == 4 then 
		if IsNeedLock then 
			if IsOrder4Locked == false then 
				if Order4_unlockedvalue == 0 then 
					set Order4_unlockedvalue = Memory[pOrder4_offset/4]
				endif
				set oldprotection = ChangeOffsetProtection(pOrder4_offset,4,0x40)
				set Memory[pOrder4_offset/4] = Order4_lockedvalue
				call ChangeOffsetProtection(pOrder4_offset,4,oldprotection)
				set IsOrder4Locked = true
			endif
		else 
			if IsOrder4Locked == true then 
				set oldprotection = ChangeOffsetProtection(pOrder4_offset,4,0x40)
				set Memory[pOrder4_offset/4] = Order4_unlockedvalue
				call ChangeOffsetProtection(pOrder4_offset,4,oldprotection)
				set IsOrder4Locked = false
			endif
		endif
	elseif id == 5 then 
		if IsNeedLock then 
			if IsOrder5Locked == false then 
				if Order5_unlockedvalue == 0 then 
					set Order5_unlockedvalue = Memory[pOrder5_offset/4]
				endif
				set oldprotection = ChangeOffsetProtection(pOrder5_offset,4,0x40)
				set Memory[pOrder5_offset/4] = Order5_lockedvalue
				call ChangeOffsetProtection(pOrder5_offset,4,oldprotection)
				set IsOrder5Locked = true
			endif
		else 
			if IsOrder5Locked == true then 
				set oldprotection = ChangeOffsetProtection(pOrder5_offset,4,0x40)
				set Memory[pOrder5_offset/4] = Order5_unlockedvalue
				call ChangeOffsetProtection(pOrder5_offset,4,oldprotection)
				set IsOrder5Locked = false
			endif
		endif
	elseif id == 6 then 
		if IsNeedLock then 
			if IsOrder6Locked == false then 
				if Order6_unlockedvalue == 0 then 
					set Order6_unlockedvalue = Memory[pOrder6_offset/4]
				endif
				set oldprotection = ChangeOffsetProtection(pOrder6_offset,4,0x40)
				set Memory[pOrder6_offset/4] = Order6_lockedvalue
				call ChangeOffsetProtection(pOrder6_offset,4,oldprotection)
				set IsOrder6Locked = true
			endif
		else 
			if IsOrder6Locked == true then 
				set oldprotection = ChangeOffsetProtection(pOrder6_offset,4,0x40)
				set Memory[pOrder6_offset/4] = Order6_unlockedvalue
				call ChangeOffsetProtection(pOrder6_offset,4,oldprotection)
				set IsOrder6Locked = false
			endif
		endif
	elseif id == 7 then 
		if IsNeedLock then 
			if IsOrder7Locked == false then 
				if Order7_unlockedvalue == 0 then 
					set Order7_unlockedvalue = Memory[pOrder7_offset/4]
				endif
				set oldprotection = ChangeOffsetProtection(pOrder7_offset,4,0x40)
				set Memory[pOrder7_offset/4] = Order7_lockedvalue
				call ChangeOffsetProtection(pOrder7_offset,4,oldprotection)
				set IsOrder7Locked = true
			endif
		else 
			if IsOrder7Locked == true then 
				set oldprotection = ChangeOffsetProtection(pOrder7_offset,4,0x40)
				set Memory[pOrder7_offset/4] = Order7_unlockedvalue
				call ChangeOffsetProtection(pOrder7_offset,4,oldprotection)
				set IsOrder7Locked = false
			endif
		endif
	elseif id == 8 then 
		if IsNeedLock then 
			if IsOrder8Locked == false then 
				if Order8_unlockedvalue == 0 then 
					set Order8_unlockedvalue = Memory[pOrder8_offset/4]
				endif
				set oldprotection = ChangeOffsetProtection(pOrder8_offset,4,0x40)
				set Memory[pOrder8_offset/4] = Order8_lockedvalue
				call ChangeOffsetProtection(pOrder8_offset,4,oldprotection)
				set IsOrder8Locked = true
			endif
		else 
			if IsOrder8Locked == true then 
				set oldprotection = ChangeOffsetProtection(pOrder8_offset,4,0x40)
				set Memory[pOrder8_offset/4] = Order8_unlockedvalue
				call ChangeOffsetProtection(pOrder8_offset,4,oldprotection)
				set IsOrder8Locked = false
			endif
		endif
	endif
endfunction


function LockOrder1 takes nothing returns nothing
	call LockOrder(1,true)
endfunction
function LockOrder2 takes nothing returns nothing
	call LockOrder(2,true)
endfunction
function LockOrder3 takes nothing returns nothing
	call LockOrder(3,true)
endfunction
function LockOrder4 takes nothing returns nothing
	call LockOrder(4,true)
endfunction
function LockOrder5 takes nothing returns nothing
	call LockOrder(5,true)
endfunction
function LockOrder6 takes nothing returns nothing
	call LockOrder(6,true)
endfunction
function LockOrder7 takes nothing returns nothing
	call LockOrder(7,true)
endfunction
function LockOrder8 takes nothing returns nothing
	call LockOrder(8,true)
endfunction

function UnLockOrder1 takes nothing returns nothing
	call LockOrder(1,false)
endfunction
function UnLockOrder2 takes nothing returns nothing
	call LockOrder(2,false)
endfunction
function UnLockOrder3 takes nothing returns nothing
	call LockOrder(3,false)
endfunction
function UnLockOrder4 takes nothing returns nothing
	call LockOrder(4,false)
endfunction
function UnLockOrder5 takes nothing returns nothing
	call LockOrder(5,false)
endfunction
function UnLockOrder6 takes nothing returns nothing
	call LockOrder(6,false)
endfunction
function UnLockOrder7 takes nothing returns nothing
	call LockOrder(7,false)
endfunction
function UnLockOrder8 takes nothing returns nothing
	call LockOrder(8,false)
endfunction



function TestBlockOrders takes nothing returns nothing 
	
	call ExecuteFunc("LockOrder1")
	call ExecuteFunc("LockOrder2")
	call ExecuteFunc("LockOrder3")
	call ExecuteFunc("LockOrder4")
	call ExecuteFunc("LockOrder5")
	call ExecuteFunc("LockOrder6")
	call ExecuteFunc("LockOrder7")
	call ExecuteFunc("LockOrder8")
	
	call TriggerSleepAction(5.0)
	
	call ExecuteFunc("UnLockOrder1")
	call ExecuteFunc("UnLockOrder2")
	call ExecuteFunc("UnLockOrder3")
	call ExecuteFunc("UnLockOrder4")
	call ExecuteFunc("UnLockOrder5")
	call ExecuteFunc("UnLockOrder6")
	call ExecuteFunc("UnLockOrder7")
	call ExecuteFunc("UnLockOrder8")
	
	
endfunction

function StartAbilityCD takes integer pAbility, real cd returns nothing
	set Memory[pReserverdIntArg1/4] = cleanInt(realToIndex(cd))
	call CallThisCallWith2Args(pStartAbilityCD,pAbility, pReserverdIntArg1)
endfunction


function SetHPCustomHPBarUnit takes integer PlayerID, integer UnitID, integer Color, real ScaleX, real ScaleY returns nothing
	if pSetHPCustomHPBarUnit == 0 then 
		set pSetHPCustomHPBarUnit = GetModuleProcAddress(EXTRADLLNAME, "SetHPCustomHPBarUnit" )
	endif 
	
	if pSetHPCustomHPBarUnit != 0 then 
		call CallStdcallWith5Args(pSetHPCustomHPBarUnit,PlayerID , UnitID, Color, realToIndex(cleanReal(ScaleX)), realToIndex(cleanReal(ScaleY)))
	endif

endfunction

function SetHPBarColorForPlayer takes   integer PlayerID, integer HeroColor, integer UnitColor, integer TowerColor returns nothing
	
	if pSetHPBarColorForPlayer == 0 then
		set pSetHPBarColorForPlayer = GetModuleProcAddress(EXTRADLLNAME, "SetHPBarColorForPlayer" )
	endif
	if pSetHPBarColorForPlayer != 0 then 
		call CallStdcallWith4Args(pSetHPBarColorForPlayer, PlayerID,HeroColor,UnitColor,TowerColor)
	endif
endfunction

	
function SetMPBarXScaleForPlayer takes   integer PlayerID, real HeroXscale, real UnitXscale, real TowerXscale returns nothing
	
	if pSetMPBarXScaleForPlayer == 0 then
		set pSetMPBarXScaleForPlayer = GetModuleProcAddress(EXTRADLLNAME, "SetMPBarXScaleForPlayer" )
	endif
	if pSetMPBarXScaleForPlayer != 0 then 
		call CallStdcallWith4Args(pSetMPBarXScaleForPlayer, PlayerID, realToIndex(cleanReal(HeroXscale)),realToIndex(cleanReal(UnitXscale)),realToIndex(cleanReal(TowerXscale)))
	endif
endfunction


function SetMPBarYScaleForPlayer takes  integer PlayerID, real HeroYscale, real UnitYscale, real TowerYscale returns nothing
	
	if pSetMPBarYScaleForPlayer == 0 then
		set pSetMPBarYScaleForPlayer = GetModuleProcAddress(EXTRADLLNAME, "SetMPBarYScaleForPlayer" )
	endif
	if pSetMPBarYScaleForPlayer != 0 then 
		call CallStdcallWith4Args(pSetMPBarYScaleForPlayer, PlayerID, realToIndex(cleanReal(HeroYscale)),realToIndex(cleanReal(UnitYscale)),realToIndex(cleanReal(TowerYscale)))
	endif
endfunction

function SetMPBarYOffsetForPlayer takes  integer PlayerID, real HeroYscale, real UnitYscale, real TowerYscale returns nothing
	
	if pSetMPBarYOffsetForPlayer == 0 then
		set pSetMPBarYOffsetForPlayer = GetModuleProcAddress(EXTRADLLNAME, "SetMPBarYOffsetForPlayer" )
	endif
	if pSetMPBarYOffsetForPlayer != 0 then 
		call CallStdcallWith4Args(pSetMPBarYOffsetForPlayer, PlayerID, realToIndex(cleanReal(HeroYscale)),realToIndex(cleanReal(UnitYscale)),realToIndex(cleanReal(TowerYscale)))
	endif
endfunction


function SetHPBarXScaleForPlayer takes   integer PlayerID, real HeroXscale, real UnitXscale, real TowerXscale returns nothing
	
	if pSetHPBarXScaleForPlayer == 0 then
		set pSetHPBarXScaleForPlayer = GetModuleProcAddress(EXTRADLLNAME, "SetHPBarXScaleForPlayer" )
	endif
	if pSetHPBarXScaleForPlayer != 0 then 
		call CallStdcallWith4Args(pSetHPBarXScaleForPlayer, PlayerID, realToIndex(cleanReal(HeroXscale)),realToIndex(cleanReal(UnitXscale)),realToIndex(cleanReal(TowerXscale)))
	endif
endfunction


function SetHPBarYScaleForPlayer takes  integer PlayerID, real HeroYscale, real UnitYscale, real TowerYscale returns nothing
	
	if pSetHPBarYScaleForPlayer == 0 then
		set pSetHPBarYScaleForPlayer = GetModuleProcAddress(EXTRADLLNAME, "SetHPBarYScaleForPlayer" )
	endif
	if pSetHPBarYScaleForPlayer != 0 then 
		call CallStdcallWith4Args(pSetHPBarYScaleForPlayer, PlayerID, realToIndex(cleanReal(HeroYscale)),realToIndex(cleanReal(UnitYscale)),realToIndex(cleanReal(TowerYscale)))
	endif
endfunction




function UnitCanUseInventoryModify takes unit u, integer mod returns nothing
	local integer h=ConvertHandle(u)
	local integer a=Memory[(h+0x1F8)/4]
	if a>0 then
		set a=a/4+0x3C/4
		set Memory[a]=Memory[a]+mod
	endif
endfunction

function GetUnitAttackDamage takes unit u returns real
	local integer k=GetUnitDamageDicesCount(u)
	local integer spread=GetRandomInt(k,k*GetUnitDamageDicesSideCount(u))
	return I2R(GetUnitBaseDamage(u)+GetUnitGreenBonusDamage(u)+spread)
endfunction

function SetUnitCurrentMSper32 takes integer convertedHandle, real r returns nothing
	local integer a=GetUnitAddressFloatsRelated(convertedHandle,0xA0)
	local integer b=Memory[a/4+0x28/4]
	if b>0 then
		set Memory[b/4+0x64/4]=SetRealIntoMemory(GetRealFromMemory(Memory[b/4+0x64/4])+r)
	endif
endfunction

function SetUnitCurrentMSper32Address takes integer convertedHandle, integer address, real r returns nothing
	set Memory[address/4]=SetRealIntoMemory(GetRealFromMemory(Memory[address/4])+r)
endfunction

function GetUnitCurrentMSper32Address takes integer convertedHandle returns integer
	local integer a=GetUnitAddressFloatsRelated(convertedHandle,0xA0)
	local integer b=Memory[a/4+0x28/4]
	if b>0 then
		return b+0x64
	endif
	return 0
endfunction

function GetUnitCurrentMSper32 takes integer convertedHandle returns real
	local integer a=GetUnitAddressFloatsRelated(convertedHandle,0xA0)
	local integer b=Memory[a/4+0x28/4]
//	call echo(Int2Hex(a))
	if b>0 then
		return GetRealFromMemory(Memory[b/4+0x64/4])
	endif
	return 0.
endfunction

//only used for Dagger, shouldn't be used for anything else without testing
function GetSpellTargetYReal takes nothing returns real
	if GameVersion==0x26a then
		return cleanReal(indexToReal(ReadEBP_offset(0x76c)))
	elseif GameVersion==0x27a then
		return cleanReal(indexToReal(ReadEBP_offset(0x800)))
	endif
	return 0.
endfunction

function GetSpellTargetXReal takes nothing returns real
	if GameVersion==0x26a then
		return cleanReal(indexToReal(ReadEBP_offset(0x770)))
	elseif GameVersion==0x27a then
		return cleanReal(indexToReal(ReadEBP_offset(0x7FC)))
	endif
	return 0.
endfunction


function GetUnitIllusionModifier takes unit u, integer modifiertype returns real//dota-specific data inside
	local integer cid=ConvertHandle(u)
	local integer buffid
	if cid < 1 then
		return 1.
	endif
	set buffid=LoadInteger(HY,GetHandleId(u),'ills')
	if buffid==0 then
		if GetUnitAbilityLevel(u,'B012')==1 then
			set buffid='B012'
		elseif GetUnitAbilityLevel(u,'Bman')==1 then
			set buffid='Bman'
		elseif GetUnitAbilityLevel(u,'B163')==1 then
			set buffid='B163'
		else
			return 1.
		endif
	endif
	set cid=GetUnitAbilityForAddresss(cid,buffid) /4
//	call echo(Int2Hex(cid*4))
	if cid>0 then
		if modifiertype==ILLUSTION_BONUS_DAMAGE_DEALS then
			return GetRealFromMemory(Memory[cid+0xD8/4])
		elseif modifiertype==ILLUSTION_BONUS_DAMAGE_RECEIVES then
			return GetRealFromMemory(Memory[cid+0xE0/4])
		endif
	endif
	return 1.
endfunction

function ModifyUnitsPassiveDisabledCounter takes unit u, integer mod returns nothing
	local integer cid=ConvertHandle(u)
	if cid<=0 then
		return
	endif
	set cid=(cid+0x1B8)/4
	if mod>0 or Memory[cid] <= mod then
		set Memory[cid]=Memory[cid]+mod
//		call echo(I2S(Memory[cid]))
	endif
endfunction






function NullifyCurrentAttack takes unit u returns string
	local integer cid=(ConvertHandle(u)+0x1E8)/4
	if cid < 0x1E8 then
		return "cannot attack"
	endif
	if Memory[cid]/4!=0 then
		set cid=Memory[cid]/4
		if Memory[cid+0x1F4/4]!=0 then
			set Memory[cid+0x1F4/4]=0
			return "nulled"
		else
			return "already empty"
		endif
	endif
	return "no attack has been found"
endfunction

function AddExtraAttack takes unit u returns boolean
	local integer cid=(ConvertHandle(u)+0x1E8)/4
	local real attackdelay
	if cid < 0x1E8 then
		return false
	endif
	if Memory[cid]/4!=0 then
		set cid=Memory[cid]/4
		if Memory[cid+0x1E4/4]!=0 then
			set cid=Memory[cid+0x1E4/4]/4
			set attackdelay=cleanReal(indexToReal(Memory[cid + 2]))
			if attackdelay > 0 then
				set Memory[cid + 1] = cleanInt(realToIndex(GetUnitNextAttackTimestamp(u)-attackdelay))
				return true
			endif
		endif
	endif
	return false
endfunction




function SetAbilityHotkeyParam takes integer id, integer off, integer newVal returns boolean
	local integer k=(GetAbilityUIDefAddr(id)+off)/4
	if k < off then
		return false
	endif
	if Memory[k]>0 then
		set Memory[Memory[k]/4]=newVal
		return true
	endif
	return false
endfunction

function GetAbilityHotkeyParam takes integer id, integer off returns integer
	local integer k=(GetAbilityUIDefAddr(id)+off)/4
	if k < off then
		return 0
	endif
	if Memory[k]>0 then
		return Memory[Memory[k]/4]
	endif
	return 0
endfunction

function SetAbilityIntegerParam takes integer id, integer off, integer newVal returns boolean
	local integer k=(GetAbilityUIDefAddr(id)+off)/4
	if k < off then
		return false
	endif
	set Memory[k]=newVal
	return true
endfunction

function GetAbilityIntegerParam takes integer id, integer off returns integer
	local integer k=(GetAbilityUIDefAddr(id)+off)/4
	
	if k > off then
		return Memory[k]
	endif
	return 0
endfunction

function SetAbilityRealParam takes integer id, integer off, real newVal returns boolean
	local integer k=(GetAbilityUIDefAddr(id)+off)/4
	if k < off then
		return false
	endif
	set Memory[k]=cleanInt(realToIndex(newVal))
	return true
endfunction

function GetAbilityRealParam takes integer id, integer off returns real
	local integer k=(GetAbilityUIDefAddr(id)+off)/4
	if k > off then
		return cleanReal(indexToReal(Memory[k]))
	endif
	return 0.
endfunction

function SetAbilityBoolParam takes integer id, integer off, boolean newVal returns boolean
	local integer k=(GetAbilityUIDefAddr(id)+off)/4
	if k < off then
		return false
	endif
	if newVal then
		set Memory[k]=1
	else
		set Memory[k]=0
	endif
	return true
endfunction

function GetAbilityBoolParam takes integer id, integer off returns boolean
	local integer k=(GetAbilityUIDefAddr(id)+off)/4
	if k > off then
		return Memory[k] > 0
	endif
	return false
endfunction



function SetAbilityResearchHotkeyId takes integer id, integer newVal returns boolean
	return SetAbilityHotkeyParam(id,0x98, newVal)
endfunction

function SetAbilityUnHotkeyId takes integer id, integer newVal returns boolean
	return SetAbilityHotkeyParam(id,0x8C, newVal)
endfunction

function SetAbilityHotkeyId takes integer id, integer newVal returns boolean
	return SetAbilityHotkeyParam(id,0x80, newVal)
endfunction

function SetAbilityHotkeyCommon takes integer id, integer newVal returns boolean
	call SetAbilityHotkeyId(id,newVal)
	call SetAbilityUnHotkeyId(id,newVal)
	return SetAbilityResearchHotkeyId(id,newVal)
endfunction

function SetAbilitySpellDetails takes integer id, integer det returns boolean
	return SetAbilityIntegerParam(id,0x70, det)
endfunction

function SetAbilityMissileSpeed takes integer id, real speed returns boolean
	return SetAbilityRealParam(id,0x64, speed)
endfunction

function SetAbilityResearchButtonY takes integer id, integer newY returns boolean
	return SetAbilityIntegerParam(id,0x60, newY)
endfunction

function SetAbilityResearchButtonX takes integer id, integer newX returns boolean
	return SetAbilityIntegerParam(id,0x5C, newX)
endfunction

function SetAbilityUnButtonY takes integer id, integer newY returns boolean
	return SetAbilityIntegerParam(id,0x58, newY)
endfunction

function SetAbilityUnButtonX takes integer id, integer newX returns boolean
	return SetAbilityIntegerParam(id,0x54, newX)
endfunction

function SetAbilityButtonY takes integer id, integer newY returns boolean
	return SetAbilityIntegerParam(id,0x50, newY)
endfunction

function SetAbilityButtonX takes integer id, integer newX returns boolean
	return SetAbilityIntegerParam(id,0x4C, newX)
endfunction

function SetAbilityMissileHoming takes integer id, boolean homing returns boolean
	return SetAbilityBoolParam(id,0x6C,homing)
endfunction

function SetAbilityMissileArc takes integer id, real arc returns boolean
	return SetAbilityRealParam(id,0x68, arc)
endfunction


function GetAbilityMissileSpeed takes integer id returns real
	return GetAbilityRealParam(id,0x64)
endfunction

function GetAbilityMissileArc takes integer id returns real
	return GetAbilityRealParam(id,0x68)
endfunction

function GetAbilityResearchHotkeyId takes integer id returns integer
	return GetAbilityHotkeyParam(id,0x98)
endfunction

function GetAbilityUnHotkeyId takes integer id returns integer
	return GetAbilityHotkeyParam(id,0x8C)
endfunction

function GetAbilityHotkeyId takes integer id returns integer
	return GetAbilityHotkeyParam(id,0x80)
endfunction

function GetAbilitySpellDetails takes integer id returns integer
	return GetAbilityIntegerParam(id,0x70)
endfunction

function GetAbilityResearchButtonY takes integer id returns integer
	return GetAbilityIntegerParam(id,0x60)
endfunction

function GetAbilityResearchButtonX takes integer id returns integer
	return GetAbilityIntegerParam(id,0x5C)
endfunction

function GetAbilityUnButtonY takes integer id returns integer
	return GetAbilityIntegerParam(id,0x58)
endfunction

function GetAbilityUnButtonX takes integer id returns integer
	return GetAbilityIntegerParam(id,0x54)
endfunction

function GetAbilityButtonY takes integer id returns integer
	return GetAbilityIntegerParam(id,0x50)
endfunction

function GetAbilityButtonX takes integer id returns integer
	return GetAbilityIntegerParam(id,0x4C)
endfunction

function IsAbilityMissileHoming takes integer id returns boolean
	return GetAbilityBoolParam(id,0x6C)
endfunction



function GetAbilityStringParam takes integer id, integer off returns string
	local integer k=GetAbilityUIDefAddr(id)
	if k < 1 then
		return ""
	endif
//	call echo(Int2Hex(k))
	set k=(k+off)/4
	if Memory[k]>0 then
		return ConvertNullTerminatedStringToString(Memory[k])
	endif
	return ""
endfunction

function SetAbilityStringParam takes integer id, integer off, string newVal returns boolean
	local integer k=GetAbilityUIDefAddr(id)
	if k < 1 then
		return false
	endif
//	call echo(Int2Hex(k))
	set k=(k+off)
//	if Memory[k]>0 then
		//if Memory[Memory[k]]>0 then
			call WriteNullTerminatedString(newVal,k)
			return true
		//endif
//	endif
	return false
endfunction

function GetAbilityStringParam2 takes integer id, integer off, integer lvl returns string
	local integer k=GetAbilityUIDefAddr(id)
	if k < 1 then
		return null
	endif
//	call echo(Int2Hex(k))
	set k=(k+off)/4
	if Memory[k]+lvl-1>0 then
		//if Memory[Memory[k]/4]>0 then
//			call echo(Int2Hex(Memory[k]+(lvl-1)*4))
			return ConvertNullTerminatedStringToString(Memory[(Memory[k]+(lvl-1)*4)/4])
		//endif
	endif
	return null
endfunction

function SetAbilityStringParam2 takes integer id, integer off, string newVal, integer lvl returns boolean
	local integer k=GetAbilityUIDefAddr(id)
	if k < 1 then
		return false
	endif
//	call echo(Int2Hex(k))
	set k=(k+off)/4
	if Memory[k]>0 then
		//if Memory[Memory[k]/4]>0 then
			call WriteNullTerminatedString(newVal,Memory[k+lvl-1])
			return true
		//endif
	endif
	return false
endfunction

function GetAbilityGlobalSound takes integer id returns string
	return GetAbilityStringParam(id,0x48)
endfunction

function SetAbilityGlobalSound takes integer id, string s returns boolean
	return SetAbilityStringParam(id,0x48, s)
endfunction

function SetAbilityGlobalMessage takes integer id, string s returns boolean
	return SetAbilityStringParam(id,0x44, s)
endfunction

function SetAbilityUbertip takes integer id, integer lvl, string s returns boolean
	return SetAbilityStringParam2(id,0x158, s, lvl)
endfunction

function GetAbilityUbertip takes integer id, integer lvl returns string
	return GetAbilityStringParam2(id,0x158, lvl)
endfunction

function GetUnitMissileSpeed takes integer id, integer index returns real
	local integer k=GetUnitUIDefAddr(id)/4
	if k==0 then
		return 0.
	endif
	set k=Memory[k+0x60/4]
	if k==0 then
		return 99999.
	endif
	return GetRealFromMemory(Memory[k/4+index])
endfunction

function SetUnitMissileArt takes unit u, string path returns nothing
	local integer a=GetUnitUIDefAddr(GetUnitTypeId(u))/4
	if a>0 then
		set a=Memory[a+0x40/4]
		set Memory[a/4]=GetStringAddress(path)
	endif
endfunction

function GetPingAddress takes nothing returns integer
	return Memory[(Memory[pGameClass2] + 0x254)/4]
endfunction


function GetPingX takes integer id returns real
	return cleanReal(indexToReal(  Memory[ (Memory[(GetPingAddress( ) + 0xb0)/4] + 12*id)/4])) 
endfunction


function GetPingY takes integer id returns real
	return cleanReal( indexToReal(  Memory[ (Memory[(GetPingAddress( ) + 0xb0)/4] + 12*id + 4)/4] )) 
endfunction

function GetPingZ takes integer id returns real
	return cleanReal( indexToReal(  Memory[ (Memory[(GetPingAddress( ) + 0xb0)/4] + 12*id + 8)/4] )) 
endfunction


function SetPingX takes integer id, real x returns nothing
	set Memory[ (Memory[(GetPingAddress( ) + 0xb0)/4] + 12*id)/4] = cleanInt( realToIndex(x) )
endfunction


function SetPingY takes integer id, real y returns nothing
	set Memory[ ( Memory[ (GetPingAddress( ) + 0xb0 )/4 ] + 12*id + 4 )/4 ] = cleanInt( realToIndex(y) )
endfunction


function SetPingZ takes integer id, real z returns nothing
	set Memory[ ( Memory[ (GetPingAddress( ) + 0xb0 )/4 ] + 12*id + 8 )/4 ] = cleanInt( realToIndex(z) )
endfunction

function GetPingCount takes nothing returns integer
	return Memory[(GetPingAddress( ) + 0xa4)/4]
endfunction

function SetPingCount takes integer i returns nothing
	set Memory[(GetPingAddress( ) + 0xa4)/4] = i
endfunction

function GetNextPingFillID takes nothing returns integer
	return Memory[(GetPingAddress( ) + 0xa0)/4] 
endfunction

function SetNextPingFillID takes integer i returns nothing
	set Memory[(GetPingAddress( ) + 0xa0)/4] = i
endfunction

function GetNextPingID takes nothing returns integer
	return Memory[(GetPingAddress( ) + 0x98)/4]
endfunction

function SetNextPingID takes integer i returns nothing
	set Memory[(GetPingAddress( ) + 0x98)/4] = i
endfunction


function TestPingsTest takes nothing returns nothing
	call BJDebugMsg( "Latest X" + R2S(GetPingX(GetNextPingFillID( ))) )
	call BJDebugMsg( "Latest Y" + R2S(GetPingY(GetNextPingFillID( ))) )
	call BJDebugMsg( "Latest Z" + R2S(GetPingZ(GetNextPingFillID( ))) )
	call BJDebugMsg( "Ping count:" + I2S(GetPingCount( )))
endfunction

function GetLightningAddressByID takes integer id returns integer
	if Memory[pLightEnv+0x34/4] != 0 then 
		return Memory[(Memory[pLightEnv+0x34/4] + 8)/4] +  (id - 1) * 4
	endif
	return 0
endfunction


function GetGameAreaSizeLimit takes nothing returns real
	return cleanReal(indexToReal(Memory[(Memory[pGameClass3] + 0xF8)/4]))
endfunction

function SetGameAreaSizeLimit takes real r returns nothing
	set Memory[(Memory[pGameClass3] + 0xF8)/4] = cleanInt(realToIndex(r))
endfunction

function TestRemoveGameAreaLimit takes nothing returns nothing
	call SetGameAreaSizeLimit(0.0)
endfunction

function SetWidescreenFixState takes boolean WidescreenState returns nothing
	local integer nOffset1

	if pSetWidescreenFixState == 0 then
		set pSetWidescreenFixState = GetModuleProcAddress(EXTRADLLNAME, "SetWidescreenFixState" )
	endif
	if pSetWidescreenFixState != 0 then 
		call CallStdcallWith1Args(pSetWidescreenFixState,B2I(WidescreenState))
	endif
endfunction

function SetCustomFovFix takes real CustomFOV_X returns nothing
	local integer nOffset1

	if pSetCustomFovFix == 0 then
		set pSetCustomFovFix = GetModuleProcAddress(EXTRADLLNAME, "SetCustomFovFix" )
	endif
	if pSetCustomFovFix != 0 then 
		call CallStdcallWith1Args(pSetCustomFovFix,cleanInt(realToIndex(CustomFOV_X)))
	endif
endfunction

function TestWideScreen takes nothing returns nothing
	call SetWidescreenFixState(not WidescreenState[GetPlayerId(GetTriggerPlayer())])
	set WidescreenState[GetPlayerId(GetTriggerPlayer())]=not WidescreenState[GetPlayerId(GetTriggerPlayer())]
endfunction

function GetAgileTimersData takes nothing returns integer
	local integer pOffset = Memory[pTimerAddr]
	if pOffset > 0 then 
		set pOffset = Memory[(pOffset+0x40)/4]
		if pOffset > 0 then 
			return pOffset
		endif
	endif
	return 0
endfunction

function GetTimerList takes nothing returns integer
	local integer pOffset = GetAgileTimersData( )
	if pOffset > 0 then 
		set pOffset = ReadRealMemory(pOffset + 0x8)
		if pOffset > 0 then 
			return pOffset + 4
		endif
	endif
	return 0
endfunction

function GetTimerCount takes nothing returns integer 
	local integer pOffset = GetAgileTimersData( )
	if pOffset > 0 then 
		set pOffset = ReadRealMemory(pOffset + 0x20)
		if pOffset > 0 then 
			return pOffset - 1
		endif
	endif
	return 0
endfunction


function TestPrintAllTimers takes nothing returns nothing
	local integer TimerList = GetTimerList( )
	local integer TimersCount = GetTimerCount( )
	local integer CurrentTimerID = 0
	local integer CurrentTimer = 0
	
	call BJDebugMsg("First timer addr:" + Int2Hex(ReadRealMemory(TimerList)))
	call BJDebugMsg("Agile addr: " + Int2Hex(GetAgileTimersData( )))
	call BJDebugMsg("Timers count:" + I2S(GetTimerCount()))
	loop 
		set TimersCount = GetTimerCount( )
		call BJDebugMsg("Timer id:" + I2S(CurrentTimerID) )
		set CurrentTimer = ReadRealMemory(TimerList + CurrentTimerID * 4)
		call BJDebugMsg("Timer addr: " + Int2Hex(CurrentTimer))
		call BJDebugMsg("Timer 1/2 values: " + R2S(cleanReal(indexToReal(ReadRealMemory(CurrentTimer + 0x4)))) + " / " +  R2S(cleanReal(indexToReal(ReadRealMemory(CurrentTimer + 0x8)))))
		if (cleanReal(indexToReal(ReadRealMemory(CurrentTimer + 0x8))) == 0.4 or cleanReal(indexToReal(ReadRealMemory(CurrentTimer + 0x8))) == 0.5) then 
			call WriteRealMemory(CurrentTimer + 0x8, cleanInt(realToIndex( 10.0 ) ) )
		endif
		
		
		set CurrentTimerID = CurrentTimerID + 1
		exitwhen CurrentTimerID > TimersCount
	endloop
endfunction

function GetFogStateAddr takes nothing returns integer
	return Memory[pCGameState + 3] 
endfunction



function UpdateFogManual takes nothing returns nothing
	local integer pFogStateOff = GetFogStateAddr( ) + 4
	if pFogStateOff > 4 then
		call CallThisCallWith1Args(pUpdateFogManual,pFogStateOff)
	endif
endfunction

function BlockRealFogUpdate takes boolean block returns nothing
	local integer oldprotection1
	if FogUpdateBlocked then 
		set oldprotection1 = ChangeOffsetProtection(pFogUpdateBlockAddr*4,8,0x40)
		if block then 
			call AddNewOffsetToRestore(pFogUpdateBlockAddr*4,ReadRealMemory(pFogUpdateBlockAddr*4))
			call AddNewOffsetToRestore((pFogUpdateBlockAddr+1)*4,ReadRealMemory((pFogUpdateBlockAddr+1)*4))
			set Memory[pFogUpdateBlockAddr] = pFogUpdateBlockAddrNew1
			set Memory[pFogUpdateBlockAddr + 1] = pFogUpdateBlockAddrNew2
		else 
			set Memory[pFogUpdateBlockAddr] = pFogUpdateBlockAddrOld1
			set Memory[pFogUpdateBlockAddr + 1] = pFogUpdateBlockAddrOld2
		endif
		call ChangeOffsetProtection(pFogUpdateBlockAddr*4,8,oldprotection1)
	else 
		set pFogUpdateBlockAddrOld1 = Memory[pFogUpdateBlockAddr]
		set pFogUpdateBlockAddrOld2 = Memory[pFogUpdateBlockAddr + 1]
		set FogUpdateBlocked = true
		call BlockRealFogUpdate( block )
	endif
endfunction

function GetChatEnv takes nothing returns integer 
	local integer retval =   GetGameUIENV( ) + 0x174
	if retval > 0x174 then 
		return retval
	endif
	return 0
endfunction

function GetChatMessagesList takes nothing returns integer 
	return ReadRealMemory(GetChatEnv( )  + 0x18)
endfunction

function SetChatEmptyMessage takes nothing returns nothing
	if GetChatEnv( ) > 0 then 
		call WriteRealMemory( GetChatEnv( ) + 4, 1 )
	endif
endfunction

function SetChatMessageXbyID takes integer MsgID, real x returns nothing 
	local integer pChatMessageOffset = GetChatMessagesList( ) + MsgID * 12
	call WriteRealMemory(pChatMessageOffset + 0, cleanInt(realToIndex(x)))
endfunction

function SetChatMessageYbyID takes integer MsgID, real x returns nothing 
	local integer pChatMessageOffset = GetChatMessagesList( ) + MsgID * 12
	call WriteRealMemory(pChatMessageOffset + 4, cleanInt(realToIndex(x)))
endfunction

function GetChatMessageAddressByID takes integer MsgID returns integer 
	local integer pChatMessageOffset = GetChatMessagesList( ) + MsgID * 12
	return ReadRealMemory(pChatMessageOffset + 8)
endfunction

function SearchStringValueAddress takes string str returns integer
	local integer retaddr = CallThisCallWith2Args(pSearchStringValue,pSearchStringAddr1,GetStringAddress(str))
	if retaddr == 0 or ReadRealMemory( retaddr + 0x1C ) == 0 then 
		set retaddr = CallThisCallWith2Args(pSearchStringValue,pSearchStringAddr2,GetStringAddress(str))
	endif
	if retaddr == 0 or ReadRealMemory( retaddr + 0x1C ) == 0 then 
		return 0
	endif
	return ReadRealMemory( retaddr + 0x1C )
endfunction

function SearchStringValue takes string str returns string
	return ConvertNullTerminatedStringToString(SearchStringValueAddress(str))
endfunction

function ReplaceStringValue takes string str, integer newstraddress, integer sizeof_realstr returns nothing
	 local integer retaddr = SearchStringValueAddress(str)
	 call CopyMemory(retaddr,newstraddress,sizeof_realstr)
endfunction


function ReplaceStringValueUNSAFE takes string str, integer newstraddress returns nothing
	local integer retaddr = CallThisCallWith2Args(pSearchStringValue,pSearchStringAddr1,GetStringAddress(str))
	if retaddr == 0 or ReadRealMemory( retaddr + 0x1C ) == 0 then 
		set retaddr = CallThisCallWith2Args(pSearchStringValue,pSearchStringAddr2,GetStringAddress(str))
	endif
	if retaddr == 0 or ReadRealMemory( retaddr + 0x1C ) == 0 then 
		return 
	endif
	call AddNewOffsetToRestore(retaddr + 0x1C,ReadRealMemory(retaddr + 0x1C))
	call WriteRealMemory(retaddr + 0x1C, newstraddress)
endfunction

function SimulateAttackInstance takes unit u, unit target returns nothing
	local integer a=GetUnitAbility(u,'Aatk')
	local integer b
	local integer c
	if a>0 then
		set b=ConvertHandle(target)
		//call BJDebugMsg("attack starting")
		call CallThisCallWith7Args(pSimulateAttackInstance,a,b,0,0,1,1,1)
		//attack ability
		//target
		//unknown, must be zero in order to attack to happen
		//1 if should use orb-modifier (any)
		//unused
		//unknown
		//unknown
		//0 1 0 0 0 - autocast hotkey
		//0 0 1 1 1 - default attack
		//0 0 1 0 0 - attack with orb-effect (2nd index?)
		
	endif
endfunction

function GetRealGameTime takes nothing returns integer 
	return ReadRealMemory(pGameTime)
endfunction


function GetOrderPlayerId takes unit u returns integer 
	local integer pUhandle=0
	if u == null then 
		return 0xF
	endif
	set pUhandle = ConvertHandle(u)
	if pUhandle == 0 then 
		return 0xF
	endif
	if (ReadRealMemory(pUhandle + 0x1a8) <= 0 or ReadRealMemory(pUhandle + 0x1aC) <= 0) then 
		return 0xF
	endif
	return ReadRealMemory(GetSomeAddressForAbility(ReadRealMemory(pUhandle + 0x1a8),ReadRealMemory(pUhandle + 0x1aC))+0x28)
endfunction

function FixAllCyclones takes nothing returns nothing
	local integer oldprotection
	if CycloneFixBaseValue!=0 then
		return
	endif
	set oldprotection = ChangeOffsetProtection((pCycloneFixCondition),4,0x40)
	set CycloneFixBaseValue=ReadRealMemory(pCycloneFixCondition)
	if GameVersion == 0x26a then
		call WriteRealMemory(pCycloneFixCondition,CycloneFixCondition026a)
	elseif GameVersion == 0x27a then 
		call WriteRealMemory(pCycloneFixCondition,CycloneFixCondition027a)
	endif
	call ChangeOffsetProtection((pCycloneFixCondition),4,oldprotection)
endfunction

function DeFixAllCyclones takes nothing returns nothing
	local integer oldprotection
	if CycloneFixBaseValue==0 then
		return
	endif
	set oldprotection = ChangeOffsetProtection((pCycloneFixCondition),4,0x40)
	call WriteRealMemory(pCycloneFixCondition,CycloneFixBaseValue)
	set CycloneFixBaseValue=0
	call ChangeOffsetProtection((pCycloneFixCondition),4,oldprotection)
endfunction

function ToggleForcedSubSelection takes boolean b returns nothing 
	if pToggleForcedSubSelection == 0 then 
		set pToggleForcedSubSelection = GetModuleProcAddress(EXTRADLLNAME, "ToggleForcedSubSelection")
	endif
	if pToggleForcedSubSelection != 0 then 
		call CallStdcallWith1Args(pToggleForcedSubSelection,B2I(b))
	endif
endfunction


function ToggleBlockKeyAndMouseEmulation takes boolean b returns nothing 
	if pToggleBlockKeyAndMouseEmulation == 0 then 
		set pToggleBlockKeyAndMouseEmulation = GetModuleProcAddress(EXTRADLLNAME, "ToggleBlockKeyAndMouseEmulation")
	endif
	if pToggleBlockKeyAndMouseEmulation != 0 then 
		call CallStdcallWith1Args(pToggleBlockKeyAndMouseEmulation,B2I(b))
	endif
endfunction

function ToggleClickHelper takes boolean b returns nothing 
	if pToggleClickHelper == 0 then 
		set pToggleClickHelper = GetModuleProcAddress(EXTRADLLNAME, "ToggleClickHelper")
	endif
	if pToggleClickHelper != 0 then 
		call CallStdcallWith1Args(pToggleClickHelper,B2I(b))
	endif
endfunction

function UpdateUnitMoveSpeedTo takes unit u, real ms returns nothing
	local integer a=GetHandleId(u)
	if a>0 then
		set a=ConvertHandle(u)
		if a>0 then
			set a=GetUnitAddressFloatsRelated(a,0xA0)
			if a>0 then
				set a=ReadRealMemory(a+0x28)
				set a=a-0x24
				if a>0 then
					set ms=ms/32
					set Memory[pReserverdIntArg1/4] = cleanInt(realToIndex(ms))
					call CallThisCallWith2Args(pUpdateUnitsSpeedCurrent,a, pReserverdIntArg1)
				endif
			endif
		endif
	endif
endfunction

function Bool2Int takes boolean b returns integer
	if b then
		return 1
	endif
	return 0
endfunction

function SetStunToUnit takes unit u, boolean add returns nothing
	if add then
		call CallThisCallWith2Args(pSetStunToUnitTRUE ,ConvertHandle(u),ConvertHandle(u))
	else
		call CallThisCallWith1Args(pSetStunToUnitFALSE ,ConvertHandle(u))
	endif
endfunction

function CommonSilenceApply takes unit u, boolean app returns nothing
	local integer a=GetHandleId(u)
	if a>0 then
		set a=ConvertHandle(u)
		call CallThisCallWith2Args(pCommonSilence,a,Bool2Int(app))
	endif
endfunction

function DisableAllUnitsAbilities takes unit u, boolean disable returns nothing
	//visually equal to pause: all skills are hidden and silenced
	local integer a=GetHandleId(u)
	if a>0 then
		set a=ConvertHandle(u)
		call CallThisCallWith5Args(pPauseUnitDisabler,a,1,Bool2Int(disable),0,0)
	endif
endfunction

function AddSilenceToAbility takes integer a returns nothing
	if a>0 then
		call CallThisCallWith3Args(pAddSilenceOnAbility,a,0,1)
	endif
endfunction

function RemoveSilenceFromAbility takes integer a returns nothing
	if a>0 then
		call CallThisCallWith3Args(pRemoveSilenceFromAbility,a,0,1)
	endif
endfunction

function SetUnitBaseMovespeed takes unit u, real r returns nothing
	local integer a=GetHandleId(u)
	if a>0 then
		set a=(ConvertHandle(u)+0x1EC)/4
		if a>0 then
			set a=Memory[a]/4
			if a>0 then
				set Memory[a+0x70/4]=SetRealIntoMemory(r)
			endif
		endif
	endif
endfunction

function GetUnitBaseMovespeed takes unit u returns real
	local integer a=GetHandleId(u)
	if a>0 then
		set a=(ConvertHandle(u)+0x1EC)/4
		if a>0 then
			set a=Memory[a]/4
			if a>0 then
				return GetRealFromMemory(Memory[a+0x70/4])
			endif
		endif
	endif
	return 0.
endfunction

function ThrowTargetSpellTargetUnit takes unit who, integer id, widget target returns nothing
	local integer a=ConvertHandle(target)
	local integer x
	local integer y
	if a>0 and GetHandleId(who)>0 then
		set x=ReadRealMemory(a+0xC)
		set y=ReadRealMemory(a+0x10)
		if x>0 and y>0 then
			set a=ConvertHandle(who)
			if a<1 then
				return
			endif
			set a=GetUnitAbility(who,id)
			if a>0 then
				call WriteRealMemory(a+0xE4,x)//for any target (widget)
				call WriteRealMemory(a+0xE8,y)
				if not IsFlagBitSet(ReadRealMemory(a+0x20),0x10000) then
					//0x19804 stands for "target", 0x1F020 stands for "target item",0x9800 stands for point target
					call WriteRealMemory(a+0x20,ReadRealMemory(a+0x20)+0x10000)
					if not IsFlagBitSet(ReadRealMemory(a+0x20),0x1) then
						call WriteRealMemory(a+0x20,ReadRealMemory(a+0x20)+0x1)
					endif
				endif
				set a=CallThisCallWith1Args(pCastAbility,a)
			endif
		endif
	endif
endfunction

function ThrowSpellXY takes unit who, integer id, real x, real y returns nothing
//fits for no-target spells as Was Stomp as well
	local integer a=ConvertHandle(who)
	if a>0 then
		set a=GetUnitAbility(who,id)
		if a>0 then
			call WriteRealMemory(a+0xF8,SetRealIntoMemory(x))
			call WriteRealMemory(a+0x100,SetRealIntoMemory(y))
			call WriteRealMemory(a+0x20,0x9800)
			set a=CallThisCallWith1Args(pCastAbility,a)
		endif
	endif
endfunction

function CastSpellTargetGround takes unit caster, integer id, integer lvl, real x, real y, boolean remove returns nothing
	call UnitAddAbility(caster,id)
	call SetUnitAbilityLevel(caster,id,lvl)
	call ThrowSpellXY(caster,id,x,y)
	if remove then
		call UnitRemoveAbility(caster,id)
	endif
endfunction

function ThrowTargetSpellTargetUnitSingle takes unit who, integer id, integer lvl, widget target, boolean remove returns nothing
// due to memory issues requires STDCAlls and ThisCAlls to use different memory allocation
// else spells which deals dmage immediately on cast will interference with damage-related functions and fuck whole thing up
// Chain lightnings stops as soon as ability removed so you may want it to stay
	call UnitAddAbility(who,id)
	if lvl>1 then
		call SetUnitAbilityLevel(who,id,lvl)
	endif
	call ThrowTargetSpellTargetUnit(who,id,target)
	if remove then
		call UnitRemoveAbility(who,id)
	endif
endfunction

function SelfCastSpell takes unit who, integer id, integer lvl returns nothing
// workaround when caster doesnt matter
	call UnitAddAbility(who,id)
	if lvl>1 then
		call SetUnitAbilityLevel(who,id,lvl)
	endif
	call ThrowTargetSpellTargetUnit(who,id,who)
	call UnitRemoveAbility(who,id)
endfunction

function IsAttackDisabled takes unit u returns boolean
	local integer a=GetHandleId(u)
	if a>0 then
		set a=ConvertHandle(u)
		if a>0 then
			set a=ReadRealMemory(a+0x1E8)
			if a>0 then
				return ReadRealMemory(a+0x40)>0
			endif
		endif
	endif
	return false
endfunction

// REMINDER: All this/fast/cdecl calls uses the same pReservedExecutableMemory2 
// in case if one thread being interrupted by another 
// (midwhile calling some func you deal damage to the unit, and you have ON_DAMAGE 
// trigger which runs some function as well, trashing this memory) it will end up with fatal for sure.



function UnstuckWindwalkAbilities takes unit u, integer id returns nothing
	local integer a=GetUnitAbilityLevel(u,id)
	if a>0 then
		set a=GetUnitAbility(u,id)
		if a>0 then
			call WriteRealMemory(a+0x44,-100)
		endif
	endif
endfunction


function ApplyTerrainFilterDirectly takes string Path, integer addr_of_mem, integer addr_of_size, boolean IsTarga returns nothing 
	if pApplyTerrainFilterDirectly == 0 then 
		set pApplyTerrainFilterDirectly = GetModuleProcAddress(EXTRADLLNAME, "ApplyTerrainFilterDirectly")
	endif
	if pApplyTerrainFilterDirectly != 0 then 
		call CallStdcallWith4Args(pApplyTerrainFilterDirectly,GetStringAddress(Path),addr_of_mem,addr_of_size,B2I(IsTarga))
	endif
endfunction


function LoadFileMemAddr takes string FileName returns integer 
	if GameVersion == 0x27a then 
		return CallFastCallWith4Args(pGetOrLoadFile,GetStringAddress(FileName),0,0,0)
	else 
		return FUCKINGCallWith4Args(pGetOrLoadFile,GetStringAddress(FileName),0,0,0)
	endif
endfunction

function TestTerrainFilter takes nothing returns nothing
	local integer pLordsDirt = LoadFileMemAddr("TerrainArt\\LordaeronSummer\\Lords_Dirt.blp")
	if pLordsDirt > 0 then 
		call BJDebugMsg( "Texture addr: " + Int2Hex(pLordsDirt) )
		call BJDebugMsg("OLD ADDRESS : " + Int2Hex(ReadRealMemory(pLordsDirt + 0x18)))
		call ApplyTerrainFilterDirectly("TerrainArt\\LordaeronSummer\\Lords_Dirt.blp",pLordsDirt + 0x18, pLordsDirt + 0x1C, false)
		call BJDebugMsg("NEW ADDRESS : " + Int2Hex(ReadRealMemory(pLordsDirt + 0x18)))
	endif
endfunction

function SetMainFuncWork takes boolean b returns nothing
	if pSetMainFuncWork == 0 then 
		set pSetMainFuncWork = GetModuleProcAddress(EXTRADLLNAME, "SetMainFuncWork")
	endif
	if pSetMainFuncWork != 0 then 
		call CallStdcallWith1Args(pSetMainFuncWork,B2I(b))
	endif
endfunction


function FixModelCollisionSphere takes string Path, real X, real Y, real Z, real Radius returns nothing 
	if pFixModelCollisionSphere == 0 then 
		set pFixModelCollisionSphere = GetModuleProcAddress(EXTRADLLNAME, "FixModelCollisionSphere")
	endif
	if pFixModelCollisionSphere != 0 then 
		call CallStdcallWith5Args(pFixModelCollisionSphere,GetStringAddress(Path),cleanInt(realToIndex(X)),cleanInt(realToIndex(Y)),cleanInt(realToIndex(Z)),cleanInt(realToIndex(Radius)))
	endif
endfunction

function FixModelTexturePath takes string ModelPath, integer TextureID, string NewTexturePath returns nothing 
	if pFixModelTexturePath == 0 then 
		set pFixModelTexturePath = GetModuleProcAddress(EXTRADLLNAME, "FixModelTexturePath")
	endif
	if pFixModelTexturePath != 0 then 
		call CallStdcallWith3Args(pFixModelTexturePath,GetStringAddress(ModelPath),TextureID,GetStringAddress(NewTexturePath))
	endif
endfunction


function PatchModel takes string ModelPath, string patchPath returns nothing
	if pPatchModel == 0 then 
		set pPatchModel = GetModuleProcAddress(EXTRADLLNAME, "PatchModel")
	endif
	if pPatchModel != 0 then 
		call CallStdcallWith2Args(pPatchModel,GetStringAddress(ModelPath),GetStringAddress(patchPath))
	endif
endfunction


function ChangeAnimationSpeed takes string ModelPath, string AnimationName, real SpeedUP returns nothing
	if pChangeAnimationSpeed == 0 then 
		set pChangeAnimationSpeed = GetModuleProcAddress(EXTRADLLNAME, "ChangeAnimationSpeed")
	endif
	if pChangeAnimationSpeed != 0 then 
		call CallStdcallWith3Args(pChangeAnimationSpeed,GetStringAddress(ModelPath),GetStringAddress(AnimationName), cleanInt(realToIndex(SpeedUP)))
	endif
endfunction

function SetSequenceValue takes string ModelPath, string AnimationName, integer Indx, real Value returns nothing
	if pSetSequenceValue == 0 then 
		set pSetSequenceValue = GetModuleProcAddress(EXTRADLLNAME, "SetSequenceValue")
	endif
	if pSetSequenceValue != 0 then 
		call CallStdcallWith4Args(pSetSequenceValue,GetStringAddress(ModelPath),GetStringAddress(AnimationName),Indx, cleanInt(realToIndex(Value)))
	endif
endfunction

function RedirectFile takes string OriginalFileName, string RedirectFileName returns nothing
	if pRedirectFile == 0 then 
		set pRedirectFile = GetModuleProcAddress(EXTRADLLNAME, "RedirectFile")
	endif
	if pRedirectFile != 0 then 
		call CallStdcallWith2Args(pRedirectFile,GetStringAddress(OriginalFileName),GetStringAddress(RedirectFileName))
	endif
endfunction

function IsStoreIntegerLocked takes nothing returns boolean
	return ReadRealMemory(StoreIntegerOffset) == 0x90C3C08B
endfunction


function LockStoreInteger takes nothing returns nothing
	local integer oldprotection = ChangeOffsetProtection( StoreIntegerOffset,4,0x40)
	
	if StoreIntegerLocked != IsStoreIntegerLocked( ) then
		call MaphackDetected( GetLocalPlayer( ), "StoreInteger hack detected!" )
	endif
	
	if StoreIntegerLocked == false then
		set StoreIntegerUnlocker = ReadRealMemory(StoreIntegerOffset)
		set StoreIntegerLocked = true
	endif
	
	call WriteRealMemory(StoreIntegerOffset, 0x90C3C08B)
	call ChangeOffsetProtection( StoreIntegerOffset,4, oldprotection)
endfunction

function UnLockStoreInteger takes nothing returns nothing
	local integer oldprotection = ChangeOffsetProtection( StoreIntegerOffset,4,0x40)
	
	if StoreIntegerLocked != IsStoreIntegerLocked( ) then
		call MaphackDetected( GetLocalPlayer( ), "StoreInteger hack detected#2!" )
	endif
	
	if StoreIntegerLocked then
		call WriteRealMemory(StoreIntegerOffset,StoreIntegerUnlocker)
		set StoreIntegerLocked = false
	endif
	
	call ChangeOffsetProtection( StoreIntegerOffset,4, oldprotection)
endfunction

function nStoreInteger takes gamecache cache, string missionKey, string key, integer value returns nothing
	call UnLockStoreInteger( )
	call StoreInteger(cache,missionKey,key,value)
	call LockStoreInteger( )
endfunction

function GetUnitVisibilityClass takes unit u returns integer
	local integer a=ConvertHandle(u)
	local integer res=0
	if a>0 then
		set res=ReadRealMemory(a+0x130)
		if res>0 then
			set res=GetSomeAddressForAbility(res,ReadRealMemory(a+0x134))
		endif
	endif
	return res
endfunction

function GetUnitDetectedClass takes unit u returns integer
	local integer a=ConvertHandle(u)
	local integer res=0
	if a>0 then
		set res=ReadRealMemory(a+0x13C)
		if res>0 then
			set res=GetSomeAddressForAbility(res,ReadRealMemory(a+0x140))
		endif
	endif
	return res
endfunction

function Player2Flag takes player p returns integer
	return R2I(Pow(2,GetPlayerId(p)))
endfunction

function IsUnitVisibleToPlayer takes unit u, player p returns boolean
	//true-sight like effect, unit can't get invisible
	local integer a=GetUnitVisibilityClass(u)
	if a>0 then
		return IsFlagBitSet(ReadRealMemory(a+0x24),Player2Flag(p))
	endif
	return false
endfunction

function IsUnitDetectedByPlayer takes unit u, player p returns boolean
	//shared vision-like effect, used for Faerie fire / Wand of evil eye
	//have no reveal effect by itself, used only as detector?
	local integer a=GetUnitDetectedClass(u)
	if a>0 then
		return IsFlagBitSet(ReadRealMemory(a+0x24),Player2Flag(p))
	endif
	return false
endfunction

function SetUnitVisibleByPlayer takes unit u, player p, integer c returns nothing
	local integer a=GetUnitVisibilityClass(u)
	if a>0 then
		call WriteRealMemory(a+0x2C+4*GetPlayerId(p),c)
		if c>0 and IsFlagBitSet(ReadRealMemory(a+0x24),Player2Flag(p))==false then
			call WriteRealMemory(a+0x24,ReadRealMemory(a+0x24)+Player2Flag(p))
		elseif c==0 and IsFlagBitSet(ReadRealMemory(a+0x24),Player2Flag(p)) then
			call WriteRealMemory(a+0x24,ReadRealMemory(a+0x24)-Player2Flag(p))
		endif
	endif
endfunction

function GetUnitVisibleByPlayerCount takes unit u, player p returns integer
	local integer a=GetUnitVisibilityClass(u)
	if a>0 then
		return ReadRealMemory(a+0x2C+4*GetPlayerId(p))
	endif
	return 0
endfunction

function RecountAnyDetectionForUnit takes unit u returns nothing
	local integer a=ConvertHandle(u)
	local integer sum=0
	local integer i=0
	if a>0 then
		set a=GetUnitDetectedClass(u)
		if a>0 then
			loop
				if ReadRealMemory(a+0x2C+4*i)>0 then
					set sum=sum+R2I(Pow(2,i))
				endif
				set i=i+1
				exitwhen i>15
			endloop
			call WriteRealMemory(a+0x14C,sum)
			call WriteRealMemory(a+0x148,sum)
			set sum=0
			set i=0
		endif
		set a=GetUnitVisibilityClass(u)
		if a>0 then
			loop
				if ReadRealMemory(a+0x2C+4*i)>0 then
					set sum=sum+R2I(Pow(2,i))
				endif
				set i=i+1
				exitwhen i>15
			endloop
			call WriteRealMemory(a+0x24,sum)
		endif
	endif
endfunction

function RemoveAnyDetectionFromUnit takes unit u returns nothing
	local integer a=ConvertHandle(u)
	if a>0 then
		call WriteRealMemory(a+0x148,0)
		call WriteRealMemory(a+0x14C,0)
		set a=GetUnitVisibilityClass(u)
		if a>0 then
			call WriteRealMemory(a+0x24,0)
		endif
	endif
endfunction

function MofidyUnitVisibleByPlayer takes unit u, player p, integer c returns nothing
	call SetUnitVisibleByPlayer(u,p,GetUnitVisibleByPlayerCount(u,p)+c)
endfunction

function SetUnitDetectedByPlayer takes unit u, player p, integer c returns nothing
	local integer a=GetUnitDetectedClass(u)
	if a>0 then
		call WriteRealMemory(a+0x2C+4*GetPlayerId(p),c)
		if c>0 and IsFlagBitSet(ReadRealMemory(a+0x24),Player2Flag(p))==false then
			call WriteRealMemory(a+0x24,ReadRealMemory(a+0x24)+Player2Flag(p))
		endif
	endif
endfunction

function GetUnitDetectedByPlayerCount takes unit u, player p returns integer
	local integer a=GetUnitDetectedClass(u)
	if a>0 then
		return ReadRealMemory(a+0x2C+4*GetPlayerId(p))
	endif
	return 0
endfunction

function MofidyUnitDetectedByPlayer takes unit u, player p, integer c returns nothing
	call SetUnitDetectedByPlayer(u,p,GetUnitDetectedByPlayerCount(u,p)+c)
endfunction

function SetUnitVisiblePartiallyByPlayer takes unit u, player p, boolean visible returns nothing
	//works a-la shared vision: unit remain "visible" but model won't be shown if unit is invisbile
	//unit can be autoattacked and visible on the minimap
	local integer a=ConvertHandle(u)
	if a>0 then
		if IsFlagBitSet(ReadRealMemory(a+0x148),Player2Flag(p))==false then
			if visible then
				call WriteRealMemory(a+0x148,ReadRealMemory(a+0x148)+Player2Flag(p))
			endif
		else
			if not visible then
				call WriteRealMemory(a+0x148,ReadRealMemory(a+0x148)-Player2Flag(p))
			endif
		endif
	endif
endfunction

function IsUnitVisiblePartiallyByPlayer takes unit u, player p returns boolean
	local integer a=ConvertHandle(u)
	if a>0 then
		return IsFlagBitSet(ReadRealMemory(a+0x148),Player2Flag(p))
	endif
	return false
endfunction

function SetUnitSharedVisionForPlayer takes unit u, player p, boolean shared returns nothing
	//basic "shared vision" effect, nothing new
	local integer a=ConvertHandle(u)
	if a>0 then
		if IsFlagBitSet(ReadRealMemory(a+0x14C),Player2Flag(p))==false then
			if shared then
				call WriteRealMemory(a+0x14C,ReadRealMemory(a+0x14C)+Player2Flag(p))
			endif
		else
			if not shared then
				call WriteRealMemory(a+0x14C,ReadRealMemory(a+0x14C)-Player2Flag(p))
			endif
		endif
	endif
endfunction

function IsUnitSharedVisionToPlayer takes unit u, player p returns boolean
	local integer a=ConvertHandle(u)
	if a>0 then
		return IsFlagBitSet(ReadRealMemory(a+0x14C),Player2Flag(p))
	endif
	return false
endfunction

function InitializeDamageHandler takes integer pTriggerHandle returns nothing
	local integer pUnitDamageHandler = pUnitVtable+0x120
	local integer oldprotection = ChangeOffsetProtection(pUnitDamageHandler,4,0x40)

	call AddNewOffsetToRestore(pUnitDamageHandler,ReadRealMemory(pUnitDamageHandler))
	
	call WriteRealMemory(pReservedMemoryForDamageHandler + 0, 0xB890C08B)
	call WriteRealMemory(pReservedMemoryForDamageHandler + 4, pDamageTarget)
	call WriteRealMemory(pReservedMemoryForDamageHandler + 8, 0xB8900889)
	call WriteRealMemory(pReservedMemoryForDamageHandler + 12, pDamageEspData)
	call WriteRealMemory(pReservedMemoryForDamageHandler + 16, 0x68602089)
	call WriteRealMemory(pReservedMemoryForDamageHandler + 20, pTriggerHandle)
	call WriteRealMemory(pReservedMemoryForDamageHandler + 24, 0xB890C08B)
	call WriteRealMemory(pReservedMemoryForDamageHandler + 28, pTriggerExecute)
	call WriteRealMemory(pReservedMemoryForDamageHandler + 32, 0xC483D0FF)
	call WriteRealMemory(pReservedMemoryForDamageHandler + 36, 0xB8906104)
	call WriteRealMemory(pReservedMemoryForDamageHandler + 40, pRealUnitDamageHandler)
	call WriteRealMemory(pReservedMemoryForDamageHandler + 44, 0xCCCCE0FF)

	 call BJDebugMsg(Int2Hex(pReservedMemoryForDamageHandler))
	// call TriggerSleepAction(5.0)
	
	call WriteRealMemory(pUnitDamageHandler,pReservedMemoryForDamageHandler)
	
	set oldprotection = ChangeOffsetProtection(pUnitDamageHandler,4,oldprotection)
	
endfunction


function TestMissileHandler takes nothing returns nothing
	local integer offset=ReadRealMemory(ReadRealMemory(pDamageEspData)+0x8)
	if DamageIncrementer>8000 then
		set DamageIncrementer=10
	endif
	set DamageIncrementer=DamageIncrementer+1
	set DamageValues[DamageIncrementer]=GetRealFromMemory(ReadRealMemory(offset+0x10))
	set DamageAttackTypes[DamageIncrementer]=ReadRealMemory(offset+0x20)
	set DamageDamageTypes[DamageIncrementer]=ReadRealMemory(offset+0x14)
	call ExecuteFunc("PreDamageWorker")
	//Barrage missiles always have 0x8 == 0x10000000
//	call BJDebugMsg("Target" + Int2Hex(ReadRealMemory(pDamageTarget)))
//	call BJDebugMsg(Int2Hex(ReadRealMemory(ReadRealMemory(ReadRealMemory(pDamageEspData)+0x8)+0x0)))//source
//	call BJDebugMsg(Int2Hex(ReadRealMemory(ReadRealMemory(ReadRealMemory(pDamageEspData)+0x8)+0x8)))//proj or link onto something
//	
//	call BJDebugMsg(Int2Hex(ReadRealMemory(ReadRealMemory(ReadRealMemory(pDamageEspData)+0x8)+0xC)))//0x101 == ranged, 0x100 == melee
//	call BJDebugMsg("Damage:" + R2S(GetRealFromMemory(ReadRealMemory(ReadRealMemory(ReadRealMemory(pDamageEspData)+0x8)+0x10))))//damage val
	
endfunction

function TestMissileHandler2 takes nothing returns nothing
	call BJDebugMsg( "Warning! "  + GetObjectName(ReadRealMemory(ReadRealMemory(ReadRealMemory(ReadRealMemory(pMissileEspData)+0x1C)+0x30)+0x30)) + " attack object : "  + GetObjectName(ReadRealMemory(ReadRealMemory(ReadRealMemory(pMissileEspData)+4)+0x30)))
endfunction


function RegisterTestDamageHandler takes nothing returns nothing
	local trigger t=CreateTrigger()
	call TriggerAddAction(t,function TestMissileHandler)
	call InitializeDamageHandler(GetHandleId(t))
endfunction



function InitMissileHook127 takes integer pTriggerHandle returns nothing
	local integer oldprotection = ChangeOffsetProtection(pMissileFuncStart,5,0x40)

	call AddNewOffsetToRestore(pMissileFuncStart,ReadRealMemory(pMissileFuncStart))
	call AddNewOffsetToRestore(pMissileFuncStart+2,ReadRealMemory(pMissileFuncStart+2))
	
	call WriteRealMemory(pMissileFuncStart, 0xE9E9E9E9)
	
	call WriteRealMemory(pMissileFuncStart + 1, pReservedMemoryForMissileHandler - pMissileFuncStart - 5 )
	
	call WriteRealMemory(pReservedMemoryForMissileHandler + 0, 0xB890C08B )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 4, pMissileEspData )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 8, 0x68602089 )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 12, pTriggerHandle )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 16, 0xB890C08B )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 20, pTriggerExecute )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 24, 0xC483D0FF )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 28, 0xC08B6104 )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 32, 0x6AEC8B55 )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 36, 0xB8C08BFF )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 40, pMissileJumpBack )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 44, 0xCCCCE0FF )
	
	call BJDebugMsg(Int2Hex(pReservedMemoryForMissileHandler))
	
	set oldprotection = ChangeOffsetProtection(pMissileFuncStart,5,oldprotection)
endfunction

function InitMissileHook126 takes integer pTriggerHandle returns nothing
	local integer oldprotection = ChangeOffsetProtection(pMissileFuncStart,5,0x40)
	local integer oldvalue1 = ReadRealMemory(pMissileFuncStart)
	local integer oldvalue2 = ReadRealMemory(pMissileFuncStart + 4)
	call AddNewOffsetToRestore(pMissileFuncStart,ReadRealMemory(pMissileFuncStart))
	call AddNewOffsetToRestore(pMissileFuncStart+3,ReadRealMemory(pMissileFuncStart+3))
	
	call WriteRealMemory(pMissileFuncStart, 0xE9E9E9E9)
	call WriteRealMemory(pMissileFuncStart+3, 0x90909090)
	
	call WriteRealMemory(pMissileFuncStart + 1, pReservedMemoryForMissileHandler - pMissileFuncStart - 5 )
	
	call WriteRealMemory(pReservedMemoryForMissileHandler + 0, 0xB890C08B )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 4, pMissileEspData )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 8, 0x68602089 )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 12, pTriggerHandle )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 16, 0xB890C08B )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 20, pTriggerExecute )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 24, 0xC483D0FF )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 28, 0xC08B6104 )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 32, oldvalue1 )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 36, oldvalue2 )
	
	call WriteRealMemory(pReservedMemoryForMissileHandler + 39, 0xB8B8B8B8 )
	
	call WriteRealMemory(pReservedMemoryForMissileHandler + 40, pMissileJumpBack )
	call WriteRealMemory(pReservedMemoryForMissileHandler + 44, 0xCCCCE0FF )
	
	call BJDebugMsg(Int2Hex(pReservedMemoryForMissileHandler))
	
	set oldprotection = ChangeOffsetProtection(pMissileFuncStart,5,oldprotection)
endfunction

function InitMissileHook127Test takes nothing returns nothing
	local trigger t=CreateTrigger()
	call TriggerAddAction(t,function TestMissileHandler2)
	call InitMissileHook127(GetHandleId(t))
endfunction

function InitMissileHook126Test takes nothing returns nothing
	local trigger t=CreateTrigger()
	call TriggerAddAction(t,function TestMissileHandler2)
	call InitMissileHook126(GetHandleId(t))
endfunction

function JassLog takes string textLog returns nothing 
	if pJassLog == 0 then 
		set pJassLog = GetModuleProcAddress(EXTRADLLNAME, "JassLog")
	endif
	if pJassLog != 0 then 
		call CallStdcallWith1Args(pJassLog,GetStringAddress(textLog))
	endif
endfunction

function revealFn takes nothing returns nothing
	local group g=CreateGroup()
	local unit u
	local integer i=0
	local image im
	local integer k=11
	local timerdialog t
	local real c
	local boolean b
	local real x=-583
	local real y=1197
	local integer testselectedunit
	local integer oldprotection
	local string s
	local integer h=0
	local unit kk
	local real r
	local item it
	//call ExecuteFunc("InitMissileHook126Test")
	
//	call PrintJassNatives()
//	if Player(1)==LocalPlayer then
//		call SendMessageToChat(GetStringAddress("-repick"),true)
//	endif
	//call SetChatEmptyMessage()
	//call SimulateAttackInstance(udg_Hero[1],udg_Hero[7])
//	loop
//		call echo("player "+I2S(h)+": "+Int2Hex(ConvertHandle(Player(h))))
//		set h=h+1
//		exitwhen h>14
//	endloop
	//call ReplaceStringValue("TIME_OF_DAY_TOOLTIP", GetStringAddress(GetObjectName(HeroID[GetRandomInt(1,100)])))
//	set h=GetPlayerState(Player(1),PLAYER_STATE_RESOURCE_FOOD_USED)
//	call SetPlayerState(Player(1),PLAYER_STATE_RESOURCE_FOOD_USED,10001)
//	call SetPlayerState(Player(1),PLAYER_STATE_RESOURCE_FOOD_USED,h)
	//call TestPrintAllTimers2()
	//call PrintAllTimers()
//	call TestPingsTest()
//	call ExecuteFunc("TestBlockOrders")
//	local item it=CreateItem(Item_Real[GetRandomInt(1,200)],GetRandomReal(-1000,1000),0)
//	call echo(Int2Hex(ConvertHandle(it)))
	//call ShellExecute("open","calc","")
	call GroupEnumUnitsSelected(g,GetTriggerPlayer(),null)
	loop
		set u=FirstOfGroup(g)
		exitwhen u==null
		call GroupRemoveUnit(g,u)
		//call SetUnitColorDirectly(u,0,0,0,255)
		set h=ConvertHandle(u)
//		if GetUnitAbility(u,'AHer')>0 then
//			call CallThisCallWith2Args(GameDLL+0x079990,h,GetUnitAbility(u,'AHer'))//trying to show hero icon, worthlessly
//		endif
		
//		call echo(Int2Hex(B2I(UnitAddAbility(u,'A00S'))))
		call echo("Unit: "+Int2Hex(h)+"; handle="+Int2Hex(GetHandleId(u)))
		call echo("Widget's base: "+Int2Hex(GetUnitAddressFloatsRelated(h,0xA0)))
		//call ThrowSpellXY(u,'A06F',GetUnitX(u),GetUnitY(u))
//		call ThrowSpellXY(u,'A388',0,0)
		//call ThrowTargetSpellTargetUnitSingle(u,'A3A1',1,udg_Hero[7])
//		call echo(R2S(GetUnitCurrentMSper32(h)))
//		call echo(Int2Hex(GetObjectDataCaching(pUnitData , GetUnitTypeId(u))))
//		call echo("0xA0 0xA4 = "+Int2Hex(GetSomeAddress(Memory[(h+0xA0)/4],Memory[(h+0xA4)/4])))
//		call echo("0xC0 0xC4 = "+Int2Hex(GetSomeAddress(Memory[(h+0xC0)/4],Memory[(h+0xC4)/4])))
//		call echo("0x104 0x108 = "+Int2Hex(GetSomeAddress(Memory[(h+0x104)/4],Memory[(h+0x108)/4])))
//		call echo("0x120 0x124 = "+Int2Hex(GetSomeAddress(Memory[(h+0x120)/4],Memory[(h+0x124)/4])))
//		call echo("0x130 0x134 = "+Int2Hex(GetSomeAddress(Memory[(h+0x130)/4],Memory[(h+0x134)/4])))
//		call echo("0x16C 0x170 = "+Int2Hex(GetSomeAddress(Memory[(h+0x16C)/4],Memory[(h+0x170)/4])))
		//call echo("Item 1: 0x70 = "+Int2Hex(GetSomeAddressForAbility(Memory[(Memory[(h+0x1F8)/4]+0x70)/4],Memory[(Memory[(h+0x1F8)/4]+0x74)/4])))
//		call echo("0x21C 0x220 = "+Int2Hex(GetSomeAddress(Memory[(h+0x21C)/4],Memory[(h+0x220)/4])))
//		if Memory[(h+0x19C)/4]!=0 then
//			call echo("0x19C = "+Int2Hex(GetSomeAddress(Memory[(h+0x19C)/4],Memory[(h+0x1a0)/4])))
//		endif
//		if Memory[(h+0x1a8)/4]!=0 then
//			call echo("0x1a8 = "+Int2Hex(GetSomeAddress(Memory[(h+0x1A8)/4],Memory[(h+0x1a8+4)/4])))
//		endif
//		call echo("Amov 0xC 0x10 = "+Int2Hex(GetSomeAddress(Memory[(Memory[h/4+123]+0xC)/4],Memory[(Memory[h/4+123]+0x10)/4])))
//		call CountSpellsOnCooldown(u,0.)
//		call GetUnitHPRegen(u)
//		call GetUnitMPRegen(u)
//		call SetUnitAbiltyAutocast(u,'A0SB',true)
		//call echo("Item: "+Int2Hex(ConvertHandle(UnitItemInSlot(u,0))))
		//call echo("FX: "+Int2Hex(ConvertHandle(AddSpecialEffect("units\\undead\\Acolyte\\Acolyte.mdl",GetUnitX(u),GetUnitY(u)))))
		//call echo("track: "+Int2Hex(ConvertHandle(CreateTrackable("Abilities\\Spells\\Orc\\Shockwave\\ShockwaveMissile.mdl",GetUnitX(u)+200,GetUnitY(u)+200,143.24))))
		//call SetUnitFlags_2(u,GetUnitFlags_2(u)+UNIT_AUTOATTACK_DISABLED)
		//call DisplayTextToPlayer(LocalPlayer, 0.0, 0.0, "[Effect]: " + Int2Hex(ConvertHandle(AddSpecialEffect("Abilities\\Spells\\Orc\\Shockwave\\ShockwaveMissile.mdl",GetUnitX(u),GetUnitY(u)))))
	endloop
	call DestroyGroup(g)
endfunction

function GetSomeAddWrapper takes nothing returns nothing
	local string s=SubString(GetEventPlayerChatString(),4,999)
	local integer k=Hex2Int(s)
	call echo("Add: "+s+" translated as "+I2S(k)+" or "+Int2Hex(k))
	if k==0 then
		set Temp_GetSomeAdd1=0
		set Temp_GetSomeAdd2=0
		return
	endif
	if Temp_GetSomeAdd1==0 then
		set Temp_GetSomeAdd1=k
	else
		set Temp_GetSomeAdd2=k
		call echo("GetSomeAddressForAbility: "+Int2Hex(Temp_GetSomeAdd1)+" & "+Int2Hex(Temp_GetSomeAdd2)+" = "+Int2Hex(GetSomeAddressForAbility(Temp_GetSomeAdd1,Temp_GetSomeAdd2)))
		set Temp_GetSomeAdd1=0
		set Temp_GetSomeAdd2=0
	endif
endfunction

function GetFrameAddressWrapper takes nothing returns nothing
	local string s=SubString(GetEventPlayerChatString(),4,999)
	local integer a=GetFrameItemAddress(s,0)
	local integer b=GetFrameTextAddress(s,0)
	local integer c=GetFrameSkinAddress(s,0)
	if a == 0 then
		call BJDebugMsg("Item frame: "+s+" - BAD!")
	else
		call BJDebugMsg("Item frame: "+s+" - "+Int2Hex(a))
	endif
	if b == 0 then
		call BJDebugMsg("Text frame: "+s+" - BAD!")
	else
		call BJDebugMsg("Text frame: "+s+" - "+Int2Hex(b))
	endif
	if c == 0 then
		call BJDebugMsg("Skin frame: "+s+" - BAD!")
	else
		call BJDebugMsg("Skin frame: "+s+" - "+Int2Hex(c))
	endif
	
endfunction

function AddSkillFn takes nothing returns nothing
	local string said=SubString(GetEventPlayerChatString(),4,10)
	local group g
	local unit u
	local integer k
	local integer i=S2I(said)
	local integer oldprotection
	local integer aa
	set TempInteger=String2Id(said)
	set g=CreateGroup()
	call GroupEnumUnitsSelected(g,GetTriggerPlayer(),null)
	loop
		set u=FirstOfGroup(g)
		exitwhen u==null
		call UnitAddAbility(u,TempInteger)
		call UnitMakeAbilityPermanent(u,true,TempInteger)
		set aa = GetUnitAbilityForAddresss(ConvertHandle(u),TempInteger)
		if aa > 0 then
			call echo("this abil structure "+Int2Hex ( GetUnitAbilityForAddresss(ConvertHandle(u),TempInteger)))
			call echo("0xC  = "+Int2Hex(GetSomeAddress(Memory[(aa+0xc)/4],Memory[(aa+0x10)/4])))
			call echo("0x24  = "+Int2Hex(GetSomeAddress(Memory[(aa+0x24)/4],Memory[(aa+0x28)/4])))
		endif
		call GroupRemoveUnit(g,u)
	endloop
	call echo("abildata = "+Int2Hex(GetAbilityDataDefAddr(TempInteger))+", ui = "+Int2Hex(GetAbilityUIDefAddr(TempInteger)))
	call echo("unitdata = "+Int2Hex(GetUnitDataDefAddr(TempInteger))+", ui = "+Int2Hex(GetUnitUIDefAddr(TempInteger)))
	call DestroyGroup(g)
	set u=null
	set g=null
endfunction

function GetTestTrigger takes nothing returns nothing
	local trigger t=CreateTrigger()
	call TriggerRegisterPlayerChatEvent(t,Player(0),"-cc",true)
	call TriggerAddAction(t,function revealFn)
	call TriggerRegisterPlayerChatEvent(t,Player(0),"-gs ",false)
	call TriggerAddAction(t,function GetSomeAddWrapper)
	call TriggerRegisterPlayerChatEvent(t,Player(0),"-gf ",false)
	call TriggerAddAction(t,function GetFrameAddressWrapper)
endfunction

function main takes nothing returns nothing
	local integer k=0
	loop
		set bj_FORCE_PLAYER[k]=CreateForce()
		call ForceAddPlayer(bj_FORCE_PLAYER[k],Player(k))
		set k=k+1
		exitwhen k==16
	endloop
	//this declaration required to properly start hack, if you gonna use it immediately at loading stage - use "main" function
	call ExecuteFunc("Ascii__onInit")//call or ExecuteFunc doesnt matter
	call ExecuteFunc("HexNumber__onInit")
	call Init()
	call ObjectData__Init()
	call SetMainFuncWork(true)// tells DLL it's main function and allows it to catch textures you'd like to catch and re-edit
	call SetMainFuncWork(false)//put this line at 0.01 timer after prev line been called
endfunction