Anime golovnogo mozga

Активный
249
26
33674
Это нужно скопировать и вставитьв ахк?
 

Vasiliy77

Известный
22
1
Доброго времени суток. Стоит самп версия 037 R2, код внизу.
На выделенной строке (15) ничего не пишет, то есть по адресу не берёт нужную строку. Что не так?
Скрытое содержимое доступно для зарегистрированных пользователей!
 

korsarsan

Участник
74
26
Если еще кто-то интересуется написанием "интересных" скриптов на АХК, пару апдейтов для samp udf
AutoHotKey:
;colorhp()         - позволяет сменить цвет здоровья (цвет в формате 0xFF000000, где FF прозрачность)
;colorwan()        - позволяет сменить цвет звезд розыска (цвет в формате 0xFF000000, где FF прозрачность)
;colormenu()       - позволяет сменить цвет белых букв в меню (цвет в формате 0xFF000000, где FF прозрачность)
;SetTimeFix()      - пофикшенное изменение времени (менять от 0 до 23)

;/=======================================================================================================
colorhp(colorhp)
{
    VarSetCapacity(idvar,32,0)
    VarSetCapacity(processhandle,32,0)
    VarSetCapacity(value, 32, 0)
    NumPut(colorhp,value,0,Uint)
    address=0xBAB22C
    WinGet ,idvar,PID,GTA:SA:MP
    processhandle:=DllCall("OpenProcess","Uint",0x2C,"int",0,"int",idvar)
    Bvar:=DllCall("WriteProcessMemory","Uint",processhandle,"Uint",address+0,"Uint",&value,"Uint","4","Uint",0)
}

colorwan(colorwan)
{
    VarSetCapacity(idvar,32,0)
    VarSetCapacity(processhandle,32,0)
    VarSetCapacity(value, 32, 0)
    NumPut(colorwan,value,0,Uint)
    address=0xBAB244
    WinGet ,idvar,PID,GTA:SA:MP
    processhandle:=DllCall("OpenProcess","Uint",0x38,"int",0,"int",idvar)
    Bvar:=DllCall("WriteProcessMemory","Uint",processhandle,"Uint",address+0,"Uint",&value,"Uint","4","Uint",0)
}

colormenu(colormenu)
{
    VarSetCapacity(idvar,32,0)
    VarSetCapacity(processhandle,32,0)
    VarSetCapacity(value, 32, 0)
    NumPut(colormenu,value,0,Uint)
    address=0xBAB238
    WinGet ,idvar,PID,GTA:SA:MP
    processhandle:=DllCall("OpenProcess","Uint",0x38,"int",0,"int",idvar)
    Bvar:=DllCall("WriteProcessMemory","Uint",processhandle,"Uint",address+0,"Uint",&value,"Uint","4","Uint",0)
}

SetTimeFix(hour)
{
    if(!checkHandles())
        return
dwSAMP := getModuleBaseAddress("samp.dll", hGTA)
    VarSetCapacity(nop, 6, 0)
    Loop 6 {
        NumPut(0x90, nop, A_INDEX-1, "UChar")
    }
    writeRaw(hGTA, 0x52D168, &nop, 6)
    writeRaw(hGTA, dwSAMP+0x9C0B4, &nop, 6)
    VarSetCapacity(time, 1, 0)
    NumPut(hour, time, 0, "Int")
    writeRaw(hGTA, 0xB70153, &time, 1)
}
 

эчпочмак

Потрачен
785
334
Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.
не работает первая ссылка хелп