21090
"INFINITE RUSH TEAM NO ENEMIES"
Auto Assembler Script
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
alloc(newmem1,2048,"StarOceanTheLastHope.exe"+54B0F6)
label(returnhere1)
StarOceanTheLastHope.exe+54B149: // 14054B149
db 90 90 90 90 90 90 90 // nop mov [rbx+127B8],00
newmem1:
push rcx
cmp [rcx+000127B8+D0],0
je @skip
mov byte ptr [rcx+000127B8],01
cmp byte ptr [rcx+000127B8],00
@skip:
pop rcx
cmp byte ptr [rcx+000127B8],00
jmp returnhere1
"StarOceanTheLastHope.exe"+54B0F6:
jmp newmem1
nop
nop
returnhere1:
alloc(newmem2,2048,"StarOceanTheLastHope.exe"+3372310)
label(returnhere2)
label(do_original)
label(cont)
alloc(MyMem, 4)
MyMem:
dd (float)0
newmem2:
// cmp sobre el offset correcto (0x127B4 + 0xD4 = 0x12888)
cmp [rcx+000127B4+D4],0
jne do_original
// Si es 0 -> escribimos 0 (MyMem) en [rcx+0x127B4]
xorps xmm1, xmm1
movss [rcx+000127B4],xmm1
jmp cont
do_original:
// Ejecutamos la instrucción original que fue sobrescrita
movss [rcx+000127B4],xmm1
cont:
// Volvemos a la ejecución normal (inmediatamente después de los bytes sobrescritos)
jmp returnhere2
"StarOceanTheLastHope.exe"+3372310:
jmp newmem2
nop
nop
nop
returnhere2:
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
dealloc(newmem1)
StarOceanTheLastHope.exe+54B149: // 14054B149
db C6 83 B8 27 01 00 00 // restaura original
"StarOceanTheLastHope.exe"+54B0F6:
db 80 B9 B8 27 01 00 00
//cmp byte ptr [rcx+000127B8],00
dealloc(newmem2)
dealloc(MyMem)
"StarOceanTheLastHope.exe"+3372310:
db F3 0F 11 89 B4 27 01 00
//movss [rcx+000127B4],xmm1
21080
"VAC HACK X"
Auto Assembler Script
[ENABLE]
alloc(newmem,2048,"StarOceanTheLastHope.exe"+33E33FB)
label(returnhere)
alloc(MyMem, 4)
MyMem:
//float
dd (float)550
newmem:
push rax
push rbx
mov eax,[rbx+1E0]
cmp eax,3 // si es aliado (3), saltar
je short @skip
movss xmm0,[MyMem] // fuerza coordenada = 550 para enemigos
@skip:
pop rbx
pop rax
movss [rbx],xmm0 // instrucción original (ahora ya con el valor modificado)
movss xmm0,[rsp+28]
jmp returnhere
"StarOceanTheLastHope.exe"+33E33FB:
jmp newmem
nop 5
returnhere:
[DISABLE]
dealloc(newmem)
"StarOceanTheLastHope.exe"+33E33FB:
db F3 0F 11 03 F3 0F 10 44 24 28
21087
"VAC HACK Y"
Auto Assembler Script
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
alloc(newmem,2048,"StarOceanTheLastHope.exe"+33E340F)
label(returnhere)
alloc(MyMem, 4)
MyMem:
//float
dd (float)550
newmem:
push rax
push rbx
mov eax,[rbx+1E0]
cmp eax,3 // si es aliado (3), saltar
je short @skip
movss xmm0,[MyMem] // fuerza coordenada = 550 para enemigos
@skip:
pop rbx
pop rax
movss [rbx+08],xmm0
jmp returnhere
"StarOceanTheLastHope.exe"+33E340F:
jmp newmem
returnhere:
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
dealloc(newmem)
"StarOceanTheLastHope.exe"+33E340F:
db F3 0F 11 43 08
//movss [rbx+08],xmm0
21072
"ENEMIES 1 HP"
Auto Assembler Script
[ENABLE]
// Hook directo en StarOceanTheLastHope.exe+526630
alloc(newmem,2048,"StarOceanTheLastHope.exe"+526630)
label(returnhere)
newmem:
push rax
// ========================
// Comprobación: solo aplicar a enemigos
cmp byte ptr [rcx+7C4+54],F0
je short @skip
// Lee HP actual
mov eax,[rcx+7C4]
cmp eax,1
jle short @skip // si HP <= 1, no tocar
mov dword ptr [rcx+7C4],1 // pone HP a 1 (solo enemigos)
@skip:
pop rax
// --- instrucción original ---
mov eax,[rcx+000007C4]
jmp returnhere
"StarOceanTheLastHope.exe"+526630:
jmp newmem
nop
returnhere:
[DISABLE]
dealloc(newmem)
"StarOceanTheLastHope.exe"+526630:
db 8B 81 C4 07 00 00
//mov eax,[rcx+000007C4]
21095
"TEST DOBLE X"
Auto Assembler Script
[ENABLE]
alloc(newmem,2048,"StarOceanTheLastHope.exe"+33E33FB)
label(returnhere)
alloc(FrameToggle, 1)
alloc(PlusFive, 4)
alloc(MinusFive, 4)
alloc(RBXbackup, 8)
alloc(SavedRspVal, 4)
alloc(MyMem, 4)
MyMem:
//float
dd (float)550
FrameToggle:
db 0
PlusFive:
dd (float)600.0
MinusFive:
dd (float)-600.0
RBXbackup:
dq 0
SavedRspVal:
dd 0
newmem:
// --- Guardar rbx (no usamos push/pop)
// mov [RBXbackup], rbx
cmp byte ptr [rbx+2EC],01
je short @skip_enemy_force
movss [rbx], xmm0
jmp @after_write
@skip_enemy_force:
// --- Alternador frame (0/1)
mov al, [FrameToggle]
xor al, 1
mov [FrameToggle], al
cmp al, 1
jne @write_minus
addss xmm0, [PlusFive]
movss [rbx], xmm0
jmp @after_write
@write_minus:
addss xmm0, [MinusFive]
movss [rbx], xmm0
@after_write:
movss xmm0,[rsp+28]
// --- Restaurar rbx
// mov rbx, [RBXbackup]
jmp returnhere
"StarOceanTheLastHope.exe"+33E33FB:
jmp newmem
nop 5
returnhere:
[DISABLE]
dealloc(newmem)
dealloc(FrameToggle)
dealloc(PlusFive)
dealloc(MinusFive)
dealloc(RBXbackup)
dealloc(SavedRspVal)
dealloc(MyMem)
"StarOceanTheLastHope.exe"+33E33FB:
db F3 0F 11 03 F3 0F 10 44 24 28
21157
"camara x script"
Auto Assembler Script
[ENABLE]
// --- Inyección segura ---
alloc(newmem,2048,"StarOceanTheLastHope.exe"+55EDEA)
label(returnhere)
alloc(FrameToggle,1)
alloc(PlusOffset,4)
alloc(MinusOffset,4)
FrameToggle:
db 0
PlusOffset:
dd (float)600.0
MinusOffset:
dd (float)-600.0
newmem:
// Ejecutar la instrucción original (preservar side-effect)
mov eax,[rbx+80]
// Alternador 0/1
mov al,[FrameToggle]
xor al,1
mov [FrameToggle],al
cmp al,1
jne short @write_minus
// Añadir +50.0 al float en [rbx+80]
movss xmm0,[MinusOffset] // xmm0 = +50.0
movss xmm1,[rbx+80] // xmm1 = original float
addss xmm1,xmm0 // xmm1 = original + 50.0
movss [rbx+80],xmm1 // store back
movd eax,xmm1 // actualizar eax con los 32 bits resultantes
jmp short @after_write
@write_minus:
// Añadir -50.0 al float en [rbx+80]
movss xmm0,[PlusOffset] // xmm0 = -50.0
movss xmm1,[rbx+80] // xmm1 = original float
addss xmm1,xmm0 // xmm1 = original - 50.0
movss [rbx+80],xmm1
movd eax,xmm1 // actualizar eax con los 32 bits resultantes
@after_write:
jmp returnhere
"StarOceanTheLastHope.exe"+55EDEA:
jmp newmem
nop
returnhere:
[DISABLE]
dealloc(newmem)
dealloc(FrameToggle)
dealloc(PlusOffset)
dealloc(MinusOffset)
"StarOceanTheLastHope.exe"+55EDEA:
db 8B 83 80 00 00 00
// mov eax,[rbx+00000080]
21096
"TEST DOBLE Y"
Auto Assembler Script
[ENABLE]
alloc(newmem,2048,"StarOceanTheLastHope.exe"+33E340F)
label(returnhere)
alloc(FrameToggle, 1)
alloc(PlusFive, 4)
alloc(MinusFive, 4)
FrameToggle:
db 0
PlusFive:
dd (float)600.0
MinusFive:
dd (float)-600.0
RBXbackup:
dq 0
SavedRspVal:
dd 0
newmem:
// --- Guardar rbx (no usamos push/pop)
// mov [RBXbackup], rbx
// --- Si quieres mantener el comportamiento anterior que ponía enemigos a 550:
cmp byte ptr [rbx+1E0],03
je @skip_enemy_force
movss [rbx+08], xmm0
@skip_enemy_force:
// --- Alternador frame (0/1)
mov al, [FrameToggle]
xor al, 1
mov [FrameToggle], al
cmp al, 1
jne @write_minus
addss xmm0, [PlusFive]
movss [rbx+08], xmm0
jmp @after_write
@write_minus:
addss xmm0, [MinusFive]
movss [rbx+08], xmm0
@after_write:
jmp returnhere
"StarOceanTheLastHope.exe"+33E340F:
jmp newmem
returnhere:
[DISABLE]
dealloc(newmem)
dealloc(FrameToggle)
dealloc(PlusFive)
dealloc(MinusFive)
"StarOceanTheLastHope.exe"+33E340F:
db F3 0F 11 43 08
// movss [rbx+08],xmm0
21164
"camara y script"
Auto Assembler Script
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
alloc(newmem,2048,"StarOceanTheLastHope.exe"+55EDFC)
label(returnhere)
alloc(FrameToggle,1)
alloc(PlusOffset,4)
alloc(MinusOffset,4)
FrameToggle:
db 0
PlusOffset:
dd (float)600.0
MinusOffset:
dd (float)-600.0
newmem:
// Ejecutar la instrucción original (preservar side-effect)
mov eax,[rbx+00000088]
// Alternador 0/1
mov al,[FrameToggle]
xor al,1
mov [FrameToggle],al
cmp al,1
jne short @write_minus
// Añadir +50.0 al float en [rbx+80]
movss xmm0,[MinusOffset] // xmm0 = +50.0
movss xmm1,[rbx+00000088] // xmm1 = original float
addss xmm1,xmm0 // xmm1 = original + 50.0
movss [rbx+00000088],xmm1 // store back
movd eax,xmm1 // actualizar eax con los 32 bits resultantes
jmp short @after_write
@write_minus:
// Añadir -50.0 al float en [rbx+80]
movss xmm0,[PlusOffset] // xmm0 = -50.0
movss xmm1,[rbx+00000088] // xmm1 = original float
addss xmm1,xmm0 // xmm1 = original - 50.0
movss [rbx+00000088],xmm1
movd eax,xmm1 // actualizar eax con los 32 bits resultantes
@after_write:
jmp returnhere
"StarOceanTheLastHope.exe"+55EDFC:
jmp newmem
nop
returnhere:
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
dealloc(newmem)
dealloc(FrameToggle)
dealloc(PlusOffset)
dealloc(MinusOffset)
"StarOceanTheLastHope.exe"+55EDFC:
db 8B 83 88 00 00 00
//mov eax,[rbx+00000088]
21111
"One Hit Kill"
Auto Assembler Script
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
alloc(newmem,2048,"StarOceanTheLastHope.exe"+7606C3)
label(returnhere)
newmem:
cmp byte ptr [rdi+1C+54],F0
je @ally
mov ebx,0
@ally:
mov [rdi+1C],ebx
test ebx,ebx
jmp returnhere
"StarOceanTheLastHope.exe"+7606C3:
jmp newmem
returnhere:
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
dealloc(newmem)
"StarOceanTheLastHope.exe"+7606C3:
db 89 5F 1C 85 DB
//mov [rdi+1C],ebx
//test ebx,ebx
0
"AUTO FLEE"
Auto Assembler Script
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
alloc(newmem,2048,"StarOceanTheLastHope.exe"+51100A) // 14051100A
label(returnhere)
label(originalcode)
label(exit)
newmem:
mov rcx,rbx
call 140515690
xor edx,edx
mov rcx,rbx
call 140512AA0
mov rcx,rbx
add rsp,20
pop rbx
jmp 1405199A0
add rsp,20
pop rbx
ret
originalcode:
exit:
jmp returnhere
"StarOceanTheLastHope.exe"+51100A:
jmp newmem
returnhere:
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
dealloc(newmem)
"StarOceanTheLastHope.exe"+51100A: // 14051100A
db FF E1 48 8B CB
//jmp rcx
//mov rcx,rbx
21175
"NO HITSTOP"
Auto Assembler Script
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
alloc(newmem,2048,"StarOceanTheLastHope.exe"+547A7F)
label(returnhere)
label(originalcode)
label(exit)
newmem: //this is allocated memory, you have read,write,execute access
//place your code here
jmp StarOceanTheLastHope.exe+547B27
originalcode:
exit:
jmp returnhere
"StarOceanTheLastHope.exe"+547A7F:
jmp newmem
nop
returnhere:
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
dealloc(newmem)
"StarOceanTheLastHope.exe"+547A7F:
db 48 8B 01 49 8B F0
//mov rax,[rcx]
//mov rsi,r8
21092
"DISPLAY ENMIES HP"
1
0
21063
"Entity Base HP"
Auto Assembler Script
[ENABLE]
// Hook directo en StarOceanTheLastHope.exe+526630
alloc(newmem,2048,"StarOceanTheLastHope.exe"+526630)
alloc(HPList1,8)
alloc(HPList2,8)
alloc(HPList3,8)
alloc(HPList4,8)
alloc(HPList5,8)
alloc(HPList6,8)
alloc(HPList7,8)
alloc(HPList8,8)
label(returnhere)
label(originalcode)
label(skip)
registersymbol(HPList1)
registersymbol(HPList2)
registersymbol(HPList3)
registersymbol(HPList4)
registersymbol(HPList5)
registersymbol(HPList6)
registersymbol(HPList7)
registersymbol(HPList8)
newmem:
push rax
push rcx
// ----------------------------
// dirección base de HP (de la primera entidad)
mov rax,[rcx+7C4]
cmp rax,0
je skip
mov [HPList1],rax
// generar las siguientes 7 sumando 0x2000 cada vez
mov rax,[rcx+7C4+20000]
cmp rax,0
je skip
mov [HPList2],rax
// generar las siguientes 7 sumando 0x2000 cada vez
mov rax,[rcx+7C4+40000]
cmp rax,0
je skip
mov [HPList3],rax
// generar las siguientes 7 sumando 0x2000 cada vez
mov rax,[rcx+7C4+60000]
cmp rax,0
je skip
mov [HPList4],rax
// generar las siguientes 7 sumando 0x2000 cada vez
mov rax,[rcx+7C4+80000]
cmp rax,0
je skip
mov [HPList5],rax
// generar las siguientes 7 sumando 0x2000 cada vez
mov rax,[rcx+7C4+100000]
cmp rax,0
je skip
mov [HPList6],rax
// generar las siguientes 7 sumando 0x2000 cada vez
mov rax,[rcx+7C4+120000]
cmp rax,0
je skip
mov [HPList7],rax
// generar las siguientes 7 sumando 0x2000 cada vez
mov rax,[rcx+7C4+140000]
cmp rax,0
je skip
mov [HPList8],rax
skip:
// ----------------------------
pop rcx
pop rax
originalcode:
// --- instrucción original ---
mov eax,[rcx+000007C4]
jmp returnhere
"StarOceanTheLastHope.exe"+526630:
jmp newmem
nop
returnhere:
[DISABLE]
unregistersymbol(HPList1)
unregistersymbol(HPList2)
unregistersymbol(HPList3)
unregistersymbol(HPList4)
unregistersymbol(HPList5)
unregistersymbol(HPList6)
unregistersymbol(HPList7)
unregistersymbol(HPList8)
dealloc(newmem)
dealloc(HPList1)
dealloc(HPList2)
dealloc(HPList3)
dealloc(HPList4)
dealloc(HPList5)
dealloc(HPList6)
dealloc(HPList7)
dealloc(HPList8)
"StarOceanTheLastHope.exe"+526630:
db 8B 81 C4 07 00 00
//mov eax,[rcx+000007C4]
21064
"HPList1"
0
4 Bytes
HPList1
21065
"HPList2"
0
4 Bytes
HPList2
21066
"HPList3"
0
4 Bytes
HPList3
21071
"HPList4"
0
4 Bytes
HPList4
21070
"HPList5"
0
4 Bytes
HPList5
21069
"HPList6"
0
4 Bytes
HPList6
21068
"HPList7"
0
4 Bytes
HPList7
21067
"HPList8"
0
4 Bytes
HPList8
21184
"No Random Battles"
Auto Assembler Script
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
alloc(newmem,2048,"StarOceanTheLastHope.exe"+7F2CCC)
label(returnhere)
label(originalcode)
label(exit)
alloc(My150,4)
My150:
dd (float)150.0
newmem:
// Escribir 150.0 en [r14+0x1500]
movss xmm0,[My150] // cargamos 150 en xmm0 temporal
movss [r14+00001500],xmm0 // escribimos 150 en la memoria objetivo
// Ahora ejecutamos la instrucción original: cargar xmm0 desde memoria (ahora =150)
movss xmm0,[r14+00001500]
originalcode:
exit:
jmp returnhere
"StarOceanTheLastHope.exe"+7F2CCC:
jmp newmem
nop 4
returnhere:
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
dealloc(newmem)
dealloc(My150)
"StarOceanTheLastHope.exe"+7F2CCC:
db F3 41 0F 10 86 00 15 00 00
//movss xmm0,[r14+00001500]
21185
"NO HITSTOP AOB"
Auto Assembler Script
{ Game : StarOceanTheLastHope.exe
Version:
Date : 2025-10-16
Author : ivanb
This script does blah blah blah
}
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
aobscanmodule(INJECT,StarOceanTheLastHope.exe,48 8B 01 49 8B F0 48 8B FA 48 8B D9 FF 90 C0) // should be unique
alloc(newmem,$1000,INJECT)
label(code)
label(return)
newmem:
add rsp,20
pop rdi
ret
code:
INJECT:
jmp newmem
nop
return:
registersymbol(INJECT)
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
INJECT:
db 48 8B 01 49 8B F0
unregistersymbol(INJECT)
dealloc(newmem)
{
// ORIGINAL CODE - INJECTION POINT: StarOceanTheLastHope.exe+547A7F
StarOceanTheLastHope.exe+547A67: 48 83 C4 20 - add rsp,20
StarOceanTheLastHope.exe+547A6B: 5B - pop rbx
StarOceanTheLastHope.exe+547A6C: C3 - ret
StarOceanTheLastHope.exe+547A6D: CC - int 3
StarOceanTheLastHope.exe+547A6E: CC - int 3
StarOceanTheLastHope.exe+547A6F: CC - int 3
StarOceanTheLastHope.exe+547A70: 48 89 5C 24 08 - mov [rsp+08],rbx
StarOceanTheLastHope.exe+547A75: 48 89 74 24 10 - mov [rsp+10],rsi
StarOceanTheLastHope.exe+547A7A: 57 - push rdi
StarOceanTheLastHope.exe+547A7B: 48 83 EC 20 - sub rsp,20
// ---------- INJECTING HERE ----------
StarOceanTheLastHope.exe+547A7F: 48 8B 01 - mov rax,[rcx]
// ---------- DONE INJECTING ----------
StarOceanTheLastHope.exe+547A82: 49 8B F0 - mov rsi,r8
StarOceanTheLastHope.exe+547A85: 48 8B FA - mov rdi,rdx
StarOceanTheLastHope.exe+547A88: 48 8B D9 - mov rbx,rcx
StarOceanTheLastHope.exe+547A8B: FF 90 C0 02 00 00 - call qword ptr [rax+000002C0]
StarOceanTheLastHope.exe+547A91: 48 8B 07 - mov rax,[rdi]
StarOceanTheLastHope.exe+547A94: 4C 8B C6 - mov r8,rsi
StarOceanTheLastHope.exe+547A97: 48 8B D3 - mov rdx,rbx
StarOceanTheLastHope.exe+547A9A: 48 8B CF - mov rcx,rdi
StarOceanTheLastHope.exe+547A9D: FF 90 B8 02 00 00 - call qword ptr [rax+000002B8]
StarOceanTheLastHope.exe+547AA3: 80 BF 12 1F 01 00 00 - cmp byte ptr [rdi+00011F12],00
}
21186
"No Random Battles AOB"
Auto Assembler Script
{ Game : StarOceanTheLastHope.exe
Version:
Date : 2025-10-16
Author : ivanb
This script does blah blah blah
}
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
aobscanmodule(INJECT,StarOceanTheLastHope.exe,F3 41 0F 10 86 00 15 00 00 0F) // should be unique
alloc(newmem,$1000,INJECT)
label(code)
label(return)
alloc(My150,4)
My150:
dd (float)150.0
newmem:
movss xmm0,[My150]
movss [r14+00001500],xmm0
movss xmm0,[r14+00001500]
jmp return
code:
INJECT:
jmp newmem
nop 4
return:
registersymbol(INJECT)
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
INJECT:
db F3 41 0F 10 86 00 15 00 00
unregistersymbol(INJECT)
dealloc(newmem)
dealloc(My150)
{
// ORIGINAL CODE - INJECTION POINT: StarOceanTheLastHope.exe+7F2CCC
StarOceanTheLastHope.exe+7F2C90: 76 2D - jna StarOceanTheLastHope.exe+7F2CBF
StarOceanTheLastHope.exe+7F2C92: 48 8D 0D 07 F5 74 00 - lea rcx,[StarOceanTheLastHope.exe+F421A0]
StarOceanTheLastHope.exe+7F2C99: E8 A2 C9 FB FF - call StarOceanTheLastHope.exe+7AF640
StarOceanTheLastHope.exe+7F2C9E: F3 0F 10 8B B4 19 00 00 - movss xmm1,[rbx+000019B4]
StarOceanTheLastHope.exe+7F2CA6: F3 0F 59 05 02 AF 11 00 - mulss xmm0,[StarOceanTheLastHope.exe+90DBB0]
StarOceanTheLastHope.exe+7F2CAE: F3 0F 5C C8 - subss xmm1,xmm0
StarOceanTheLastHope.exe+7F2CB2: F3 0F 11 8B B4 19 00 00 - movss [rbx+000019B4],xmm1
StarOceanTheLastHope.exe+7F2CBA: E9 D7 01 00 00 - jmp StarOceanTheLastHope.exe+7F2E96
StarOceanTheLastHope.exe+7F2CBF: 40 38 B3 C4 19 00 00 - cmp [rbx+000019C4],sil
StarOceanTheLastHope.exe+7F2CC6: 0F 84 CA 01 00 00 - je StarOceanTheLastHope.exe+7F2E96
// ---------- INJECTING HERE ----------
StarOceanTheLastHope.exe+7F2CCC: F3 41 0F 10 86 00 15 00 00 - movss xmm0,[r14+00001500]
// ---------- DONE INJECTING ----------
StarOceanTheLastHope.exe+7F2CD5: 0F 2F C6 - comiss xmm0,xmm6
StarOceanTheLastHope.exe+7F2CD8: 0F 87 B8 01 00 00 - ja StarOceanTheLastHope.exe+7F2E96
StarOceanTheLastHope.exe+7F2CDE: 41 F6 86 2B 16 00 00 08 - test byte ptr [r14+0000162B],08
StarOceanTheLastHope.exe+7F2CE6: 0F 85 AA 01 00 00 - jne StarOceanTheLastHope.exe+7F2E96
StarOceanTheLastHope.exe+7F2CEC: 48 8D 0D AD F4 74 00 - lea rcx,[StarOceanTheLastHope.exe+F421A0]
StarOceanTheLastHope.exe+7F2CF3: BA 80 00 00 00 - mov edx,00000080
StarOceanTheLastHope.exe+7F2CF8: E8 53 CB FB FF - call StarOceanTheLastHope.exe+7AF850
StarOceanTheLastHope.exe+7F2CFD: 84 C0 - test al,al
StarOceanTheLastHope.exe+7F2CFF: 0F 85 91 01 00 00 - jne StarOceanTheLastHope.exe+7F2E96
StarOceanTheLastHope.exe+7F2D05: 48 8D 0D 94 F4 74 00 - lea rcx,[StarOceanTheLastHope.exe+F421A0]
}
21187
"INFINITE RUSH TEAM NO ENEMIES AOB"
Auto Assembler Script
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
unregistersymbol(INJECT)
dealloc(newmem)
aobscanmodule(INJECT,StarOceanTheLastHope.exe,80 B9 B8 27 01 00 00 0F 29) // should be unique
alloc(newmem,$1000,INJECT)
label(code)
label(return)
newmem:
push rcx
cmp [rcx+000127B8+D0],0
je @skip
mov byte ptr [rcx+000127B8],01
cmp byte ptr [rcx+000127B8],00
@skip:
pop rcx
cmp byte ptr [rcx+000127B8],00
jmp return
code:
INJECT:
jmp newmem
nop 2
return:
registersymbol(INJECT)
aobscanmodule(INJECT2,StarOceanTheLastHope.exe,C6 83 B8 27 01 00 00)
alloc(newmem2,$1000,INJECT2)
label(code2)
label(return2)
newmem2:
db 90 90 90 90 90 90 90
jmp return2
code2:
INJECT2:
jmp newmem2
nop 2
return2:
registersymbol(INJECT2)
[DISABLE]
INJECT:
db 80 B9 B8 27 01 00 00
INJECT2:
db C6 83 B8 27 01 00 00
unregistersymbol(INJECT)
dealloc(newmem)
unregistersymbol(INJECT2)
dealloc(newmem2)
{
// ORIGINAL CODE - INJECTION POINT: StarOceanTheLastHope.exe+54B0F6
StarOceanTheLastHope.exe+54B0E8: CC - int 3
StarOceanTheLastHope.exe+54B0E9: CC - int 3
StarOceanTheLastHope.exe+54B0EA: CC - int 3
StarOceanTheLastHope.exe+54B0EB: CC - int 3
StarOceanTheLastHope.exe+54B0EC: CC - int 3
StarOceanTheLastHope.exe+54B0ED: CC - int 3
StarOceanTheLastHope.exe+54B0EE: CC - int 3
StarOceanTheLastHope.exe+54B0EF: CC - int 3
StarOceanTheLastHope.exe+54B0F0: 40 53 - push rbx
StarOceanTheLastHope.exe+54B0F2: 48 83 EC 30 - sub rsp,30
// ---------- INJECTING HERE ----------
StarOceanTheLastHope.exe+54B0F6: 80 B9 B8 27 01 00 00 - cmp byte ptr [rcx+000127B8],00
// ---------- DONE INJECTING ----------
StarOceanTheLastHope.exe+54B0FD: 0F 29 74 24 20 - movaps [rsp+20],xmm6
StarOceanTheLastHope.exe+54B102: 48 8B D9 - mov rbx,rcx
StarOceanTheLastHope.exe+54B105: 74 6A - je StarOceanTheLastHope.exe+54B171
StarOceanTheLastHope.exe+54B107: 48 8B 01 - mov rax,[rcx]
StarOceanTheLastHope.exe+54B10A: FF 90 D0 06 00 00 - call qword ptr [rax+000006D0]
StarOceanTheLastHope.exe+54B110: 48 8B 03 - mov rax,[rbx]
StarOceanTheLastHope.exe+54B113: 48 8B CB - mov rcx,rbx
StarOceanTheLastHope.exe+54B116: 0F 28 F0 - movaps xmm6,xmm0
StarOceanTheLastHope.exe+54B119: FF 90 D0 09 00 00 - call qword ptr [rax+000009D0]
StarOceanTheLastHope.exe+54B11F: 48 8B 03 - mov rax,[rbx]
}
21188
"VAC HACK X AOB"
Auto Assembler Script
{ Game : StarOceanTheLastHope.exe
Version:
Date : 2025-10-16
Author : ivanb
This script does blah blah blah
}
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
aobscanmodule(INJECT,StarOceanTheLastHope.exe,04 F3 0F 11 03 F3 0F 10 44 24 28) // should be unique
alloc(newmem,$1000,INJECT)
label(return)
alloc(MyMem, 4)
MyMem:
//float
dd (float)550
newmem:
push rax
push rbx
mov eax,[rbx+1E0]
cmp eax,3 // si es aliado (3), saltar
je short @skip
movss xmm0,[MyMem] // fuerza coordenada = 550 para enemigos
@skip:
pop rbx
pop rax
movss [rbx],xmm0 // instrucción original (ahora ya con el valor modificado)
movss xmm0,[rsp+28]
jmp return
INJECT+01:
jmp newmem
nop 5
return:
registersymbol(INJECT)
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
INJECT+01:
db F3 0F 11 03 F3 0F 10 44 24 28
unregistersymbol(INJECT)
dealloc(newmem)
dealloc(MyMem)
{
// ORIGINAL CODE - INJECTION POINT: StarOceanTheLastHope.exe+33E33FB
StarOceanTheLastHope.exe+33E33CF: 8B 03 - mov eax,[rbx]
StarOceanTheLastHope.exe+33E33D1: 89 87 E0 2B 01 00 - mov [rdi+00012BE0],eax
StarOceanTheLastHope.exe+33E33D7: 8B 43 04 - mov eax,[rbx+04]
StarOceanTheLastHope.exe+33E33DA: 89 87 E4 2B 01 00 - mov [rdi+00012BE4],eax
StarOceanTheLastHope.exe+33E33E0: 8B 43 08 - mov eax,[rbx+08]
StarOceanTheLastHope.exe+33E33E3: 89 87 E8 2B 01 00 - mov [rdi+00012BE8],eax
StarOceanTheLastHope.exe+33E33E9: 8B 43 0C - mov eax,[rbx+0C]
StarOceanTheLastHope.exe+33E33EC: 89 87 EC 2B 01 00 - mov [rdi+00012BEC],eax
StarOceanTheLastHope.exe+33E33F2: F3 0F 58 03 - addss xmm0,[rbx]
StarOceanTheLastHope.exe+33E33F6: F3 0F 58 4B 04 - addss xmm1,[rbx+04]
// ---------- INJECTING HERE ----------
StarOceanTheLastHope.exe+33E33FB: F3 0F 11 03 - movss [rbx],xmm0
// ---------- DONE INJECTING ----------
StarOceanTheLastHope.exe+33E33FF: F3 0F 10 44 24 28 - movss xmm0,[rsp+28]
StarOceanTheLastHope.exe+33E3405: F3 0F 11 4B 04 - movss [rbx+04],xmm1
StarOceanTheLastHope.exe+33E340A: F3 0F 58 43 08 - addss xmm0,[rbx+08]
StarOceanTheLastHope.exe+33E340F: F3 0F 11 43 08 - movss [rbx+08],xmm0
StarOceanTheLastHope.exe+33E3414: E8 97 C6 16 FD - call StarOceanTheLastHope.exe+54FAB0
StarOceanTheLastHope.exe+33E3419: 8B 87 C0 1F 01 00 - mov eax,[rdi+00011FC0]
StarOceanTheLastHope.exe+33E341F: F3 0F 10 44 24 20 - movss xmm0,[rsp+20]
StarOceanTheLastHope.exe+33E3425: 89 87 D0 1F 01 00 - mov [rdi+00011FD0],eax
StarOceanTheLastHope.exe+33E342B: 8B 87 C4 1F 01 00 - mov eax,[rdi+00011FC4]
StarOceanTheLastHope.exe+33E3431: 48 89 F9 - mov rcx,rdi
}
21189
"VAC HACK Y AOB"
Auto Assembler Script
{ Game : StarOceanTheLastHope.exe
Version:
Date : 2025-10-16
Author : ivanb
This script does blah blah blah
}
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
aobscanmodule(INJECT,StarOceanTheLastHope.exe,F3 0F 11 43 08 E8) // should be unique
alloc(newmem,$1000,INJECT)
label(return)
alloc(MyMem, 4)
MyMem:
//float
dd (float)550
newmem:
push rax
push rbx
mov eax,[rbx+1E0]
cmp eax,3 // si es aliado (3), saltar
je short @skip
movss xmm0,[MyMem] // fuerza coordenada = 550 para enemigos
@skip:
pop rbx
pop rax
movss [rbx+08],xmm0
jmp return
INJECT:
jmp newmem
return:
registersymbol(INJECT)
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
INJECT:
db F3 0F 11 43 08
unregistersymbol(INJECT)
dealloc(newmem)
dealloc(MyMem)
{
// ORIGINAL CODE - INJECTION POINT: StarOceanTheLastHope.exe+33E340F
StarOceanTheLastHope.exe+33E33E0: 8B 43 08 - mov eax,[rbx+08]
StarOceanTheLastHope.exe+33E33E3: 89 87 E8 2B 01 00 - mov [rdi+00012BE8],eax
StarOceanTheLastHope.exe+33E33E9: 8B 43 0C - mov eax,[rbx+0C]
StarOceanTheLastHope.exe+33E33EC: 89 87 EC 2B 01 00 - mov [rdi+00012BEC],eax
StarOceanTheLastHope.exe+33E33F2: F3 0F 58 03 - addss xmm0,[rbx]
StarOceanTheLastHope.exe+33E33F6: F3 0F 58 4B 04 - addss xmm1,[rbx+04]
StarOceanTheLastHope.exe+33E33FB: F3 0F 11 03 - movss [rbx],xmm0
StarOceanTheLastHope.exe+33E33FF: F3 0F 10 44 24 28 - movss xmm0,[rsp+28]
StarOceanTheLastHope.exe+33E3405: F3 0F 11 4B 04 - movss [rbx+04],xmm1
StarOceanTheLastHope.exe+33E340A: F3 0F 58 43 08 - addss xmm0,[rbx+08]
// ---------- INJECTING HERE ----------
StarOceanTheLastHope.exe+33E340F: F3 0F 11 43 08 - movss [rbx+08],xmm0
// ---------- DONE INJECTING ----------
StarOceanTheLastHope.exe+33E3414: E8 97 C6 16 FD - call StarOceanTheLastHope.exe+54FAB0
StarOceanTheLastHope.exe+33E3419: 8B 87 C0 1F 01 00 - mov eax,[rdi+00011FC0]
StarOceanTheLastHope.exe+33E341F: F3 0F 10 44 24 20 - movss xmm0,[rsp+20]
StarOceanTheLastHope.exe+33E3425: 89 87 D0 1F 01 00 - mov [rdi+00011FD0],eax
StarOceanTheLastHope.exe+33E342B: 8B 87 C4 1F 01 00 - mov eax,[rdi+00011FC4]
StarOceanTheLastHope.exe+33E3431: 48 89 F9 - mov rcx,rdi
StarOceanTheLastHope.exe+33E3434: F3 0F 10 4C 24 24 - movss xmm1,[rsp+24]
StarOceanTheLastHope.exe+33E343A: 89 87 D4 1F 01 00 - mov [rdi+00011FD4],eax
StarOceanTheLastHope.exe+33E3440: 8B 87 C8 1F 01 00 - mov eax,[rdi+00011FC8]
StarOceanTheLastHope.exe+33E3446: 89 87 D8 1F 01 00 - mov [rdi+00011FD8],eax
}
21190
"Enemies 1 HP AOB"
Auto Assembler Script
{ Game : StarOceanTheLastHope.exe
Version:
Date : 2025-10-16
Author : ivanb
This script does blah blah blah
}
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
aobscanmodule(INJECT,StarOceanTheLastHope.exe,8B 81 C4 07 00 00) // should be unique
alloc(newmem,$1000,INJECT)
label(return)
newmem:
push rax
// ========================
// Comprobación: solo aplicar a enemigos
cmp byte ptr [rcx+7C4+54],F0
je short @skip
// Lee HP actual
mov eax,[rcx+7C4]
cmp eax,1
jle short @skip // si HP <= 1, no tocar
mov dword ptr [rcx+7C4],1 // pone HP a 1 (solo enemigos)
@skip:
pop rax
// --- instrucción original ---
mov eax,[rcx+000007C4]
jmp return
INJECT:
jmp newmem
nop
return:
registersymbol(INJECT)
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
INJECT:
db 8B 81 C4 07 00 00
unregistersymbol(INJECT)
dealloc(newmem)
{
// ORIGINAL CODE - INJECTION POINT: StarOceanTheLastHope.exe+526630
StarOceanTheLastHope.exe+52661D: CC - int 3
StarOceanTheLastHope.exe+52661E: CC - int 3
StarOceanTheLastHope.exe+52661F: CC - int 3
StarOceanTheLastHope.exe+526620: 48 8B 81 F0 2D 01 00 - mov rax,[rcx+00012DF0]
StarOceanTheLastHope.exe+526627: 0F BF 40 6C - movsx eax,word ptr [rax+6C]
StarOceanTheLastHope.exe+52662B: C3 - ret
StarOceanTheLastHope.exe+52662C: CC - int 3
StarOceanTheLastHope.exe+52662D: CC - int 3
StarOceanTheLastHope.exe+52662E: CC - int 3
StarOceanTheLastHope.exe+52662F: CC - int 3
// ---------- INJECTING HERE ----------
StarOceanTheLastHope.exe+526630: 8B 81 C4 07 00 00 - mov eax,[rcx+000007C4]
// ---------- DONE INJECTING ----------
StarOceanTheLastHope.exe+526636: C3 - ret
StarOceanTheLastHope.exe+526637: CC - int 3
StarOceanTheLastHope.exe+526638: CC - int 3
StarOceanTheLastHope.exe+526639: CC - int 3
StarOceanTheLastHope.exe+52663A: CC - int 3
StarOceanTheLastHope.exe+52663B: CC - int 3
StarOceanTheLastHope.exe+52663C: CC - int 3
StarOceanTheLastHope.exe+52663D: CC - int 3
StarOceanTheLastHope.exe+52663E: CC - int 3
StarOceanTheLastHope.exe+52663F: CC - int 3
}
Bucle Camara :movss xmm2,[rdi+00000180]
StarOceanTheLastHope.exe+56C2EE
00
F3
0F
5E
DA
F3
0F
10
97
80
01
00
00
F3
0F
59
1D
3A
Movimiento 1 camara :addss xmm7,[rbx+00000180]
StarOceanTheLastHope.exe+35D0868
35
48
CE
33
FD
F3
0F
58
BB
80
01
00
00
0F
28
C7
E8
68
Movimiento 2 camara :movss [rbx+00000180],xmm0
StarOceanTheLastHope.exe+35D0880
B3
84
01
00
00
F3
0F
11
83
80
01
00
00
F3
0F
10
05
50
entrar camara dos :mov [rbx+00000180],00000000
StarOceanTheLastHope.exe+5788EA
01
00
00
EB
0A
C7
83
80
01
00
00
00
00
00
00
48
8B
8B
90
01
bucle camara dos :movss xmm12,[rbx+00000180]
StarOceanTheLastHope.exe+579767
BB
84
01
00
00
F3
44
0F
10
A3
80
01
00
00
45
0F
28
DA
48
movimiento uno camara dos :addss xmm6,[rbx+00000180]
StarOceanTheLastHope.exe+35F69E0
35
D0
6C
31
FD
F3
0F
58
B3
80
01
00
00
0F
28
C6
E8
F0
movimiento dos camara dos :movss [rbx+00000180],xmm0
StarOceanTheLastHope.exe+35F69F5
0F
28
74
24
20
F3
0F
11
83
80
01
00
00
48
83
C4
30
5B
Entrar salir menu camara :movss [rbx+00000180],xmm2
StarOceanTheLastHope.exe+5788E0
0F
28
7C
24
50
F3
0F
11
93
80
01
00
00
EB
0A
C7
83
80
Change of shr eax,1
StarOceanTheLastHope.exe+A6C0
00
48
83
C2
04
D1
E8
75
EC
48
8B
4B
DEC CAMARA :dec [rax]
StarOceanTheLastHope.exe+AEFB
F6
C1
01
74
08
FF
08
FF
8B
D0
00
00
INC CAMARA :inc [rdx]
StarOceanTheLastHope.exe+A6B4
90
A8
01
74
08
FF
02
FF
83
D0
00
00
Code :addss xmm0,[rbx+00000084]
StarOceanTheLastHope.exe+33E8751
90
A0
07
00
00
F3
0F
58
83
84
00
00
00
48
83
C4
20
5B
Code :addss xmm0,[rbx+00000084]
StarOceanTheLastHope.exe+33E9E61
90
A8
07
00
00
F3
0F
58
83
84
00
00
00
48
83
C4
20
5B
Code :mov eax,[rbx+00000080]
StarOceanTheLastHope.exe+55EDEA
E8
96
3F
AB
FF
8B
83
80
00
00
00
89
47
70
8B
83
Code :mov eax,[rbx]
StarOceanTheLastHope.exe+33E33CF
00
00
48
89
F9
8B
03
89
87
E0
2B
01
Change of mov [rdi+3C],41C00000
StarOceanTheLastHope.exe+60D6F3
38
00
00
80
3F
C7
47
3C
00
00
C0
41
44
89
6F
28
48
Change of call qword ptr [rax+00000080]
StarOceanTheLastHope.exe+2FCD
00
00
48
8B
01
FF
90
80
00
00
00
83
3D
4A
39
F7
Change of jne 14060D5B3
StarOceanTheLastHope.exe+60D612
00
00
00
84
C0
75
9F
FF
C7
48
83
C5
Change of jl 14060D5F0
StarOceanTheLastHope.exe+60D61D
C5
08
3B
7E
2C
7C
D1
32
C0
4C
8B
64
Comienza batalla :mov [rcx+00001500],eax
StarOceanTheLastHope.exe+7DCD09
28
16
00
00
0A
89
81
00
15
00
00
74
07
80
89
2C
Parpadeo inmune :mov [r14+00001500],43160000
StarOceanTheLastHope.exe+7D2031
85
AB
00
00
00
41
C7
86
00
15
00
00
00
00
16
43
39
35
FE
01
77
Change of call 1407DCCC0
StarOceanTheLastHope.exe+7B2E33
04
48
8B
48
78
E8
88
9E
02
00
B0
01
48
83
C4
PROCESS_NAME = 'StarOceanTheLastHope.exe'
--------
-------- Auto Attach
--------
local autoAttachTimer = nil ---- variable to hold timer object
local autoAttachTimerInterval = 1 ---- Timer intervals are in milliseconds
local autoAttachTimerTicks = 0 ---- variable to count number of times the timer has run
local autoAttachTimerTickMax = 0 ---- Set to zero to disable ticks max
local function autoAttachTimer_tick(timer) ---- Timer tick call back
---- Destroy timer if max ticks is reached
if autoAttachTimerTickMax > 0 and autoAttachTimerTicks >= autoAttachTimerTickMax then
timer.destroy()
end
---- Check if process is running
if getProcessIDFromProcessName(PROCESS_NAME) ~= nil then
timer.destroy() ---- Destroy timer
openProcess(PROCESS_NAME) ---- Open the process
pause()
local EnumChildWindowsPtr = getAddressSafe("EnumChildWindows")
WriteBytes(EnumChildWindowsPtr,0xC3)
unpause()
end
autoAttachTimerTicks = autoAttachTimerTicks + 1 ---- Increase ticks
end
autoAttachTimer = createTimer(getMainForm()) ---- Create timer with the main form as it's parent
autoAttachTimer.Interval = autoAttachTimerInterval ---- Set timer interval
autoAttachTimer.OnTimer = autoAttachTimer_tick ---- Set timer tick call back
function lua_aobscan(name,module,bytes,index)
index = index - 1
if(module == "") then
local resultSet = AOBScan(bytes)
if(resultSet == nil) then
unregisterSymbol(name)
print(name.." not found")
else
unregisterSymbol(name)
registerSymbol(name,resultSet[index])
resultSet.destroy()
end
else
if(getModuleSize(module) == nil) then
print("Module "..module.." not found")
else
local memScanner = createMemScan()
local memFoundList = createFoundList(memScanner)
memScanner.firstScan(
soExactValue,vtByteArray,rtRounded,bytes,nil,
getAddress(module),(getAddress(module)+getModuleSize(module)),"",
fsmNotAligned,"",true,false,false,false)
memScanner.waitTillDone()
memFoundList.initialize()
if(memFoundList.Count == 0) then
unregisterSymbol(name)
print(name.." in module "..module.." not found")
else
unregisterSymbol(name)
registerSymbol(name,memFoundList.Address[index])
end
memScanner.destroy()
memFoundList.destroy()
end
end
end
function lua_aobscan_last(name,module,bytes)
if(module == "") then
local resultSet = AOBScan(bytes)
if(resultSet == nil) then
unregisterSymbol(name)
print(name.." not found")
else
unregisterSymbol(name)
registerSymbol(name,resultSet[#resultSet])
resultSet.destroy()
end
else
if(getModuleSize(module) == nil) then
print("Module "..module.." not found")
else
local memScanner = createMemScan()
local memFoundList = createFoundList(memScanner)
memScanner.firstScan(
soExactValue,vtByteArray,rtRounded,bytes,nil,
getAddress(module),(getAddress(module)+getModuleSize(module)),"",
fsmNotAligned,"",true,false,false,false)
memScanner.waitTillDone()
memFoundList.initialize()
if(memFoundList.Count == 0) then
unregisterSymbol(name)
print(name.." in module "..module.." not found")
else
unregisterSymbol(name)
registerSymbol(name,memFoundList.Address[memFoundList.Count-1])
end
memScanner.destroy()
memFoundList.destroy()
end
end
end
-- Function By DrummerIX to find the address of an AOB that matches a particular name
-- as there are times when CE shows a name, but you cannot go to that address by using
-- the name by default, so we use this as a workaround
-- It expects a name to register the found address, a module name (can be blank), the bytes to search, and the name to match
function lua_aobscan_find_method(name,module,bytes,method_name)
if(module == "") then
local resultSet = AOBScan(bytes)
if(resultSet == nil) then
unregisterSymbol(name)
print(name.." not found")
else
-- Go Through Results Looking For method_name
for i=0,resultSet.Count-1 do
local CurrentAddress = resultSet[i]
local CurrentName = getNameFromAddress(CurrentAddress)
if CurrentName ~= nil then
if CurrentName == method_name then
unregisterSymbol(name)
registerSymbol(name,CurrentAddress)
end
end
end
resultSet.destroy()
end
else
if(getModuleSize(module) == nil) then
print("Module "..module.." not found")
else
local memScanner = createMemScan()
local memFoundList = createFoundList(memScanner)
memScanner.firstScan(
soExactValue,vtByteArray,rtRounded,bytes,nil,
getAddress(module),(getAddress(module)+getModuleSize(module)),"",
fsmNotAligned,"",true,false,false,false)
memScanner.waitTillDone()
memFoundList.initialize()
if(memFoundList.Count == 0) then
unregisterSymbol(name)
print(name.." in module "..module.." not found")
else
-- Go Through Results Looking For method_name
for i=0,memFoundList.Count-1 do
local CurrentName = getNameFromAddress(memFoundList.Address[i])
if CurrentName ~= nil then
if CurrentName == method_name then
unregisterSymbol(name)
registerSymbol(name,memFoundList.Address[i])
end
end
end
end
memScanner.destroy()
memFoundList.destroy()
end
end
end
-- code by FreeER
function getFields(param)
-- simplified 'classname' or 'namespace:classname' input
-- obviously you could just change the code to pass findClass's result
--local namespace,classname = param:match('(%w+):?(%w*)')
-- DrummerIX modified the Regex for match to account for periods in classnames (we want everything before : and then everything after :)
local namespace,classname = param:match('([%w%d%.]*):?([%w%d%.]*)')
if not classname or classname == '' then namespace, classname = '', namespace end
local class=mono_findClass(namespace, classname)
local fields=mono_class_enumFields(class)
local result = {}
for _, field in ipairs(fields) do
local keyfieldname = field.name:gsub("<","_"):gsub(">","_")
--print(namespace,classname,keyfieldname)
result[keyfieldname] = field.offset
end
return result
end
-- Functions By Panraven for mono finding method by signature
function reEscape(s)
local escPatChars = [[().%+-*?[^]]
s = s:gsub('.',function(c) if escPatChars:find(c,1,true) then return '%'..c end end)
return s
end
function findMethodAddrBySignature(namespace,classname,methodname,signature,check)
local meth = findMethodBySignature(namespace,classname,methodname,signature,check)
if meth~=nil and meth>0 then
return mono_compile_method(meth)
end
end
function findMethodBySignature(namespace,classname,methodname,signature,check)
assert(type(signature)=='string',"invalid signature")
signature="^"..reEscape(signature:gsub(";",","))
local class = mono_findClass(namespace,classname)
if type(class)~='number' or class==0 then return nil end
local methods=mono_class_enumMethods(class)
if type(methods)~='table' or #methods < 1 then return nil end
if check then print('check:'..methodname..": <"..signature.."> vs ") end
for i=1,#methods do
if methodname == methods[i].name then
local sign = mono_method_getSignature(methods[i].method)
if check then print(" >> <"..sign..'>') end
if sign:match(signature) then
return methods[i].method
end
end
end
end
-- Test
function tohex(n)return string.format('%X',n or 0)end
-- test
--print('--') -- test to show/print all signature of a given function name
--print(tohex(findMethodAddrBySignature('Assembly-CSharp','CommissionFactory','GenerateCommissionsFrequently','?',true)))
--print('--') -- test to match a specific (third) signature of a function name
--print(tohex(findMethodAddrBySignature('Assembly-CSharp','CommissionFactory','GenerateCommissionsFrequently','bool$',true)))
-- the last '$' is lua match end-of-string, wthout this, the match MAY succeed on fourth one.
-- all other character should be compare as is, including upper/lower cases.
-----------------------------------------------------------------------------------------------
--- Things below here deal with the Save and Load of Trainer Values
-----------------------------------------------------------------------------------------------
--- Global List Variables For Use In Save and Load Trainer State
SaveSymbolList = {}
PerformActivateList = {}
CurrentlyActivatingList = {}
CurrentSlotDescriptions = {}
DoNotSaveDescriptions = {
"Save Current Trainer Values",
"Load Current Trainer Values",
"Change Slot Config Description"
}
-- Global Variable For Our SubFolder To Store Configs In
sConfigSubFolder = "\\CheatEvolution\\"
--- Global Variables To Deal With Our Handler Function
bPerformSaveTrainerValues = 0
bPerformLoadTrainerValues = 0
bPerformActivateTrainerCheats = 0
bFinishedActivateTrainerCheats = 1
bUnableToCreateFolder = 0
--- Global Variable Dealing With Save Config Slot #
iSaveConfigSlot = 1
iMaxSaveConfigSlots = 10
function LoadTrainerValues()
-- First We Ask What Slot They Want To Load
local mySL = CreateStringList()
for i,j in ipairs(CurrentSlotDescriptions) do
mySL.add(j)
end
local result = showSelectionList('Load Trainer Values', 'Which Config Slot', mySL, false)
mySL.destroy()
if result ~= nil then
if result ~= -1 then
iSaveConfigSlot = result + 1
bPerformLoadTrainerValues = 1
bPerformActivateTrainerCheats = 1
bFinishedActivateTrainerCheats = 0
end
end
end
function SaveTrainerValues()
-- First We Ask What Slot They Want To Load
local mySL = CreateStringList()
for i,j in ipairs(CurrentSlotDescriptions) do
mySL.add(j)
end
local result = showSelectionList('Save Trainer Values', 'Which Config Slot', mySL, false)
mySL.destroy()
if result ~= nil then
if result ~= -1 then
iSaveConfigSlot = result + 1
bPerformSaveTrainerValues = 1
end
end
end
function WriteOutCurrentSlotDescriptions()
local baseFileName = nil
if (process ~= nil) then
if (string.find(string.reverse(process),"[.]") ~= nil) then
baseFileName = string.sub(process,1,string.len(string.reverse(process))-string.find(string.reverse(process),"[.]"))
end
end
if (baseFileName ~= nil) then
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Slots.txt'
local file = assert(io.open(filename, "w"))
for i=1,#CurrentSlotDescriptions do
file:write(CurrentSlotDescriptions[i] .. '\n')
end
file:close()
end
end
function ChangeSlotDescription()
-- First We Ask What Slot They Want To Load
local mySL = CreateStringList()
for i,j in ipairs(CurrentSlotDescriptions) do
mySL.add(j)
end
local result = showSelectionList('Change Slot Description', 'Which Config Slot', mySL, false)
mySL.destroy()
if result ~= nil then
if result ~= -1 then
local myPrompt = 'Current Description for [Slot ' .. string.format("%d",result+1) .. '] is ' .. CurrentSlotDescriptions[result+1]
myPrompt = myPrompt .. '\n\nWhat do you want to change it to?'
local newDesc = inputQuery('Change Slot Description',myPrompt,CurrentSlotDescriptions[result+1])
if newDesc ~= nil then
CurrentSlotDescriptions[result+1] = newDesc
-- Write Out Our Changes
WriteOutCurrentSlotDescriptions()
end
end
end
-- Deactivate This Memory Record
ActivateCheatRecord("Change Slot Config Description")
end
function InitializeConfigSlotDescriptions()
local baseFileName = nil
if (process ~= nil) then
if (string.find(string.reverse(process),"[.]") ~= nil) then
baseFileName = string.sub(process,1,string.len(string.reverse(process))-string.find(string.reverse(process),"[.]"))
end
end
if (baseFileName ~= nil) then
for i=#CurrentSlotDescriptions,1,-1 do
table.remove(CurrentSlotDescriptions,i)
end
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Slots.txt'
if not exists(filename) and (bUnableToCreateFolder == 0) then
-- Create Default Slot Descriptions
local file = assert(io.open(filename, "w"))
for i=1,iMaxSaveConfigSlots do
if i == 1 then
file:write("Default\n")
table.insert(CurrentSlotDescriptions,"Default")
else
file:write("Slot " .. string.format("%d",i) .. "\n")
table.insert(CurrentSlotDescriptions,"Slot " .. string.format("%d",i))
end
end
file:close()
else
if (bUnableToCreateFolder == 0) then
-- Read In Current Slot Descriptions
local file = assert(io.open(filename, "r"))
for line in file:lines() do
table.insert(CurrentSlotDescriptions,line)
end
end
end
end
end
-- Functions Found On Internet For Dealing With CSV files
function string:split(sSeparator, nMax, bRegexp)
if sSeparator == '' then
sSeparator = ','
end
if nMax and nMax < 1 then
nMax = nil
end
local aRecord = {}
if self:len() > 0 then
local bPlain = not bRegexp
nMax = nMax or -1
local nField, nStart = 1, 1
local nFirst,nLast = self:find(sSeparator, nStart, bPlain)
while nFirst and nMax ~= 0 do
aRecord[nField] = self:sub(nStart, nFirst-1)
nField = nField+1
nStart = nLast+1
nFirst,nLast = self:find(sSeparator, nStart, bPlain)
nMax = nMax-1
end
aRecord[nField] = self:sub(nStart)
end
return aRecord
end
---------------------------------------------------------------------
function read_csv(path, sep, tonum, null)
tonum = tonum or true
sep = sep or ','
null = null or ''
local csvFile = {}
local file = assert(io.open(path, "r"))
for line in file:lines() do
fields = line:split(sep)
if tonum then -- convert numeric fields to numbers
for i=1,#fields do
local field = fields[i]
if field == '' then
field = null
end
fields[i] = tonumber(field) or field
end
end
table.insert(csvFile, fields)
end
file:close()
return csvFile
end
---------------------------------------------------------------------
function write_csv(path, data, sep)
sep = sep or ','
local file = assert(io.open(path, "w"))
for i=1,#data do
for j=1,#data[i] do
if j>1 then file:write(sep) end
file:write(data[i][j])
end
file:write('\n')
end
file:close()
end
----- Function Written By DrummerIX for creating our table to write to CSV
--------------------------------------------------------------------------
--- It expects a list of symbols to enumerate and get the current value of as a Qword
function create_symbol_table(list_of_symbols)
local csvTable = {}
for k,v in ipairs(list_of_symbols) do
local SymbolPtr = getAddressSafe(v)
if (SymbolPtr ~= nil) then
if (SymbolPtr ~= 0) then
if (ReadBytes(SymbolPtr) ~= nil) then
local line = v
for i=0,7 do
local CurrentByte = ReadBytes(SymbolPtr+i)
line = line .. "," .. string.format("%d",CurrentByte)
end
local fields = line:split(",")
for i=1,#fields do
local field = fields[i]
if field == '' then
field = null
end
fields[i] = tonumber(field) or field
end
table.insert(csvTable, fields)
end
end
end
end
return csvTable
end
----- Function Written By DrummerIX for writing our table to current memory
--------------------------------------------------------------------------
--- It expects a table either from reading a CSV or create_symbol_table function
--- to enumerate and write value of as a Qword
function write_symbol_table(table_of_symbols)
for i=1,#table_of_symbols do
local SymbolPtr = getAddressSafe(table_of_symbols[i][1])
if (SymbolPtr ~= nil) then
if (SymbolPtr ~= 0) then
for j=2,9 do
WriteBytes(SymbolPtr + (j-2),table_of_symbols[i][j])
end
end
end
end
end
--- Function by panraven dealing with enumerating current symbols
--- This is helper function because we sometimes don't need every symbol saved and loaded_csv_table
--- So this gets all symbols and you manually remove those you don't need
function printUserDefinedSymbols()
local mv,sf = getMemoryViewForm()
if not mv.frmSymbolhandler then
local mvHidden
if not mv.Visible then mvHidden=true,mv.Show() end
mv.miuserdefinedsymbols:OnClick()
if mvHidden then mv.hide()end
sf = mv.frmSymbolhandler
sf.Hide()
else
sf = mv.frmSymbolhandler
end
if sf ~= nil then
local symbol
for i = 0, sf.Listview1.Items.Count - 1 do
symbol = sf.Listview1.Items.Item[i].Caption
print('"' .. symbol .. '",')
end
end
end
--- Function Written By DrummerIX for help in activating cheat records in the trainer app
--- It requires that hotkeys be defined for the cheats
--- It expects the name of the record to activate
function ActivateCheatRecord(mr_desc)
local al = getAddressList()
local mr = al.getMemoryRecordByDescription(mr_desc)
if (mr ~= nil) then
for i = 0,mr.HotkeyCount-1 do
for j = 1,#mr.Hotkey[i].Keys do
keyDown(mr.Hotkey[i].Keys[j])
end
end
sleep(5)
for i = 0,mr.HotkeyCount-1 do
for j = 1,#mr.Hotkey[i].Keys do
keyUp(mr.Hotkey[i].Keys[j])
end
end
sleep(5)
end
end
function ToggleActivateCheatRecord(mr_desc)
local al = getAddressList()
local mr = al.getMemoryRecordByDescription(mr_desc)
if (mr ~= nil) then
if mr.Active == true then
mr.Active = false
else
mr.Active = true
end
end
end
function CheckCheatRecordActive(mr_desc)
local al = getAddressList()
local mr = al.getMemoryRecordByDescription(mr_desc)
if (mr ~= nil) then
return mr.Active
else
return false
end
end
function create_active_cheat_list_table()
local al = getAddressList()
local csvTable = {}
for i = 0,al.Count-1 do
if (al.MemoryRecord[i].Active) then
if not (string.find(al.MemoryRecord[i].Description,"Activate Trainer")) then
local SaveThisRecord = true
for j=1,#DoNotSaveDescriptions do
if al.MemoryRecord[i].Description == DoNotSaveDescriptions[j] then
SaveThisRecord = false
end
end
if SaveThisRecord then
line = al.MemoryRecord[i].Description
local fields = line:split(",")
for i=1,#fields do
local field = fields[i]
if field == '' then
field = null
end
fields[i] = tonumber(field) or field
end
table.insert(csvTable, fields)
end
end
end
end
return csvTable
end
--- Code from Internet to deal with checking if folder exists
function exists(file)
local ok, err, code = os.rename(file, file)
if not ok then
if code == 13 then
-- Permission denied, but it exists
return true
end
end
return ok, err
end
function isdir(path)
-- "/" works on both Unix and Windows
return exists(path.."/")
end
-- Our function to create our save state folder
function CheckOurSaveStateFolder()
local myFolder = os.getenv("USERPROFILE")
local ourPath = myFolder .. sConfigSubFolder
if (bUnableToCreateFolder == 0) then
if not (isdir(myFolder .. sConfigSubFolder)) then
os.execute('mkdir ' .. ourPath)
end
if not (isdir(myFolder .. sConfigSubFolder)) then
bUnableToCreateFolder = 1
local MyMessage = string.format("Save and Load Trainer Values will not function\n until you manually create the following folder\n" .. myFolder .. sConfigSubFolder)
showMessage(MyMessage)
end
end
return ourPath
end
-----------------------------------------------------------------
function onMemRecPostExecute(memoryrecord, newState, succeeded)
for i=1,#PerformActivateList do
if memoryrecord.Description == PerformActivateList[i] then
table.remove(PerformActivateList,i)
end
end
for j=1,#CurrentlyActivatingList do
if memoryrecord.Description == CurrentlyActivatingList[j] then
table.remove(CurrentlyActivatingList,j)
end
end
end
function StartSaveLoadTrainerValuesHandler()
if (tTrainerValues ~= nil) then
tTrainerValues.destroy()
end
tTrainerValues = createTimer(nil, false)
tTrainerValues.OnTimer = function(fTrainerValues)
-- Check If CurrentSlotDescriptions Is Empty and Initialize If So
if #CurrentSlotDescriptions == 0 then
InitializeConfigSlotDescriptions()
end
local baseFileName = nil
if (process ~= nil) then
if (string.find(string.reverse(process),"[.]") ~= nil) then
baseFileName = string.sub(process,1,string.len(string.reverse(process))-string.find(string.reverse(process),"[.]"))
end
end
if (baseFileName ~= nil) then
-- First, we check for saving values
if (bPerformSaveTrainerValues == 1) then
bPerformSaveTrainerValues = 0
-- First, we save symbols
local current_csv_table = create_symbol_table(SaveSymbolList)
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Symbols_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
write_csv(filename,current_csv_table,",")
-- Finally, we save current active cheat list
local current_active_csv_table = create_active_cheat_list_table()
local filename2 = ourFolder .. baseFileName .. '_Active_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
write_csv(filename2,current_active_csv_table,",")
else
if CheckCheatRecordActive("Save Current Trainer Values") then
ActivateCheatRecord("Save Current Trainer Values")
end
end
-- Next, we check for loading symbol values which can only be done after loading and activating cheats
if (bFinishedActivateTrainerCheats == 1) then
if (bPerformLoadTrainerValues == 1) then
bPerformLoadTrainerValues = 0
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Symbols_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
if exists(filename) then
local loaded_csv_table = read_csv(filename,",",true,null)
if (loaded_csv_table ~= nil) then
write_symbol_table(loaded_csv_table)
end
end
end
end
-- Next, we check for loading and activating cheats
if (bFinishedActivateTrainerCheats == 0) then
if (bPerformActivateTrainerCheats == 1) then
bPerformActivateTrainerCheats = 0
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Active_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
if exists(filename) then
local loaded_csv_table = read_csv(filename,",",true,null)
if (loaded_csv_table ~= nil) then
-- First, make sure list is empty
for i=#PerformActivateList,1,-1 do
table.remove(PerformActivateList,i)
end
for i=1,#loaded_csv_table do
local CurrentDesc = ""
for j=1,#loaded_csv_table[i] do
if (j > 1) then
CurrentDesc = CurrentDesc .. "," .. loaded_csv_table[i][j]
else
CurrentDesc = CurrentDesc .. loaded_csv_table[i][j]
end
end
table.insert(PerformActivateList,CurrentDesc)
end
end
end
end
end
-- Finally, Loop Through The Current PerformActivateList and attempt to activate the cheat
if (bFinishedActivateTrainerCheats == 0) then
if (#PerformActivateList == 0) then
bFinishedActivateTrainerCheats = 1
else
for i=1,#PerformActivateList do
if not CheckCheatRecordActive(PerformActivateList[i]) then
--if #CurrentlyActivatingList == 0 then
ToggleActivateCheatRecord(PerformActivateList[i])
--table.insert(CurrentlyActivatingList,PerformActivateList[i])
--end
else
table.remove(PerformActivateList,i)
end
end
end
else
if CheckCheatRecordActive("Load Current Trainer Values") then
ActivateCheatRecord("Load Current Trainer Values")
end
end
end
end
tTrainerValues.Interval = 500
tTrainerValues.Enabled = true
end
-- Actually Call Our Save and Load Handler function to start up the timer
StartSaveLoadTrainerValuesHandler()
------------------------------------------------------------------------------------------
PROCESS_NAME = 'StarOceanTheLastHope.exe'
--------
-------- Auto Attach
--------
local autoAttachTimer = nil ---- variable to hold timer object
local autoAttachTimerInterval = 1 ---- Timer intervals are in milliseconds
local autoAttachTimerTicks = 0 ---- variable to count number of times the timer has run
local autoAttachTimerTickMax = 0 ---- Set to zero to disable ticks max
local function autoAttachTimer_tick(timer) ---- Timer tick call back
---- Destroy timer if max ticks is reached
if autoAttachTimerTickMax > 0 and autoAttachTimerTicks >= autoAttachTimerTickMax then
timer.destroy()
end
---- Check if process is running
if getProcessIDFromProcessName(PROCESS_NAME) ~= nil then
timer.destroy() ---- Destroy timer
openProcess(PROCESS_NAME) ---- Open the process
pause()
local EnumChildWindowsPtr = getAddressSafe("EnumChildWindows")
WriteBytes(EnumChildWindowsPtr,0xC3)
unpause()
end
autoAttachTimerTicks = autoAttachTimerTicks + 1 ---- Increase ticks
end
autoAttachTimer = createTimer(getMainForm()) ---- Create timer with the main form as it's parent
autoAttachTimer.Interval = autoAttachTimerInterval ---- Set timer interval
autoAttachTimer.OnTimer = autoAttachTimer_tick ---- Set timer tick call back
function lua_aobscan(name,module,bytes,index)
index = index - 1
if(module == "") then
local resultSet = AOBScan(bytes)
if(resultSet == nil) then
unregisterSymbol(name)
print(name.." not found")
else
unregisterSymbol(name)
registerSymbol(name,resultSet[index])
resultSet.destroy()
end
else
if(getModuleSize(module) == nil) then
print("Module "..module.." not found")
else
local memScanner = createMemScan()
local memFoundList = createFoundList(memScanner)
memScanner.firstScan(
soExactValue,vtByteArray,rtRounded,bytes,nil,
getAddress(module),(getAddress(module)+getModuleSize(module)),"",
fsmNotAligned,"",true,false,false,false)
memScanner.waitTillDone()
memFoundList.initialize()
if(memFoundList.Count == 0) then
unregisterSymbol(name)
print(name.." in module "..module.." not found")
else
unregisterSymbol(name)
registerSymbol(name,memFoundList.Address[index])
end
memScanner.destroy()
memFoundList.destroy()
end
end
end
function lua_aobscan_last(name,module,bytes)
if(module == "") then
local resultSet = AOBScan(bytes)
if(resultSet == nil) then
unregisterSymbol(name)
print(name.." not found")
else
unregisterSymbol(name)
registerSymbol(name,resultSet[#resultSet])
resultSet.destroy()
end
else
if(getModuleSize(module) == nil) then
print("Module "..module.." not found")
else
local memScanner = createMemScan()
local memFoundList = createFoundList(memScanner)
memScanner.firstScan(
soExactValue,vtByteArray,rtRounded,bytes,nil,
getAddress(module),(getAddress(module)+getModuleSize(module)),"",
fsmNotAligned,"",true,false,false,false)
memScanner.waitTillDone()
memFoundList.initialize()
if(memFoundList.Count == 0) then
unregisterSymbol(name)
print(name.." in module "..module.." not found")
else
unregisterSymbol(name)
registerSymbol(name,memFoundList.Address[memFoundList.Count-1])
end
memScanner.destroy()
memFoundList.destroy()
end
end
end
-- Function By DrummerIX to find the address of an AOB that matches a particular name
-- as there are times when CE shows a name, but you cannot go to that address by using
-- the name by default, so we use this as a workaround
-- It expects a name to register the found address, a module name (can be blank), the bytes to search, and the name to match
function lua_aobscan_find_method(name,module,bytes,method_name)
if(module == "") then
local resultSet = AOBScan(bytes)
if(resultSet == nil) then
unregisterSymbol(name)
print(name.." not found")
else
-- Go Through Results Looking For method_name
for i=0,resultSet.Count-1 do
local CurrentAddress = resultSet[i]
local CurrentName = getNameFromAddress(CurrentAddress)
if CurrentName ~= nil then
if CurrentName == method_name then
unregisterSymbol(name)
registerSymbol(name,CurrentAddress)
end
end
end
resultSet.destroy()
end
else
if(getModuleSize(module) == nil) then
print("Module "..module.." not found")
else
local memScanner = createMemScan()
local memFoundList = createFoundList(memScanner)
memScanner.firstScan(
soExactValue,vtByteArray,rtRounded,bytes,nil,
getAddress(module),(getAddress(module)+getModuleSize(module)),"",
fsmNotAligned,"",true,false,false,false)
memScanner.waitTillDone()
memFoundList.initialize()
if(memFoundList.Count == 0) then
unregisterSymbol(name)
print(name.." in module "..module.." not found")
else
-- Go Through Results Looking For method_name
for i=0,memFoundList.Count-1 do
local CurrentName = getNameFromAddress(memFoundList.Address[i])
if CurrentName ~= nil then
if CurrentName == method_name then
unregisterSymbol(name)
registerSymbol(name,memFoundList.Address[i])
end
end
end
end
memScanner.destroy()
memFoundList.destroy()
end
end
end
-- code by FreeER
function getFields(param)
-- simplified 'classname' or 'namespace:classname' input
-- obviously you could just change the code to pass findClass's result
--local namespace,classname = param:match('(%w+):?(%w*)')
-- DrummerIX modified the Regex for match to account for periods in classnames (we want everything before : and then everything after :)
local namespace,classname = param:match('([%w%d%.]*):?([%w%d%.]*)')
if not classname or classname == '' then namespace, classname = '', namespace end
local class=mono_findClass(namespace, classname)
local fields=mono_class_enumFields(class)
local result = {}
for _, field in ipairs(fields) do
local keyfieldname = field.name:gsub("<","_"):gsub(">","_")
--print(namespace,classname,keyfieldname)
result[keyfieldname] = field.offset
end
return result
end
-- Functions By Panraven for mono finding method by signature
function reEscape(s)
local escPatChars = [[().%+-*?[^]]
s = s:gsub('.',function(c) if escPatChars:find(c,1,true) then return '%'..c end end)
return s
end
function findMethodAddrBySignature(namespace,classname,methodname,signature,check)
local meth = findMethodBySignature(namespace,classname,methodname,signature,check)
if meth~=nil and meth>0 then
return mono_compile_method(meth)
end
end
function findMethodBySignature(namespace,classname,methodname,signature,check)
assert(type(signature)=='string',"invalid signature")
signature="^"..reEscape(signature:gsub(";",","))
local class = mono_findClass(namespace,classname)
if type(class)~='number' or class==0 then return nil end
local methods=mono_class_enumMethods(class)
if type(methods)~='table' or #methods < 1 then return nil end
if check then print('check:'..methodname..": <"..signature.."> vs ") end
for i=1,#methods do
if methodname == methods[i].name then
local sign = mono_method_getSignature(methods[i].method)
if check then print(" >> <"..sign..'>') end
if sign:match(signature) then
return methods[i].method
end
end
end
end
-- Test
function tohex(n)return string.format('%X',n or 0)end
-- test
--print('--') -- test to show/print all signature of a given function name
--print(tohex(findMethodAddrBySignature('Assembly-CSharp','CommissionFactory','GenerateCommissionsFrequently','?',true)))
--print('--') -- test to match a specific (third) signature of a function name
--print(tohex(findMethodAddrBySignature('Assembly-CSharp','CommissionFactory','GenerateCommissionsFrequently','bool$',true)))
-- the last '$' is lua match end-of-string, wthout this, the match MAY succeed on fourth one.
-- all other character should be compare as is, including upper/lower cases.
-----------------------------------------------------------------------------------------------
--- Things below here deal with the Save and Load of Trainer Values
-----------------------------------------------------------------------------------------------
--- Global List Variables For Use In Save and Load Trainer State
SaveSymbolList = {}
PerformActivateList = {}
CurrentlyActivatingList = {}
CurrentSlotDescriptions = {}
DoNotSaveDescriptions = {
"Save Current Trainer Values",
"Load Current Trainer Values",
"Change Slot Config Description"
}
-- Global Variable For Our SubFolder To Store Configs In
sConfigSubFolder = "\\CheatEvolution\\"
--- Global Variables To Deal With Our Handler Function
bPerformSaveTrainerValues = 0
bPerformLoadTrainerValues = 0
bPerformActivateTrainerCheats = 0
bFinishedActivateTrainerCheats = 1
bUnableToCreateFolder = 0
--- Global Variable Dealing With Save Config Slot #
iSaveConfigSlot = 1
iMaxSaveConfigSlots = 10
function LoadTrainerValues()
-- First We Ask What Slot They Want To Load
local mySL = CreateStringList()
for i,j in ipairs(CurrentSlotDescriptions) do
mySL.add(j)
end
local result = showSelectionList('Load Trainer Values', 'Which Config Slot', mySL, false)
mySL.destroy()
if result ~= nil then
if result ~= -1 then
iSaveConfigSlot = result + 1
bPerformLoadTrainerValues = 1
bPerformActivateTrainerCheats = 1
bFinishedActivateTrainerCheats = 0
end
end
end
function SaveTrainerValues()
-- First We Ask What Slot They Want To Load
local mySL = CreateStringList()
for i,j in ipairs(CurrentSlotDescriptions) do
mySL.add(j)
end
local result = showSelectionList('Save Trainer Values', 'Which Config Slot', mySL, false)
mySL.destroy()
if result ~= nil then
if result ~= -1 then
iSaveConfigSlot = result + 1
bPerformSaveTrainerValues = 1
end
end
end
function WriteOutCurrentSlotDescriptions()
local baseFileName = nil
if (process ~= nil) then
if (string.find(string.reverse(process),"[.]") ~= nil) then
baseFileName = string.sub(process,1,string.len(string.reverse(process))-string.find(string.reverse(process),"[.]"))
end
end
if (baseFileName ~= nil) then
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Slots.txt'
local file = assert(io.open(filename, "w"))
for i=1,#CurrentSlotDescriptions do
file:write(CurrentSlotDescriptions[i] .. '\n')
end
file:close()
end
end
function ChangeSlotDescription()
-- First We Ask What Slot They Want To Load
local mySL = CreateStringList()
for i,j in ipairs(CurrentSlotDescriptions) do
mySL.add(j)
end
local result = showSelectionList('Change Slot Description', 'Which Config Slot', mySL, false)
mySL.destroy()
if result ~= nil then
if result ~= -1 then
local myPrompt = 'Current Description for [Slot ' .. string.format("%d",result+1) .. '] is ' .. CurrentSlotDescriptions[result+1]
myPrompt = myPrompt .. '\n\nWhat do you want to change it to?'
local newDesc = inputQuery('Change Slot Description',myPrompt,CurrentSlotDescriptions[result+1])
if newDesc ~= nil then
CurrentSlotDescriptions[result+1] = newDesc
-- Write Out Our Changes
WriteOutCurrentSlotDescriptions()
end
end
end
-- Deactivate This Memory Record
ActivateCheatRecord("Change Slot Config Description")
end
function InitializeConfigSlotDescriptions()
local baseFileName = nil
if (process ~= nil) then
if (string.find(string.reverse(process),"[.]") ~= nil) then
baseFileName = string.sub(process,1,string.len(string.reverse(process))-string.find(string.reverse(process),"[.]"))
end
end
if (baseFileName ~= nil) then
for i=#CurrentSlotDescriptions,1,-1 do
table.remove(CurrentSlotDescriptions,i)
end
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Slots.txt'
if not exists(filename) and (bUnableToCreateFolder == 0) then
-- Create Default Slot Descriptions
local file = assert(io.open(filename, "w"))
for i=1,iMaxSaveConfigSlots do
if i == 1 then
file:write("Default\n")
table.insert(CurrentSlotDescriptions,"Default")
else
file:write("Slot " .. string.format("%d",i) .. "\n")
table.insert(CurrentSlotDescriptions,"Slot " .. string.format("%d",i))
end
end
file:close()
else
if (bUnableToCreateFolder == 0) then
-- Read In Current Slot Descriptions
local file = assert(io.open(filename, "r"))
for line in file:lines() do
table.insert(CurrentSlotDescriptions,line)
end
end
end
end
end
-- Functions Found On Internet For Dealing With CSV files
function string:split(sSeparator, nMax, bRegexp)
if sSeparator == '' then
sSeparator = ','
end
if nMax and nMax < 1 then
nMax = nil
end
local aRecord = {}
if self:len() > 0 then
local bPlain = not bRegexp
nMax = nMax or -1
local nField, nStart = 1, 1
local nFirst,nLast = self:find(sSeparator, nStart, bPlain)
while nFirst and nMax ~= 0 do
aRecord[nField] = self:sub(nStart, nFirst-1)
nField = nField+1
nStart = nLast+1
nFirst,nLast = self:find(sSeparator, nStart, bPlain)
nMax = nMax-1
end
aRecord[nField] = self:sub(nStart)
end
return aRecord
end
---------------------------------------------------------------------
function read_csv(path, sep, tonum, null)
tonum = tonum or true
sep = sep or ','
null = null or ''
local csvFile = {}
local file = assert(io.open(path, "r"))
for line in file:lines() do
fields = line:split(sep)
if tonum then -- convert numeric fields to numbers
for i=1,#fields do
local field = fields[i]
if field == '' then
field = null
end
fields[i] = tonumber(field) or field
end
end
table.insert(csvFile, fields)
end
file:close()
return csvFile
end
---------------------------------------------------------------------
function write_csv(path, data, sep)
sep = sep or ','
local file = assert(io.open(path, "w"))
for i=1,#data do
for j=1,#data[i] do
if j>1 then file:write(sep) end
file:write(data[i][j])
end
file:write('\n')
end
file:close()
end
----- Function Written By DrummerIX for creating our table to write to CSV
--------------------------------------------------------------------------
--- It expects a list of symbols to enumerate and get the current value of as a Qword
function create_symbol_table(list_of_symbols)
local csvTable = {}
for k,v in ipairs(list_of_symbols) do
local SymbolPtr = getAddressSafe(v)
if (SymbolPtr ~= nil) then
if (SymbolPtr ~= 0) then
if (ReadBytes(SymbolPtr) ~= nil) then
local line = v
for i=0,7 do
local CurrentByte = ReadBytes(SymbolPtr+i)
line = line .. "," .. string.format("%d",CurrentByte)
end
local fields = line:split(",")
for i=1,#fields do
local field = fields[i]
if field == '' then
field = null
end
fields[i] = tonumber(field) or field
end
table.insert(csvTable, fields)
end
end
end
end
return csvTable
end
----- Function Written By DrummerIX for writing our table to current memory
--------------------------------------------------------------------------
--- It expects a table either from reading a CSV or create_symbol_table function
--- to enumerate and write value of as a Qword
function write_symbol_table(table_of_symbols)
for i=1,#table_of_symbols do
local SymbolPtr = getAddressSafe(table_of_symbols[i][1])
if (SymbolPtr ~= nil) then
if (SymbolPtr ~= 0) then
for j=2,9 do
WriteBytes(SymbolPtr + (j-2),table_of_symbols[i][j])
end
end
end
end
end
--- Function by panraven dealing with enumerating current symbols
--- This is helper function because we sometimes don't need every symbol saved and loaded_csv_table
--- So this gets all symbols and you manually remove those you don't need
function printUserDefinedSymbols()
local mv,sf = getMemoryViewForm()
if not mv.frmSymbolhandler then
local mvHidden
if not mv.Visible then mvHidden=true,mv.Show() end
mv.miuserdefinedsymbols:OnClick()
if mvHidden then mv.hide()end
sf = mv.frmSymbolhandler
sf.Hide()
else
sf = mv.frmSymbolhandler
end
if sf ~= nil then
local symbol
for i = 0, sf.Listview1.Items.Count - 1 do
symbol = sf.Listview1.Items.Item[i].Caption
print('"' .. symbol .. '",')
end
end
end
--- Function Written By DrummerIX for help in activating cheat records in the trainer app
--- It requires that hotkeys be defined for the cheats
--- It expects the name of the record to activate
function ActivateCheatRecord(mr_desc)
local al = getAddressList()
local mr = al.getMemoryRecordByDescription(mr_desc)
if (mr ~= nil) then
for i = 0,mr.HotkeyCount-1 do
for j = 1,#mr.Hotkey[i].Keys do
keyDown(mr.Hotkey[i].Keys[j])
end
end
sleep(5)
for i = 0,mr.HotkeyCount-1 do
for j = 1,#mr.Hotkey[i].Keys do
keyUp(mr.Hotkey[i].Keys[j])
end
end
sleep(5)
end
end
function ToggleActivateCheatRecord(mr_desc)
local al = getAddressList()
local mr = al.getMemoryRecordByDescription(mr_desc)
if (mr ~= nil) then
if mr.Active == true then
mr.Active = false
else
mr.Active = true
end
end
end
function CheckCheatRecordActive(mr_desc)
local al = getAddressList()
local mr = al.getMemoryRecordByDescription(mr_desc)
if (mr ~= nil) then
return mr.Active
else
return false
end
end
function create_active_cheat_list_table()
local al = getAddressList()
local csvTable = {}
for i = 0,al.Count-1 do
if (al.MemoryRecord[i].Active) then
if not (string.find(al.MemoryRecord[i].Description,"Activate Trainer")) then
local SaveThisRecord = true
for j=1,#DoNotSaveDescriptions do
if al.MemoryRecord[i].Description == DoNotSaveDescriptions[j] then
SaveThisRecord = false
end
end
if SaveThisRecord then
line = al.MemoryRecord[i].Description
local fields = line:split(",")
for i=1,#fields do
local field = fields[i]
if field == '' then
field = null
end
fields[i] = tonumber(field) or field
end
table.insert(csvTable, fields)
end
end
end
end
return csvTable
end
--- Code from Internet to deal with checking if folder exists
function exists(file)
local ok, err, code = os.rename(file, file)
if not ok then
if code == 13 then
-- Permission denied, but it exists
return true
end
end
return ok, err
end
function isdir(path)
-- "/" works on both Unix and Windows
return exists(path.."/")
end
-- Our function to create our save state folder
function CheckOurSaveStateFolder()
local myFolder = os.getenv("USERPROFILE")
local ourPath = myFolder .. sConfigSubFolder
if (bUnableToCreateFolder == 0) then
if not (isdir(myFolder .. sConfigSubFolder)) then
os.execute('mkdir ' .. ourPath)
end
if not (isdir(myFolder .. sConfigSubFolder)) then
bUnableToCreateFolder = 1
local MyMessage = string.format("Save and Load Trainer Values will not function\n until you manually create the following folder\n" .. myFolder .. sConfigSubFolder)
showMessage(MyMessage)
end
end
return ourPath
end
-----------------------------------------------------------------
function onMemRecPostExecute(memoryrecord, newState, succeeded)
for i=1,#PerformActivateList do
if memoryrecord.Description == PerformActivateList[i] then
table.remove(PerformActivateList,i)
end
end
for j=1,#CurrentlyActivatingList do
if memoryrecord.Description == CurrentlyActivatingList[j] then
table.remove(CurrentlyActivatingList,j)
end
end
end
function StartSaveLoadTrainerValuesHandler()
if (tTrainerValues ~= nil) then
tTrainerValues.destroy()
end
tTrainerValues = createTimer(nil, false)
tTrainerValues.OnTimer = function(fTrainerValues)
-- Check If CurrentSlotDescriptions Is Empty and Initialize If So
if #CurrentSlotDescriptions == 0 then
InitializeConfigSlotDescriptions()
end
local baseFileName = nil
if (process ~= nil) then
if (string.find(string.reverse(process),"[.]") ~= nil) then
baseFileName = string.sub(process,1,string.len(string.reverse(process))-string.find(string.reverse(process),"[.]"))
end
end
if (baseFileName ~= nil) then
-- First, we check for saving values
if (bPerformSaveTrainerValues == 1) then
bPerformSaveTrainerValues = 0
-- First, we save symbols
local current_csv_table = create_symbol_table(SaveSymbolList)
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Symbols_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
write_csv(filename,current_csv_table,",")
-- Finally, we save current active cheat list
local current_active_csv_table = create_active_cheat_list_table()
local filename2 = ourFolder .. baseFileName .. '_Active_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
write_csv(filename2,current_active_csv_table,",")
else
if CheckCheatRecordActive("Save Current Trainer Values") then
ActivateCheatRecord("Save Current Trainer Values")
end
end
-- Next, we check for loading symbol values which can only be done after loading and activating cheats
if (bFinishedActivateTrainerCheats == 1) then
if (bPerformLoadTrainerValues == 1) then
bPerformLoadTrainerValues = 0
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Symbols_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
if exists(filename) then
local loaded_csv_table = read_csv(filename,",",true,null)
if (loaded_csv_table ~= nil) then
write_symbol_table(loaded_csv_table)
end
end
end
end
-- Next, we check for loading and activating cheats
if (bFinishedActivateTrainerCheats == 0) then
if (bPerformActivateTrainerCheats == 1) then
bPerformActivateTrainerCheats = 0
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Active_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
if exists(filename) then
local loaded_csv_table = read_csv(filename,",",true,null)
if (loaded_csv_table ~= nil) then
-- First, make sure list is empty
for i=#PerformActivateList,1,-1 do
table.remove(PerformActivateList,i)
end
for i=1,#loaded_csv_table do
local CurrentDesc = ""
for j=1,#loaded_csv_table[i] do
if (j > 1) then
CurrentDesc = CurrentDesc .. "," .. loaded_csv_table[i][j]
else
CurrentDesc = CurrentDesc .. loaded_csv_table[i][j]
end
end
table.insert(PerformActivateList,CurrentDesc)
end
end
end
end
end
-- Finally, Loop Through The Current PerformActivateList and attempt to activate the cheat
if (bFinishedActivateTrainerCheats == 0) then
if (#PerformActivateList == 0) then
bFinishedActivateTrainerCheats = 1
else
for i=1,#PerformActivateList do
if not CheckCheatRecordActive(PerformActivateList[i]) then
--if #CurrentlyActivatingList == 0 then
ToggleActivateCheatRecord(PerformActivateList[i])
--table.insert(CurrentlyActivatingList,PerformActivateList[i])
--end
else
table.remove(PerformActivateList,i)
end
end
end
else
if CheckCheatRecordActive("Load Current Trainer Values") then
ActivateCheatRecord("Load Current Trainer Values")
end
end
end
end
tTrainerValues.Interval = 500
tTrainerValues.Enabled = true
end
-- Actually Call Our Save and Load Handler function to start up the timer
StartSaveLoadTrainerValuesHandler()
------------------------------------------------------------------------------------------
PROCESS_NAME = 'StarOceanTheLastHope.exe'
--------
-------- Auto Attach
--------
local autoAttachTimer = nil ---- variable to hold timer object
local autoAttachTimerInterval = 1 ---- Timer intervals are in milliseconds
local autoAttachTimerTicks = 0 ---- variable to count number of times the timer has run
local autoAttachTimerTickMax = 0 ---- Set to zero to disable ticks max
local function autoAttachTimer_tick(timer) ---- Timer tick call back
---- Destroy timer if max ticks is reached
if autoAttachTimerTickMax > 0 and autoAttachTimerTicks >= autoAttachTimerTickMax then
timer.destroy()
end
---- Check if process is running
if getProcessIDFromProcessName(PROCESS_NAME) ~= nil then
timer.destroy() ---- Destroy timer
openProcess(PROCESS_NAME) ---- Open the process
pause()
local EnumChildWindowsPtr = getAddressSafe("EnumChildWindows")
WriteBytes(EnumChildWindowsPtr,0xC3)
unpause()
end
autoAttachTimerTicks = autoAttachTimerTicks + 1 ---- Increase ticks
end
autoAttachTimer = createTimer(getMainForm()) ---- Create timer with the main form as it's parent
autoAttachTimer.Interval = autoAttachTimerInterval ---- Set timer interval
autoAttachTimer.OnTimer = autoAttachTimer_tick ---- Set timer tick call back
function lua_aobscan(name,module,bytes,index)
index = index - 1
if(module == "") then
local resultSet = AOBScan(bytes)
if(resultSet == nil) then
unregisterSymbol(name)
print(name.." not found")
else
unregisterSymbol(name)
registerSymbol(name,resultSet[index])
resultSet.destroy()
end
else
if(getModuleSize(module) == nil) then
print("Module "..module.." not found")
else
local memScanner = createMemScan()
local memFoundList = createFoundList(memScanner)
memScanner.firstScan(
soExactValue,vtByteArray,rtRounded,bytes,nil,
getAddress(module),(getAddress(module)+getModuleSize(module)),"",
fsmNotAligned,"",true,false,false,false)
memScanner.waitTillDone()
memFoundList.initialize()
if(memFoundList.Count == 0) then
unregisterSymbol(name)
print(name.." in module "..module.." not found")
else
unregisterSymbol(name)
registerSymbol(name,memFoundList.Address[index])
end
memScanner.destroy()
memFoundList.destroy()
end
end
end
function lua_aobscan_last(name,module,bytes)
if(module == "") then
local resultSet = AOBScan(bytes)
if(resultSet == nil) then
unregisterSymbol(name)
print(name.." not found")
else
unregisterSymbol(name)
registerSymbol(name,resultSet[#resultSet])
resultSet.destroy()
end
else
if(getModuleSize(module) == nil) then
print("Module "..module.." not found")
else
local memScanner = createMemScan()
local memFoundList = createFoundList(memScanner)
memScanner.firstScan(
soExactValue,vtByteArray,rtRounded,bytes,nil,
getAddress(module),(getAddress(module)+getModuleSize(module)),"",
fsmNotAligned,"",true,false,false,false)
memScanner.waitTillDone()
memFoundList.initialize()
if(memFoundList.Count == 0) then
unregisterSymbol(name)
print(name.." in module "..module.." not found")
else
unregisterSymbol(name)
registerSymbol(name,memFoundList.Address[memFoundList.Count-1])
end
memScanner.destroy()
memFoundList.destroy()
end
end
end
-- Function By DrummerIX to find the address of an AOB that matches a particular name
-- as there are times when CE shows a name, but you cannot go to that address by using
-- the name by default, so we use this as a workaround
-- It expects a name to register the found address, a module name (can be blank), the bytes to search, and the name to match
function lua_aobscan_find_method(name,module,bytes,method_name)
if(module == "") then
local resultSet = AOBScan(bytes)
if(resultSet == nil) then
unregisterSymbol(name)
print(name.." not found")
else
-- Go Through Results Looking For method_name
for i=0,resultSet.Count-1 do
local CurrentAddress = resultSet[i]
local CurrentName = getNameFromAddress(CurrentAddress)
if CurrentName ~= nil then
if CurrentName == method_name then
unregisterSymbol(name)
registerSymbol(name,CurrentAddress)
end
end
end
resultSet.destroy()
end
else
if(getModuleSize(module) == nil) then
print("Module "..module.." not found")
else
local memScanner = createMemScan()
local memFoundList = createFoundList(memScanner)
memScanner.firstScan(
soExactValue,vtByteArray,rtRounded,bytes,nil,
getAddress(module),(getAddress(module)+getModuleSize(module)),"",
fsmNotAligned,"",true,false,false,false)
memScanner.waitTillDone()
memFoundList.initialize()
if(memFoundList.Count == 0) then
unregisterSymbol(name)
print(name.." in module "..module.." not found")
else
-- Go Through Results Looking For method_name
for i=0,memFoundList.Count-1 do
local CurrentName = getNameFromAddress(memFoundList.Address[i])
if CurrentName ~= nil then
if CurrentName == method_name then
unregisterSymbol(name)
registerSymbol(name,memFoundList.Address[i])
end
end
end
end
memScanner.destroy()
memFoundList.destroy()
end
end
end
-- code by FreeER
function getFields(param)
-- simplified 'classname' or 'namespace:classname' input
-- obviously you could just change the code to pass findClass's result
--local namespace,classname = param:match('(%w+):?(%w*)')
-- DrummerIX modified the Regex for match to account for periods in classnames (we want everything before : and then everything after :)
local namespace,classname = param:match('([%w%d%.]*):?([%w%d%.]*)')
if not classname or classname == '' then namespace, classname = '', namespace end
local class=mono_findClass(namespace, classname)
local fields=mono_class_enumFields(class)
local result = {}
for _, field in ipairs(fields) do
local keyfieldname = field.name:gsub("<","_"):gsub(">","_")
--print(namespace,classname,keyfieldname)
result[keyfieldname] = field.offset
end
return result
end
-- Functions By Panraven for mono finding method by signature
function reEscape(s)
local escPatChars = [[().%+-*?[^]]
s = s:gsub('.',function(c) if escPatChars:find(c,1,true) then return '%'..c end end)
return s
end
function findMethodAddrBySignature(namespace,classname,methodname,signature,check)
local meth = findMethodBySignature(namespace,classname,methodname,signature,check)
if meth~=nil and meth>0 then
return mono_compile_method(meth)
end
end
function findMethodBySignature(namespace,classname,methodname,signature,check)
assert(type(signature)=='string',"invalid signature")
signature="^"..reEscape(signature:gsub(";",","))
local class = mono_findClass(namespace,classname)
if type(class)~='number' or class==0 then return nil end
local methods=mono_class_enumMethods(class)
if type(methods)~='table' or #methods < 1 then return nil end
if check then print('check:'..methodname..": <"..signature.."> vs ") end
for i=1,#methods do
if methodname == methods[i].name then
local sign = mono_method_getSignature(methods[i].method)
if check then print(" >> <"..sign..'>') end
if sign:match(signature) then
return methods[i].method
end
end
end
end
-- Test
function tohex(n)return string.format('%X',n or 0)end
-- test
--print('--') -- test to show/print all signature of a given function name
--print(tohex(findMethodAddrBySignature('Assembly-CSharp','CommissionFactory','GenerateCommissionsFrequently','?',true)))
--print('--') -- test to match a specific (third) signature of a function name
--print(tohex(findMethodAddrBySignature('Assembly-CSharp','CommissionFactory','GenerateCommissionsFrequently','bool$',true)))
-- the last '$' is lua match end-of-string, wthout this, the match MAY succeed on fourth one.
-- all other character should be compare as is, including upper/lower cases.
-----------------------------------------------------------------------------------------------
--- Things below here deal with the Save and Load of Trainer Values
-----------------------------------------------------------------------------------------------
--- Global List Variables For Use In Save and Load Trainer State
SaveSymbolList = {}
PerformActivateList = {}
CurrentlyActivatingList = {}
CurrentSlotDescriptions = {}
DoNotSaveDescriptions = {
"Save Current Trainer Values",
"Load Current Trainer Values",
"Change Slot Config Description"
}
-- Global Variable For Our SubFolder To Store Configs In
sConfigSubFolder = "\\CheatEvolution\\"
--- Global Variables To Deal With Our Handler Function
bPerformSaveTrainerValues = 0
bPerformLoadTrainerValues = 0
bPerformActivateTrainerCheats = 0
bFinishedActivateTrainerCheats = 1
bUnableToCreateFolder = 0
--- Global Variable Dealing With Save Config Slot #
iSaveConfigSlot = 1
iMaxSaveConfigSlots = 10
function LoadTrainerValues()
-- First We Ask What Slot They Want To Load
local mySL = CreateStringList()
for i,j in ipairs(CurrentSlotDescriptions) do
mySL.add(j)
end
local result = showSelectionList('Load Trainer Values', 'Which Config Slot', mySL, false)
mySL.destroy()
if result ~= nil then
if result ~= -1 then
iSaveConfigSlot = result + 1
bPerformLoadTrainerValues = 1
bPerformActivateTrainerCheats = 1
bFinishedActivateTrainerCheats = 0
end
end
end
function SaveTrainerValues()
-- First We Ask What Slot They Want To Load
local mySL = CreateStringList()
for i,j in ipairs(CurrentSlotDescriptions) do
mySL.add(j)
end
local result = showSelectionList('Save Trainer Values', 'Which Config Slot', mySL, false)
mySL.destroy()
if result ~= nil then
if result ~= -1 then
iSaveConfigSlot = result + 1
bPerformSaveTrainerValues = 1
end
end
end
function WriteOutCurrentSlotDescriptions()
local baseFileName = nil
if (process ~= nil) then
if (string.find(string.reverse(process),"[.]") ~= nil) then
baseFileName = string.sub(process,1,string.len(string.reverse(process))-string.find(string.reverse(process),"[.]"))
end
end
if (baseFileName ~= nil) then
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Slots.txt'
local file = assert(io.open(filename, "w"))
for i=1,#CurrentSlotDescriptions do
file:write(CurrentSlotDescriptions[i] .. '\n')
end
file:close()
end
end
function ChangeSlotDescription()
-- First We Ask What Slot They Want To Load
local mySL = CreateStringList()
for i,j in ipairs(CurrentSlotDescriptions) do
mySL.add(j)
end
local result = showSelectionList('Change Slot Description', 'Which Config Slot', mySL, false)
mySL.destroy()
if result ~= nil then
if result ~= -1 then
local myPrompt = 'Current Description for [Slot ' .. string.format("%d",result+1) .. '] is ' .. CurrentSlotDescriptions[result+1]
myPrompt = myPrompt .. '\n\nWhat do you want to change it to?'
local newDesc = inputQuery('Change Slot Description',myPrompt,CurrentSlotDescriptions[result+1])
if newDesc ~= nil then
CurrentSlotDescriptions[result+1] = newDesc
-- Write Out Our Changes
WriteOutCurrentSlotDescriptions()
end
end
end
-- Deactivate This Memory Record
ActivateCheatRecord("Change Slot Config Description")
end
function InitializeConfigSlotDescriptions()
local baseFileName = nil
if (process ~= nil) then
if (string.find(string.reverse(process),"[.]") ~= nil) then
baseFileName = string.sub(process,1,string.len(string.reverse(process))-string.find(string.reverse(process),"[.]"))
end
end
if (baseFileName ~= nil) then
for i=#CurrentSlotDescriptions,1,-1 do
table.remove(CurrentSlotDescriptions,i)
end
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Slots.txt'
if not exists(filename) and (bUnableToCreateFolder == 0) then
-- Create Default Slot Descriptions
local file = assert(io.open(filename, "w"))
for i=1,iMaxSaveConfigSlots do
if i == 1 then
file:write("Default\n")
table.insert(CurrentSlotDescriptions,"Default")
else
file:write("Slot " .. string.format("%d",i) .. "\n")
table.insert(CurrentSlotDescriptions,"Slot " .. string.format("%d",i))
end
end
file:close()
else
if (bUnableToCreateFolder == 0) then
-- Read In Current Slot Descriptions
local file = assert(io.open(filename, "r"))
for line in file:lines() do
table.insert(CurrentSlotDescriptions,line)
end
end
end
end
end
-- Functions Found On Internet For Dealing With CSV files
function string:split(sSeparator, nMax, bRegexp)
if sSeparator == '' then
sSeparator = ','
end
if nMax and nMax < 1 then
nMax = nil
end
local aRecord = {}
if self:len() > 0 then
local bPlain = not bRegexp
nMax = nMax or -1
local nField, nStart = 1, 1
local nFirst,nLast = self:find(sSeparator, nStart, bPlain)
while nFirst and nMax ~= 0 do
aRecord[nField] = self:sub(nStart, nFirst-1)
nField = nField+1
nStart = nLast+1
nFirst,nLast = self:find(sSeparator, nStart, bPlain)
nMax = nMax-1
end
aRecord[nField] = self:sub(nStart)
end
return aRecord
end
---------------------------------------------------------------------
function read_csv(path, sep, tonum, null)
tonum = tonum or true
sep = sep or ','
null = null or ''
local csvFile = {}
local file = assert(io.open(path, "r"))
for line in file:lines() do
fields = line:split(sep)
if tonum then -- convert numeric fields to numbers
for i=1,#fields do
local field = fields[i]
if field == '' then
field = null
end
fields[i] = tonumber(field) or field
end
end
table.insert(csvFile, fields)
end
file:close()
return csvFile
end
---------------------------------------------------------------------
function write_csv(path, data, sep)
sep = sep or ','
local file = assert(io.open(path, "w"))
for i=1,#data do
for j=1,#data[i] do
if j>1 then file:write(sep) end
file:write(data[i][j])
end
file:write('\n')
end
file:close()
end
----- Function Written By DrummerIX for creating our table to write to CSV
--------------------------------------------------------------------------
--- It expects a list of symbols to enumerate and get the current value of as a Qword
function create_symbol_table(list_of_symbols)
local csvTable = {}
for k,v in ipairs(list_of_symbols) do
local SymbolPtr = getAddressSafe(v)
if (SymbolPtr ~= nil) then
if (SymbolPtr ~= 0) then
if (ReadBytes(SymbolPtr) ~= nil) then
local line = v
for i=0,7 do
local CurrentByte = ReadBytes(SymbolPtr+i)
line = line .. "," .. string.format("%d",CurrentByte)
end
local fields = line:split(",")
for i=1,#fields do
local field = fields[i]
if field == '' then
field = null
end
fields[i] = tonumber(field) or field
end
table.insert(csvTable, fields)
end
end
end
end
return csvTable
end
----- Function Written By DrummerIX for writing our table to current memory
--------------------------------------------------------------------------
--- It expects a table either from reading a CSV or create_symbol_table function
--- to enumerate and write value of as a Qword
function write_symbol_table(table_of_symbols)
for i=1,#table_of_symbols do
local SymbolPtr = getAddressSafe(table_of_symbols[i][1])
if (SymbolPtr ~= nil) then
if (SymbolPtr ~= 0) then
for j=2,9 do
WriteBytes(SymbolPtr + (j-2),table_of_symbols[i][j])
end
end
end
end
end
--- Function by panraven dealing with enumerating current symbols
--- This is helper function because we sometimes don't need every symbol saved and loaded_csv_table
--- So this gets all symbols and you manually remove those you don't need
function printUserDefinedSymbols()
local mv,sf = getMemoryViewForm()
if not mv.frmSymbolhandler then
local mvHidden
if not mv.Visible then mvHidden=true,mv.Show() end
mv.miuserdefinedsymbols:OnClick()
if mvHidden then mv.hide()end
sf = mv.frmSymbolhandler
sf.Hide()
else
sf = mv.frmSymbolhandler
end
if sf ~= nil then
local symbol
for i = 0, sf.Listview1.Items.Count - 1 do
symbol = sf.Listview1.Items.Item[i].Caption
print('"' .. symbol .. '",')
end
end
end
--- Function Written By DrummerIX for help in activating cheat records in the trainer app
--- It requires that hotkeys be defined for the cheats
--- It expects the name of the record to activate
function ActivateCheatRecord(mr_desc)
local al = getAddressList()
local mr = al.getMemoryRecordByDescription(mr_desc)
if (mr ~= nil) then
for i = 0,mr.HotkeyCount-1 do
for j = 1,#mr.Hotkey[i].Keys do
keyDown(mr.Hotkey[i].Keys[j])
end
end
sleep(5)
for i = 0,mr.HotkeyCount-1 do
for j = 1,#mr.Hotkey[i].Keys do
keyUp(mr.Hotkey[i].Keys[j])
end
end
sleep(5)
end
end
function ToggleActivateCheatRecord(mr_desc)
local al = getAddressList()
local mr = al.getMemoryRecordByDescription(mr_desc)
if (mr ~= nil) then
if mr.Active == true then
mr.Active = false
else
mr.Active = true
end
end
end
function CheckCheatRecordActive(mr_desc)
local al = getAddressList()
local mr = al.getMemoryRecordByDescription(mr_desc)
if (mr ~= nil) then
return mr.Active
else
return false
end
end
function create_active_cheat_list_table()
local al = getAddressList()
local csvTable = {}
for i = 0,al.Count-1 do
if (al.MemoryRecord[i].Active) then
if not (string.find(al.MemoryRecord[i].Description,"Activate Trainer")) then
local SaveThisRecord = true
for j=1,#DoNotSaveDescriptions do
if al.MemoryRecord[i].Description == DoNotSaveDescriptions[j] then
SaveThisRecord = false
end
end
if SaveThisRecord then
line = al.MemoryRecord[i].Description
local fields = line:split(",")
for i=1,#fields do
local field = fields[i]
if field == '' then
field = null
end
fields[i] = tonumber(field) or field
end
table.insert(csvTable, fields)
end
end
end
end
return csvTable
end
--- Code from Internet to deal with checking if folder exists
function exists(file)
local ok, err, code = os.rename(file, file)
if not ok then
if code == 13 then
-- Permission denied, but it exists
return true
end
end
return ok, err
end
function isdir(path)
-- "/" works on both Unix and Windows
return exists(path.."/")
end
-- Our function to create our save state folder
function CheckOurSaveStateFolder()
local myFolder = os.getenv("USERPROFILE")
local ourPath = myFolder .. sConfigSubFolder
if (bUnableToCreateFolder == 0) then
if not (isdir(myFolder .. sConfigSubFolder)) then
os.execute('mkdir ' .. ourPath)
end
if not (isdir(myFolder .. sConfigSubFolder)) then
bUnableToCreateFolder = 1
local MyMessage = string.format("Save and Load Trainer Values will not function\n until you manually create the following folder\n" .. myFolder .. sConfigSubFolder)
showMessage(MyMessage)
end
end
return ourPath
end
-----------------------------------------------------------------
function onMemRecPostExecute(memoryrecord, newState, succeeded)
for i=1,#PerformActivateList do
if memoryrecord.Description == PerformActivateList[i] then
table.remove(PerformActivateList,i)
end
end
for j=1,#CurrentlyActivatingList do
if memoryrecord.Description == CurrentlyActivatingList[j] then
table.remove(CurrentlyActivatingList,j)
end
end
end
function StartSaveLoadTrainerValuesHandler()
if (tTrainerValues ~= nil) then
tTrainerValues.destroy()
end
tTrainerValues = createTimer(nil, false)
tTrainerValues.OnTimer = function(fTrainerValues)
-- Check If CurrentSlotDescriptions Is Empty and Initialize If So
if #CurrentSlotDescriptions == 0 then
InitializeConfigSlotDescriptions()
end
local baseFileName = nil
if (process ~= nil) then
if (string.find(string.reverse(process),"[.]") ~= nil) then
baseFileName = string.sub(process,1,string.len(string.reverse(process))-string.find(string.reverse(process),"[.]"))
end
end
if (baseFileName ~= nil) then
-- First, we check for saving values
if (bPerformSaveTrainerValues == 1) then
bPerformSaveTrainerValues = 0
-- First, we save symbols
local current_csv_table = create_symbol_table(SaveSymbolList)
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Symbols_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
write_csv(filename,current_csv_table,",")
-- Finally, we save current active cheat list
local current_active_csv_table = create_active_cheat_list_table()
local filename2 = ourFolder .. baseFileName .. '_Active_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
write_csv(filename2,current_active_csv_table,",")
else
if CheckCheatRecordActive("Save Current Trainer Values") then
ActivateCheatRecord("Save Current Trainer Values")
end
end
-- Next, we check for loading symbol values which can only be done after loading and activating cheats
if (bFinishedActivateTrainerCheats == 1) then
if (bPerformLoadTrainerValues == 1) then
bPerformLoadTrainerValues = 0
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Symbols_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
if exists(filename) then
local loaded_csv_table = read_csv(filename,",",true,null)
if (loaded_csv_table ~= nil) then
write_symbol_table(loaded_csv_table)
end
end
end
end
-- Next, we check for loading and activating cheats
if (bFinishedActivateTrainerCheats == 0) then
if (bPerformActivateTrainerCheats == 1) then
bPerformActivateTrainerCheats = 0
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Active_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
if exists(filename) then
local loaded_csv_table = read_csv(filename,",",true,null)
if (loaded_csv_table ~= nil) then
-- First, make sure list is empty
for i=#PerformActivateList,1,-1 do
table.remove(PerformActivateList,i)
end
for i=1,#loaded_csv_table do
local CurrentDesc = ""
for j=1,#loaded_csv_table[i] do
if (j > 1) then
CurrentDesc = CurrentDesc .. "," .. loaded_csv_table[i][j]
else
CurrentDesc = CurrentDesc .. loaded_csv_table[i][j]
end
end
table.insert(PerformActivateList,CurrentDesc)
end
end
end
end
end
-- Finally, Loop Through The Current PerformActivateList and attempt to activate the cheat
if (bFinishedActivateTrainerCheats == 0) then
if (#PerformActivateList == 0) then
bFinishedActivateTrainerCheats = 1
else
for i=1,#PerformActivateList do
if not CheckCheatRecordActive(PerformActivateList[i]) then
--if #CurrentlyActivatingList == 0 then
ToggleActivateCheatRecord(PerformActivateList[i])
--table.insert(CurrentlyActivatingList,PerformActivateList[i])
--end
else
table.remove(PerformActivateList,i)
end
end
end
else
if CheckCheatRecordActive("Load Current Trainer Values") then
ActivateCheatRecord("Load Current Trainer Values")
end
end
end
end
tTrainerValues.Interval = 500
tTrainerValues.Enabled = true
end
-- Actually Call Our Save and Load Handler function to start up the timer
StartSaveLoadTrainerValuesHandler()
------------------------------------------------------------------------------------------
PROCESS_NAME = 'StarOceanTheLastHope.exe'
--------
-------- Auto Attach
--------
local autoAttachTimer = nil ---- variable to hold timer object
local autoAttachTimerInterval = 1 ---- Timer intervals are in milliseconds
local autoAttachTimerTicks = 0 ---- variable to count number of times the timer has run
local autoAttachTimerTickMax = 0 ---- Set to zero to disable ticks max
local function autoAttachTimer_tick(timer) ---- Timer tick call back
---- Destroy timer if max ticks is reached
if autoAttachTimerTickMax > 0 and autoAttachTimerTicks >= autoAttachTimerTickMax then
timer.destroy()
end
---- Check if process is running
if getProcessIDFromProcessName(PROCESS_NAME) ~= nil then
timer.destroy() ---- Destroy timer
openProcess(PROCESS_NAME) ---- Open the process
pause()
local EnumChildWindowsPtr = getAddressSafe("EnumChildWindows")
WriteBytes(EnumChildWindowsPtr,0xC3)
unpause()
end
autoAttachTimerTicks = autoAttachTimerTicks + 1 ---- Increase ticks
end
autoAttachTimer = createTimer(getMainForm()) ---- Create timer with the main form as it's parent
autoAttachTimer.Interval = autoAttachTimerInterval ---- Set timer interval
autoAttachTimer.OnTimer = autoAttachTimer_tick ---- Set timer tick call back
function lua_aobscan(name,module,bytes,index)
index = index - 1
if(module == "") then
local resultSet = AOBScan(bytes)
if(resultSet == nil) then
unregisterSymbol(name)
print(name.." not found")
else
unregisterSymbol(name)
registerSymbol(name,resultSet[index])
resultSet.destroy()
end
else
if(getModuleSize(module) == nil) then
print("Module "..module.." not found")
else
local memScanner = createMemScan()
local memFoundList = createFoundList(memScanner)
memScanner.firstScan(
soExactValue,vtByteArray,rtRounded,bytes,nil,
getAddress(module),(getAddress(module)+getModuleSize(module)),"",
fsmNotAligned,"",true,false,false,false)
memScanner.waitTillDone()
memFoundList.initialize()
if(memFoundList.Count == 0) then
unregisterSymbol(name)
print(name.." in module "..module.." not found")
else
unregisterSymbol(name)
registerSymbol(name,memFoundList.Address[index])
end
memScanner.destroy()
memFoundList.destroy()
end
end
end
function lua_aobscan_last(name,module,bytes)
if(module == "") then
local resultSet = AOBScan(bytes)
if(resultSet == nil) then
unregisterSymbol(name)
print(name.." not found")
else
unregisterSymbol(name)
registerSymbol(name,resultSet[#resultSet])
resultSet.destroy()
end
else
if(getModuleSize(module) == nil) then
print("Module "..module.." not found")
else
local memScanner = createMemScan()
local memFoundList = createFoundList(memScanner)
memScanner.firstScan(
soExactValue,vtByteArray,rtRounded,bytes,nil,
getAddress(module),(getAddress(module)+getModuleSize(module)),"",
fsmNotAligned,"",true,false,false,false)
memScanner.waitTillDone()
memFoundList.initialize()
if(memFoundList.Count == 0) then
unregisterSymbol(name)
print(name.." in module "..module.." not found")
else
unregisterSymbol(name)
registerSymbol(name,memFoundList.Address[memFoundList.Count-1])
end
memScanner.destroy()
memFoundList.destroy()
end
end
end
-- Function By DrummerIX to find the address of an AOB that matches a particular name
-- as there are times when CE shows a name, but you cannot go to that address by using
-- the name by default, so we use this as a workaround
-- It expects a name to register the found address, a module name (can be blank), the bytes to search, and the name to match
function lua_aobscan_find_method(name,module,bytes,method_name)
if(module == "") then
local resultSet = AOBScan(bytes)
if(resultSet == nil) then
unregisterSymbol(name)
print(name.." not found")
else
-- Go Through Results Looking For method_name
for i=0,resultSet.Count-1 do
local CurrentAddress = resultSet[i]
local CurrentName = getNameFromAddress(CurrentAddress)
if CurrentName ~= nil then
if CurrentName == method_name then
unregisterSymbol(name)
registerSymbol(name,CurrentAddress)
end
end
end
resultSet.destroy()
end
else
if(getModuleSize(module) == nil) then
print("Module "..module.." not found")
else
local memScanner = createMemScan()
local memFoundList = createFoundList(memScanner)
memScanner.firstScan(
soExactValue,vtByteArray,rtRounded,bytes,nil,
getAddress(module),(getAddress(module)+getModuleSize(module)),"",
fsmNotAligned,"",true,false,false,false)
memScanner.waitTillDone()
memFoundList.initialize()
if(memFoundList.Count == 0) then
unregisterSymbol(name)
print(name.." in module "..module.." not found")
else
-- Go Through Results Looking For method_name
for i=0,memFoundList.Count-1 do
local CurrentName = getNameFromAddress(memFoundList.Address[i])
if CurrentName ~= nil then
if CurrentName == method_name then
unregisterSymbol(name)
registerSymbol(name,memFoundList.Address[i])
end
end
end
end
memScanner.destroy()
memFoundList.destroy()
end
end
end
-- code by FreeER
function getFields(param)
-- simplified 'classname' or 'namespace:classname' input
-- obviously you could just change the code to pass findClass's result
--local namespace,classname = param:match('(%w+):?(%w*)')
-- DrummerIX modified the Regex for match to account for periods in classnames (we want everything before : and then everything after :)
local namespace,classname = param:match('([%w%d%.]*):?([%w%d%.]*)')
if not classname or classname == '' then namespace, classname = '', namespace end
local class=mono_findClass(namespace, classname)
local fields=mono_class_enumFields(class)
local result = {}
for _, field in ipairs(fields) do
local keyfieldname = field.name:gsub("<","_"):gsub(">","_")
--print(namespace,classname,keyfieldname)
result[keyfieldname] = field.offset
end
return result
end
-- Functions By Panraven for mono finding method by signature
function reEscape(s)
local escPatChars = [[().%+-*?[^]]
s = s:gsub('.',function(c) if escPatChars:find(c,1,true) then return '%'..c end end)
return s
end
function findMethodAddrBySignature(namespace,classname,methodname,signature,check)
local meth = findMethodBySignature(namespace,classname,methodname,signature,check)
if meth~=nil and meth>0 then
return mono_compile_method(meth)
end
end
function findMethodBySignature(namespace,classname,methodname,signature,check)
assert(type(signature)=='string',"invalid signature")
signature="^"..reEscape(signature:gsub(";",","))
local class = mono_findClass(namespace,classname)
if type(class)~='number' or class==0 then return nil end
local methods=mono_class_enumMethods(class)
if type(methods)~='table' or #methods < 1 then return nil end
if check then print('check:'..methodname..": <"..signature.."> vs ") end
for i=1,#methods do
if methodname == methods[i].name then
local sign = mono_method_getSignature(methods[i].method)
if check then print(" >> <"..sign..'>') end
if sign:match(signature) then
return methods[i].method
end
end
end
end
-- Test
function tohex(n)return string.format('%X',n or 0)end
-- test
--print('--') -- test to show/print all signature of a given function name
--print(tohex(findMethodAddrBySignature('Assembly-CSharp','CommissionFactory','GenerateCommissionsFrequently','?',true)))
--print('--') -- test to match a specific (third) signature of a function name
--print(tohex(findMethodAddrBySignature('Assembly-CSharp','CommissionFactory','GenerateCommissionsFrequently','bool$',true)))
-- the last '$' is lua match end-of-string, wthout this, the match MAY succeed on fourth one.
-- all other character should be compare as is, including upper/lower cases.
-----------------------------------------------------------------------------------------------
--- Things below here deal with the Save and Load of Trainer Values
-----------------------------------------------------------------------------------------------
--- Global List Variables For Use In Save and Load Trainer State
SaveSymbolList = {}
PerformActivateList = {}
CurrentlyActivatingList = {}
CurrentSlotDescriptions = {}
DoNotSaveDescriptions = {
"Save Current Trainer Values",
"Load Current Trainer Values",
"Change Slot Config Description"
}
-- Global Variable For Our SubFolder To Store Configs In
sConfigSubFolder = "\\CheatEvolution\\"
--- Global Variables To Deal With Our Handler Function
bPerformSaveTrainerValues = 0
bPerformLoadTrainerValues = 0
bPerformActivateTrainerCheats = 0
bFinishedActivateTrainerCheats = 1
bUnableToCreateFolder = 0
--- Global Variable Dealing With Save Config Slot #
iSaveConfigSlot = 1
iMaxSaveConfigSlots = 10
function LoadTrainerValues()
-- First We Ask What Slot They Want To Load
local mySL = CreateStringList()
for i,j in ipairs(CurrentSlotDescriptions) do
mySL.add(j)
end
local result = showSelectionList('Load Trainer Values', 'Which Config Slot', mySL, false)
mySL.destroy()
if result ~= nil then
if result ~= -1 then
iSaveConfigSlot = result + 1
bPerformLoadTrainerValues = 1
bPerformActivateTrainerCheats = 1
bFinishedActivateTrainerCheats = 0
end
end
end
function SaveTrainerValues()
-- First We Ask What Slot They Want To Load
local mySL = CreateStringList()
for i,j in ipairs(CurrentSlotDescriptions) do
mySL.add(j)
end
local result = showSelectionList('Save Trainer Values', 'Which Config Slot', mySL, false)
mySL.destroy()
if result ~= nil then
if result ~= -1 then
iSaveConfigSlot = result + 1
bPerformSaveTrainerValues = 1
end
end
end
function WriteOutCurrentSlotDescriptions()
local baseFileName = nil
if (process ~= nil) then
if (string.find(string.reverse(process),"[.]") ~= nil) then
baseFileName = string.sub(process,1,string.len(string.reverse(process))-string.find(string.reverse(process),"[.]"))
end
end
if (baseFileName ~= nil) then
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Slots.txt'
local file = assert(io.open(filename, "w"))
for i=1,#CurrentSlotDescriptions do
file:write(CurrentSlotDescriptions[i] .. '\n')
end
file:close()
end
end
function ChangeSlotDescription()
-- First We Ask What Slot They Want To Load
local mySL = CreateStringList()
for i,j in ipairs(CurrentSlotDescriptions) do
mySL.add(j)
end
local result = showSelectionList('Change Slot Description', 'Which Config Slot', mySL, false)
mySL.destroy()
if result ~= nil then
if result ~= -1 then
local myPrompt = 'Current Description for [Slot ' .. string.format("%d",result+1) .. '] is ' .. CurrentSlotDescriptions[result+1]
myPrompt = myPrompt .. '\n\nWhat do you want to change it to?'
local newDesc = inputQuery('Change Slot Description',myPrompt,CurrentSlotDescriptions[result+1])
if newDesc ~= nil then
CurrentSlotDescriptions[result+1] = newDesc
-- Write Out Our Changes
WriteOutCurrentSlotDescriptions()
end
end
end
-- Deactivate This Memory Record
ActivateCheatRecord("Change Slot Config Description")
end
function InitializeConfigSlotDescriptions()
local baseFileName = nil
if (process ~= nil) then
if (string.find(string.reverse(process),"[.]") ~= nil) then
baseFileName = string.sub(process,1,string.len(string.reverse(process))-string.find(string.reverse(process),"[.]"))
end
end
if (baseFileName ~= nil) then
for i=#CurrentSlotDescriptions,1,-1 do
table.remove(CurrentSlotDescriptions,i)
end
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Slots.txt'
if not exists(filename) and (bUnableToCreateFolder == 0) then
-- Create Default Slot Descriptions
local file = assert(io.open(filename, "w"))
for i=1,iMaxSaveConfigSlots do
if i == 1 then
file:write("Default\n")
table.insert(CurrentSlotDescriptions,"Default")
else
file:write("Slot " .. string.format("%d",i) .. "\n")
table.insert(CurrentSlotDescriptions,"Slot " .. string.format("%d",i))
end
end
file:close()
else
if (bUnableToCreateFolder == 0) then
-- Read In Current Slot Descriptions
local file = assert(io.open(filename, "r"))
for line in file:lines() do
table.insert(CurrentSlotDescriptions,line)
end
end
end
end
end
-- Functions Found On Internet For Dealing With CSV files
function string:split(sSeparator, nMax, bRegexp)
if sSeparator == '' then
sSeparator = ','
end
if nMax and nMax < 1 then
nMax = nil
end
local aRecord = {}
if self:len() > 0 then
local bPlain = not bRegexp
nMax = nMax or -1
local nField, nStart = 1, 1
local nFirst,nLast = self:find(sSeparator, nStart, bPlain)
while nFirst and nMax ~= 0 do
aRecord[nField] = self:sub(nStart, nFirst-1)
nField = nField+1
nStart = nLast+1
nFirst,nLast = self:find(sSeparator, nStart, bPlain)
nMax = nMax-1
end
aRecord[nField] = self:sub(nStart)
end
return aRecord
end
---------------------------------------------------------------------
function read_csv(path, sep, tonum, null)
tonum = tonum or true
sep = sep or ','
null = null or ''
local csvFile = {}
local file = assert(io.open(path, "r"))
for line in file:lines() do
fields = line:split(sep)
if tonum then -- convert numeric fields to numbers
for i=1,#fields do
local field = fields[i]
if field == '' then
field = null
end
fields[i] = tonumber(field) or field
end
end
table.insert(csvFile, fields)
end
file:close()
return csvFile
end
---------------------------------------------------------------------
function write_csv(path, data, sep)
sep = sep or ','
local file = assert(io.open(path, "w"))
for i=1,#data do
for j=1,#data[i] do
if j>1 then file:write(sep) end
file:write(data[i][j])
end
file:write('\n')
end
file:close()
end
----- Function Written By DrummerIX for creating our table to write to CSV
--------------------------------------------------------------------------
--- It expects a list of symbols to enumerate and get the current value of as a Qword
function create_symbol_table(list_of_symbols)
local csvTable = {}
for k,v in ipairs(list_of_symbols) do
local SymbolPtr = getAddressSafe(v)
if (SymbolPtr ~= nil) then
if (SymbolPtr ~= 0) then
if (ReadBytes(SymbolPtr) ~= nil) then
local line = v
for i=0,7 do
local CurrentByte = ReadBytes(SymbolPtr+i)
line = line .. "," .. string.format("%d",CurrentByte)
end
local fields = line:split(",")
for i=1,#fields do
local field = fields[i]
if field == '' then
field = null
end
fields[i] = tonumber(field) or field
end
table.insert(csvTable, fields)
end
end
end
end
return csvTable
end
----- Function Written By DrummerIX for writing our table to current memory
--------------------------------------------------------------------------
--- It expects a table either from reading a CSV or create_symbol_table function
--- to enumerate and write value of as a Qword
function write_symbol_table(table_of_symbols)
for i=1,#table_of_symbols do
local SymbolPtr = getAddressSafe(table_of_symbols[i][1])
if (SymbolPtr ~= nil) then
if (SymbolPtr ~= 0) then
for j=2,9 do
WriteBytes(SymbolPtr + (j-2),table_of_symbols[i][j])
end
end
end
end
end
--- Function by panraven dealing with enumerating current symbols
--- This is helper function because we sometimes don't need every symbol saved and loaded_csv_table
--- So this gets all symbols and you manually remove those you don't need
function printUserDefinedSymbols()
local mv,sf = getMemoryViewForm()
if not mv.frmSymbolhandler then
local mvHidden
if not mv.Visible then mvHidden=true,mv.Show() end
mv.miuserdefinedsymbols:OnClick()
if mvHidden then mv.hide()end
sf = mv.frmSymbolhandler
sf.Hide()
else
sf = mv.frmSymbolhandler
end
if sf ~= nil then
local symbol
for i = 0, sf.Listview1.Items.Count - 1 do
symbol = sf.Listview1.Items.Item[i].Caption
print('"' .. symbol .. '",')
end
end
end
--- Function Written By DrummerIX for help in activating cheat records in the trainer app
--- It requires that hotkeys be defined for the cheats
--- It expects the name of the record to activate
function ActivateCheatRecord(mr_desc)
local al = getAddressList()
local mr = al.getMemoryRecordByDescription(mr_desc)
if (mr ~= nil) then
for i = 0,mr.HotkeyCount-1 do
for j = 1,#mr.Hotkey[i].Keys do
keyDown(mr.Hotkey[i].Keys[j])
end
end
sleep(5)
for i = 0,mr.HotkeyCount-1 do
for j = 1,#mr.Hotkey[i].Keys do
keyUp(mr.Hotkey[i].Keys[j])
end
end
sleep(5)
end
end
function ToggleActivateCheatRecord(mr_desc)
local al = getAddressList()
local mr = al.getMemoryRecordByDescription(mr_desc)
if (mr ~= nil) then
if mr.Active == true then
mr.Active = false
else
mr.Active = true
end
end
end
function CheckCheatRecordActive(mr_desc)
local al = getAddressList()
local mr = al.getMemoryRecordByDescription(mr_desc)
if (mr ~= nil) then
return mr.Active
else
return false
end
end
function create_active_cheat_list_table()
local al = getAddressList()
local csvTable = {}
for i = 0,al.Count-1 do
if (al.MemoryRecord[i].Active) then
if not (string.find(al.MemoryRecord[i].Description,"Activate Trainer")) then
local SaveThisRecord = true
for j=1,#DoNotSaveDescriptions do
if al.MemoryRecord[i].Description == DoNotSaveDescriptions[j] then
SaveThisRecord = false
end
end
if SaveThisRecord then
line = al.MemoryRecord[i].Description
local fields = line:split(",")
for i=1,#fields do
local field = fields[i]
if field == '' then
field = null
end
fields[i] = tonumber(field) or field
end
table.insert(csvTable, fields)
end
end
end
end
return csvTable
end
--- Code from Internet to deal with checking if folder exists
function exists(file)
local ok, err, code = os.rename(file, file)
if not ok then
if code == 13 then
-- Permission denied, but it exists
return true
end
end
return ok, err
end
function isdir(path)
-- "/" works on both Unix and Windows
return exists(path.."/")
end
-- Our function to create our save state folder
function CheckOurSaveStateFolder()
local myFolder = os.getenv("USERPROFILE")
local ourPath = myFolder .. sConfigSubFolder
if (bUnableToCreateFolder == 0) then
if not (isdir(myFolder .. sConfigSubFolder)) then
os.execute('mkdir ' .. ourPath)
end
if not (isdir(myFolder .. sConfigSubFolder)) then
bUnableToCreateFolder = 1
local MyMessage = string.format("Save and Load Trainer Values will not function\n until you manually create the following folder\n" .. myFolder .. sConfigSubFolder)
showMessage(MyMessage)
end
end
return ourPath
end
-----------------------------------------------------------------
function onMemRecPostExecute(memoryrecord, newState, succeeded)
for i=1,#PerformActivateList do
if memoryrecord.Description == PerformActivateList[i] then
table.remove(PerformActivateList,i)
end
end
for j=1,#CurrentlyActivatingList do
if memoryrecord.Description == CurrentlyActivatingList[j] then
table.remove(CurrentlyActivatingList,j)
end
end
end
function StartSaveLoadTrainerValuesHandler()
if (tTrainerValues ~= nil) then
tTrainerValues.destroy()
end
tTrainerValues = createTimer(nil, false)
tTrainerValues.OnTimer = function(fTrainerValues)
-- Check If CurrentSlotDescriptions Is Empty and Initialize If So
if #CurrentSlotDescriptions == 0 then
InitializeConfigSlotDescriptions()
end
local baseFileName = nil
if (process ~= nil) then
if (string.find(string.reverse(process),"[.]") ~= nil) then
baseFileName = string.sub(process,1,string.len(string.reverse(process))-string.find(string.reverse(process),"[.]"))
end
end
if (baseFileName ~= nil) then
-- First, we check for saving values
if (bPerformSaveTrainerValues == 1) then
bPerformSaveTrainerValues = 0
-- First, we save symbols
local current_csv_table = create_symbol_table(SaveSymbolList)
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Symbols_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
write_csv(filename,current_csv_table,",")
-- Finally, we save current active cheat list
local current_active_csv_table = create_active_cheat_list_table()
local filename2 = ourFolder .. baseFileName .. '_Active_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
write_csv(filename2,current_active_csv_table,",")
else
if CheckCheatRecordActive("Save Current Trainer Values") then
ActivateCheatRecord("Save Current Trainer Values")
end
end
-- Next, we check for loading symbol values which can only be done after loading and activating cheats
if (bFinishedActivateTrainerCheats == 1) then
if (bPerformLoadTrainerValues == 1) then
bPerformLoadTrainerValues = 0
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Symbols_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
if exists(filename) then
local loaded_csv_table = read_csv(filename,",",true,null)
if (loaded_csv_table ~= nil) then
write_symbol_table(loaded_csv_table)
end
end
end
end
-- Next, we check for loading and activating cheats
if (bFinishedActivateTrainerCheats == 0) then
if (bPerformActivateTrainerCheats == 1) then
bPerformActivateTrainerCheats = 0
local ourFolder = CheckOurSaveStateFolder()
local filename = ourFolder .. baseFileName .. '_Active_' .. string.format("%d",iSaveConfigSlot) .. '.txt'
if exists(filename) then
local loaded_csv_table = read_csv(filename,",",true,null)
if (loaded_csv_table ~= nil) then
-- First, make sure list is empty
for i=#PerformActivateList,1,-1 do
table.remove(PerformActivateList,i)
end
for i=1,#loaded_csv_table do
local CurrentDesc = ""
for j=1,#loaded_csv_table[i] do
if (j > 1) then
CurrentDesc = CurrentDesc .. "," .. loaded_csv_table[i][j]
else
CurrentDesc = CurrentDesc .. loaded_csv_table[i][j]
end
end
table.insert(PerformActivateList,CurrentDesc)
end
end
end
end
end
-- Finally, Loop Through The Current PerformActivateList and attempt to activate the cheat
if (bFinishedActivateTrainerCheats == 0) then
if (#PerformActivateList == 0) then
bFinishedActivateTrainerCheats = 1
else
for i=1,#PerformActivateList do
if not CheckCheatRecordActive(PerformActivateList[i]) then
--if #CurrentlyActivatingList == 0 then
ToggleActivateCheatRecord(PerformActivateList[i])
--table.insert(CurrentlyActivatingList,PerformActivateList[i])
--end
else
table.remove(PerformActivateList,i)
end
end
end
else
if CheckCheatRecordActive("Load Current Trainer Values") then
ActivateCheatRecord("Load Current Trainer Values")
end
end
end
end
tTrainerValues.Interval = 500
tTrainerValues.Enabled = true
end
-- Actually Call Our Save and Load Handler function to start up the timer
StartSaveLoadTrainerValuesHandler()
------------------------------------------------------------------------------------------