[14/08/09] LF2 DLL Framework

[genevrier]

I tried the range AI.

In rarara.Asm:

include range.inc
......

invoke JmpPatch, 0040AE1Ah, addr Range1
invoke WriteMem, 0040AE1Fh, addr FourNOP,4
invoke JmpPatch, 0040B227h, addr Range2
invoke JmpPatch, 0040B2DBh, addr Range3
invoke JmpPatch, 0040B393h, addr Range4
invoke JmpPatch, 00403878h, addr Deep_Ball
invoke WriteMem, 0040387Dh, addr doubleNOP,2

In range.inc

.Data
Range1_1 dd 0040AF5Dh
Range1_2 dd 0040AE35h
Range2_1 dd 0040B236h
Range2_2 dd 0040B23Bh
Range3_1 dd 0040B2EEh
Range3_2 dd 0040B374h
Range4_1 dd 0040B3ABh
Range4_2 dd 0040B5D8h

.Code
Range1 proc

cmp ecx,4
je short return
;cmp ecx,ID
;je short return
jmp dword ptr [Range1_2]
return: jmp dword ptr [Range1_1]

Range1 endp

Range2 proc

cmp eax,4
je short return
;cmp eax,ID
;je short return
jmp dword ptr [Range2_2]
return: jmp dword ptr [Range2_1]

Range2 endp

Range3 proc

cmp eax,4
je short return
;cmp eax,ID
;je short return
jmp dword ptr [Range3_2]
return: jmp dword ptr [Range3_1]

Range3 endp

Range4 proc

cmp eax,4
je short return
;cmp eax,ID
;je short return
jmp dword ptr [Range4_2]
return: jmp dword ptr [Range4_1]

Range4 endp

Now I am dealing with the part of Deep D>A.

The part for Deep D>A (D>A range AI):

Spoiler (Click to View)

Deep_Ball_1 dd 00403885h
Deep_Ball_2 dd 0040392Eh
Deep_Ball_3 dd 004038DCh
Deep_Ball_4 dd 0040392Eh
Deep_Ball_C1 dd 004451C0h
Deep_Ball_C2 dd 00403270h

Spoiler (Click to View)

Deep_Ball proc

cmp dword ptr ds:[ecx+6F4h],1 ; check if ID is 1
je short return ; go to the normal D>A AI for Deep
cmp dword ptr ds:[ecx+6F4h],55 ; check if ID is 55 (your character)
je short Range_Other ; go to Range_Other part if ID is 55
jmp dword ptr [Deep_Ball_2]
return:
jmp dword ptr [Deep_Ball_1]

Range_Other:
mov edx,dword ptr ss:[esp+14h]
mov ebp,dword ptr ds:[esi+edx*4+194h]
fld qword ptr ss:[ebp+40h]
mov ebx,dword ptr ds:[eax+10h]
call dword ptr [Deep_Ball_C1]
mov ecx,dword ptr ss:[ebp+10h]
lea edx,dword ptr ds:[ecx+eax*2]
sub edx,ebx
push edx
call dword ptr [Deep_Ball_C2]
add esp,4
cmp eax,100 ; lower boundary 100
jle short Out_of_range ; won't use D>A when <= 100
mov eax,dword ptr ss:[esp+14h]
mov ebp,dword ptr ds:[esi+eax*4+194h]
fld qword ptr ss:[ebp+40h]
call dword ptr [Deep_Ball_C1]
mov ecx,dword ptr ss:[ebp+10h]
lea edx,dword ptr ds:[ecx+eax*2]
sub edx,ebx
push edx
call dword ptr [Deep_Ball_C2]
add esp,4
cmp eax,300 ; upper boundary 300
jge short Out_of_range ; won't use D>A when >= 300
jmp dword ptr [Deep_Ball_3]

Out_of_range:
jmp dword ptr [Deep_Ball_4]

Deep_Ball endp

(Have not been checked)

Edit: The code is OK.