183 lines
2.6 KiB
C
183 lines
2.6 KiB
C
#ifdef PM
|
|
#include <cstd.h>
|
|
#define INCL_WIN
|
|
#define INCL_GPI
|
|
#include <os2.h>
|
|
INT _acrtused = 0;
|
|
#endif
|
|
#ifdef WIN
|
|
#include <windows.h>
|
|
#include <port1632.h>
|
|
|
|
#endif
|
|
|
|
#include "std.h"
|
|
#include "scrsave.h"
|
|
|
|
|
|
|
|
INT rand();
|
|
|
|
INT dxScreen, dyScreen;
|
|
|
|
|
|
#define wtDown 0
|
|
#define wtUp 1
|
|
#define wtLeft 2
|
|
#define wtRight 3
|
|
#define wtIn 4
|
|
#define wtOut 5
|
|
|
|
#define wtMax 6
|
|
|
|
INT wt;
|
|
INT x, y;
|
|
|
|
|
|
BOOL EXPENTRY ScrSaveProc(INT ssm, LPVOID l1, LONG_PTR l2, LONG_PTR l3)
|
|
{
|
|
CHAR FAR * lpsz;
|
|
CHAR FAR * lpch;
|
|
BOOL fDone = FALSE;
|
|
|
|
switch (ssm)
|
|
{
|
|
default:
|
|
return fFalse;
|
|
|
|
case SSM_OPEN:
|
|
lpsz = (PSZ) l1;
|
|
lpch = "Wipe Out";
|
|
while ((*lpsz++ = *lpch++) != '\0')
|
|
;
|
|
|
|
lpsz = (PSZ) l2;
|
|
lpch = "Various Wipes, then Random\n\nby Brad Christian";
|
|
while ((*lpsz++ = *lpch++) != '\0')
|
|
;
|
|
|
|
#ifdef PM
|
|
dxScreen = WinQuerySysValue(HWND_DESKTOP, SV_CXSCREEN);
|
|
dyScreen = WinQuerySysValue(HWND_DESKTOP, SV_CYSCREEN);
|
|
#endif
|
|
#ifdef WIN
|
|
dxScreen = GetSystemMetrics(SM_CXSCREEN);
|
|
dyScreen = GetSystemMetrics(SM_CYSCREEN);
|
|
#endif
|
|
break;
|
|
|
|
case SSM_BLANK:
|
|
switch (wt = WRand(wtMax))
|
|
{
|
|
case wtDown:
|
|
y = dyScreen;
|
|
break;
|
|
|
|
case wtUp:
|
|
y = 0;
|
|
break;
|
|
|
|
case wtLeft:
|
|
x = dxScreen;
|
|
break;
|
|
|
|
case wtRight:
|
|
x = 0;
|
|
break;
|
|
|
|
case wtIn:
|
|
x = 0;
|
|
y = 0;
|
|
break;
|
|
|
|
case wtOut:
|
|
x = dxScreen / 2;
|
|
y = dyScreen / 2;
|
|
break;
|
|
}
|
|
break;
|
|
|
|
case SSM_ANIMATE:
|
|
{
|
|
RECT rect;
|
|
|
|
switch (wt)
|
|
{
|
|
case wtDown:
|
|
if (y <= 0)
|
|
fDone = TRUE;
|
|
|
|
rect.left = 0;
|
|
rect.right = dxScreen;
|
|
rect.top = y;
|
|
rect.bottom = y - 16;
|
|
y -= 16;
|
|
break;
|
|
|
|
case wtUp:
|
|
if (y >= dyScreen - 1)
|
|
fDone = TRUE;
|
|
|
|
rect.left = 0;
|
|
rect.right = dxScreen;
|
|
rect.top = y + 16;
|
|
rect.bottom = y;
|
|
y += 16;
|
|
break;
|
|
|
|
case wtLeft:
|
|
if (x <= 0)
|
|
fDone = TRUE;
|
|
|
|
rect.left = x;
|
|
rect.right = x + 16;
|
|
rect.top = dyScreen;
|
|
rect.bottom = 0;
|
|
x -= 16;
|
|
break;
|
|
|
|
case wtRight:
|
|
if (x >= dxScreen - 1)
|
|
fDone = TRUE;
|
|
|
|
rect.left = x;
|
|
rect.right = x + 16;
|
|
rect.top = dyScreen;
|
|
rect.bottom = 0;
|
|
x += 16;
|
|
break;
|
|
|
|
case wtIn:
|
|
fDone = fTrue; // REVIEW
|
|
break;
|
|
|
|
case wtOut:
|
|
if (x <= 0 && y <= 0)
|
|
fDone = TRUE;
|
|
|
|
rect.left = x;
|
|
rect.right = dxScreen - x;
|
|
rect.bottom = y;
|
|
rect.top = dyScreen - y;
|
|
x -= 8;
|
|
y -= 8;
|
|
break;
|
|
}
|
|
|
|
#ifdef PM
|
|
WinFillRect((HPS) l1, &rect, CLR_BLACK);
|
|
#endif
|
|
#ifdef WIN
|
|
PatBlt((HDC) l1, rect.left, rect.top,
|
|
rect.right - rect.left,
|
|
rect.bottom - rect.top, BLACKNESS);
|
|
#endif
|
|
if (fDone)
|
|
ScrChooseRandomServer();
|
|
}
|
|
break;
|
|
}
|
|
|
|
return fTrue;
|
|
}
|