3
"Find Item"
Auto Assembler Script
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
alloc(newmem,2048,"CassetteBeasts.exe"+14A4C59)
label(returnhere)
label(originalcode)
label(exit)
label(debug_item)
label(prevent)
define(min_value, 5)
alloc(item_ptr, 8)
registersymbol(item_ptr)
registersymbol(debug_item)
alloc(prevent_zero, 1)
registersymbol(prevent_zero)
alloc(minimum_enable, 1)
registersymboL(minimum_enable)
prevent_zero:
db 1
minimum_enable:
db 0
newmem: //this is allocated memory, you have read,write,execute access
//place your code here
cmp [rsp+18], 0
jne originalcode
cmp [rsp], 0
jne originalcode
cmp [r15], 2
jne originalcode
cmp r10, 0
jne originalcode
cmp r12, B
jne originalcode
cmp r13, B
jne originalcode
debug_item:
mov [item_ptr], r15
cmp [minimum_enable], 1
jne prevent
cmp [r15+08], min_value
ja prevent
mov [r15+08], min_value
prevent:
cmp [prevent_zero], 1
jne originalcode
cmp [r15+08], 1
ja originalcode
inc [r15+08]
originalcode:
cmp [r15+08],rax
setle dl
exit:
jmp returnhere
"CassetteBeasts.exe"+14A4C59:
jmp newmem
nop 2
returnhere:
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
dealloc(newmem)
dealloc(item_ptr)
dealloc(prevent_zero)
unregistersymbol(item_ptr)
unregistersymboL(debug_item)
unregistersymbol(prevent_zero)
"CassetteBeasts.exe"+14A4C59:
db 49 39 47 08 0F 9E C2
//cmp [r15+08],rax
//setle dl
24
"Discard Item won't reach 0 amount"
0:disabled
1:enabled
0
Byte
prevent_zero
46
"Automatically set amount to a minimum of 5"
0:disabled
1:enabled
0
Byte
minimum_enable
22
"Open cass_item_ids"
Auto Assembler Script
{$LUA}
if syntaxcheck then return end
[ENABLE]
if not item_id then return end
local file_name = 'cass_item_ids.txt'
local file_path = getCheatEngineDir() .. file_name
file, err = io.open(file_path, "w")
if not file then
print("ERROR: couldn't open " .. file_path)
end
[DISABLE]
if file then
for key, value in pairs(item_id) do
file:write(string.format('%d,%s\n', key, value))
end
file:close()
end
23
"Add Item Name"
Auto Assembler Script
{$LUA}
if syntaxcheck then return end
[ENABLE]
local id = tonumber(inputQuery('Item ID (number)', 'input: ', ''))
local name = inputQuery('Item Name', 'input: ', '')
if item_id then
item_id[id] = name
local record = AddressList.getMemoryRecordByDescription(id)
if record then
record.Description = name
end
end
createThread(function()
sleep(50)
memrec.Active = false
end)
[DISABLE]
33
"Remove Item Name"
Auto Assembler Script
{$LUA}
if syntaxcheck then return end
[ENABLE]
local id = tonumber(inputQuery('Item ID (number)', 'input: ', ''))
if item_id then
item_id[id] = nil
end
createThread(function()
sleep(50)
memrec.Active = false
end)
[DISABLE]
47
"Print Item IDs"
Auto Assembler Script
{$LUA}
if syntaxcheck then return end
[ENABLE]
if not item_id then return end
print('item_id = {')
for key, value in pairs(item_id) do
print(string.format(' [%d] = "%s",', key, value))
end
print('}')
createThread(function()
sleep(50)
memrec.Active = false
end)
[DISABLE]
6
"Last Item Found"
0
4 Bytes
item_ptr
08
17
"List Found Addresses"
Auto Assembler Script
{$LUA}
if syntaxcheck then return end
[ENABLE]
local address = getAddressSafe('debug_item')
if not address then
print("ERROR: Couldn't locate 'debug_item'")
return
end
if not item_id then
local file_name = 'cass_item_ids.txt'
local file_path = getCheatEngineDir() .. file_name
local file = io.open(file_path, "r")
item_id = {}
if file then
for line in file:lines() do
local key, value = line:match('(%d+),(.+)')
item_id[tonumber(key)] = value
--print(key .. ' = ' .. value)
end
file:close()
else
item_id = {
[9121] = "Respool",
[5378] = "Plastic",
[3315] = "Pulp",
[5534] = "Olive-Up",
[9159] = "Smoke Bomb",
[9126] = "Rewind",
[5383] = "Wheat",
[9112] = "Reodorant",
[5449] = "Basic Tape",
[8842] = "Canned Ice Latte",
[5515] = "Treebark Tape",
[5388] = "Metal",
[5373] = "Wood",
[9126] = "Rewind",
[9063] = "Pear Fusilli",
}
end
end
local function create_record(name, address)
local record = AddressList.getMemoryRecordByDescription(name)
if not record then
record = AddressList.createMemoryRecord()
record.Type = vtDword
record.Description = name
record.appendToEntry(memrec)
end
record.Address = address
end
local function on_debug_item()
local address = R15 + 0x08
local name = string.format("%X", address)
local ptr = readPointer(R15 - 0x08)
if ptr then
name = readInteger(ptr + 0x40)
if item_id[name] then
name = item_id[name]
end
end
create_record(name, address)
debug_continueFromBreakpoint()
end
debug_setBreakpoint(address, on_debug_item)
[DISABLE]
if syntaxcheck then return end
local address = getAddressSafe('debug_item')
if address then
debug_removeBreakpoint(address)
end
while(memrec.Count > 0) do
memrec.Child[0].destroy()
end
12
"Find Exp"
Auto Assembler Script
[ENABLE]
//code from here to '[DISABLE]' will be used to enable the cheat
alloc(newmem,2048,"CassetteBeasts.exe"+149D1EA)
label(returnhere)
label(originalcode)
label(exit)
label(debug_exp)
registersymbol(debug_exp)
newmem: //this is allocated memory, you have read,write,execute access
//place your code here
cmp r10, 0
jne originalcode
cmp r12, 1A6
jne originalcode
cmp r13, 1A6
jne originalcode
cmp rbp, 0
jne originalcode
debug_exp:
nop [rdi+08]
originalcode:
mov rax,[rdi+08]
mov [rbx+08],rax
exit:
jmp returnhere
"CassetteBeasts.exe"+149D1EA:
jmp newmem
nop 3
returnhere:
[DISABLE]
//code from here till the end of the code will be used to disable the cheat
dealloc(newmem)
unregistersymbol(debug_exp)
"CassetteBeasts.exe"+149D1EA:
db 48 8B 47 08 48 89 43 08
//mov rax,[rdi+08]
//mov [rbx+08],rax
13
"List Found Addresses"
Auto Assembler Script
{$LUA}
if syntaxcheck then return end
[ENABLE]
local address = getAddressSafe('debug_exp')
if not address then
print("ERROR: Couldn't locate 'debug_exp'")
return
end
local function create_record(name, address)
local record = AddressList.getMemoryRecordByDescription(name)
if not record then
record = AddressList.createMemoryRecord()
record.Type = vtDword
record.Description = name
record.appendToEntry(memrec)
end
record.Address = address
end
local function on_debug_exp()
local address = RDI + 0x08
local name = string.format("%X", address)
create_record(name, address)
debug_continueFromBreakpoint()
end
debug_setBreakpoint(address, on_debug_exp)
[DISABLE]
if syntaxcheck then return end
local address = getAddressSafe('debug_exp')
if address then
debug_removeBreakpoint(address)
end
while(memrec.Count > 0) do
memrec.Child[0].destroy()
end
Code :mov rax,[rdi+08] -- Access
CassetteBeasts.exe+149D1EA
83
C4
20
5F
C3
48
8B
47
08
48
89
43
08
48
Code :cmp [r15+08],rax -- Check
CassetteBeasts.exe+14A4C59
41
48
8B
46
08
49
39
47
08
0F
9E
C2
48
8D
Code :mov [rbx+08],rax -- Write
CassetteBeasts.exe+14946F8
08
48
8B
47
08
48
89
43
08
48
8B
5C
24
40