---

QuestDesigner.cpp

/* QuestDesigner - Open Zelda's Project
   Copyright (C) 2003 Kronuz
   Copyright (C) 2001/2003 Open Zelda's Project
*/

// QuestDesigner.cpp : main source file for QuestDesigner.exe
//

#include "stdafx.h"
#include "QuestDesigner.h"

CAppModule _Module;

int StartCodeMax(CodeMaxLibrary *cmaxlib)
{
    CM_LANGUAGE LangZES = { 
    // language style
    CMLS_PROCEDURAL,
    // Is case-sensitive?
    TRUE,
    // keywords
    _T("#assert\n#define\n#else\n#emit\n#endif\n#endinput\n#endscript\n#if\n#include\n#pragma\n")
    //_T("ctrlchar\ndynamic\nlibrary\npack\nrational\nsemicolon\ntabsize")
    _T("assert\nbreak\ncase\ncontinue\ndefault\ndo\nelse\nexit\nfor\ngoto\nif\nreturn\nsleep\nswitch\nwhile\n")
    _T("const\nenum\nforward\nnative\nnew\noperator\npublic\nstatic\nstock\n")
    _T("char\ndefined\nsizeof\n")
    _T("false\ntrue\ncellbits\ncellmax\ncellmin\ncharbits\ncharmax\ncharmin\ndebug\n_Small"),
    // operators
    _T("bool\nfixed\nfloat\n")
    _T("+\n-\n*\n/\n%\n++\n--\n~\n>>\n>>>\n<<\n&\n|\n^\n=\n+=\n-=\n*=\n/=\n%=\n>>=\n>>>=\n<<=\n&=\n|=\n^=\n==\n!=\n<\n<=\n>\n>=\n!\n||\n&&"),
    // Single line comments
    _T("//"),
    // Multi-line comment set
    _T("/*"),
    _T("*/"),
    // Scope words
    _T("{"),
    _T("}"),
    // String literal char
    _T("\"\n'"),
    // Escape Char
    _T('^'),
    // Statement Terminator Char
    _T(';'),
// Tag element names
    _T("black\nblue\ncyan\ngreen\nmagenta\nred\nyellow\nwhite\nchasing\ndead\ndying\nfalling\nfalling2\nhit\njumping\nknocked\n")
    _T("lifting\nstanding\nswimming\nstandLift\nusing\nwalking\nwalkLift\nscared\ndoorType\nenemyType\nitemType\nnpcType\n")
    _T("otherType\nplayerType\nweaponType\neast\nnorth\nnortheast\nnorthwest\nsouth\nsoutheast\nsouthwest\nwest\nwaiting\n")
    _T("stunned\nfrozen\nburning\nsleeping\npushing\nleaping\npulling"),
// Tag attribute names
    _T("AddAnimframe\nAKey\nCreateAnim\nCreateAnimWithID\nclamp\nCreateCounter\nCreateCounterWithID\nCheckMask\n")
    _T("CheckForHoleXY\n\nClearRestartTable\nCalculateAngle\nDeleteAnim\nDrawAnim\nDrawAnimNoInc\ndeleteproperty\n")
    _T("DeleteCounter\nDrawImage\nDownKey\n\nDrawText\ndate\nexistproperty\nEnterKey\nFinishedAnim\nfuncidx\nFirstRun\n")
    _T("FadeTo\n\nFinishedReading\nGetAnimImage\nGetAnimCount\nGetMaxAnim\nGetAnimWidth\nGetAnimHeight\ngetchar\n")
    _T("getstring\ngetvalue\n\ngetarg\ngetproperty\nGetCounterValue\nGetWidth\nGetHeight\nGetWorldX\nGetWorldY\n")
    _T("GetGroupMinX\nGetGroupMinY\n\nGetGroupMaxX\nGetGroupMaxY\nGetPauseLevel\nGetLowerLevelX\nGetLowerLevelY\n")
    _T("GetLastAnswer\nGetMinuteCount\nGetHourCount\nGetDayCount\n\nGetGlobal\nGetLocal\nheapspace\nIncrementAnim\n")
    _T("IncCounterTarget\nIncCounterValue\nInitialPlayerX\nInitialPlayerY\nInitTextBox\n\nLeftKey\nmin\nmax\nnumargs\n")
    _T("NearPoint\nprint\nprintf\nPutSprite\n\nPlaySound\nPlayMusic\nQKey\nrandom\nRightKey\nSetAnimSpeed\nSetAnimCount\n")
    _T("SetAnimDirection\nSetAnimLoop\n\nsetarg\nstrlen\nstrcmp\nstrcpy\nstrpack\nstrunpack\nswapchars\nsetproperty\n")
    _T("SetCounterMin\n\nSetCounterMax\nSetCounterValue\nSetCounterTarget\nSetCounterSpeed\nSKey\nSetQKey\nSetAKey\n")
    _T("SetSKey\nSetWKey\n\nSetEnterKey\nSetUpKey\nSetDownKey\nSetLeftKey\nSetRightKey\nSetWorldX\nSetWorldY\nSetPauseLevel\n")
    _T("SetRestartTable\n\nSetRestartPoint\nSetLowerLevel\nSetTextBoxColor\nSetMinuteCount\nSetHourCount\nSetDayCount\n")
    _T("SetDayLength\nSetGlobal\nSetLocal\n\nSetMusicVolume\nSetMusicFadeSpeed\ntolower\ntoupper\nToString\nToFile\nTextFile\n")
    _T("TestFunc\ntime\n\ntickcount\nUpKey\nUpdateWorldCo\nWKey\nWipe\nGetTimeDelta\nfloatstr\nfloatround\nDrawRectangle\n")
    _T("DrawLine\nSetTextSize\nEnableControls\nDrawBitmapText\n\nSetFloat\nGetFloat\nSetSpriteAlpha"),
// Tag entities
    _T("AngleMove\nAngleCollide\nAllocateStrings\nCreateEntity\nCreateEntityWithID\nChangeDirection\nClearCollisionRect\n")
    _T("Collide\nCollideAll\nCollidePoint\nCheckForHole\nCallFunction\nDeleteEntity\nGetDamage\nGetRespawnValue\n")
    _T("GetLiftLevel\nGetX\nGetY\nGetMoveAngle\nGetDirection\nGetSpeed\nGetSpeedMod\nGetItem\nGetImage\nGetType\nGetString\n")
    _T("GetState\nGetInitialX\nGetInitialY\nGetEntityCount\nGetAnglePointX\nGetAnglePointY\nGetWeight\nGetBounceValue\n")
    _T("GetValue\nGetHealth\nGetMaxHealth\nGetCurrentEntity\nGetNextMessage\nGetGotoNextMessage\nGetNumNextMessages\n")
    _T("isOpen\nisTaken\nisDead\nisVisible\nisActive\nisCuttable\nisLarge\nisPickable\nisPushed\nisInteracting\nMessageMap\n")
    _T("NextEntity\nRespawn\nSetOpenFlag\nSetTakenFlag\nSetDeadFlag\nSetVisibleFlag\nSetActiveFlag\nSetCuttableFlag\n")
    _T("SetLargeFlag\nSetPickableFlag\nSetPushedFlag\nSetInteractingFlag\nSetDamage\nSetRespawnValue\nSetLiftLevel\nSetX\n")
    _T("SetY\nSetPosition\nSetMoveAngle\nSetDirection\nSetSpeed\nSetSpeedMod\nSetAngleFromDir\nSetDirFromAngle\n")
    _T("SetCollisionRect\nSetItem\nSetImage\nSetType\nSetString\nSetActiveDist\nSetState\nSetWeight\nSetBounceValue\n")
    _T("SetValue\nSetHealth\nSetMaxHealth\nStartEntity\nisOwned\nSetOwnedFlag\nGetParent\nGetParam\nSetActiveInGroups"),
    };

    if(!cmaxlib->Initialize()) return 0;
    cmaxlib->UnregisterAllLanguages();
    cmaxlib->RegisterLanguage(CMLANG_ZES, &LangZES );

    return 1;
}

int Run(LPTSTR /*lpstrCmdLine*/ = NULL, int nCmdShow = SW_SHOWDEFAULT)
{
    CMainFrame wndMain;
    CMessageLoop theLoop;
    CodeMaxLibrary cmaxlib;

    _Module.AddMessageLoop(&theLoop);

    if(!StartCodeMax(&cmaxlib)) {
        ATLTRACE ( _T ( "CodeMax initialization failed!\n" ) );
        return 0; // bail...
    }

    if(wndMain.CreateEx() == NULL) {
        ATLTRACE(_T("Main window creation failed!\n"));
        return 0;
    }

//  wndMain.ShowWindow(nCmdShow);

    int nRet = theLoop.Run();

    _Module.RemoveMessageLoop();
    return nRet;
}

int WINAPI _tWinMain(HINSTANCE hInstance, HINSTANCE /*hPrevInstance*/, LPTSTR lpstrCmdLine, int nCmdShow)
{
/*
    ATOM gi_atom = 0;
    if(GlobalFindAtomA("QuestDesigner") > 0) {
        return 0;
    }
    gi_atom = GlobalAddAtomA("QuestDesigner");
*/
    HRESULT hRes;
    hRes = ::CoInitialize(NULL);
    ATLASSERT(SUCCEEDED(hRes));

    // this resolves ATL window thunking problem when Microsoft Layer for Unicode (MSLU) is used
    ::DefWindowProc(NULL, 0, 0, 0L);

    AtlInitCommonControls(ICC_COOL_CLASSES | ICC_BAR_CLASSES);  // add flags to support other controls

    hRes = _Module.Init(NULL, hInstance);
    ATLASSERT(SUCCEEDED(hRes));

    AtlAxWinInit();

    HMODULE hInstRich = ::LoadLibrary(CRichEditCtrl::GetLibraryName());
    ATLASSERT(hInstRich != NULL);

    int nRet = Run(lpstrCmdLine, nCmdShow);

    ::FreeLibrary(hInstRich);

    _Module.Term();
    ::CoUninitialize();

/*
    if(gi_atom) GlobalDeleteAtom(gi_atom);
*/
    return nRet;
}

---