Gui, Add, Button,gChangeMoneyColor1 x12 y60 w90 h30 , Rot
Gui, Add, Button,gChangeMoneyColor2 x12 y90 w90 h30 , Orange
Gui, Add, Button,gChangeMoneyColor3 x12 y120 w90 h30 , Gelb
Gui, Add, Button,gChangeMoneyColor4 x12 y150 w90 h30 , Blau
Gui, Add, Button,gChangeMoneyColor5 x12 y180 w90 h30 , Gruen
Gui, Add, Button,gChangeMoneyColor6 x12 y210 w90 h30 , Weis
Gui, Add, Text, x12 y20 w125 h30 , Farbe fuer Geldanzeige auswaehlen:
Gui, Add, Button,gChangeHealthColor1 x152 y60 w90 h30 , Rot
Gui, Add, Button,gChangeHealthColor2 x152 y90 w90 h30 , Orange
Gui, Add, Button,gChangeHealthColor3 x152 y120 w90 h30 , Gelb
Gui, Add, Button,gChangeHealthColor4 x152 y150 w90 h30 , Blau
Gui, Add, Button,gChangeHealthColor5 x152 y180 w90 h30 , Gruen
Gui, Add, Button,gChangeHealthColor6 x152 y210 w90 h30 , Weis
Gui, Add, Text, x152 y20 w125 h30 , Farbe fuer Lebensanzeige auswaehlen:
Gui, Add, Text, x12 y260 w50 h20 , Ingame:
Gui, Add, Text, x12 y280 w80 h90 , /healthred /healthorange /healthyellow /healthblue /healthgreen /healthwhite
Gui, Add, Text, x102 y280 w80 h90 , /moneyred /moneyorange /moneyyellow /moneyblue /moneygreen /moneywhite
Gui, Add, Text, x292 y20 w125 h30 , Farbe fuer Munition/Luft
Gui, Add, Text, x192 y280 w80 h90 , /bulletred /bulletorange /bulletyellow /bulletblue /bulletgreen /bulletwhite
Gui, Add, Button,gBulletColor1 x292 y60 w90 h30 , Rot
Gui, Add, Button,gBulletColor2 x292 y90 w90 h30 , Orange
Gui, Add, Button,gBulletColor3 x292 y120 w90 h30 , Gelb
Gui, Add, Button,gBulletColor4 x292 y150 w90 h30 , Blau
Gui, Add, Button,gBulletColor5 x292 y180 w90 h30 , Gruen
Gui, Add, Button,gBulletColor6 x292 y210 w90 h30 , Weis
Gui, Show, x127 y87 h379 w479, SA-MP AHK Colorer Private Version
Return

ReadMemory(MADDRESS,PROGRAM)
{
       winget, pid, PID, %PROGRAM%

       VarSetCapacity(MVALUE,4,0)
       ProcessHandle := DllCall("OpenProcess", "Int", 24, "Char", 0, "UInt", pid, "UInt")
       DllCall("ReadProcessMemory","UInt",ProcessHandle,"UInt",MADDRESS,"Str",MVALUE,"UInt",4,"UInt *",0)

       Loop 4
       result += *(&MVALUE + A_Index-1) << 8*(A_Index-1)

       return, result
}

ReadMemoryFloat(MADDRESS=0,PROGRAM="")
{
    Static OLDPROC, ProcessHandle
    VarSetCapacity(MVALUE,4,0)
    If PROGRAM != %OLDPROC%
    {
       WinGet, pid, pid, % OLDPROC := PROGRAM
       ProcessHandle := ( ProcessHandle ? 0*(closed:=DllCall("CloseHandle"
       ,"UInt",ProcessHandle)) : 0 )+(pid ? DllCall("OpenProcess"
       ,"Int",2035711,"Int",0,"UInt",pid) : 0)
    }
    If (ProcessHandle) && DllCall("ReadProcessMemory","UInt"
    ,ProcessHandle,"UInt",MADDRESS,"Str",MVALUE,"UInt",4,"UInt *",0)
    {
       MVALUE := *(&MVALUE+3)<<24 | *(&MVALUE+2)<<16 | *(&MVALUE+1)<<8 | *(&MVALUE)
       return (1-2*(MVALUE>>31)) * (2**((MVALUE>>23 & 255)-127)) * (1+(MVALUE & 8388607)/8388608)
    }
    return !ProcessHandle ? "Handle Closed: " closed : "Fail"
}

WriteProcessMemory(title,addresse,wert,size)  
{
VarSetCapacity(idvar,32,0)
VarSetCapacity(processhandle,32,0)
VarSetCapacity(value, 32, 0)
NumPut(wert,value,0,Uint)
address=%addresse%
WinGet ,idvar,PID,%title%
processhandle:=DllCall("OpenProcess","Uint",0x38,"int",0,"int",idvar)
Bvar:=DllCall("WriteProcessMemory","Uint",processhandle,"Uint",address+0,"Uint",&value,"Uint",size,"Uint",0)
}

ChangeMoneyColor1:
WriteProcessMemory("GTA:SA:MP",0xBAB230,0xFF0000FF,4)
Return

ChangeMoneyColor2:
WriteProcessMemory("GTA:SA:MP",0xBAB230,0xFF006EFF,4)
Return

ChangeMoneyColor3:
WriteProcessMemory("GTA:SA:MP",0xBAB230,0xFF00FFFFF,4)
Return

ChangeMoneyColor4:
WriteProcessMemory("GTA:SA:MP",0xBAB230,0xFFFF0000,4)
Return

ChangeMoneyColor5:
WriteProcessMemory("GTA:SA:MP",0xBAB230,0xFF00FF00,4)
Return

ChangeMoneyColor6:
WriteProcessMemory("GTA:SA:MP",0xBAB230,0xFFFFFFFF,4)
Return

ChangeHealthColor1:
WriteProcessMemory("GTA:SA:MP",0xBAB22C,0xFF0000FF,4)
Return

ChangeHealthColor2:
WriteProcessMemory("GTA:SA:MP",0xBAB22C,0xFF006EFF,4)
Return

ChangeHealthColor3:
WriteProcessMemory("GTA:SA:MP",0xBAB22C,0xFF00FFFFF,4)
Return

ChangeHealthColor4:
WriteProcessMemory("GTA:SA:MP",0xBAB22C,0xFFFF0000,4)
Return

ChangeHealthColor5:
WriteProcessMemory("GTA:SA:MP",0xBAB22C,0xFF00FF00,4)
Return

ChangeHealthColor6:
WriteProcessMemory("GTA:SA:MP",0xBAB22C,0xFFFFFFFF,4)
Return

BulletColor1:

WriteProcessMemory("GTA:SA:MP",0xBAB238,0xFF0000FF,4)
Return

BulletColor2:

WriteProcessMemory("GTA:SA:MP",0xBAB238,0xFF006EFF,4)
Return

BulletColor3:

WriteProcessMemory("GTA:SA:MP",0xBAB238,0xFF00FFFFF,4)
Return

BulletColor4:

WriteProcessMemory("GTA:SA:MP",0xBAB238,0xFFFF0000,4)
Return

BulletColor5:

WriteProcessMemory("GTA:SA:MP",0xBAB238,0xFF00FF00,4)
Return

BulletColor6:

WriteProcessMemory("GTA:SA:MP",0xBAB238,0xFFFFFFFF,4)
Return

:?:/moneyred::
WriteProcessMemory("GTA:SA:MP",0xBAB230,0xFF0000FF,4)
Return

:?:/moneyorange::
WriteProcessMemory("GTA:SA:MP",0xBAB230,0xFF006EFF,4)
Return

:?:/moneyyellow::
WriteProcessMemory("GTA:SA:MP",0xBAB230,0xFF00FFFFF,4)
Return

:?:/moneyblue::
WriteProcessMemory("GTA:SA:MP",0xBAB230,0xFFFF0000,4)
Return

:?:/moneygreen::
WriteProcessMemory("GTA:SA:MP",0xBAB230,0xFF00FF00,4)
Return

:?:/moneywhite::
WriteProcessMemory("GTA:SA:MP",0xBAB230,0xFFFFFFFF,4)
Return

:?:/healthred::
WriteProcessMemory("GTA:SA:MP",0xBAB22C,0xFF0000FF,4)
Return

:?:/healthorange::
WriteProcessMemory("GTA:SA:MP",0xBAB22C,0xFF006EFF,4)
Return

:?:/healthyellow::
WriteProcessMemory("GTA:SA:MP",0xBAB22C,0xFF00FFFFF,4)
Return

:?:/healthblue::
WriteProcessMemory("GTA:SA:MP",0xBAB22C,0xFFFF0000,4)
Return

:?:/healthgreen::
WriteProcessMemory("GTA:SA:MP",0xBAB22C,0xFF00FF00,4)
Return

:?:/healthwhite::
WriteProcessMemory("GTA:SA:MP",0xBAB22C,0xFFFFFFFF,4)
Return

:?:/bulletred::
WriteProcessMemory("GTA:SA:MP",0xBAB238,0xFF0000FF,4)
Return

:?:/bulletorange::
WriteProcessMemory("GTA:SA:MP",0xBAB238,0xFF006EFF,4)
Return

:?:/bulletyellow::
WriteProcessMemory("GTA:SA:MP",0xBAB238,0xFF00FFFF,4)
Return

:?:/bulletblue::
WriteProcessMemory("GTA:SA:MP",0xBAB238,0xFFFF0000,4)
Return

:?:/bulletgreen::
WriteProcessMemory("GTA:SA:MP",0xBAB238,0xFF00FF00,4)
Return

:?:/bulletwhite::
WriteProcessMemory("GTA:SA:MP",0xBAB238,0xFFFFFFFF,4)
Return

WriteProcessMemory(title,addresse,wert,size)   
{
VarSetCapacity(idvar,32,0)
VarSetCapacity(processhandle,32,0)
VarSetCapacity(value, 32, 0)
NumPut(wert,value,0,Uint)
address=%addresse%
WinGet ,idvar,PID,%title%
processhandle:=DllCall("OpenProcess","Uint",0x38,"int",0,"int",idvar)
Bvar:=DllCall("WriteProcessMemory","Uint",processhandle,"Uint",address+0,"Uint",&value,"Uint",size,"Uint",0)
}

WriteProcessMemory("GTA:SA:MP",Тут адресс,На что меняем,4число бит)