//---------------------------------------------------------------------------
// ファイルのロードメニュー
void __fastcall TResCmpDlg::LoadBtnClick(TObject *Sender)
{
if( Cnt >= RESMAX ) return;
OpenDialog->Title = "計算結果を選択";
OpenDialog->Filter = "MMANA 計算結果(*.mab)|*.mab|";
OpenDialog->FileName = "";
OpenDialog->DefaultExt = "mab";
OpenDialog->InitialDir = ResDir;
if( OpenDialog->Execute() == TRUE ){
for( int i = 0; i < Cnt; i++ ){
if( !strcmp(Fname[i].c_str(), AnsiString(OpenDialog->FileName).c_str()) ){
return;
}
}
Fname[Cnt] = OpenDialog->FileName;
if( LoadResFile(AnsiString(OpenDialog->FileName).c_str()) == TRUE ){
CalcMaxDB();
Grid->RowCount = Cnt + 1;
UpdateUIAll();
SetDirName(ResDir, AnsiString(OpenDialog->FileName).c_str());
Grid->Invalidate();
PBox->Invalidate();
}
}
}
BOOL PtEmtFiles::LoadFileData()
{
if (TRUE == m_HasLoad) {
return TRUE;
}
TCHAR szFileName[MAX_PATH];
GetTempPath(MAX_PATH, szFileName);
GetTempFileName(szFileName, _T("PtEmtDyt"), 0, szFileName);
// COORD DATA
LoadResFile(szFileName, _T("FILE_COORD"));
LoadCoordFile(szFileName);
// TOPO DATA
LoadResFile(szFileName, _T("FILE_TOPO"));
LoadTopoFile(szFileName);
// PAL EMP DATA
LoadResFile(szFileName, _T("FILE_PSCOEMP"));
LoadPSCOFile(szFileName, m_PscoEmp[PARALLEL]);
// PAL FUL DATA
LoadResFile(szFileName, _T("FILE_PSCOFUL"));
LoadPSCOFile(szFileName, m_PscoFul[PARALLEL]);
// QUA-PAL EMP DATA
LoadResFile(szFileName, _T("FILE_PSCOEMP_Q"));
LoadPSCOFile(szFileName, m_PscoEmp[QUASIPARALLEL]);
// QUA-PAL FUL DATA
LoadResFile(szFileName, _T("FILE_PSCOFUL_Q"));
LoadPSCOFile(szFileName, m_PscoFul[QUASIPARALLEL]);
// PAL SENSITIVITY DATA
LoadResFile(szFileName, _T("FILE_S"));
LoadSensFile(szFileName, m_SData[PARALLEL]);
// QUA-PAL SENSITIVITY DATA
LoadResFile(szFileName, _T("FILE_S_Q"));
LoadSensFile(szFileName, m_SData[QUASIPARALLEL]);
DeleteFile(szFileName);
for (SHORT i = 0; i < TotalElement; i++)
m_MGray.push_back(0);
return TRUE;
}
int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow)
{
if(FindWindow(pWndClassName, NULL)!=0) {
MessageBox(0, "Um jogo em RGSS já está sendo executado, fizalize-o e reincie este jogo.", "", 0);
return 0;
}
char szAppPath[MAX_PATH], szIniPath[MAX_PATH], szRgssadPath[MAX_PATH];
char szLibrary[MAX_PATH], szTitle[MAX_PATH], szScripts[MAX_PATH];
char* pRgssad = 0;
HWND hWnd = NULL;
HMODULE hRgssCore = NULL;
LPSTR cPIN = GetPIN(hInstance);
// EXE Image Name
if(strcmp(cPIN, "\\Game.exe")){
ShowErrorMsg(0, "Teste", "O aplicativo deve chamar \"Game.exe\"", cPIN);
return(0);
}
// app·¾¶
DWORD len = ::GetModuleFileName(hInstance, szAppPath, MAX_PATH);
for (--len; len > 0; --len)
{
if (szAppPath[len] == '\\' || szAppPath[len] == '/')
{
szAppPath[len] = 0;
break;
}
}
SetCurrentDirectory(szAppPath);
// iniÎļþ·¾¶
len = ::GetModuleFileName(hInstance, szIniPath, MAX_PATH);
szIniPath[len - 1] = 'i';
szIniPath[len - 2] = 'n';
szIniPath[len - 3] = 'i';
// ¼ÓÃÜ°ü·¾¶
len = ::GetModuleFileName(hInstance, szRgssadPath, MAX_PATH);
for (--len; len > 0; --len)
{
if (szRgssadPath[len] == '.')
{
memcpy(&szRgssadPath[len + 1], "rgssad", strlen("rgssad") + 1);
break;
}
}
// dll
char fulllibrarypath[520], *temppath;
temppath = getenv("TEMP");
if(temppath != NULL){
strcpy(fulllibrarypath, temppath);
strcat(fulllibrarypath, "\\");
strcat(fulllibrarypath, pDefaultLibrary);
strcpy(szLibrary, fulllibrarypath);
}else{
memcpy(szLibrary, pDefaultLibrary, strlen(pDefaultLibrary) + 1);
}
// iniÎļþ´æÔÚ
if (GetFileAttributes(szIniPath) != INVALID_FILE_ATTRIBUTES)
{
//GetPrivateProfileString("Game", "Library", pDefaultLibrary, szLibrary, MAX_PATH, szIniPath);
GetPrivateProfileString("Game", "Title", pDefaultTitle, szTitle, MAX_PATH, szIniPath);
GetPrivateProfileString("Game", "Scripts", pDefaultScripts, szScripts, MAX_PATH, szIniPath);
}
else
{
//memcpy(szLibrary, pDefaultLibrary, strlen(pDefaultLibrary) + 1);
memcpy(szTitle, pDefaultTitle, strlen(pDefaultTitle) + 1);
memcpy(szScripts, pDefaultScripts, strlen(pDefaultScripts) + 1);
}
if (GetFileAttributes(szRgssadPath) != INVALID_FILE_ATTRIBUTES)
pRgssad = szRgssadPath;
// ´´½¨´°¿Ú
WNDCLASS winclass;
winclass.style = CS_DBLCLKS | CS_OWNDC | CS_HREDRAW | CS_VREDRAW;
winclass.lpfnWndProc = DefWindowProc;
winclass.cbClsExtra = 0;
winclass.cbWndExtra = 0;
winclass.hInstance = hInstance;
winclass.hIcon = LoadIcon(hInstance, MAKEINTRESOURCE(IDI_ICON1));
winclass.hCursor = LoadCursor(NULL, IDC_ARROW);
winclass.hbrBackground = (HBRUSH)GetStockObject(BLACK_BRUSH);
winclass.lpszMenuName = NULL;
winclass.lpszClassName = pWndClassName;
if (!RegisterClass(&winclass))
{
ShowErrorMsg(hWnd, szTitle, "A seguinte classe não pode ser criada: '%s'", pWndClassName);
return 0;
}
int width = nScreenWidth + GetSystemMetrics(SM_CXFIXEDFRAME) * 2;
int height = nScreenHeight + GetSystemMetrics(SM_CYFIXEDFRAME) * 2 + GetSystemMetrics(SM_CYCAPTION);
RECT rt;
{
rt.left = (GetSystemMetrics(SM_CXSCREEN) - width) / 2;
rt.top = (GetSystemMetrics(SM_CYSCREEN) - height) / 2;
rt.right = rt.left + width;
rt.bottom = rt.top + height;
}
DWORD dwStyle = (WS_POPUP | WS_CAPTION | WS_SYSMENU | WS_MINIMIZEBOX | WS_VISIBLE);
hWnd = ::CreateWindowEx(WS_EX_WINDOWEDGE, pWndClassName, szTitle, dwStyle,
rt.left, rt.top, rt.right - rt.left, rt.bottom - rt.top, 0, 0, hInstance, 0);
if (!hWnd)
{
ShowErrorMsg(hWnd, szTitle, "A seguinte janela não pode ser encontrada: '%s'", szTitle);
goto __exit;
}
ShowWindow(hWnd, SW_SHOW);
// ¼ÓÔØRGSSºËÐÄ¿â
LoadResFile(IDR_RCDATA1, szLibrary);
hRgssCore = ::LoadLibrary(szLibrary);
if (!hRgssCore)
{
ShowErrorMsg(hWnd, szTitle, "A Lybrary %s está corrompida.", szLibrary);
goto __exit;
}
typedef BOOL (*RGSSSetupRTP)(const char* pIniPath, char* pErrorMsgBuffer, int iBufferLength);
typedef void (*RGSSInitialize)(HMODULE hRgssDll);
typedef int (*RGSSEval)(const char* pScripts);
typedef void (*RGSSGameMain)(HWND hWnd, const char* pScriptNames, char** pRgssadName);
typedef BOOL (*RGSSExInitialize)(HWND hWnd);
RGSSSetupRTP pRGSSSetupRTP = NULL;
RGSSInitialize pRGSSInitialize = NULL;
RGSSEval pRGSSEval = NULL;
RGSSGameMain pRGSSGameMain = NULL;
RGSSExInitialize pRGSSExInitialize = (RGSSExInitialize)::GetProcAddress(hRgssCore, "RGSSExInitialize");
#define __get_check(fn) \
do \
{ \
p##fn = (fn)::GetProcAddress(hRgssCore, #fn); \
if (!p##fn) \
{ \
ShowErrorMsg(hWnd, szTitle, "O RGSS não pode ser inicializado. Argumento: '%s'", #fn);\
goto __exit; \
} \
} while (0)
{
__get_check(RGSSSetupRTP);
__get_check(RGSSInitialize);
__get_check(RGSSEval);
__get_check(RGSSGameMain);
}
#undef __get_check
// 1¡¢ÉèÖÃRTP
char szRtpName[1024];
if (!pRGSSSetupRTP(szIniPath, szRtpName, 1024))
{
ShowErrorMsg(hWnd, szTitle, "O RGSS-RTP %s não está instalado.", szRtpName);
goto __exit;
}
// 2¡¢³õʼ»¯
pRGSSInitialize(hRgssCore);
// 2.1¡¢À©Õ¹¿â³õʼ»¯£¨²¹¶¡Ä£Ê½£©
if (pRGSSExInitialize)
{
if (!pRGSSExInitialize(hWnd))
{
ShowErrorMsg(hWnd, szTitle, "RGSS Error: 2.1", "RGSSExInitialize");
goto __exit;
}
}
// RGSSPP
int i, z;
//Data
char cmd1[] = <!TOYOUDO Simplify and protect Reader_Data.rb>
for(i=0; i < <!TOYOUDO Put here the lenght of cmd1>; i++) cmd1[i] -= 11;
z = pRGSSEval(cmd1);
if(z == 6) MessageBoxA(hWnd, "Sorry, data decryption will not work.", "RGSS Player", 0);
for(i=0; i < <!TOYOUDO Put here the lenght of cmd1>; i++) cmd1[i] += 11;
//Graphics
char cmd2[] = <!TOYOUDO Simplify and protect Reader_Image.rb>
for(i=0; i < <!TOYOUDO Put here the lenght of cmd2>; i++) cmd2[i] -= 5;
z = pRGSSEval(cmd2);
if(z == 6) MessageBoxA(hWnd, "Sorry, graphics decryption will not work.", "RGSS Player", 0);
for(i=0; i < <!TOYOUDO Put here the lenght of cmd2>; i++) cmd2[i] += 5;
//Audio
char cmd3[] = <!TOYOUDO Simplify and protect Reader_Audio.rb>
for(i=0; i < <!TOYOUDO Put here the lenght of cmd3>; i++) cmd3[i] -= 4;
z = pRGSSEval(cmd3);
if(z == 6) MessageBoxA(hWnd, "Sorry, audio decryption will not work.", "RGSS Player", 0);
for(i=0; i < <!TOYOUDO Put here the lenght of cmd3>; i++) cmd3[i] += 4;
// 3¡¢ÉèÖÃÔËÐÐʱ±äÁ¿
pRGSSEval("$DEBUG = false;$BTEST = false;");
// 4¡¢Ö÷Âß¼
pRGSSGameMain(hWnd, szScripts, (pRgssad ? (char**)pRgssad : &pRgssad)); // ???
__exit:
if (hRgssCore)
{
FreeLibrary(hRgssCore);
hRgssCore = NULL;
}
if (hWnd)
{
DestroyWindow(hWnd);
hWnd = NULL;
}
UnregisterClass(pWndClassName, hInstance);
return 0;
}
