Epic War 4

Подсел
Но медленно наращивать мощность очень уж скучно, сделал патч, который увеличивает количество денег до двух миллионов, применив его
Для того, чтобы применить патч, найдите
Программа написана сразу на трёх языках — PowerShell (для Windows) и PHP с Python (для всех), запускайте любым из этих трёх интерпретаторов:
#!/usr/bin/env python
########################################################
# Written by Evgeny Stepanischev (//bolknote.ru) #
# Epic War 4 money patch (for PowerShell, Python, PHP) #
#<?/*
"""*/
echo str_repeat('#', 55), chr(10);
if ($_SERVER['argc'] > 1) {
$fp = @fopen($_SERVER['argv'][1], 'r+b');
if ($fp) {
$content = fread($fp, 655350);
$content = preg_replace('/(?<=stat_money).{5}/s', pack('H*', '0480C584B4'), $content);
rewind($fp);
fwrite($fp, $content);
echo 'Done.';
} else {
echo 'Invalid file.';
}
fclose($fp);
} else {
echo 'Usage: ', $_SERVER['argv'][0], '<filename>';
}
__halt_compiler();
""" + """ " | out-null
If ($args) {
[char[]] $binary = Get-Content -encoding byte $args[0]
$binary = [string]::join('', $binary) -replace`
'stat_money.{5}', `
"stat_money$([char]0x4)$([char]0x80)$([char]0xC5)$([char]0x84)$([char]0xB4)"
Set-Content $args[0] ([byte[]][char[]] $binary) -encoding byte
"Done."
} Else {
"Usage: " + $MyInvocation.MyCommand.Name +" <filename>"
}
"""
from sys import argv
from os.path import basename
if len(argv) > 1:
name = 'stat_money'
f = open(argv[1], 'r+b')
binary = bytearray(f.read())
try:
index = binary.index(name) + 1 + len(name)
binary[index:index+4] = '\x80\xc5\x84\xb4'
f.seek(0)
f.write(binary)
f.close()
print('Done.')
except:
print('Invalid file.')
else:
print('Usage: %s <filename>' % basename(argv[0]))
# " | out-nullpython patch.ps1 DEF4_SAVE.sol или powershell -Command .\patch.ps1 DEF4_SAVE.sol или php patch.ps1 DEF4_SAVE.sol
Жаль расцветить три языка в одном файле можно только вручную.
Комментарии 10
Я смотрю ты большого белого друга еще не убил ;)
Спасибо :)