diablo.cpp

Go to the documentation of this file.

 
#include "all.h"
#include "../3rdParty/Storm/Source/storm.h"
#include "../DiabloUI/diabloui.h"
#include <config.h>
 
DEVILUTION_BEGIN_NAMESPACE
 
SDL_Window *ghMainWnd;
int glMid1Seed[NUMLEVELS];
int glMid2Seed[NUMLEVELS];
int gnLevelTypeTbl[NUMLEVELS];
int MouseY;
int MouseX;
BOOL gbGameLoopStartup;
DWORD glSeedTbl[NUMLEVELS];
BOOL gbRunGame;
int glMid3Seed[NUMLEVELS];
BOOL gbRunGameResult;
BOOL zoomflag;
BOOL gbProcessPlayers;
int glEndSeed[NUMLEVELS];
BOOL gbLoadGame;
int DebugMonsters[10];
BOOLEAN cineflag;
int force_redraw;
BOOL visiondebug;
BOOL scrollflag;
BOOL light4flag;
BOOL leveldebug;
BOOL monstdebug;
BOOL trigdebug;
int setseed;
int debugmonsttypes;
int PauseMode;
int sgnTimeoutCurs;
char sgbMouseDown;
int color_cycle_timer;
 
/* rdata */
 
BOOL fullscreen = TRUE;
int showintrodebug = 1;
#ifdef _DEBUG
int questdebug = -1;
int debug_mode_key_s;
int debug_mode_key_w;
int debug_mode_key_inverted_v;
int debug_mode_dollar_sign;
int debug_mode_key_d;
int debug_mode_key_i;
int dbgplr;
int dbgqst;
int dbgmon;
int arrowdebug;
#endif
int frameflag;
int frameend;
int framerate;
int framestart;
BOOL FriendlyMode = TRUE;
char *spszMsgTbl[4] = {
    "I need help! Come Here!",
    "Follow me.",
    "Here's something for you.",
    "Now you DIE!"
};
char *spszMsgHotKeyTbl[4] = { "F9", "F10", "F11", "F12" };
 
BOOL was_archives_init = false;
BOOL was_ui_init = false;
BOOL was_snd_init = false;
BOOL was_sfx_init = false;
 
void FreeGameMem()
{
    music_stop();
 
    MemFreeDbg(pDungeonCels);
    MemFreeDbg(pMegaTiles);
    MemFreeDbg(pLevelPieces);
    MemFreeDbg(pSpecialCels);
 
    FreeMissiles();
    FreeMonsters();
    FreeObjectGFX();
    FreeMonsterSnd();
    FreeTownerGFX();
}
 
BOOL StartGame(BOOL bNewGame, BOOL bSinglePlayer)
{
    BOOL fExitProgram;
    unsigned int uMsg;
 
    gbSelectProvider = TRUE;
 
    do {
        fExitProgram = FALSE;
        gbLoadGame = FALSE;
 
        if (!NetInit(bSinglePlayer, &fExitProgram)) {
            gbRunGameResult = !fExitProgram;
            break;
        }
 
        gbSelectProvider = FALSE;
 
        if (bNewGame || !gbValidSaveFile) {
            InitLevels();
            InitQuests();
            InitPortals();
            InitDungMsgs(myplr);
        }
        if (!gbValidSaveFile || !gbLoadGame)
            uMsg = WM_DIABNEWGAME;
        else
            uMsg = WM_DIABLOADGAME;
 
        run_game_loop(uMsg);
        NetClose();
        pfile_create_player_description(0, 0);
    } while (gbRunGameResult);
 
    SNetDestroy();
    return gbRunGameResult;
}
 
// Controller support: Actions to run after updating the cursor state.
// Defined in SourceX/controls/plctrls.cpp.
extern void finish_simulated_mouse_clicks(int current_mouse_x, int current_mouse_y);
extern void plrctrls_after_check_curs_move();
 
static bool ProcessInput()
{
    if (PauseMode == 2) {
        return false;
    }
    if (gbMaxPlayers == 1 && gmenu_is_active()) {
        force_redraw |= 1;
        return false;
    }
 
    if (!gmenu_is_active() && sgnTimeoutCurs == 0) {
#ifndef USE_SDL1
        finish_simulated_mouse_clicks(MouseX, MouseY);
#endif
        CheckCursMove();
        plrctrls_after_check_curs_move();
        track_process();
    }
 
    return true;
}
 
void run_game_loop(unsigned int uMsg)
{
    BOOL bLoop;
    WNDPROC saveProc;
    MSG msg;
 
    nthread_ignore_mutex(TRUE);
    start_game(uMsg);
    assert(ghMainWnd);
    saveProc = SetWindowProc(GM_Game);
    control_update_life_mana();
    run_delta_info();
    gbRunGame = TRUE;
    gbProcessPlayers = TRUE;
    gbRunGameResult = TRUE;
    force_redraw = 255;
    DrawAndBlit();
    PaletteFadeIn(8);
    force_redraw = 255;
    gbGameLoopStartup = TRUE;
    nthread_ignore_mutex(FALSE);
 
    while (gbRunGame) {
        while (PeekMessage(&msg)) {
            if (msg.message == WM_QUIT) {
                gbRunGameResult = FALSE;
                gbRunGame = FALSE;
                break;
            }
            TranslateMessage(&msg);
            DispatchMessage(&msg);
        }
        if (!gbRunGame)
            break;
        if (!nthread_has_500ms_passed(FALSE)) {
            ProcessInput();
            DrawAndBlit();
            continue;
        }
        diablo_color_cyc_logic();
        multi_process_network_packets();
        game_loop(gbGameLoopStartup);
        gbGameLoopStartup = FALSE;
        DrawAndBlit();
    }
 
    if (gbMaxPlayers > 1) {
        pfile_write_hero();
    }
 
    pfile_flush_W();
    PaletteFadeOut(8);
    SetCursor_(CURSOR_NONE);
    ClearScreenBuffer();
    force_redraw = 255;
    scrollrt_draw_game_screen(TRUE);
    saveProc = SetWindowProc(saveProc);
    assert(saveProc == GM_Game);
    free_game();
 
    if (cineflag) {
        cineflag = FALSE;
        DoEnding();
    }
}
 
void start_game(unsigned int uMsg)
{
    zoomflag = TRUE;
    cineflag = FALSE;
    InitCursor();
    InitLightTable();
    LoadDebugGFX();
    assert(ghMainWnd);
    music_stop();
    ShowProgress(uMsg);
    gmenu_init_menu();
    InitLevelCursor();
    sgnTimeoutCurs = CURSOR_NONE;
    sgbMouseDown = 0;
    track_repeat_walk(FALSE);
}
 
void free_game()
{
    int i;
 
    FreeControlPan();
    FreeInvGFX();
    FreeGMenu();
    FreeQuestText();
    FreeStoreMem();
 
    for (i = 0; i < MAX_PLRS; i++)
        FreePlayerGFX(i);
 
    FreeItemGFX();
    FreeCursor();
    FreeLightTable();
    FreeDebugGFX();
    FreeGameMem();
}
 
void diablo_init()
{
    init_create_window();
 
    SFileEnableDirectAccess(TRUE);
    init_archives();
    was_archives_init = true;
 
    UiInitialize();
#ifdef SPAWN
    UiSetSpawned(TRUE);
#endif
    was_ui_init = true;
 
    ReadOnlyTest();
 
    InitHash();
 
    diablo_init_screen();
 
    snd_init(NULL);
    was_snd_init = true;
 
    sound_init();
    was_sfx_init = true;
}
 
void diablo_splash()
{
    if (!showintrodebug)
        return;
 
    play_movie("gendata\\logo.smk", TRUE);
#ifndef SPAWN
    if (getIniBool("Diablo", "Intro", true)) {
        play_movie("gendata\\diablo1.smk", TRUE);
        setIniValue("Diablo", "Intro", "0");
    }
#endif
    UiTitleDialog();
}
 
void diablo_deinit()
{
    if (was_sfx_init)
        effects_cleanup_sfx();
    if (was_snd_init)
        sound_cleanup();
    if (was_ui_init)
        UiDestroy();
    if (was_archives_init)
        init_cleanup();
    if (was_window_init)
        dx_cleanup();  // Cleanup SDL surfaces stuff, so we have to do it before SDL_Quit().
    if (was_fonts_init)
        FontsCleanup(); 
    if (SDL_WasInit(SDL_INIT_EVERYTHING & ~SDL_INIT_HAPTIC))
        SDL_Quit();
}
 
void diablo_quit(int exitStatus)
{
    diablo_deinit();
    exit(exitStatus);
}
 
int DiabloMain(int argc, char **argv)
{
    diablo_parse_flags(argc, argv);
    diablo_init();
    diablo_splash();
    mainmenu_loop();
    diablo_deinit();
 
    return 0;
}
 
static void print_help_and_exit()
{
    printf("Options:\n");
    printf("    %-20s %-30s\n", "-h, --help", "Print this message and exit");
    printf("    %-20s %-30s\n", "--version", "Print the version and exit");
    printf("    %-20s %-30s\n", "--data-dir", "Specify the folder of diabdat.mpq");
    printf("    %-20s %-30s\n", "-n", "Skip startup videos");
    printf("    %-20s %-30s\n", "-f", "Display frames per second");
    printf("    %-20s %-30s\n", "-x", "Run in windowed mode");
#ifdef _DEBUG
    printf("\nDebug options:\n");
    printf("    %-20s %-30s\n", "-d", "Increaased item drops");
    printf("    %-20s %-30s\n", "-w", "Enable cheats");
    printf("    %-20s %-30s\n", "-$", "Enable god mode");
    printf("    %-20s %-30s\n", "-^", "Enable god mode and debug tools");
    //printf("    %-20s %-30s\n", "-b", "Enable item drop log");
    printf("    %-20s %-30s\n", "-v", "Highlight visibility");
    printf("    %-20s %-30s\n", "-i", "Ignore network timeout");
    //printf("    %-20s %-30s\n", "-j <##>", "Init trigger at level");
    printf("    %-20s %-30s\n", "-l <##> <##>", "Start in level as type");
    printf("    %-20s %-30s\n", "-m <##>", "Add debug monster, up to 10 allowed");
    printf("    %-20s %-30s\n", "-q <#>", "Force a certain quest");
    printf("    %-20s %-30s\n", "-r <##########>", "Set map seed");
    printf("    %-20s %-30s\n", "-t <##>", "Set current quest level");
#endif
    printf("\nReport bugs at https://github.com/diasurgical/devilutionX/\n");
    diablo_quit(0);
}
 
void diablo_parse_flags(int argc, char **argv)
{
    for (int i = 1; i < argc; i++) {
        if (strcasecmp("-h", argv[i]) == 0 || strcasecmp("--help", argv[i]) == 0) {
            print_help_and_exit();
        } else if (strcasecmp("--version", argv[i]) == 0) {
            printf("%s v%s\n", PROJECT_NAME, PROJECT_VERSION);
            diablo_quit(0);
        } else if (strcasecmp("--data-dir", argv[i]) == 0) {
            basePath = argv[++i];
#ifdef _WIN32
            if (basePath.back() != '\\')
                basePath += '\\';
#else
            if (basePath.back() != '/')
                basePath += '/';
#endif
        } else if (strcasecmp("-n", argv[i]) == 0) {
            showintrodebug = 0;
        } else if (strcasecmp("-f", argv[i]) == 0) {
            EnableFrameCount();
        } else if (strcasecmp("-x", argv[i]) == 0) {
            fullscreen = FALSE;
#ifdef _DEBUG
        } else if (strcasecmp("-^", argv[i]) == 0) {
            debug_mode_key_inverted_v = 1;
        } else if (strcasecmp("-$", argv[i]) == 0) {
            debug_mode_dollar_sign = 1;
        /*
        } else if (strcasecmp("-b", argv[i]) == 0) {
            debug_mode_key_b = 1;
        */
        } else if (strcasecmp("-d", argv[i]) == 0) {
            debug_mode_key_d = 1;
        } else if (strcasecmp("-i", argv[i]) == 0) {
            debug_mode_key_i = 1;
        /*
        } else if (strcasecmp("-j", argv[i]) == 0) {
            debug_mode_key_J_trigger = argv[++i];
        */
        } else if (strcasecmp("-l", argv[i]) == 0) {
            setlevel = FALSE;
            leveldebug = TRUE;
            leveltype = SDL_atoi(argv[++i]);
            currlevel = SDL_atoi(argv[++i]);
            plr[0].plrlevel = currlevel;
        } else if (strcasecmp("-m", argv[i]) == 0) {
            monstdebug = TRUE;
            DebugMonsters[debugmonsttypes++] = SDL_atoi(argv[++i]);
        } else if (strcasecmp("-q", argv[i]) == 0) {
            questdebug = SDL_atoi(argv[++i]);
        } else if (strcasecmp("-r", argv[i]) == 0) {
            setseed = SDL_atoi(argv[++i]);
        } else if (strcasecmp("-s", argv[i]) == 0) {
            debug_mode_key_s = 1;
        } else if (strcasecmp("-t", argv[i]) == 0) {
            leveldebug = TRUE;
            setlevel = TRUE;
            setlvlnum = SDL_atoi(argv[++i]);
        } else if (strcasecmp("-v", argv[i]) == 0) {
            visiondebug = TRUE;
        } else if (strcasecmp("-w", argv[i]) == 0) {
            debug_mode_key_w = 1;
#endif
        } else {
            printf("unrecognized option '%s'\n", argv[i]);
            print_help_and_exit();
        }
    }
}
 
void diablo_init_screen()
{
    int i;
 
    MouseX = SCREEN_WIDTH / 2;
    MouseY = SCREEN_HEIGHT / 2;
    if (!sgbControllerActive)
        SetCursorPos(MouseX, MouseY);
    ScrollInfo._sdx = 0;
    ScrollInfo._sdy = 0;
    ScrollInfo._sxoff = 0;
    ScrollInfo._syoff = 0;
    ScrollInfo._sdir = SDIR_NONE;
 
    ClrDiabloMsg();
}
 
BOOL PressEscKey()
{
    BOOL rv = FALSE;
 
    if (doomflag) {
        doom_close();
        rv = TRUE;
    }
    if (helpflag) {
        helpflag = FALSE;
        rv = TRUE;
    }
 
    if (qtextflag) {
        qtextflag = FALSE;
        stream_stop();
        rv = TRUE;
    } else if (stextflag) {
        STextESC();
        rv = TRUE;
    }
 
    if (msgflag) {
        msgdelay = 0;
        rv = TRUE;
    }
    if (talkflag) {
        control_reset_talk();
        rv = TRUE;
    }
    if (dropGoldFlag) {
        control_drop_gold(VK_ESCAPE);
        rv = TRUE;
    }
    if (spselflag) {
        spselflag = FALSE;
        rv = TRUE;
    }
 
    return rv;
}
 
static void GetMousePos(LPARAM lParam)
{
    MouseX = (short)(lParam & 0xffff);
    MouseY = (short)((lParam >> 16) & 0xffff);
}
 
LRESULT DisableInputWndProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
    switch (uMsg) {
    case WM_KEYDOWN:
    case WM_KEYUP:
    case WM_CHAR:
    case WM_SYSKEYDOWN:
    case WM_SYSCOMMAND:
    case WM_MOUSEMOVE:
        GetMousePos(lParam);
        return 0;
    case WM_LBUTTONDOWN:
        if (sgbMouseDown != 0)
            return 0;
        sgbMouseDown = 1;
        return 0;
    case WM_LBUTTONUP:
        if (sgbMouseDown != 1)
            return 0;
        sgbMouseDown = 0;
        return 0;
    case WM_RBUTTONDOWN:
        if (sgbMouseDown != 0)
            return 0;
        sgbMouseDown = 2;
        return 0;
    case WM_RBUTTONUP:
        if (sgbMouseDown != 2)
            return 0;
        sgbMouseDown = 0;
        return 0;
    case WM_CAPTURECHANGED:
        if (hWnd == (HWND)lParam)
            return 0;
        sgbMouseDown = 0;
        return 0;
    }
 
    return MainWndProc(hWnd, uMsg, wParam, lParam);
}
 
LRESULT GM_Game(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
    switch (uMsg) {
    case WM_KEYDOWN:
        PressKey(wParam);
        return 0;
    case WM_KEYUP:
        ReleaseKey(wParam);
        return 0;
    case WM_CHAR:
        PressChar(wParam);
        return 0;
    case WM_SYSKEYDOWN:
        if (PressSysKey(wParam))
            return 0;
        break;
    case WM_SYSCOMMAND:
        if (wParam == SC_CLOSE) {
            gbRunGame = FALSE;
            gbRunGameResult = FALSE;
            return 0;
        }
        break;
    case WM_MOUSEMOVE:
        GetMousePos(lParam);
        gmenu_on_mouse_move();
        return 0;
    case WM_LBUTTONDOWN:
        GetMousePos(lParam);
        if (sgbMouseDown == 0) {
            sgbMouseDown = 1;
            track_repeat_walk(LeftMouseDown(wParam));
        }
        return 0;
    case WM_LBUTTONUP:
        GetMousePos(lParam);
        if (sgbMouseDown == 1) {
            sgbMouseDown = 0;
            LeftMouseUp();
            track_repeat_walk(FALSE);
        }
        return 0;
    case WM_RBUTTONDOWN:
        GetMousePos(lParam);
        if (sgbMouseDown == 0) {
            sgbMouseDown = 2;
            RightMouseDown();
        }
        return 0;
    case WM_RBUTTONUP:
        GetMousePos(lParam);
        if (sgbMouseDown == 2) {
            sgbMouseDown = 0;
        }
        return 0;
    case WM_CAPTURECHANGED:
        if (hWnd != (HWND)lParam) {
            sgbMouseDown = 0;
            track_repeat_walk(FALSE);
        }
        break;
    case WM_DIABNEXTLVL:
    case WM_DIABPREVLVL:
    case WM_DIABRTNLVL:
    case WM_DIABSETLVL:
    case WM_DIABWARPLVL:
    case WM_DIABTOWNWARP:
    case WM_DIABTWARPUP:
    case WM_DIABRETOWN:
        if (gbMaxPlayers > 1)
            pfile_write_hero();
        nthread_ignore_mutex(TRUE);
        PaletteFadeOut(8);
        sound_stop();
        music_stop();
        track_repeat_walk(FALSE);
        sgbMouseDown = 0;
        ShowProgress(uMsg);
        force_redraw = 255;
        DrawAndBlit();
        if (gbRunGame)
            PaletteFadeIn(8);
        nthread_ignore_mutex(FALSE);
        gbGameLoopStartup = TRUE;
        return 0;
    }
 
    return MainWndProc(hWnd, uMsg, wParam, lParam);
}
 
BOOL LeftMouseDown(int wParam)
{
    if (!gmenu_left_mouse(TRUE) && !control_check_talk_btn() && !sgnTimeoutCurs) {
        if (deathflag) {
            control_check_btn_press();
        } else if (PauseMode != 2) {
            if (doomflag) {
                doom_close();
            } else if (spselflag) {
                SetSpell();
            } else if (stextflag) {
                CheckStoreBtn();
            } else if (MouseY < PANEL_TOP || MouseX < PANEL_LEFT || MouseX > PANEL_LEFT + PANEL_WIDTH) {
                if (!gmenu_is_active() && !TryIconCurs()) {
                    if (questlog && MouseX > 32 && MouseX < 288 && MouseY > 32 && MouseY < 308) {
                        QuestlogESC();
                    } else if (qtextflag) {
                        qtextflag = FALSE;
                        stream_stop();
                    } else if (chrflag && MouseX < SPANEL_WIDTH && MouseY < SPANEL_HEIGHT) {
                        CheckChrBtns();
                    } else if (invflag && MouseX > RIGHT_PANEL && MouseY < SPANEL_HEIGHT) {
                        if (!dropGoldFlag)
                            CheckInvItem();
                    } else if (sbookflag && MouseX > RIGHT_PANEL && MouseY < SPANEL_HEIGHT) {
                        CheckSBook();
                    } else if (pcurs >= CURSOR_FIRSTITEM) {
                        if (TryInvPut()) {
                            NetSendCmdPItem(TRUE, CMD_PUTITEM, cursmx, cursmy);
                            SetCursor_(CURSOR_HAND);
                        }
                    } else {
                        if (plr[myplr]._pStatPts && !spselflag)
                            CheckLvlBtn();
                        if (!lvlbtndown)
                            return LeftMouseCmd(wParam == MK_SHIFT + MK_LBUTTON);
                    }
                }
            } else {
                if (!talkflag && !dropGoldFlag && !gmenu_is_active())
                    CheckInvScrn();
                DoPanBtn();
                if (pcurs > CURSOR_HAND && pcurs < CURSOR_FIRSTITEM)
                    SetCursor_(CURSOR_HAND);
            }
        }
    }
 
    return FALSE;
}
 
BOOL LeftMouseCmd(BOOL bShift)
{
    BOOL bNear;
 
 
    if (leveltype == DTYPE_TOWN) {
        if (pcursitem != -1 && pcurs == CURSOR_HAND)
            NetSendCmdLocParam1(TRUE, invflag ? CMD_GOTOGETITEM : CMD_GOTOAGETITEM, cursmx, cursmy, pcursitem);
        if (pcursmonst != -1)
            NetSendCmdLocParam1(TRUE, CMD_TALKXY, cursmx, cursmy, pcursmonst);
        if (pcursitem == -1 && pcursmonst == -1 && pcursplr == -1)
            return TRUE;
    } else {
        bNear = abs(plr[myplr].WorldX - cursmx) < 2 && abs(plr[myplr].WorldY - cursmy) < 2;
        if (pcursitem != -1 && pcurs == CURSOR_HAND && !bShift) {
            NetSendCmdLocParam1(TRUE, invflag ? CMD_GOTOGETITEM : CMD_GOTOAGETITEM, cursmx, cursmy, pcursitem);
        } else if (pcursobj != -1 && (!bShift || bNear && object[pcursobj]._oBreak == 1)) {
            NetSendCmdLocParam1(TRUE, pcurs == CURSOR_DISARM ? CMD_DISARMXY : CMD_OPOBJXY, cursmx, cursmy, pcursobj);
        } else if (plr[myplr]._pwtype == WT_RANGED) {
            if (bShift) {
                NetSendCmdLoc(TRUE, CMD_RATTACKXY, cursmx, cursmy);
            } else if (pcursmonst != -1) {
                if (CanTalkToMonst(pcursmonst)) {
                    NetSendCmdParam1(TRUE, CMD_ATTACKID, pcursmonst);
                } else {
                    NetSendCmdParam1(TRUE, CMD_RATTACKID, pcursmonst);
                }
            } else if (pcursplr != -1 && !FriendlyMode) {
                NetSendCmdParam1(TRUE, CMD_RATTACKPID, pcursplr);
            }
        } else {
            if (bShift) {
                if (pcursmonst != -1) {
                    if (CanTalkToMonst(pcursmonst)) {
                        NetSendCmdParam1(TRUE, CMD_ATTACKID, pcursmonst);
                    } else {
                        NetSendCmdLoc(TRUE, CMD_SATTACKXY, cursmx, cursmy);
                    }
                } else {
                    NetSendCmdLoc(TRUE, CMD_SATTACKXY, cursmx, cursmy);
                }
            } else if (pcursmonst != -1) {
                NetSendCmdParam1(TRUE, CMD_ATTACKID, pcursmonst);
            } else if (pcursplr != -1 && !FriendlyMode) {
                NetSendCmdParam1(TRUE, CMD_ATTACKPID, pcursplr);
            }
        }
        if (!bShift && pcursitem == -1 && pcursobj == -1 && pcursmonst == -1 && pcursplr == -1)
            return TRUE;
    }
 
    return FALSE;
}
 
BOOL TryIconCurs()
{
    if (pcurs == CURSOR_RESURRECT) {
        NetSendCmdParam1(TRUE, CMD_RESURRECT, pcursplr);
        return TRUE;
    } else if (pcurs == CURSOR_HEALOTHER) {
        NetSendCmdParam1(TRUE, CMD_HEALOTHER, pcursplr);
        return TRUE;
    } else if (pcurs == CURSOR_TELEKINESIS) {
        DoTelekinesis();
        return TRUE;
    } else if (pcurs == CURSOR_IDENTIFY) {
        if (pcursinvitem != -1) {
            CheckIdentify(myplr, pcursinvitem);
        } else {
            SetCursor_(CURSOR_HAND);
        }
        return TRUE;
    } else if (pcurs == CURSOR_REPAIR) {
        if (pcursinvitem != -1) {
            DoRepair(myplr, pcursinvitem);
        } else {
            SetCursor_(CURSOR_HAND);
        }
        return TRUE;
    } else if (pcurs == CURSOR_RECHARGE) {
        if (pcursinvitem != -1) {
            DoRecharge(myplr, pcursinvitem);
        } else {
            SetCursor_(CURSOR_HAND);
        }
        return TRUE;
    } else if (pcurs == CURSOR_TELEPORT) {
        if (pcursmonst != -1) {
            NetSendCmdParam3(TRUE, CMD_TSPELLID, pcursmonst, plr[myplr]._pTSpell, GetSpellLevel(myplr, plr[myplr]._pTSpell));
        } else if (pcursplr != -1) {
            NetSendCmdParam3(TRUE, CMD_TSPELLPID, pcursplr, plr[myplr]._pTSpell, GetSpellLevel(myplr, plr[myplr]._pTSpell));
        } else {
            NetSendCmdLocParam2(TRUE, CMD_TSPELLXY, cursmx, cursmy, plr[myplr]._pTSpell, GetSpellLevel(myplr, plr[myplr]._pTSpell));
        }
        SetCursor_(CURSOR_HAND);
        return TRUE;
    } else if (pcurs == CURSOR_DISARM && pcursobj == -1) {
        SetCursor_(CURSOR_HAND);
        return TRUE;
    }
 
    return FALSE;
}
 
void LeftMouseUp()
{
    gmenu_left_mouse(FALSE);
    control_release_talk_btn();
    if (panbtndown)
        CheckBtnUp();
    if (chrbtnactive)
        ReleaseChrBtns();
    if (lvlbtndown)
        ReleaseLvlBtn();
    if (stextflag)
        ReleaseStoreBtn();
}
 
void RightMouseDown()
{
    if (!gmenu_is_active() && sgnTimeoutCurs == CURSOR_NONE && PauseMode != 2 && !plr[myplr]._pInvincible) {
        if (doomflag) {
            doom_close();
        } else if (!stextflag) {
            if (spselflag) {
                SetSpell();
            } else if (MouseY >= SPANEL_HEIGHT
                || (!sbookflag || MouseX <= RIGHT_PANEL)
                    && !TryIconCurs()
                    && (pcursinvitem == -1 || !UseInvItem(myplr, pcursinvitem))) {
                if (pcurs == CURSOR_HAND) {
                    if (pcursinvitem == -1 || !UseInvItem(myplr, pcursinvitem))
                        CheckPlrSpell();
                } else if (pcurs > CURSOR_HAND && pcurs < CURSOR_FIRSTITEM) {
                    SetCursor_(CURSOR_HAND);
                }
            }
        }
    }
}
 
BOOL PressSysKey(int wParam)
{
    if (gmenu_is_active() || wParam != VK_F10)
        return FALSE;
    diablo_hotkey_msg(1);
    return TRUE;
}
 
void diablo_hotkey_msg(DWORD dwMsg)
{
    char szMsg[MAX_SEND_STR_LEN];
 
    if (gbMaxPlayers == 1) {
        return;
    }
 
    if (!getIniValue("NetMsg", spszMsgHotKeyTbl[dwMsg], szMsg, MAX_SEND_STR_LEN)) {
        snprintf(szMsg, MAX_SEND_STR_LEN, "%s", spszMsgTbl[dwMsg]);
        setIniValue("NetMsg", spszMsgHotKeyTbl[dwMsg], szMsg);
    }
 
    NetSendCmdString(-1, szMsg);
}
 
void ReleaseKey(int vkey)
{
    if (vkey == VK_SNAPSHOT)
        CaptureScreen();
}
 
void PressKey(int vkey)
{
    if (gmenu_presskeys(vkey) || control_presskeys(vkey)) {
        return;
    }
 
    if (deathflag) {
        if (sgnTimeoutCurs != 0) {
            return;
        }
        if (vkey == VK_F9) {
            diablo_hotkey_msg(0);
        }
        if (vkey == VK_F10) {
            diablo_hotkey_msg(1);
        }
        if (vkey == VK_F11) {
            diablo_hotkey_msg(2);
        }
        if (vkey == VK_F12) {
            diablo_hotkey_msg(3);
        }
        if (vkey == VK_RETURN) {
            control_type_message();
        }
        if (vkey != VK_ESCAPE) {
            return;
        }
    }
    if (vkey == VK_ESCAPE) {
        if (!PressEscKey()) {
            track_repeat_walk(FALSE);
            gamemenu_on();
        }
        return;
    }
 
    if (sgnTimeoutCurs != 0 || dropGoldFlag) {
        return;
    }
    if (vkey == VK_PAUSE) {
        diablo_pause_game();
        return;
    }
    if (PauseMode == 2) {
        return;
    }
 
    if (vkey == VK_RETURN) {
        if (GetAsyncKeyState(VK_MENU) & 0x8000) {
            dx_reinit();
        } else if (stextflag) {
            STextEnter();
        } else if (questlog) {
            QuestlogEnter();
        } else {
            control_type_message();
        }
    } else if (vkey == VK_F1) {
        if (helpflag) {
            helpflag = FALSE;
        } else if (stextflag) {
            ClearPanel();
            AddPanelString("No help available", TRUE); 
            AddPanelString("while in stores", TRUE);
            track_repeat_walk(FALSE);
        } else {
            invflag = FALSE;
            chrflag = FALSE;
            sbookflag = FALSE;
            spselflag = FALSE;
            if (qtextflag && leveltype == DTYPE_TOWN) {
                qtextflag = FALSE;
                stream_stop();
            }
            questlog = FALSE;
            automapflag = FALSE;
            msgdelay = 0;
            gamemenu_off();
            DisplayHelp();
            doom_close();
        }
    }
#ifdef _DEBUG
    else if (vkey == VK_F2) {
    }
#endif
#ifdef _DEBUG
    else if (vkey == VK_F3) {
        if (pcursitem != -1) {
            sprintf(
                tempstr,
                "IDX = %i  :  Seed = %i  :  CF = %i",
                item[pcursitem].IDidx,
                item[pcursitem]._iSeed,
                item[pcursitem]._iCreateInfo);
            NetSendCmdString(1 << myplr, tempstr);
        }
        sprintf(tempstr, "Numitems : %i", numitems);
        NetSendCmdString(1 << myplr, tempstr);
    }
#endif
#ifdef _DEBUG
    else if (vkey == VK_F4) {
        PrintDebugQuest();
    }
#endif
    else if (vkey == VK_F5) {
        if (spselflag) {
            SetSpeedSpell(0);
            return;
        }
        ToggleSpell(0);
        return;
    } else if (vkey == VK_F6) {
        if (spselflag) {
            SetSpeedSpell(1);
            return;
        }
        ToggleSpell(1);
        return;
    } else if (vkey == VK_F7) {
        if (spselflag) {
            SetSpeedSpell(2);
            return;
        }
        ToggleSpell(2);
        return;
    } else if (vkey == VK_F8) {
        if (spselflag) {
            SetSpeedSpell(3);
            return;
        }
        ToggleSpell(3);
        return;
    } else if (vkey == VK_F9) {
        diablo_hotkey_msg(0);
    } else if (vkey == VK_F10) {
        diablo_hotkey_msg(1);
    } else if (vkey == VK_F11) {
        diablo_hotkey_msg(2);
    } else if (vkey == VK_F12) {
        diablo_hotkey_msg(3);
    } else if (vkey == VK_UP) {
        if (stextflag) {
            STextUp();
        } else if (questlog) {
            QuestlogUp();
        } else if (helpflag) {
            HelpScrollUp();
        } else if (automapflag) {
            AutomapUp();
        }
    } else if (vkey == VK_DOWN) {
        if (stextflag) {
            STextDown();
        } else if (questlog) {
            QuestlogDown();
        } else if (helpflag) {
            HelpScrollDown();
        } else if (automapflag) {
            AutomapDown();
        }
    } else if (vkey == VK_PRIOR) {
        if (stextflag) {
            STextPrior();
        }
    } else if (vkey == VK_NEXT) {
        if (stextflag) {
            STextNext();
        }
    } else if (vkey == VK_LEFT) {
        if (automapflag && !talkflag) {
            AutomapLeft();
        }
    } else if (vkey == VK_RIGHT) {
        if (automapflag && !talkflag) {
            AutomapRight();
        }
    } else if (vkey == VK_TAB) {
        DoAutoMap();
    } else if (vkey == VK_SPACE) {
        if (!chrflag && invflag && MouseX < 480 && MouseY < PANEL_TOP && PANELS_COVER) {
            SetCursorPos(MouseX + 160, MouseY);
        }
        if (!invflag && chrflag && MouseX > 160 && MouseY < PANEL_TOP && PANELS_COVER) {
            SetCursorPos(MouseX - 160, MouseY);
        }
        helpflag = FALSE;
        invflag = FALSE;
        chrflag = FALSE;
        sbookflag = FALSE;
        spselflag = FALSE;
        if (qtextflag && leveltype == DTYPE_TOWN) {
            qtextflag = FALSE;
            stream_stop();
        }
        questlog = FALSE;
        automapflag = FALSE;
        msgdelay = 0;
        gamemenu_off();
        doom_close();
    }
}
 
void diablo_pause_game()
{
    if (gbMaxPlayers <= 1) {
        if (PauseMode) {
            PauseMode = 0;
        } else {
            PauseMode = 2;
            sound_stop();
            track_repeat_walk(FALSE);
        }
        force_redraw = 255;
    }
}
 
void PressChar(int vkey)
{
    if (gmenu_is_active() || control_talk_last_key(vkey) || sgnTimeoutCurs != 0 || deathflag) {
        return;
    }
    if ((char)vkey == 'p' || (char)vkey == 'P') {
        diablo_pause_game();
        return;
    }
    if (PauseMode == 2) {
        return;
    }
    if (doomflag) {
        doom_close();
        return;
    }
    if (dropGoldFlag) {
        control_drop_gold(vkey);
        return;
    }
 
    switch (vkey) {
    case 'G':
    case 'g':
        DecreaseGamma();
        return;
    case 'F':
    case 'f':
        IncreaseGamma();
        return;
    case 'I':
    case 'i':
        if (!stextflag) {
            sbookflag = FALSE;
            invflag = !invflag;
            if (!invflag || chrflag) {
                if (MouseX < 480 && MouseY < PANEL_TOP && PANELS_COVER) {
                    SetCursorPos(MouseX + 160, MouseY);
                }
            } else {
                if (MouseX > 160 && MouseY < PANEL_TOP && PANELS_COVER) {
                    SetCursorPos(MouseX - 160, MouseY);
                }
            }
        }
        return;
    case 'C':
    case 'c':
        if (!stextflag) {
            questlog = FALSE;
            chrflag = !chrflag;
            if (!chrflag || invflag) {
                if (MouseX > 160 && MouseY < PANEL_TOP && PANELS_COVER) {
                    SetCursorPos(MouseX - 160, MouseY);
                }
            } else {
                if (MouseX < 480 && MouseY < PANEL_TOP && PANELS_COVER) {
                    SetCursorPos(MouseX + 160, MouseY);
                }
            }
        }
        return;
    case 'Q':
    case 'q':
        if (!stextflag) {
            chrflag = FALSE;
            if (!questlog) {
                StartQuestlog();
            } else {
                questlog = FALSE;
            }
        }
        return;
    case 'Z':
    case 'z':
        zoomflag = !zoomflag;
        return;
    case 'S':
    case 's':
        if (!stextflag) {
            invflag = FALSE;
            if (!spselflag) {
                DoSpeedBook();
            } else {
                spselflag = FALSE;
            }
            track_repeat_walk(FALSE);
        }
        return;
    case 'B':
    case 'b':
        if (!stextflag) {
            invflag = FALSE;
            sbookflag = !sbookflag;
        }
        return;
    case '+':
    case '=':
        if (automapflag) {
            AutomapZoomIn();
        }
        return;
    case '-':
    case '_':
        if (automapflag) {
            AutomapZoomOut();
        }
        return;
    case 'v':
        NetSendCmdString(1 << myplr, gszProductName);
        return;
    case 'V':
        NetSendCmdString(1 << myplr, gszVersionNumber);
        return;
    case '!':
    case '1':
        if (plr[myplr].SpdList[0]._itype != ITYPE_NONE && plr[myplr].SpdList[0]._itype != ITYPE_GOLD) {
            UseInvItem(myplr, INVITEM_BELT_FIRST);
        }
        return;
    case '@':
    case '2':
        if (plr[myplr].SpdList[1]._itype != ITYPE_NONE && plr[myplr].SpdList[1]._itype != ITYPE_GOLD) {
            UseInvItem(myplr, INVITEM_BELT_FIRST + 1);
        }
        return;
    case '#':
    case '3':
        if (plr[myplr].SpdList[2]._itype != ITYPE_NONE && plr[myplr].SpdList[2]._itype != ITYPE_GOLD) {
            UseInvItem(myplr, INVITEM_BELT_FIRST + 2);
        }
        return;
    case '$':
    case '4':
        if (plr[myplr].SpdList[3]._itype != ITYPE_NONE && plr[myplr].SpdList[3]._itype != ITYPE_GOLD) {
            UseInvItem(myplr, INVITEM_BELT_FIRST + 3);
        }
        return;
    case '%':
    case '5':
        if (plr[myplr].SpdList[4]._itype != ITYPE_NONE && plr[myplr].SpdList[4]._itype != ITYPE_GOLD) {
            UseInvItem(myplr, INVITEM_BELT_FIRST + 4);
        }
        return;
    case '^':
    case '6':
        if (plr[myplr].SpdList[5]._itype != ITYPE_NONE && plr[myplr].SpdList[5]._itype != ITYPE_GOLD) {
            UseInvItem(myplr, INVITEM_BELT_FIRST + 5);
        }
        return;
    case '&':
    case '7':
        if (plr[myplr].SpdList[6]._itype != ITYPE_NONE && plr[myplr].SpdList[6]._itype != ITYPE_GOLD) {
            UseInvItem(myplr, INVITEM_BELT_FIRST + 6);
        }
        return;
    case '*':
    case '8':
#ifdef _DEBUG
        if (debug_mode_key_inverted_v || debug_mode_key_w) {
            NetSendCmd(TRUE, CMD_CHEAT_EXPERIENCE);
            return;
        }
#endif
        if (plr[myplr].SpdList[7]._itype != ITYPE_NONE && plr[myplr].SpdList[7]._itype != ITYPE_GOLD) {
            UseInvItem(myplr, INVITEM_BELT_FIRST + 7);
        }
        return;
#ifdef _DEBUG
    case ')':
    case '0':
        if (debug_mode_key_inverted_v) {
            if (arrowdebug > 2) {
                arrowdebug = 0;
            }
            if (arrowdebug == 0) {
                plr[myplr]._pIFlags &= ~ISPL_FIRE_ARROWS;
                plr[myplr]._pIFlags &= ~ISPL_LIGHT_ARROWS;
            }
            if (arrowdebug == 1) {
                plr[myplr]._pIFlags |= ISPL_FIRE_ARROWS;
            }
            if (arrowdebug == 2) {
                plr[myplr]._pIFlags |= ISPL_LIGHT_ARROWS;
            }
            arrowdebug++;
        }
        return;
    case ':':
        if (currlevel == 0 && debug_mode_key_w) {
            SetAllSpellsCheat();
        }
        return;
    case '[':
        if (currlevel == 0 && debug_mode_key_w) {
            TakeGoldCheat();
        }
        return;
    case ']':
        if (currlevel == 0 && debug_mode_key_w) {
            MaxSpellsCheat();
        }
        return;
    case 'a':
        if (debug_mode_key_inverted_v) {
            spelldata[SPL_TELEPORT].sTownSpell = 1;
            plr[myplr]._pSplLvl[plr[myplr]._pSpell]++;
        }
        return;
    case 'D':
        PrintDebugPlayer(TRUE);
        return;
    case 'd':
        PrintDebugPlayer(FALSE);
        return;
    case 'L':
    case 'l':
        if (debug_mode_key_inverted_v) {
            ToggleLighting();
        }
        return;
    case 'M':
        NextDebugMonster();
        return;
    case 'm':
        GetDebugMonster();
        return;
    case 'R':
    case 'r':
        sprintf(tempstr, "seed = %i", glSeedTbl[currlevel]);
        NetSendCmdString(1 << myplr, tempstr);
        sprintf(tempstr, "Mid1 = %i : Mid2 = %i : Mid3 = %i", glMid1Seed[currlevel], glMid2Seed[currlevel], glMid3Seed[currlevel]);
        NetSendCmdString(1 << myplr, tempstr);
        sprintf(tempstr, "End = %i", glEndSeed[currlevel]);
        NetSendCmdString(1 << myplr, tempstr);
        return;
    case 'T':
    case 't':
        if (debug_mode_key_inverted_v) {
            sprintf(tempstr, "PX = %i  PY = %i", plr[myplr].WorldX, plr[myplr].WorldY);
            NetSendCmdString(1 << myplr, tempstr);
            sprintf(tempstr, "CX = %i  CY = %i  DP = %i", cursmx, cursmy, dungeon[cursmx][cursmy]);
            NetSendCmdString(1 << myplr, tempstr);
        }
        return;
    case '|':
        if (currlevel == 0 && debug_mode_key_w) {
            GiveGoldCheat();
        }
        return;
    case '~':
        if (currlevel == 0 && debug_mode_key_w) {
            StoresCheat();
        }
        return;
#endif
    }
}
 
void LoadLvlGFX()
{
 
    switch (leveltype) {
    case DTYPE_TOWN:
        pDungeonCels = LoadFileInMem("Levels\\TownData\\Town.CEL", NULL);
        pMegaTiles = LoadFileInMem("Levels\\TownData\\Town.TIL", NULL);
        pLevelPieces = LoadFileInMem("Levels\\TownData\\Town.MIN", NULL);
        pSpecialCels = LoadFileInMem("Levels\\TownData\\TownS.CEL", NULL);
        break;
    case DTYPE_CATHEDRAL:
        pDungeonCels = LoadFileInMem("Levels\\L1Data\\L1.CEL", NULL);
        pMegaTiles = LoadFileInMem("Levels\\L1Data\\L1.TIL", NULL);
        pLevelPieces = LoadFileInMem("Levels\\L1Data\\L1.MIN", NULL);
        pSpecialCels = LoadFileInMem("Levels\\L1Data\\L1S.CEL", NULL);
        break;
#ifndef SPAWN
    case DTYPE_CATACOMBS:
        pDungeonCels = LoadFileInMem("Levels\\L2Data\\L2.CEL", NULL);
        pMegaTiles = LoadFileInMem("Levels\\L2Data\\L2.TIL", NULL);
        pLevelPieces = LoadFileInMem("Levels\\L2Data\\L2.MIN", NULL);
        pSpecialCels = LoadFileInMem("Levels\\L2Data\\L2S.CEL", NULL);
        break;
    case DTYPE_CAVES:
        pDungeonCels = LoadFileInMem("Levels\\L3Data\\L3.CEL", NULL);
        pMegaTiles = LoadFileInMem("Levels\\L3Data\\L3.TIL", NULL);
        pLevelPieces = LoadFileInMem("Levels\\L3Data\\L3.MIN", NULL);
        pSpecialCels = LoadFileInMem("Levels\\L1Data\\L1S.CEL", NULL);
        break;
    case DTYPE_HELL:
        pDungeonCels = LoadFileInMem("Levels\\L4Data\\L4.CEL", NULL);
        pMegaTiles = LoadFileInMem("Levels\\L4Data\\L4.TIL", NULL);
        pLevelPieces = LoadFileInMem("Levels\\L4Data\\L4.MIN", NULL);
        pSpecialCels = LoadFileInMem("Levels\\L2Data\\L2S.CEL", NULL);
        break;
#endif
    default:
        app_fatal("LoadLvlGFX");
        break;
    }
}
 
void LoadAllGFX()
{
    IncProgress();
    IncProgress();
    InitObjectGFX();
    IncProgress();
    InitMissileGFX();
    IncProgress();
}
 
void CreateLevel(int lvldir)
{
    switch (leveltype) {
    case DTYPE_TOWN:
        CreateTown(lvldir);
        InitTownTriggers();
        LoadRndLvlPal(0);
        break;
    case DTYPE_CATHEDRAL:
        CreateL5Dungeon(glSeedTbl[currlevel], lvldir);
        InitL1Triggers();
        Freeupstairs();
        LoadRndLvlPal(1);
        break;
#ifndef SPAWN
    case DTYPE_CATACOMBS:
        CreateL2Dungeon(glSeedTbl[currlevel], lvldir);
        InitL2Triggers();
        Freeupstairs();
        LoadRndLvlPal(2);
        break;
    case DTYPE_CAVES:
        CreateL3Dungeon(glSeedTbl[currlevel], lvldir);
        InitL3Triggers();
        Freeupstairs();
        LoadRndLvlPal(3);
        break;
    case DTYPE_HELL:
        CreateL4Dungeon(glSeedTbl[currlevel], lvldir);
        InitL4Triggers();
        Freeupstairs();
        LoadRndLvlPal(4);
        break;
#endif
    default:
        app_fatal("CreateLevel");
        break;
    }
}
 
void LoadGameLevel(BOOL firstflag, int lvldir)
{
    int i, j;
    BOOL visited;
 
    if (setseed)
        glSeedTbl[currlevel] = setseed;
 
    music_stop();
    SetCursor_(CURSOR_HAND);
    SetRndSeed(glSeedTbl[currlevel]);
    IncProgress();
    MakeLightTable();
    LoadLvlGFX();
    IncProgress();
 
    if (firstflag) {
        InitInv();
        InitItemGFX();
        InitQuestText();
 
        for (i = 0; i < gbMaxPlayers; i++)
            InitPlrGFXMem(i);
 
        InitStores();
        InitAutomapOnce();
        InitHelp();
    }
 
    SetRndSeed(glSeedTbl[currlevel]);
 
    if (leveltype == DTYPE_TOWN)
        SetupTownStores();
 
    IncProgress();
    InitAutomap();
 
    if (leveltype != DTYPE_TOWN && lvldir != 4) {
        InitLighting();
        InitVision();
    }
 
    InitLevelMonsters();
    IncProgress();
 
    if (!setlevel) {
        CreateLevel(lvldir);
        IncProgress();
        FillSolidBlockTbls();
        SetRndSeed(glSeedTbl[currlevel]);
 
        if (leveltype != DTYPE_TOWN) {
            GetLevelMTypes();
            InitThemes();
            LoadAllGFX();
        } else {
            IncProgress();
            IncProgress();
            InitMissileGFX();
            IncProgress();
            IncProgress();
        }
 
        IncProgress();
 
        if (lvldir == 3)
            GetReturnLvlPos();
        if (lvldir == 5)
            GetPortalLvlPos();
 
        IncProgress();
 
        for (i = 0; i < MAX_PLRS; i++) {
            if (plr[i].plractive && currlevel == plr[i].plrlevel) {
                InitPlayerGFX(i);
                if (lvldir != 4)
                    InitPlayer(i, firstflag);
            }
        }
 
        PlayDungMsgs();
        InitMultiView();
        IncProgress();
 
        visited = FALSE;
        for (i = 0; i < gbMaxPlayers; i++) {
            if (plr[i].plractive)
                visited = visited || plr[i]._pLvlVisited[currlevel];
        }
 
        SetRndSeed(glSeedTbl[currlevel]);
 
        if (leveltype != DTYPE_TOWN) {
            if (firstflag || lvldir == 4 || !plr[myplr]._pLvlVisited[currlevel] || gbMaxPlayers != 1) {
                HoldThemeRooms();
                glMid1Seed[currlevel] = GetRndSeed();
                InitMonsters();
                glMid2Seed[currlevel] = GetRndSeed();
                IncProgress();
                InitObjects();
                InitItems();
                CreateThemeRooms();
                IncProgress();
                glMid3Seed[currlevel] = GetRndSeed();
                InitMissiles();
                InitDead();
                glEndSeed[currlevel] = GetRndSeed();
 
                if (gbMaxPlayers != 1)
                    DeltaLoadLevel();
 
                IncProgress();
                SavePreLighting();
            } else {
                InitMonsters();
                InitMissiles();
                InitDead();
                IncProgress();
                LoadLevel();
                IncProgress();
            }
        } else {
            for (i = 0; i < MAXDUNX; i++) {
                for (j = 0; j < MAXDUNY; j++)
                    dFlags[i][j] |= BFLAG_LIT;
            }
 
            InitTowners();
            InitItems();
            InitMissiles();
            IncProgress();
 
            if (!firstflag && lvldir != 4 && plr[myplr]._pLvlVisited[currlevel] && gbMaxPlayers == 1)
                LoadLevel();
            if (gbMaxPlayers != 1)
                DeltaLoadLevel();
 
            IncProgress();
        }
        if (gbMaxPlayers == 1)
            ResyncQuests();
        else
            ResyncMPQuests();
#ifndef SPAWN
    } else {
        LoadSetMap();
        IncProgress();
        GetLevelMTypes();
        IncProgress();
        InitMonsters();
        IncProgress();
        InitMissileGFX();
        IncProgress();
        InitDead();
        IncProgress();
        FillSolidBlockTbls();
        IncProgress();
 
        if (lvldir == 5)
            GetPortalLvlPos();
        IncProgress();
 
        for (i = 0; i < MAX_PLRS; i++) {
            if (plr[i].plractive && currlevel == plr[i].plrlevel) {
                InitPlayerGFX(i);
                if (lvldir != 4)
                    InitPlayer(i, firstflag);
            }
        }
        IncProgress();
 
        InitMultiView();
        IncProgress();
 
        if (firstflag || lvldir == 4 || !plr[myplr]._pSLvlVisited[setlvlnum]) {
            InitItems();
            SavePreLighting();
        } else {
            LoadLevel();
        }
 
        InitMissiles();
        IncProgress();
#endif
    }
 
    SyncPortals();
 
    for (i = 0; i < MAX_PLRS; i++) {
        if (plr[i].plractive && plr[i].plrlevel == currlevel && (!plr[i]._pLvlChanging || i == myplr)) {
            if (plr[i]._pHitPoints > 0) {
                if (gbMaxPlayers == 1)
                    dPlayer[plr[i].WorldX][plr[i].WorldY] = i + 1;
                else
                    SyncInitPlrPos(i);
            } else {
                dFlags[plr[i].WorldX][plr[i].WorldY] |= BFLAG_DEAD_PLAYER;
            }
        }
    }
 
    SetDungeonMicros();
 
    InitLightMax();
    IncProgress();
    IncProgress();
 
    if (firstflag) {
        InitControlPan();
    }
    IncProgress();
    if (leveltype != DTYPE_TOWN) {
        ProcessLightList();
        ProcessVisionList();
    }
 
    music_start(leveltype);
 
    while (!IncProgress())
        ;
 
#ifndef SPAWN
    if (setlevel && setlvlnum == SL_SKELKING && quests[Q_SKELKING]._qactive == QUEST_ACTIVE)
        PlaySFX(USFX_SKING1);
#endif
}
 
void game_loop(BOOL bStartup)
{
    int i;
 
    i = bStartup ? 60 : 3;
 
    while (i--) {
        if (!multi_handle_delta()) {
            timeout_cursor(TRUE);
            break;
        } else {
            timeout_cursor(FALSE);
            game_logic();
        }
        if (!gbRunGame || gbMaxPlayers == 1 || !nthread_has_500ms_passed(TRUE))
            break;
    }
}
 
// Controller support:
extern void plrctrls_after_game_logic();
 
void game_logic()
{
    if (!ProcessInput()) {
        return;
    }
    if (gbProcessPlayers) {
        ProcessPlayers();
    }
    if (leveltype != DTYPE_TOWN) {
        ProcessMonsters();
        ProcessObjects();
        ProcessMissiles();
        ProcessItems();
        ProcessLightList();
        ProcessVisionList();
    } else {
        ProcessTowners();
        ProcessItems();
        ProcessMissiles();
    }
 
#ifdef _DEBUG
    if (debug_mode_key_inverted_v && GetAsyncKeyState(VK_SHIFT) & 0x8000) {
        ScrollView();
    }
#endif
 
    sound_update();
    ClearPlrMsg();
    CheckTriggers();
    CheckQuests();
    force_redraw |= 1;
    pfile_update(FALSE);
 
    plrctrls_after_game_logic();
}
 
void timeout_cursor(BOOL bTimeout)
{
    if (bTimeout) {
        if (sgnTimeoutCurs == CURSOR_NONE && !sgbMouseDown) {
            sgnTimeoutCurs = pcurs;
            multi_net_ping();
            ClearPanel();
            AddPanelString("-- Network timeout --", TRUE);
            AddPanelString("-- Waiting for players --", TRUE);
            SetCursor_(CURSOR_HOURGLASS);
            force_redraw = 255;
        }
        scrollrt_draw_game_screen(TRUE);
    } else if (sgnTimeoutCurs) {
        SetCursor_(sgnTimeoutCurs);
        sgnTimeoutCurs = 0;
        ClearPanel();
        force_redraw = 255;
    }
}
 
void diablo_color_cyc_logic()
{
    if (!palette_get_color_cycling())
        return;
 
    if (leveltype == DTYPE_HELL) {
        lighting_color_cycling();
    } else if (leveltype == DTYPE_CAVES) {
        palette_update_caves();
    }
}
 
DEVILUTION_END_NAMESPACE