home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fred Fish Collection 1.5
/
ffcollection-1-5-1992-11.iso
/
ff_disks
/
200-299
/
ff262.lzh
/
Lotto
/
lotto.c
< prev
next >
Wrap
C/C++ Source or Header
|
1989-10-31
|
3KB
|
196 lines
/*************************************/
/* */
/* AUoH Progressive Door Prize Lotto */
/* */
/* Michael D. Groshart - 16 Aug 89 */
/* */
/*************************************/
#include <intuition/intuition.h>
#include <functions.h>
#include <stdio.h>
#include "lotto.h"
struct IntuitionBase *IntuitionBase;
struct GfxBase *GfxBase;
struct Screen *scr;
struct ViewPort *vp;
struct Window *win;
struct RastPort *rp;
struct TmpRas tr;
PLANEPTR plane;
unsigned long rand();
void srand();
#define GetIMsg(p) ((struct IntuiMessage *) GetMsg(p))
#define ESC 0x1b
#define SPC 0x20
#define MAX 1000
#define ARRAYSIZE 400
struct user_data
{
short user;
char *name;
} array[ARRAYSIZE];
int nent = 0;
init_screen()
{
long sec,mic;
IntuitionBase = (struct IntuitionBase *) OpenLibrary("intuition.library",0L);
GfxBase = (struct GfxBase *) OpenLibrary("graphics.library",0L);
if (!(scr = OpenScreen(&NewScreenStructure))) quit();
NewWindowStructure1.Screen = scr;
if (!(win = OpenWindow(&NewWindowStructure1))) quit();
vp = &(scr->ViewPort);
rp = win->RPort;
if (!(plane = AllocRaster(320L,200L))) quit();
InitTmpRas(&tr,plane,RASSIZE(320,200));
rp->TmpRas = &tr;
LoadRGB4(vp,&Palette,32L);
SetMenuStrip(win,&Menu1);
CurrentTime(&sec,&mic);
srand(sec + mic);
}
quit()
{
exit_beep();
if (plane) FreeRaster(plane,320L,200L);
if (win)
{
ClearMenuStrip(win);
CloseWindow(win);
}
if (scr) CloseScreen(scr);
CloseLibrary(GfxBase);
CloseLibrary(IntuitionBase);
exit(0);
}
pick()
{
register struct IntuiMessage *im;
register int i,num;
erase();
while (!(im = GetIMsg(win->UserPort)))
{
for (i = 0; i < 21; i++)
flash();
beep((int)rand(7168L),3);
}
ReplyMsg(im);
num = rand((long) nent);
printf("%4d %s\n",array[num].user,array[num].name);
display(array[num].user);
scroll(array[num].name);
}
void *malloc();
char *strdup(s)
char *s;
{
register char *p;
if (p = (char *) malloc(strlen(s) + 1))
{
strcpy(p, s);
}
return p;
}
add(num,nam)
char *num, *nam;
{
register int i;
if (nent < ARRAYSIZE)
{
if ((i = atoi(num)) < 400)
{
if (array[nent].name = strdup(nam))
{
array[nent++].user = i;
}
}
}
}
main(argc,argv)
int argc;
char *argv[];
{
struct IntuiMessage *im;
USHORT code;
ULONG class;
char *datafile;
if (argc == 1)
datafile = "members.sbf";
else
datafile = argv[1];
if (*datafile == '?')
{
fprintf(stderr,"Usage: %s [members.sbf]\n",argv[0]);
exit(5);
}
if (read_db(datafile,add) == 0)
{
fprintf(stderr,"Error: can't open %s\n",datafile);
exit(10);
}
init_screen();
init_digits();
init_beep();
display(0);
for (;;)
{
Wait(1L << win->UserPort->mp_SigBit);
while (im = GetIMsg(win->UserPort))
{
class = im->Class;
code = im->Code;
ReplyMsg(im);
if (class == MENUPICK)
{
if (ITEMNUM(code) == 0) quit();
}
else if (class == VANILLAKEY)
{
if (code == SPC) pick();
if (code == ESC) quit();
}
}
}
}
_wb_parse() {}