Ремонтируем музыку в старой игре

switch(track_id){case1007:
        track_id =1011;break;case1005:
        track_id =1021;break;case1014:
        track_id =1017;break;case1015:
        track_id =1002;break;}

MOVDWORD PTR DS:[481390],ESI

use strict;use warnings;use File::Copy;
 
# Ищем все .mp3-файлы в текущей директорииmy@files=glob"*.mp3";# Составляем список идентификаторов трековmy@ids=map{/^(\d+)\s/&&$1}<DATA>;
 
# Переименовываем файлы последовательно,# так как порядок треков в саундтреке и директории соответствует порядку в таблицеfor(my$i=0;$i<scalar@files;$i++){
    move $files[$i],$ids[$i].'.mp3';}
 
 
__DATA__1000 TIM
1001 Unplugged
1007 Steel Drums
1002 New Age
1003 Hay Seed
1004 Progressive Rock
1005 Salsa
1006 Techno Rave
10131959 Prom
1011 Bongo Bango
1021 Ragtime
1014 Hip Hop
1012 Keep Tryin'
1017 Detective Theme
1015 Dreams
1016 Tuna Loaf
1018 60's Rock
1019 Pictures
1020 Huey Dewey

#include <stdio.h>#include <Windows.h>#include <Tlhelp32.h>#include "bass.h"
 
#pragma comment(lib, "bass.lib")
 
/* Имя директории, где будут лежать файлы саундтрека */#define MUSIC_DIR L"music"/* Адрес, содержащий ID проигрываемого трека */#define MEMORY_OFFSET 0x481390
 
 
typedefstruct{
    DWORD id;char name[32];} track_entry;
 
/* Список треков и их ID */
track_entry track_list[]={{1000,"TIM"},{1001,"Unplugged"},{1007,"Steel Drums"},{1002,"New Age"},{1003,"Hay Seed"},{1004,"Progressive Rock"},{1005,"Salsa"},{1006,"Techno Rave"},{1013,"1959 Prom"},{1011,"Bongo Bango"},{1021,"Ragtime"},{1014,"Hip Hop"},{1012,"Keep Tryin'"},{1017,"Detective Theme"},{1015,"Dreams"},{1016,"Tuna Loaf"},{1018,"60's Rock"},{1019,"Pictures"},{1020,"Huey Dewey"}};
 
/* Вспомогательная функция для получения PID процесса */
DWORD get_pid_by_name(LPCTSTR name){
    PROCESSENTRY32 pe32;
    DWORD pid =0;
    HANDLE ss;
 
 
    ss = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS | TH32CS_SNAPMODULE32,0);if(ss == INVALID_HANDLE_VALUE)return0;
 
    pe32.dwSize=sizeof(PROCESSENTRY32);
 
    if(!Process32First(ss,&pe32)){
        CloseHandle(ss);return0;}
 
    do{if(!lstrcmp(name, pe32.szExeFile)){
            pid = pe32.th32ProcessID;break;}}while(Process32Next(ss,&pe32));
 
    CloseHandle(ss);
 
    return pid;}
 
/* Функция поиска имени трека по ID в списке треков */constchar* get_track_name_by_id(DWORD id){int i;
 
    for(i =0; i < _countof(track_list); i++){if(id == track_list[i].id)return track_list[i].name;}
 
    return"unknown";}
 
/* Функция проигрывания трека *//* Да, да, очевидные комментарии */void play_track(LPCTSTR current_dir, DWORD id){static HSTREAM sm =0;
    TCHAR file_path[MAX_PATH];
 
    /* Формируем полный путь к треку */
    wsprintf(file_path, L"%s\\%s\\%d.mp3", current_dir, MUSIC_DIR, id);
 
    if(sm !=0){/* Завершаем проигрывание текущего трека */
        BASS_StreamFree(sm);
        sm =0;}/* Запускаем трек на проигрывание, указав, что его необходимо зациклить */
    sm = BASS_StreamCreateFile(FALSE, file_path,0,0, BASS_UNICODE);
    BASS_ChannelFlags(sm, BASS_SAMPLE_LOOP, BASS_SAMPLE_LOOP);
    BASS_ChannelPlay(sm, FALSE);}
 
int main(){ 
    HANDLE pr;
    DWORD pid, track_id =0, last_track =0;
    TCHAR current_dir[MAX_PATH]={0};
 
    /* Инициализируем библиотеку */if(!BASS_Init(-1,44100,0, NULL, NULL)){printf("Failed to init BASS library\n");return-1;}
 
    /* Получаем путь, откуда запущен наш файл, *//* чтобы в дальнейшем сформировать полный путь к mp3-файлу */
    GetCurrentDirectory(_countof(current_dir), current_dir);
 
    /* Получаем PID целевого процесса */
    pid = get_pid_by_name(TEXT("TIMWIN.EXE"));if(pid ==0){printf("Can't find TIMWIN.EXE process\n");
        BASS_Free();
 
        return-1;}
 
    /* Открываем процесс игры с правами на чтение памяти */
    pr = OpenProcess(PROCESS_VM_READ, FALSE, pid);if(pr == NULL){printf("Failed to open process (pid=%d)\n", pid);
        BASS_Free();
 
        return-1;}
 
 
    while(TRUE){/* Читаем память процесса и получаем ID трека */if(!ReadProcessMemory(pr,(LPCVOID) MEMORY_OFFSET,&track_id,sizeof(DWORD), NULL)){printf("Can't read process memory\n");break;}
 
        /* Выводим информацию о текущем треке */printf("Current track - %08X - %-32s\r", track_id, get_track_name_by_id(track_id));
 
        /* Если проигрываемый трек поменялся, то запустим новый трек на проигрывание и сохраним его ID */if(track_id != last_track){
            play_track(current_dir, track_id);
            last_track = track_id;}
 
        Sleep(100);}
 
    CloseHandle(pr);
    BASS_Free();
 
 
    return0;}

switch(track_id){case1007:
        track_id =1011;break;case1005:
        track_id =1021;break;case1014:
        track_id =1017;break;case1015:
        track_id =1002;break;}

MOVDWORD PTR DS:[481390],ESI

use strict;use warnings;use File::Copy;
 
# Ищем все .mp3-файлы в текущей директорииmy@files=glob"*.mp3";# Составляем список идентификаторов трековmy@ids=map{/^(\d+)\s/&&$1}<DATA>;
 
# Переименовываем файлы последовательно,# так как порядок треков в саундтреке и директории соответствует порядку в таблицеfor(my$i=0;$i<scalar@files;$i++){
    move $files[$i],$ids[$i].'.mp3';}
 
 
__DATA__1000 TIM
1001 Unplugged
1007 Steel Drums
1002 New Age
1003 Hay Seed
1004 Progressive Rock
1005 Salsa
1006 Techno Rave
10131959 Prom
1011 Bongo Bango
1021 Ragtime
1014 Hip Hop
1012 Keep Tryin'
1017 Detective Theme
1015 Dreams
1016 Tuna Loaf
1018 60's Rock
1019 Pictures
1020 Huey Dewey

#include <stdio.h>#include <Windows.h>#include <Tlhelp32.h>#include "bass.h"
 
#pragma comment(lib, "bass.lib")
 
/* Имя директории, где будут лежать файлы саундтрека */#define MUSIC_DIR L"music"/* Адрес, содержащий ID проигрываемого трека */#define MEMORY_OFFSET 0x481390
 
 
typedefstruct{
    DWORD id;char name[32];} track_entry;
 
/* Список треков и их ID */
track_entry track_list[]={{1000,"TIM"},{1001,"Unplugged"},{1007,"Steel Drums"},{1002,"New Age"},{1003,"Hay Seed"},{1004,"Progressive Rock"},{1005,"Salsa"},{1006,"Techno Rave"},{1013,"1959 Prom"},{1011,"Bongo Bango"},{1021,"Ragtime"},{1014,"Hip Hop"},{1012,"Keep Tryin'"},{1017,"Detective Theme"},{1015,"Dreams"},{1016,"Tuna Loaf"},{1018,"60's Rock"},{1019,"Pictures"},{1020,"Huey Dewey"}};
 
/* Вспомогательная функция для получения PID процесса */
DWORD get_pid_by_name(LPCTSTR name){
    PROCESSENTRY32 pe32;
    DWORD pid =0;
    HANDLE ss;
 
 
    ss = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS | TH32CS_SNAPMODULE32,0);if(ss == INVALID_HANDLE_VALUE)return0;
 
    pe32.dwSize=sizeof(PROCESSENTRY32);
 
    if(!Process32First(ss,&pe32)){
        CloseHandle(ss);return0;}
 
    do{if(!lstrcmp(name, pe32.szExeFile)){
            pid = pe32.th32ProcessID;break;}}while(Process32Next(ss,&pe32));
 
    CloseHandle(ss);
 
    return pid;}
 
/* Функция поиска имени трека по ID в списке треков */constchar* get_track_name_by_id(DWORD id){int i;
 
    for(i =0; i < _countof(track_list); i++){if(id == track_list[i].id)return track_list[i].name;}
 
    return"unknown";}
 
/* Функция проигрывания трека *//* Да, да, очевидные комментарии */void play_track(LPCTSTR current_dir, DWORD id){static HSTREAM sm =0;
    TCHAR file_path[MAX_PATH];
 
    /* Формируем полный путь к треку */
    wsprintf(file_path, L"%s\\%s\\%d.mp3", current_dir, MUSIC_DIR, id);
 
    if(sm !=0){/* Завершаем проигрывание текущего трека */
        BASS_StreamFree(sm);
        sm =0;}/* Запускаем трек на проигрывание, указав, что его необходимо зациклить */
    sm = BASS_StreamCreateFile(FALSE, file_path,0,0, BASS_UNICODE);
    BASS_ChannelFlags(sm, BASS_SAMPLE_LOOP, BASS_SAMPLE_LOOP);
    BASS_ChannelPlay(sm, FALSE);}
 
int main(){ 
    HANDLE pr;
    DWORD pid, track_id =0, last_track =0;
    TCHAR current_dir[MAX_PATH]={0};
 
    /* Инициализируем библиотеку */if(!BASS_Init(-1,44100,0, NULL, NULL)){printf("Failed to init BASS library\n");return-1;}
 
    /* Получаем путь, откуда запущен наш файл, *//* чтобы в дальнейшем сформировать полный путь к mp3-файлу */
    GetCurrentDirectory(_countof(current_dir), current_dir);
 
    /* Получаем PID целевого процесса */
    pid = get_pid_by_name(TEXT("TIMWIN.EXE"));if(pid ==0){printf("Can't find TIMWIN.EXE process\n");
        BASS_Free();
 
        return-1;}
 
    /* Открываем процесс игры с правами на чтение памяти */
    pr = OpenProcess(PROCESS_VM_READ, FALSE, pid);if(pr == NULL){printf("Failed to open process (pid=%d)\n", pid);
        BASS_Free();
 
        return-1;}
 
 
    while(TRUE){/* Читаем память процесса и получаем ID трека */if(!ReadProcessMemory(pr,(LPCVOID) MEMORY_OFFSET,&track_id,sizeof(DWORD), NULL)){printf("Can't read process memory\n");break;}
 
        /* Выводим информацию о текущем треке */printf("Current track - %08X - %-32s\r", track_id, get_track_name_by_id(track_id));
 
        /* Если проигрываемый трек поменялся, то запустим новый трек на проигрывание и сохраним его ID */if(track_id != last_track){
            play_track(current_dir, track_id);
            last_track = track_id;}
 
        Sleep(100);}
 
    CloseHandle(pr);
    BASS_Free();
 
 
    return0;}