nethack-gwaa-kiwi/nethack
1
0
Fork 0
Code Pull Requests Activity
Files
1bdf37ec00a5d8f7d6e477ffe3e2f30ae7382f79
nethack/sys/amiga/amirip.c
cohrs 559be58c21 conflicting delayed killers 
Introduce a new set of functions to manage delayed killers in the trunk, used
in addressing the various reports of delayed killer confusion.  Since existing
delayed killers are related to player properties, the delayed killers are
keyed by uprop indexes.  I did this to avoid adding yet another set of
similar identifiers.
- the new delayed_killer() is used for stoning, sliming, sickness, and
delayed self-genocide while polymorphed.  Some other timed events don't
use it (and didn't use the old delayed_killer variable) because they
use a fixed message when the timeout occurs.
- A new data structure, struct kinfo, is used to track both delayed and
immediate killers.  This encapsulates all the info involved with
identifying a killer.  The structure contains a buffer, which subsumes the
old killer_buf and several other buffers that didn't/couldn't use killer_buf.
- the killer list is saved and restored as part of the game state.
- the special case of usick_cause was removed and a delayed killer list
entry is now used in its place
- common code dealing with (un)sliming is moved to a new make_slimed function
- attempted to update all make dependencies for new end.c -> lev.h
dependency, sorry if I messed any up
2003-09-29 19:24:20 +00:00

406 lines
8.9 KiB
C
Raw Blame History

/* SCCS Id: @(#)amirip.c 3.2 96/02/04 */
/* Copyright (c) Kenneth Lorber, Bethesda, Maryland 1991,1992,1993,1995,1996. */
/* NetHack may be freely redistributed. See license for details. */
#include "hack.h"
#include <exec/types.h>
#include <exec/io.h>
#include <exec/alerts.h>
#include <exec/devices.h>
#include <devices/console.h>
#include <devices/conunit.h>
#include <graphics/gfxbase.h>
#include <graphics/gfxmacros.h>
#include <intuition/intuition.h>
#include <libraries/dosextens.h>
#include <ctype.h>
#include <string.h>
#include "winami.h"
#include "windefs.h"
#include "winext.h"
#include "winproto.h"
static struct RastPort *rp;
#ifdef AMII_GRAPHICS
#undef NULL
#define NULL 0
#ifdef AZTEC_C
# include <functions.h>
#else
# ifdef _DCC
# include <clib/dos_protos.h>
# include <clib/exec_protos.h>
# include <clib/console_protos.h>
# include <clib/diskfont_protos.h>
# else
# include <proto/dos.h>
# include <proto/exec.h>
# include <proto/console.h>
# include <proto/diskfont.h>
# endif
static char *load_list[]={"tomb.iff",0};
static BitMapHeader tomb_bmhd;
static struct BitMap *tbmp[ 1 ] = {0};
static int cols[2]={154,319}; /* X location of center of columns */
static int cno = 0; /* current column */
#define TEXT_TOP (65+yoff)
static xoff, yoff; /* image centering */
/* terrible kludge */
/* this is why prototypes should have ONLY types in them! */
# undef red
# undef green
# undef blue
# undef index
# ifdef _DCC
# include <clib/graphics_protos.h>
# include <clib/intuition_protos.h>
# else
# include <proto/graphics.h>
# include <proto/intuition.h>
# endif
#endif /* AZTEC_C */
extern char *killed_by_prefix[];
static struct Window *ripwin=0;
static void tomb_text(char*);
static void dofade(int,int,int);
static int search_cmap(int,int,int);
#define STONE_LINE_LEN 13 /* # chars that fit on one line
* (note 1 ' ' border) */
#define DEATH_LINE 10
#define YEAR_LINE 15
static unsigned short tomb_line;
extern struct amii_DisplayDesc *amiIDisplay;
extern struct Screen *HackScreen;
extern int havelace;
static unsigned short transpalette[ AMII_MAXCOLORS ] = { 0x0000, };
static struct NewWindow newwin =
{
0,0,640,200,1,0,
MOUSEBUTTONS|VANILLAKEY|NOCAREREFRESH,
BORDERLESS|ACTIVATE|SMART_REFRESH,
NULL,NULL,(UBYTE*)NULL,NULL,NULL,-1,-1,0xffff,0xffff,CUSTOMSCREEN
};
int wh; /* was local in outrip, but needed for SCALE macro */
int cmap_white, cmap_black;
void
amii_outrip( tmpwin, how )
winid tmpwin;
int how;
{
int just_return = 0;
int done, rtxth;
struct IntuiMessage *imsg;
int i;
register char *dpx;
char buf[ 200 ];
int line, tw, ww;
char *errstr = NULL;
if(!WINVERS_AMIV || HackScreen->RastPort.BitMap->Depth < 4)goto cleanup;
/* Use the users display size */
newwin.Height = amiIDisplay->ypix - newwin.TopEdge;
newwin.Width = amiIDisplay->xpix;
newwin.Screen = HackScreen;
for( i = 0; i < amii_numcolors; ++i )
flags.amii_curmap[i] = GetRGB4( HackScreen->ViewPort.ColorMap, i );
ripwin = OpenWindow( (void *)&newwin );
if( !ripwin ) goto cleanup;
LoadRGB4( &HackScreen->ViewPort, transpalette, amii_numcolors );
rp= ripwin->RPort;
wh = ripwin->Height;
ww = ripwin->Width;
#ifdef HACKFONT
if (HackFont)
SetFont(rp, HackFont);
#endif
tomb_bmhd = ReadImageFiles(load_list, tbmp, &errstr );
if(errstr)goto cleanup;
if(tomb_bmhd.w > ww || tomb_bmhd.h > wh)goto cleanup;
#define GENOFF(full,used) ((((full)-(used))/2) & ~7)
xoff = GENOFF(ww,tomb_bmhd.w);
yoff = GENOFF(wh,tomb_bmhd.h);
for(i=0;i<SIZE(cols);i++)cols[i]+=xoff;
cmap_white = search_cmap(0,0,0);
cmap_black = search_cmap(15,15,15);
BltBitMap(*tbmp, 0, 0, rp->BitMap, xoff, yoff, tomb_bmhd.w, tomb_bmhd.h, 0xc0, 0xff, NULL);
/* Put together death description */
switch (killer.format) {
default:
impossible("bad killer format?");
case KILLED_BY_AN:
Strcpy(buf, killed_by_prefix[how]);
Strcat(buf, an(killer.name));
break;
case KILLED_BY:
Strcpy(buf, killed_by_prefix[how]);
Strcat(buf, killer.name);
break;
case NO_KILLER_PREFIX:
Strcpy(buf, killer.name);
break;
}
tw = TextLength(rp,buf,STONE_LINE_LEN) + 40;
{
char *p=buf;
int x, tmp;
for(x=STONE_LINE_LEN;x;x--)*p++='W';
*p='\0';
tmp = TextLength(rp,buf,STONE_LINE_LEN) + 40;
tw = max( tw, tmp);
}
/* There are 5 lines of text on the stone. */
rtxth = ripwin->RPort->TxHeight * 5;
SetAfPt( rp, (UWORD *)NULL, 0 );
SetDrPt( rp, 0xFFFF );
tomb_line=TEXT_TOP;
SetDrMd(rp,JAM1);
/* Put name on stone */
Sprintf(buf, "%s", plname);
buf[STONE_LINE_LEN] = 0;
tomb_text(buf);
/* Put $ on stone */
Sprintf(buf, "%ld Au",
#ifndef GOLDOBJ
u.ugold);
#else
done_money);
#endif
buf[STONE_LINE_LEN] = 0; /* It could be a *lot* of gold :-) */
tomb_text(buf);
/* Put together death description */
switch (killer.format) {
default:
impossible("bad killer format?");
case KILLED_BY_AN:
Strcpy(buf, killed_by_prefix[how]);
Strcat(buf, an(killer.name));
break;
case KILLED_BY:
Strcpy(buf, killed_by_prefix[how]);
Strcat(buf, killer.name);
break;
case NO_KILLER_PREFIX:
Strcpy(buf, killer.name);
break;
}
/* Put death type on stone */
for (line=DEATH_LINE, dpx = buf; line<YEAR_LINE; line++)
{
register int i,i0;
char tmpchar;
if ( (i0=strlen(dpx)) > STONE_LINE_LEN)
{
for(i=STONE_LINE_LEN;((i0 > STONE_LINE_LEN) && i); i--)
{
if(dpx[i] == ' ')
i0 = i;
}
if(!i)
i0 = STONE_LINE_LEN;
}
tmpchar = dpx[i0];
dpx[i0] = 0;
tomb_text(dpx);
if (tmpchar != ' ')
{
dpx[i0] = tmpchar;
dpx= &dpx[i0];
}
else
{
dpx= &dpx[i0+1];
}
}
/* Put year on stone */
Sprintf(buf, "%4d", getyear());
tomb_text(buf);
#ifdef NH320_DEDICATION
/* dedication */
cno = 1;
tomb_line=TEXT_TOP;
tomb_text("This release");
tomb_text("of NetHack");
tomb_text("is dedicated");
tomb_text("to the");
tomb_text("memory of");
tomb_text("");
tomb_text("Izchak");
tomb_text(" Miller");
tomb_text("");
tomb_text("1935-1994");
tomb_text("");
tomb_text("Ascended");
#endif
/* Fade from black to full color */
dofade(0,16,1);
/* Flush all messages to avoid typeahead */
while( imsg = (struct IntuiMessage *)GetMsg( ripwin->UserPort ) )
ReplyMsg( (struct Message *) imsg );
done = 0;
while( !done )
{
WaitPort( ripwin->UserPort );
while( imsg = (struct IntuiMessage *)GetMsg(ripwin->UserPort) )
{
switch( imsg->Class )
{
case MOUSEBUTTONS:
case VANILLAKEY:
done = 1;
break;
}
ReplyMsg( (struct Message *)imsg );
}
}
/* Fade out */
dofade(16,0,-1);
just_return = 1;
cleanup:
/* free everything */
if(ripwin){
Forbid();
while( imsg = (struct IntuiMessage *)GetMsg( ripwin->UserPort ) )
ReplyMsg( (struct Message *)imsg );
CloseWindow( ripwin );
Permit();
}
LoadRGB4( &HackScreen->ViewPort, flags.amii_curmap, amii_numcolors );
if(tbmp[0])FreeImageFiles(load_list, tbmp);
if(just_return) return;
/* fall back to the straight-ASCII version */
genl_outrip(tmpwin, how);
}
static void tomb_text(p)
char *p;
{
char buf[STONE_LINE_LEN*2];
int l;
tomb_line += rp->TxHeight;
if( !*p )
return;
sprintf(buf," %s ",p);
l=TextLength(rp,buf,strlen(buf));
SetAPen(rp,cmap_white);
Move(rp,cols[cno]-(l/2)-1, tomb_line);
Text(rp,buf,strlen(buf));
SetAPen(rp,cmap_white);
Move(rp,cols[cno]-(l/2)+1, tomb_line);
Text(rp,buf,strlen(buf));
SetAPen(rp,cmap_white);
Move(rp,cols[cno]-(l/2), tomb_line-1);
Text(rp,buf,strlen(buf));
SetAPen(rp,cmap_white);
Move(rp,cols[cno]-(l/2), tomb_line+1);
Text(rp,buf,strlen(buf));
SetAPen(rp,cmap_black);
Move(rp,cols[cno]-(l/2), tomb_line);
Text(rp,buf,strlen(buf));
}
/* search colormap for best match to given color */
static int
search_cmap(int r0, int g0, int b0){
int best = 0;
int bdiff = 0x0fffffff;
int x;
for(x=0;x<amii_numcolors; x++){
int r = r0- ((amiv_init_map[x] >> 8) & 15);
int g = g0-((amiv_init_map[x] >> 4) & 15);
int b = b0-((amiv_init_map[x] ) & 15);
int diff = (r*r) + (g*g) + (b*b);
if(diff<bdiff){
bdiff = diff;
best = x;
}
}
return best;
}
/* caution: this is NOT general! */
static void
dofade(int start, int stop, int inc){
int i,j;
for( i = start; (i*inc) <= stop; i+=inc )
{
for( j = 0; j < amii_numcolors; ++j )
{
int r, g, b;
r = ( amiv_init_map[ j ] & 0xf00 ) >> 8;
g = ( amiv_init_map[ j ] & 0xf0 ) >> 4;
b = ( amiv_init_map[ j ] & 0xf );
r = ( r * i ) / 16;
g = ( g * i ) / 16;
b = ( b * i ) / 16;
transpalette[ j ] = ((r<<8)|(g<<4)|b);
}
LoadRGB4( &HackScreen->ViewPort, transpalette, amii_numcolors );
Delay( 1 );
}
}
#endif /* AMII_GRAPHICS */
/*
TODO:
memory leaks
fix ReadImageFiles to return error instead of panic on error
*/
View Git Blame Copy Permalink