Добавлен , опубликован
Алгоритмы, Наработки и Способности
Способ реализации:
Jass
Тип:
Наработка
Версия Warcraft:
1.26\1.27
Собственно обновленный детект типов урона и атаки от DracoL1ch, который позволяет отловить все параметры урона, такие как атака ближнего\дальнего боя, тип атаки, тип урона, изначальный урон без учета резистов.
Для работы этого хака нужна последняя версия мемхака, который приложен ниже.
сам хак

globals
	integer DamageIncrementer = 0
	integer array DamageAttackTypes
	integer array DamageDamageTypes
	real array DamageValues
	//прочие переменные есть в самом мемхаке
endglobals

function TestMissileHandlerWorker takes nothing returns nothing
    local integer offset=RMem(pDamageEspData)
    local integer target=RMem(pDamageTarget)
   
    if offset>0 then
        set offset=Memory[offset/4+2]//RMem(offset+0x8)
    endif
    if DamageIncrementer>8000 then
        set DamageIncrementer=10
    endif
    set DamageIncrementer=DamageIncrementer+1
    //call BJDebugMsg("dmg event "+I2S(DamageIncrementer)+" source="+Id2String(RMem(target+0x30))+" val="+R2S(mI2R(Memory[offset/4+0x10/4])))
    if offset>0 then
        set DamageAttackTypes[DamageIncrementer]=Memory[offset/4+0x20/4]//RMem(offset+0x20)
        set DamageDamageTypes[DamageIncrementer]=Memory[offset/4+0x14/4]//RMem(offset+0x14)
        set DamageValues[DamageIncrementer]=mI2R(Memory[offset/4+0x10/4])//RMem(offset+0x10))
        //call ExecuteFunc("PreDamageWorker")
    endif
endfunction
 
function TestMissileHandler takes nothing returns nothing
    call TestMissileHandlerWorker( )
//  local integer offset=RMem(RMem(pDamageEspData)+0x8)
//  if DamageIncrementer>8000 then
//      set DamageIncrementer=10
//  endif
//  set DamageIncrementer=DamageIncrementer+1
//  set DamageValues[DamageIncrementer]=mI2R(RMem(offset+0x10))
//  set DamageAttackTypes[DamageIncrementer]=RMem(offset+0x20)
//  set DamageDamageTypes[DamageIncrementer]=RMem(offset+0x14)
//  call TestIfdamageHookCrash()
//  return
//  call ExecuteFunc("PreDamageWorker")
    //Barrage missiles always have 0x8 == 0x10000000
//  call BJDebugMsg("Target" + Int2Hex(RMem(pDamageTarget)))
//  call BJDebugMsg(Int2Hex(RMem(RMem(RMem(pDamageEspData)+0x8)+0x0)))//source
//  call BJDebugMsg(Int2Hex(RMem(RMem(RMem(pDamageEspData)+0x8)+0x8)))//proj or link onto something
// 
//  call BJDebugMsg(Int2Hex(RMem(RMem(RMem(pDamageEspData)+0x8)+0xC)))//0x101 == ranged, 0x100 == melee
//  call BJDebugMsg("Damage:" + R2S(mI2R(RMem(RMem(RMem(pDamageEspData)+0x8)+0x10))))//damage val
endfunction
 
function InitializeDamageHandler takes integer pTriggerHandle returns nothing
    local integer pUnitDamageHandler = pUnitVtable+0x120
    local integer oldprotection = ChangeOffsetProtection(pUnitDamageHandler,4,0x40)
    set Memory[pReservedMemoryForDamageHandler/4+0]=0xB890C08B
    set Memory[pReservedMemoryForDamageHandler/4+1]=pDamageTarget
    set Memory[pReservedMemoryForDamageHandler/4+2]=0xB8900889
    set Memory[pReservedMemoryForDamageHandler/4+3]=pDamageEspData
    set Memory[pReservedMemoryForDamageHandler/4+4]=0x68602089
    set Memory[pReservedMemoryForDamageHandler/4+5]=pTriggerHandle
    set Memory[pReservedMemoryForDamageHandler/4+6]=0xB890C08B
    set Memory[pReservedMemoryForDamageHandler/4+7]=pTriggerExecute
    set Memory[pReservedMemoryForDamageHandler/4+8]=0xC483D0FF
    set Memory[pReservedMemoryForDamageHandler/4+9]=0xB8906104
    set Memory[pReservedMemoryForDamageHandler/4+10]=pRealUnitDamageHandler
    set Memory[pReservedMemoryForDamageHandler/4+11]=0xCCCCE0FF
 
     //call BJDebugMsg(Int2Hex(pReservedMemoryForDamageHandler))
   
    call WMem(pUnitDamageHandler,pReservedMemoryForDamageHandler)
   
    set oldprotection = ChangeOffsetProtection(pUnitDamageHandler,4,oldprotection)
   
endfunction
Инициализация хака
	set t=CreateTrigger()
    call TriggerAddAction(t,function TestMissileHandler)
    call InitializeDamageHandler(GetHandleId(t))
	//далее уже делаем что хотим в функции TestMissileHandler )
А вот еще одна полезная функция:
Проверка типа урона
Кто уже скачал систему заметил, что тип атаки это числа от 0 до 6, каждый тип имеет свое число, задается через ConvertDamageType(N)
Но как же быть с типом урона, система выводит на экран какие то числа от 0 до нескольких тысяч, которые не похожи на damagetype, как же их превратить в тип урона, если ConvertDamageType() возвращает null с этих чисел? А вот как, код приведенный ниже поможет вам сопоставить константы типов урона и выведенные системой данные:
function DT2DT takes integer k returns integer
    local integer i = 1
    if k == 0 then
        return 0
    endif
    loop
        exitwhen k / 2 <= 1
        set i = i + 1
        set k = k / 2
    endloop
    return i
endfunction

	//пример использования:
	ConvertDamageType(DT2DT(dmgTypeHex))==DAMAGE_TYPE_FIRE

Показан только небольшой набор комментариев вокруг указанного. Перейти к актуальным.
Этот комментарий удален
0
32
7 лет назад
0
Надо же, нет ни 1 вопроса, у всех все работает. Какая радость.
4
22
7 лет назад
4
У меня куча вопросов, но пока что у меня 04:08 по времени и я думаю,, что не стоит на утро тестить :D
0
32
7 лет назад
0
Bornikkeny, ну слушаю...
1
7
7 лет назад
1
Как с этим вообще можно разобраться?
Код в шапке и в примере(карте) разный. Более того, в карте такой бардак, что пока найдешь что-нибудь и поймешь за что это отвечает, можно состариться. Словом, жуть какая-то =)
  • зачем здесь используется массив? - это что-то связанное с дотой, т.е. для работоспособности он не требуется?
  • как получить юнитов (GetTriggerUnit() и GetEventDamageSource() возвращают null)?
Вроде бы есть target, но это integer => нужно что-то типа Int2Unit();
Я не сразу понял, что offset == источник урона (DamageSource), мб тогда изменить имя переменной?
  • если перезаписать значение урона до расчета брони, не будет ли проблем?
0
23
7 лет назад
0
Ige, узнать цель и атакующий есть уже в мемхак переменная это
цель
call BJDebugMsg("Target" + Int2Hex(RMem(pDamageTarget)))
Атакующий
call BJDebugMsg(Int2Hex(RMem(RMem(RMem(pDamageEspData)+0x8)+0x0)))//source
1
7
7 лет назад
1
pro100master, как с помощью этого получить юнита(ов)?
0
23
7 лет назад
0
Ige, Тебе наверно рано еше такой делать, бери готовых библиотек. Как освоиш чуток. То поймеш =)
Показан только небольшой набор комментариев вокруг указанного. Перейти к актуальным.
Чтобы оставить комментарий, пожалуйста, войдите на сайт.