openboe/oboe-original
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
main
oboe-original/Macintosh Code Release 3/blxgraphics.c
Nat Quayle Nelson 8555d53110 Fix line endings
2025-05-14 09:39:09 -05:00

2706 lines
74 KiB
C
Executable File
Raw Permalink Blame History

#include <Memory.h>
#include <Quickdraw.h>
#include <Fonts.h>
#include <Events.h>
#include <Menus.h>
#include <Windows.h>
#include <TextEdit.h>
#include <Dialogs.h>
#include <Resources.h>
#include <OSUtils.h>
#include <ToolUtils.h>
#include <TextUtils.h>
#include <Fonts.h>
#include <QDOffscreen.h>
#include <Palettes.h>
#include <PictUtils.h>
#include "string.h"
#include "stdio.h"
#include "global.h"
#include "blxgraphics.h"
#include "newgraph.h"
#include "blx.g.utils.h"
#include "monster.h"
#include "dlogtool.h"
#include "loc_utils.h"
#include "fields.h"
#include "text.h"
#include "Exile.sound.h"
#include "gamma.h"
extern WindowPtr mainPtr;
extern Rect windRect;
extern short stat_window,give_delays,overall_mode;
extern short current_spell_range,town_type,store_anim_type;
extern Boolean in_startup_mode,anim_onscreen,play_sounds,frills_on,startup_loaded,party_in_memory;
extern short town_size[3];
extern short anim_step;
extern party_record_type party;
extern pc_record_type adven[6];
extern big_tr_type t_d;
extern outdoor_record_type outdoors[2][2];
extern current_town_type c_town;
extern town_item_list t_i;
extern unsigned char out[96][96],out_e[96][96],combat_terrain[64][64];
extern effect_pat_type current_pat;
extern Boolean web,crate,barrel,fire_barrier,force_barrier,quickfire,force_wall,fire_wall,antimagic,scloud,ice_wall,blade_wall;
extern Point ul;
extern location pc_pos[6],pc_dir[6],center;
extern short which_combat_type,current_pc;
extern Boolean monsters_going,boom_anim_active,cartoon_happening;
extern PicHandle spell_pict;
extern short current_ground;
extern short terrain_pic[256];
extern short pc_moves[6];
extern short num_targets_left;
extern location spell_targets[8];
extern short display_mode;
extern ControlHandle text_sbar,item_sbar,shop_sbar;
extern Rect sbar_rect,item_sbar_rect,shop_sbar_rect,startup_top;
extern Rect talk_area_rect, word_place_rect;
extern PixPatHandle map_pat[25];
extern Point store_anim_ul;
extern short dungeon_font_num,geneva_font_num;
extern long register_flag;
extern long ed_flag,ed_key;
extern Boolean registered,ed_reg;
extern Boolean fast_bang;
extern unsigned char m_pic_index[200];
extern PixPatHandle bg[14];
extern KeyMap key_state;
extern Boolean fry_startup;
extern piles_of_stuff_dumping_type *data_store;
extern scenario_data_type scenario;
extern outdoor_strs_type outdoor_text[2][2];
extern GWorldPtr spec_scen_g;
extern DialogPtr modeless_dialogs[18];
extern Boolean modeless_exists[18];
RgnHandle clip_region;
PaletteHandle new_palette,old_palette,wank_palette;
//***********************
Rect menuBarRect;
short menuBarHeight;
RgnHandle originalGrayRgn, newGrayRgn, underBarRgn;
short terrain_there[9][9]; // this is an optimization variabel. Keeps track of what terrain
// is in the terrain spot, so things don't get redrawn.
// 0 - 299 just terrain graphic in place
// 300 - blackness
// -1 - nothign worth saving
short startup_anim_pos = 43;
long anim_ticks = 0;
// 0 - terrain 1 - buttons 2 - pc stats
// 3 - item stats 4 - text bar 5 - text area (not right)
Rect win_from_rects[6] = {{0,0,351,279},{0,0,37,258},{0,0,115,288},{0,0,143,288},{0,0,21,279},{0,0,0,288}};
Rect win_to_rects[6] = {{5,5,356,284},{383,5,420,263},{0,0,116,271},{0,0,144,271},{358,5,379,284},{0,0,138,256}};
// 0 - title 1 - button 2 - credits 3 - base button
Rect startup_from[4] = {{0,0,274,602},{274,0,322,301},{0,301,67,579},{274,301,314,341}}; ////
extern Rect startup_button[6];
Rect trim_rects[8] = {{0,0,5,28},{31,0,36,28},{0,0,36,5},{0,24,36,28},
{0,0,5,5},{0,24,5,28},{31,24,36,28},{31,0,36,5}};
Rect top_left_rec = {0,0,36,28};
short which_graphic_index[6] = {50,50,50,50,50,50};
char combat_graphics[5] = {28,29,36,79,2};
short debug_nums[6] = {0,0,0,0,0,0};
short remember_tiny_text = 300; // Remembers what's in the tiny text-bar, to prevent redrawing.
// 50 indicates area name, other number indicates which-rect.
// Add 200 if last mess. was in town
char light_area[13][13];
char unexplored_area[13][13];
// Declare the graphics
GWorldPtr mixed_gworld, pc_stats_gworld, item_stats_gworld, text_area_gworld;
GWorldPtr storage_gworld,terrain_screen_gworld,text_bar_gworld,orig_text_bar_gworld,buttons_gworld;
GWorldPtr party_template_gworld,items_gworld,tiny_obj_gworld,fields_gworld;
extern GWorldPtr map_gworld,tiny_map_graphics ;
GWorldPtr dlg_buttons_gworld[NUM_BUTTONS][2],missiles_gworld,dlogpics_gworld;
// Startup graphics, will die when play starts
GWorldPtr startup_gworld;
GWorldPtr startup_button_orig,startup_button_g,anim_mess;
// Graphics storage vals
short which_g_stored[STORED_GRAPHICS];
// 0 - 299 terrain graphic 300 + i monster graphic i, face right 600 + i face left
// 1000 + 100 * j + i anim i pos j 2300 + i combat monster graphic i, face right 2600 + i face left
short wish_list[STORED_GRAPHICS];
short storage_status[STORED_GRAPHICS]; // 0 - empty 1 - in use 2 - there, not in use
Boolean has_run_anim = FALSE,currently_loading_graphics = FALSE;
//short anim_step = 0;
//short overall_anim_step = 0;
Rect main_win_rect = {0,0,410,250};
Rect main_win2_source_rect = {0,0,410,265};
Rect main_win2_rect = {0,250,410,515};
Rect tiny_world_1_source_rect = {0,0,190,145},
tiny_world_1_rect = {195,242,385,475};
Rect share_mess_source_rect = {0,0,59,120},
share_mess_rect = {120,384,179,504};
//Rect start_buttons_source_rect = {0,0,180,180},
// start_buttons_rect = {224,30,405,210};
Rect start_buttons_source_rect = {0,0,186,190},
start_buttons_rect = {214,30,400,220};
// Variables to store trim. Makes game faster, but wastes 15K. We'll see how it works...
char out_trim[96][96],town_trim[64][64];
// Array to store which spots have been seen. Time-saver for drawing fields
char spot_seen[9][9];
char anim_str[60];
location anim_str_loc;
PatHandle bw_pats[15];
extern short combat_posing_monster , current_working_monster ; // 0-5 PC 100 + x - monster x
Boolean supressing_some_spaces = FALSE;
location ok_space[4] = {{0,0},{0,0},{0,0},{0,0}};
PicHandle hold_pict;
PictInfo p,p2;
void adjust_window_mode()
{
Rect r;
if (display_mode == 5) {
ul.h = 0; ul.v = 0;
SizeWindow(mainPtr,588,430, TRUE);
MoveWindow(mainPtr,(windRect.right - 573) / 2,(windRect.bottom - 430) / 2 + 20,TRUE);
r = mainPtr->portRect;
}
else {
MoveWindow(mainPtr,-6,-6,TRUE);
SizeWindow(mainPtr,windRect.right + 12, windRect.bottom + 12, TRUE);
switch (display_mode) {
case 0: ul.h = (windRect.right - 560) / 2; ul.v = (windRect.bottom - 422) / 2 + 14; break;
case 1: ul.h = 10; ul.v = 28; break;
case 2: ul.h = windRect.right - 570 - 6; ul.v = 28; break; // was 560. not 570
case 3: ul.h = 10; ul.v = windRect.bottom - 422 - 6; break;
case 4: ul.h = windRect.right - 570 - 6; ul.v = windRect.bottom - 422 - 6; break;
}
}
create_clip_region();
undo_clip();
if (overall_mode != 45) {
if (in_startup_mode == TRUE)
draw_startup(0);
if (in_startup_mode == FALSE)
refresh_screen(0);
}
if (text_sbar != NULL) {
MoveControl(text_sbar,ul.h + 546,ul.v + 283);
MoveControl(item_sbar,ul.h + 546,ul.v + 146);
MoveControl(shop_sbar,ul.h + 258,ul.v + 67);
}
}
void GetDeskTopGrafPort(GrafPtr *wMgrPort)
{
OSErr err;
long response;
err = Gestalt(gestaltQuickdrawVersion,&response);
if ((err == noErr) && (response >= gestalt8BitQD))
GetCWMgrPort((CGrafPtr *) wMgrPort);
else GetWMgrPort(wMgrPort);
}
void plop_fancy_startup()
{
PicHandle pict_to_draw;
long dummy;
short i,j;
GrafPtr wMgrPort,oldPort;
RgnHandle oldClip;
Rect r;
CTabHandle color_pat;
GDHandle md;
Rect screen_rect = {0,0,448,613},whole_window;
Rect logo_from = {0,0,350,350};
Rect intro_from = {0,0,483,643};
RGBColor store_color;
PixMapHandle hPixMap;
CTabHandle hColorTable;
GDHandle mainScreen;
// store current gray region that displays
// menu bar and the current height of the menu bar
originalGrayRgn = LMGetGrayRgn();
menuBarHeight = LMGetMBarHeight();
// calculate the rect of the menu bar to test
// if mouse down is in if desired
mainScreen = GetMainDevice();
menuBarRect = (**mainScreen).gdRect;
menuBarRect.bottom = menuBarHeight;
md = GetMainDevice();
if (fry_startup == FALSE) {
//color_pat = GetCTable(72);
//old_palette = NewPalette(256,color_pat,pmTolerant + pmExplicit,0x0000);
//GetPictInfo(pict_to_draw,&p2,1,256,0,0);
//old_palette = NewPalette(256,color_pat,pmTolerant + pmExplicit,0x0000);
//old_palette = NewPalette(256,p2.theColorTable,pmTolerant + pmExplicit,0x0000);
//NSetPalette(mainPtr,old_palette,pmAllUpdates);
//ActivatePalette(mainPtr);
/*HLock((Handle) md);
hPixMap = (*md)->gdPMap;
HLock((Handle)hPixMap);
hColorTable = (*hPixMap)->pmTable;
old_palette = NewPalette(256,hColorTable,pmTolerant + pmExplicit,0x0000);
HUnlock((Handle)hPixMap);
HUnlock((Handle) md); */
wank_palette = NewPalette(256,NULL,pmTolerant + pmExplicit,0x0000);
HideMenuBar();
/*
GetPort(&oldPort);
GetDeskTopGrafPort(&wMgrPort);
SetPort(wMgrPort);
oldClip = NewRgn();
GetClip(oldClip);
ClipRect(&wMgrPort->portRect);
r = wMgrPort->portRect;
GetForeColor(&store_color);
ForeColor(blackColor);
r.bottom = LMGetMBarHeight();
PaintRect(&r);
RGBForeColor(&store_color);
SetClip(oldClip);
DisposeRgn(oldClip);
SetPort(oldPort);
*/
}
// initialize buffers and rects
for (i = 0; i < STORED_GRAPHICS; i++) {
which_g_stored[i] = (i < 50) ? i : 0;
wish_list[i] = 0;
storage_status[i] = (i < 50) ? 1 : 0;
}
for (i = 0;i < 8; i++)
OffsetRect(&trim_rects[i],61,37);
for (i = 0; i < 9; i++)
for (j = 0; j < 9; j++)
terrain_there[i][j] = -1;
OffsetRect(&win_to_rects[5],TEXT_WIN_UL_X,TEXT_WIN_UL_Y);
OffsetRect(&win_to_rects[2],PC_WIN_UL_X,PC_WIN_UL_Y);
OffsetRect(&win_to_rects[3],ITEM_WIN_UL_X,ITEM_WIN_UL_Y);
whole_window = mainPtr->portRect;
ForeColor(blackColor);
PaintRect(&whole_window);
pict_to_draw = GetPicture(3001);
OffsetRect(&logo_from,(whole_window.right - logo_from.right) / 2,(whole_window.bottom - logo_from.bottom) / 2);
DrawPicture(pict_to_draw, &logo_from);
ReleaseResource((Handle) pict_to_draw);
play_sound(-95);
//Delay(30,&dummy);
for (i = 0; i < 14; i++)
bg[i] = GetPixPat (128 + i);
for (i = 0; i < 25; i++)
map_pat[i] = GetPixPat (200 + i);
// Do bulk of graphics loading!!!
Set_up_win();
init_startup();
//init_anim(0);
pict_to_draw = GetPicture(3000);
if (fry_startup == FALSE) {
//for(i=100; i >= 0; i-=2) DoOneGammaFade(md, i);
PaintRect(&whole_window);
// load and switch to new palette
GetPictInfo(pict_to_draw,&p,2,256,0,0);
new_palette = p.thePalette;
SetPalette(mainPtr,new_palette,FALSE);
ActivatePalette(mainPtr);
// reerase menu
/* GetPort(&oldPort);
GetDeskTopGrafPort(&wMgrPort);
SetPort(wMgrPort);
oldClip = NewRgn();
GetClip(oldClip);
ClipRect(&wMgrPort->portRect);
r = wMgrPort->portRect;
GetForeColor(&store_color);
ForeColor(blackColor);
r.bottom = LMGetMBarHeight();
PaintRect(&r);
RGBForeColor(&store_color);
SetClip(oldClip);
DisposeRgn(oldClip);
SetPort(oldPort); */
}
// menu erased
PaintRect(&whole_window);
OffsetRect(&intro_from,(whole_window.right - intro_from.right) / 2,(whole_window.bottom - intro_from.bottom) / 2);
DrawPicture(pict_to_draw, &intro_from);
ReleaseResource((Handle) pict_to_draw);
// NSetPalette(mainPtr,old_palette,pmAllUpdates);
// ActivatePalette(mainPtr);
if (fry_startup == FALSE) {
play_sound(-22);
Delay(220,&dummy);
}
}
void fancy_startup_delay()
{
long dummy;
Rect region_rect,old_rect = {0,0,0,0};
RgnHandle rgn1,rgn2,clip_rgn;
short i,j;
PicHandle pict_to_draw;
CTabHandle color_pat;
GDHandle md;
PaletteHandle default_palette;
Str255 tit = " ";
md = GetMainDevice();
if (fry_startup == FALSE){
ShowMenuBar();
LMSetGrayRgn( originalGrayRgn );
SetPalette(mainPtr,wank_palette,FALSE);
ActivatePalette(mainPtr);
default_palette = GetPalette((WindowPtr) -1);
NSetPalette(mainPtr,default_palette,pmAllUpdates);
ActivatePalette(mainPtr);
RestoreDeviceClut(md);
// NSetPalette(mainPtr,old_palette,pmAllUpdates);
// ActivatePalette(mainPtr);
// DisposePalette(p.thePalette);
}
// OK try this ... destroy and recreate window.
/*DisposeWindow(mainPtr);
mainPtr = GetNewCWindow(128,NIL,IN_FRONT);
SetPort(mainPtr); /* set window to current graf port
text_sbar = NewControl(mainPtr,&sbar_rect,tit,FALSE,58,0,58,scrollBarProc,1);
item_sbar = NewControl(mainPtr,&item_sbar_rect,tit,FALSE,0,0,16,scrollBarProc,2);
shop_sbar = NewControl(mainPtr,&shop_sbar_rect,tit,FALSE,0,0,16,scrollBarProc,3);
adjust_window_mode();
RestoreDeviceClut(GetMainDevice()); */
TextFace(0);
draw_startup(0);
FlushEvents(mDownMask,0);
FlushEvents(keyDownMask,0);
}
void init_startup()
{
startup_loaded = TRUE;
startup_gworld = load_pict(830);
startup_button_orig = load_pict(832);
startup_button_g = load_pict(832);
anim_mess = load_pict(831);
}
void init_animation()
{}
void next_animation_step()
{}
void draw_startup(short but_type)
{
Rect to_rect,write_rect;
Rect r1 = {-1000,-1000,5,1000},r2 = {-1000,-1000,1000,5},r3 = {418,-1000,2000,1000},
r4 = {-1000,579,1000,2500};
short i;
Str255 str;
GrafPtr old_port;
if (startup_loaded == FALSE)
return;
GetPort(&old_port);
SetPort(mainPtr);
r1.bottom = ul.v + 5;
FillCRect(&r1,bg[4]);
r2.right = ul.h - 13;
FillCRect(&r2,bg[4]);
r3.top += ul.v + 5;
FillCRect(&r3,bg[4]);
r4.left += ul.h - 13;
FillCRect(&r4,bg[4]);
to_rect = startup_from[0];
OffsetRect(&to_rect,-13,5);
rect_draw_some_item(startup_gworld,startup_from[0],startup_gworld,to_rect,0,1);
to_rect = startup_top;
OffsetRect(&to_rect,ul.h,ul.v);
//PaintRect(&to_rect);
for (i = 0; i < 5; i++) {
rect_draw_some_item(startup_gworld,startup_from[1],startup_gworld,startup_button[i],0,1);
draw_start_button(i,but_type);
}
draw_startup_anim();
draw_startup_stats();
SetPort(old_port);
}
void draw_startup_anim()
{
Rect anim_to = {4,1,44,276},anim_from;
Rect anim_size = {0,0,48,301};
anim_from = anim_to;
OffsetRect(&anim_from,-1,-4 + startup_anim_pos);
startup_anim_pos = (startup_anim_pos + 1) % 542;
rect_draw_some_item(startup_button_orig,anim_size,startup_button_g,anim_size,0,0);
rect_draw_some_item(anim_mess,anim_from,startup_button_g,anim_to,1,0);
rect_draw_some_item(startup_button_g,anim_size,startup_button_g,startup_button[5],0,1);
}
void draw_startup_stats()
{
Rect from_rect,to_rect,party_from = {0,0,36,28},pc_rect,frame_rect;
short i;
Str255 str;
TextFont(dungeon_font_num);
TextFace(0);
TextSize(24);
to_rect = startup_top;
OffsetRect(&to_rect, 20 - 18, 35);
ForeColor(whiteColor);
if (party_in_memory == FALSE) {
TextSize(20);
OffsetRect(&to_rect,175,40);
char_win_draw_string((GrafPtr) mainPtr,to_rect,
"No Party in Memory",0,18);
}
if (party_in_memory == TRUE) {
frame_rect = startup_top;
InsetRect(&frame_rect,50,50);
frame_rect.top += 30;
ForeColor(whiteColor);
OffsetRect(&frame_rect,ul.h - 9,ul.v + 10);
FrameRect(&frame_rect);
OffsetRect(&to_rect,203,37);
char_win_draw_string((GrafPtr) mainPtr,to_rect,
"Your party:",0,18);
TextSize(12);
TextFace(bold);
TextFont(geneva_font_num);
for (i = 0; i < 6; i++) {
pc_rect = startup_top;
pc_rect.right = pc_rect.left + 300;
pc_rect.bottom = pc_rect.top + 79;
OffsetRect(&pc_rect,60 + 232 * (i / 3) - 9,95 + 45 * (i % 3));
if (adven[i].main_status > 0) {
from_rect = party_from;
OffsetRect(&from_rect,56 * (i / 3),36 * (i % 3));
to_rect = party_from,
OffsetRect(&to_rect,pc_rect.left,pc_rect.top);
rect_draw_some_item(party_template_gworld,from_rect,party_template_gworld,to_rect,1,1);
TextSize(14);
OffsetRect(&pc_rect,35,0);
char_win_draw_string((GrafPtr) mainPtr,pc_rect,
adven[i].name,0,18);
OffsetRect(&to_rect,pc_rect.left + 8,pc_rect.top + 8);
}
TextSize(12);
OffsetRect(&pc_rect,12,16);
switch (adven[i].main_status) {
case 1:
switch (adven[i].race) {
case 0: sprintf((char *) str,"Level %d Human",adven[i].level); break;
case 1: sprintf((char *) str,"Level %d Nephilim",adven[i].level); break;
case 2: sprintf((char *) str,"Level %d Slithzerikai",adven[i].level); break;
}
char_win_draw_string((GrafPtr) mainPtr,pc_rect,(char *) str,0,18);
OffsetRect(&pc_rect,0,13);
sprintf((char *) str,"Health %d, Spell pts. %d",
adven[i].max_health,adven[i].max_sp);
char_win_draw_string((GrafPtr) mainPtr,pc_rect,(char *) str,0,18);
break;
case 2:
char_win_draw_string((GrafPtr) mainPtr,pc_rect,"Dead",0,18);
break;
case 3:
char_win_draw_string((GrafPtr) mainPtr,pc_rect,"Dust",0,18);
break;
case 4:
char_win_draw_string((GrafPtr) mainPtr,pc_rect,"Stone",0,18);
break;
}
}
}
TextFont(geneva_font_num);
TextSize(10);
TextFace(bold);
pc_rect = startup_from[0];
OffsetRect(&pc_rect,5,5);
pc_rect.top = pc_rect.bottom - 25;
pc_rect.left = pc_rect.right - 300;
char_win_draw_string((GrafPtr) mainPtr,pc_rect,"Copyright 1997, All Rights Reserved, v1.0.2",0,18);
if (registered == FALSE) {
pc_rect.left = startup_from[0].left + 6;
char_win_draw_string((GrafPtr) mainPtr,pc_rect,"Unregistered copy. To order, select How To Order.",0,18);
}
ForeColor(blackColor);
}
void draw_start_button(short which_position,short which_button)
{
Rect from_rect,to_rect;
char *button_labels[] = {"Load Game","Make New Party","How To Order",
"Start Scenario","Custom Scenario","Quit"};
RGBColor base_color = {0,0,14472},lit_color = {0,0,43144};
//RGBColor lit_color = {0,0,14472},base_color = {0,0,43144};
from_rect = startup_from[3];
OffsetRect(&from_rect, (which_button > 0) ? 40 : 0,0);
to_rect = startup_button[which_position];
to_rect.left += 4; to_rect.top += 4;
to_rect.right = to_rect.left + 40;
to_rect.bottom = to_rect.top + 40;
rect_draw_some_item(startup_gworld,from_rect,startup_gworld,to_rect,0,1);
TextFont(dungeon_font_num);
TextFace(0);
TextSize(24);
to_rect = startup_button[which_position];
//to_rect.left += 80;
OffsetRect(&to_rect, 10, 10);
if (which_button == 5)
which_button = 4;
base_color.blue = 14472 + (12288 * which_button);
RGBForeColor(&base_color);
if (which_position == 3)
OffsetRect(&to_rect,-7,0);
char_win_draw_string((GrafPtr) mainPtr,to_rect,
(char *) button_labels[which_position],1,18);
ForeColor(blackColor);
TextFont(geneva_font_num);
TextFace(bold);
TextSize(10);
}
void main_button_click(short mode,Rect button_rect)
{
PixMapHandle store1;
BitMap store2;
long dummy;
store2 = mainPtr->portBits;
OffsetRect(&button_rect,ul.h,ul.v);
ClipRect(&button_rect);
draw_buttons(1);
if (play_sounds == TRUE)
play_sound(37);
else Delay(5,&dummy);
draw_buttons(0);
undo_clip();
}
void arrow_button_click(Rect button_rect)
{
PixMapHandle store1;
BitMap store2;
long dummy;
store2 = mainPtr->portBits;
OffsetRect(&button_rect,ul.h,ul.v);
ClipRect(&button_rect);
refresh_stat_areas(1);
if (play_sounds == TRUE)
play_sound(37);
else Delay(5,&dummy);
refresh_stat_areas(0);
undo_clip();
}
void reload_startup()////
{
if (startup_loaded == TRUE)
return;
HideWindow(modeless_dialogs[5]);
modeless_exists[5] = FALSE;
SelectWindow(mainPtr);
SetPort(mainPtr);
init_startup();
startup_loaded = TRUE;
//load_main_screen();
}
void end_startup()
{
if (startup_loaded == FALSE)
return;
DisposeGWorld(startup_gworld);
DisposeGWorld(startup_button_orig);
DisposeGWorld(startup_button_g);
DisposeGWorld(anim_mess);
startup_loaded = FALSE;
load_main_screen();
}
// This loads the graphics at the top of the game.
void Set_up_win ()
{
QDErr err;
Rect temp_rect = {0,0,0,280},map_world_rect;
Rect map_rect = {0,0,384,384};
Rect pc_rect = {0,0,216,113};
GrafPtr old_port;
GWorldPtr temp_gworld;
Str255 fn1 = "\pGeneva";
Str255 fn2 = "\pDungeon Bold";
Str255 fn3 = "\pPalatino";
short i,j;
Rect mask_rect = {0,0,396,308},r;
GetFNum(fn1,&geneva_font_num);
if (geneva_font_num == 0)
GetFNum(fn3,&geneva_font_num);
GetFNum(fn2,&dungeon_font_num);
if (dungeon_font_num == 0)
GetFNum(fn3,&dungeon_font_num);
temp_rect.bottom = (STORED_GRAPHICS / 10) * 36;
err = NewGWorld(&storage_gworld, 0 /*8*/,&temp_rect, NIL, NIL, 0);
if (err != 0) {
SysBeep(2);
ExitToShell();
}
temp_gworld = load_pict(800);
r = temp_gworld->portRect;
rect_draw_some_item(temp_gworld,r,storage_gworld,r,0,0);
DisposeGWorld(temp_gworld);
terrain_screen_gworld = load_pict(705);
err = NewGWorld(&party_template_gworld, 0 /*8*/,&pc_rect, NIL, NIL, 0);
if (err != 0)
SysBeep(2);
items_gworld = load_pict(901);
tiny_obj_gworld = load_pict(900);
fields_gworld = load_pict(821);
missiles_gworld = load_pict(880);
dlogpics_gworld = load_pict(850);
for (i = 0; i < NUM_BUTTONS; i++)
for (j = 0; j < 2; j++)
dlg_buttons_gworld[i][j] = load_pict(2000 + (2 * i) + j);
for (i = 0; i < 7; i++)
bw_pats[i] = GetPattern(128 + i * 2);
// Create and initialize map gworld
err = NewGWorld(&map_gworld, 0 /*8*/,&map_rect, NIL, NIL, 0);
if (err != 0) {
play_sound(2);play_sound(2);play_sound(2);
ExitToShell();
}
else {
GetPort(&old_port);
SetPort((GrafPtr) map_gworld);
map_world_rect = map_gworld->portRect;
ForeColor(whiteColor);
PaintRect(&map_world_rect);
ForeColor(blackColor);
SetPort(old_port);
}
}
void load_main_screen()
{
if (tiny_map_graphics != NULL)
return;
tiny_map_graphics = load_pict(904);
mixed_gworld = load_pict(903);
pc_stats_gworld = load_pict(700);
item_stats_gworld = load_pict(701);
text_area_gworld = load_pict(702);
text_bar_gworld = load_pict(703);
orig_text_bar_gworld = load_pict(703);
buttons_gworld = load_pict(704);
set_gworld_fonts(geneva_font_num);
create_clip_region();
}
void create_clip_region()
{
short i;
Rect store_rect;
Rect scrollbar_rect;
DisposeRgn(clip_region);
clip_region = NewRgn();
OpenRgn();
FrameRect(&mainPtr->portRect);
for (i = 0; i < 6; i++) {
store_rect = win_to_rects[i];
OffsetRect(&store_rect,ul.h,ul.v);
if ((is_out()) || (is_town()) || (is_combat()) ||
(i == 2) || (i == 3) || (i == 5))
FrameRect(&store_rect);
}
if ((overall_mode == 20) || (overall_mode == 21) ){
store_rect = talk_area_rect;
OffsetRect(&store_rect,ul.h,ul.v);
FrameRect(&store_rect);
}
scrollbar_rect = sbar_rect;
OffsetRect(&scrollbar_rect,ul.h ,ul.v);
FrameRect(&scrollbar_rect);
scrollbar_rect = item_sbar_rect;
OffsetRect(&scrollbar_rect,ul.h ,ul.v);
FrameRect(&scrollbar_rect);
CloseRgn(clip_region);
}
void set_gworld_fonts(short font_num)
{
GrafPtr old_port;
GetPort(&old_port);
SetPort((GrafPtr) mainPtr);
TextFont(font_num);
TextFace(bold);
TextSize(10);
SetPort((GrafPtr) pc_stats_gworld);
TextFont(font_num);
TextFace(bold);
TextSize(10);
SetPort((GrafPtr) item_stats_gworld);
TextFont(font_num);
TextFace(bold);
TextSize(10);
SetPort((GrafPtr) text_area_gworld);
TextFont(font_num);
TextFace(bold);
TextSize(10);
SetPort((GrafPtr) text_bar_gworld);
TextFont(font_num);
TextFace(bold);
TextSize(10);
SetPort(old_port);
}
// redraw_screen does the very first redraw, and any full redraw
void redraw_screen(short mode)
{
switch (overall_mode) {
case 20:
put_background();
break;
default:
draw_main_screen();
draw_terrain(0);
draw_text_bar(1);
if (overall_mode == 10)
draw_pcs(pc_pos[current_pc],1);
if (overall_mode == 14)
draw_targets(center);
break;
}
put_pc_screen();
put_item_screen(stat_window,0);
print_buf();
ShowControl(text_sbar);
Draw1Control(text_sbar);
ShowControl(item_sbar);
Draw1Control(item_sbar);
if (overall_mode == 21) {
ShowControl(shop_sbar);
Draw1Control(shop_sbar);
}
else HideControl(shop_sbar);
}
void draw_main_screen()
{
if (overall_mode == 20) {
put_background();
}
else {
rect_draw_some_item (terrain_screen_gworld, win_from_rects[0], terrain_screen_gworld, win_to_rects[0], 0, 1);
draw_buttons(0);
if (overall_mode == 10)
draw_pcs(pc_pos[current_pc],1);
if (overall_mode == 14)
draw_targets(center);
}
draw_text_area(0);
ShowControl(text_sbar);
Draw1Control(text_sbar);
ShowControl(item_sbar);
Draw1Control(item_sbar);
if (overall_mode == 21) {
ShowControl(shop_sbar);
Draw1Control(shop_sbar);
}
else HideControl(shop_sbar);
}
void refresh_screen(short mode)
{
if (overall_mode == 20) {
put_background();
refresh_talking();
}
else if (overall_mode == 21) {
put_background();
refresh_shopping();
}
else {
draw_buttons(0);
redraw_terrain();
if (overall_mode == 10)
draw_pcs(pc_pos[current_pc],1);
if (overall_mode == 14)
draw_targets(center);
draw_text_bar(1);
}
draw_text_area(0);
ShowControl(text_sbar);
Draw1Control(text_sbar);
ShowControl(item_sbar);
Draw1Control(item_sbar);
if (overall_mode == 21) {
ShowControl(shop_sbar);
Draw1Control(shop_sbar);
}
else HideControl(shop_sbar);
}
void put_background()
{
PixPatHandle bg_pict;
if (is_out()) {
if (party.outdoor_corner.x >= 7)
bg_pict = bg[0];
else bg_pict = bg[10];
}
else if (is_combat()) {
if (party.outdoor_corner.x >= 7)
bg_pict = bg[2];
else bg_pict = bg[4];
}
else {
if (c_town.town.lighting > 0) {
if (party.outdoor_corner.x >= 7)
bg_pict = bg[1];
else bg_pict = bg[9];
}
else if ((party.outdoor_corner.x >= 7) && (c_town.town_num != 21))
bg_pict = bg[8];
else bg_pict = bg[13];
}
FillCRgn(clip_region,bg_pict);
ShowControl(text_sbar);
Draw1Control(text_sbar);
ShowControl(item_sbar);
Draw1Control(item_sbar);
}
void draw_buttons(short mode)
//mode; // 0 - regular 1 - button action
{
PixMapHandle store_source;
BitMap store_dest;
Rect source_rect = {0,0,37,258}, dest_rec;
CGrafPtr origPort;
GDHandle origDev;
GWorldPtr buttons_to_draw;
Boolean spec_draw = FALSE;
Rect bg_rect,base_rect = {0,0,40,40};
short i = 0,j = 0;
PixPatHandle bg_pict;
if (mode == 1) {
spec_draw = TRUE;
mode -= 100;
}
GetGWorld (&origPort, &origDev);
store_dest = mainPtr->portBits;
buttons_to_draw = buttons_gworld;
store_source = buttons_to_draw->portPixMap;
if (is_combat()) {
source_rect.top += 37;
source_rect.bottom += 37;
}
if (is_town()) {
source_rect.top += 74;
source_rect.bottom += 74;
}
dest_rec = win_to_rects[1];
OffsetRect(&dest_rec,ul.h,ul.v);
if (spec_draw == TRUE)
ForeColor(blueColor);
CopyBits ( (BitMap *) *store_source ,
&store_dest ,
&source_rect, &dest_rec,
0, NULL);
//((spec_draw == FALSE) ? 0 : addOver) , NULL);
if (spec_draw == TRUE)
ForeColor(blackColor);
SetGWorld (origPort, origDev);
put_background();
}
// In general, refreshes any area that has text in it, the stat areas, the text bar
void draw_text_area(short mode)
//short mode unused
{
refresh_stat_areas(0);
draw_text_bar(0);
}
void reset_text_bar()
{
remember_tiny_text = 300;
}
void draw_text_bar(short mode)
//short mode; // 0 - no redraw 1 - forced
{
short i,num_rect[3] = {12,10,4};
location loc;
char combat_string[100];
loc = (is_out()) ? global_to_local(party.p_loc) : c_town.p_loc;
if (mode == 1)
remember_tiny_text = 500;
if ((PSD[305][0] > 0) || (PSD[305][1] > 0) ||(PSD[305][2] > 0) ||(PSD[305][3] > 0) )
remember_tiny_text = 500;
if (is_out()) {
for (i = 0; i < 8; i++)
if (pt_in_rect(loc,outdoors[party.i_w_c.x][party.i_w_c.y].info_rect[i]))
if ((remember_tiny_text == i) && (mode == 0))
return;
else {
put_text_bar(outdoor_text[party.i_w_c.x][party.i_w_c.y].out_strs[i + 1]);
remember_tiny_text = i;
return;
}
if (remember_tiny_text != 50 + party.i_w_c.x + party.i_w_c.y) {
put_text_bar((char *) outdoor_text[party.i_w_c.x][party.i_w_c.y].out_strs[0]);
remember_tiny_text = 50 + party.i_w_c.x + party.i_w_c.y;
}
}
if (is_town()) {
for (i = 0; i < num_rect[town_type]; i++)
if (pt_in_rect(loc,t_d.room_rect[i]))
if ((remember_tiny_text == 200 + i) && (mode == 0))
return;
else {
put_text_bar(data_store->town_strs[i + 1]);
remember_tiny_text = 200 + i;
return;
}
if (remember_tiny_text != 250) {
put_text_bar((char *) data_store->town_strs[0]); ////
remember_tiny_text = 250;
}
}
if ((is_combat()) && (current_pc < 6) && (monsters_going == FALSE)) {
sprintf((char *) combat_string,"%s (ap: %d)",
adven[current_pc].name,pc_moves[current_pc]);
put_text_bar((char *) combat_string);
remember_tiny_text = 500;
}
if ((is_combat()) && (monsters_going == TRUE)) // Print bar for 1st monster with >0 ap -
// that is monster that is going
for (i = 0; i < T_M; i++)
if ((c_town.monst.dudes[i].active > 0) && (c_town.monst.dudes[i].m_d.ap > 0)) {
print_monster_going((char *) combat_string,c_town.monst.dudes[i].number,c_town.monst.dudes[i].m_d.ap);
put_text_bar((char *) combat_string);
remember_tiny_text = 500;
i = 400;
}
}
void put_text_bar(char *str)
{
GrafPtr old_port;
char status_str[60];
short xpos = 205;
rect_draw_some_item (orig_text_bar_gworld, win_from_rects[4], text_bar_gworld, win_from_rects[4], 0, 0);
GetPort(&old_port);
SetPort((GrafPtr) text_bar_gworld);
ForeColor(whiteColor);
MoveTo(5,14);
drawstring(str);
if (monsters_going == FALSE) {
if (PSD[305][0] > 0) {
MoveTo(xpos,14);
sprintf((char *) status_str,"Stealth");
drawstring(status_str);
xpos -= 60;
}
if (PSD[305][1] > 0) {
MoveTo(xpos,14);
sprintf((char *) status_str,"Flying");
drawstring(status_str);
xpos -= 60;
}
if (PSD[305][2] > 0) {
MoveTo(xpos,14);
sprintf((char *) status_str,"Detect Life");
drawstring(status_str);
xpos -= 60;
}
if (PSD[305][3] > 0) {
MoveTo(xpos,14);
sprintf((char *) status_str,"Firewalk");
drawstring(status_str);
xpos -= 60;
}
}
ForeColor(blackColor);
SetPort(old_port);
rect_draw_some_item (text_bar_gworld, win_from_rects[4], text_bar_gworld, win_to_rects[4], 0, 1);
}
// This is called when a new situation is entered. It figures out what graphics are needed,
// sets up which_g_stored, and loads them.
void load_area_graphics()
{
short i;
currently_loading_graphics = TRUE;
// Set all graphics as loseable
for (i = 50; i < STORED_GRAPHICS; i++)
if (storage_status[i] == 1)
storage_status[i] = 2;
for (i = 0; i < STORED_GRAPHICS; i++)
wish_list[i] = 0;
// Build wish list
if (is_out())
load_outdoor_graphics();
if ((is_town()) || (is_combat()))
load_town_graphics();
// Reserve all in wish list not taken
for (i = 0; i < STORED_GRAPHICS; i++)
if (wish_list[i] > 49)
if (reserve_graphic_num_in_array(wish_list[i]) == TRUE)
wish_list[i] = 0;
// Place all graphics not found in array.
for (i = 0; i < STORED_GRAPHICS; i++)
if (wish_list[i] > 49) {
place_graphic_num_in_array(wish_list[i]);
wish_list[i] = 0;
}
// Finally, load graphics.
put_graphics_in_template();
currently_loading_graphics = FALSE;
}
void add_to_wish_list(short which_g)
{
short i;
if (which_g < 50)
return;
for (i = 0; i < STORED_GRAPHICS; i++) {
if (wish_list[i] == which_g)
return;
if (wish_list[i] == 0) {
wish_list[i] = which_g;
return;
}
}
add_string_to_buf("No room for graphic.");
}
// Used to set up array. If graphic there, sets it to be saved, otherwise leaves.
// Returns TRUE is already there
Boolean reserve_graphic_num_in_array(short which_g)
{
short i;
if (which_g < 50)
return TRUE;
for (i = 50; i < STORED_GRAPHICS; i++)
if (which_g_stored[i] == which_g) {
storage_status[i] = 1;
return TRUE;
}
return FALSE;
}
// Otherwise, puts in array. Note ... if graphic is alreayd here and locked (i.e.
// storage status is 1, this will add a new copy.
void place_graphic_num_in_array(short which_g)
{
short i;
for (i = 50; i < STORED_GRAPHICS; i++)
if ((storage_status[i] == 2) || (storage_status[i] == 0)) {
which_g_stored[i] = which_g;
storage_status[i] = 3;
return;
}
// if we get here, couldn't find a space. Time to flush excess crap.
if (currently_loading_graphics == FALSE)
load_area_graphics(); // calling this is nice and fast, because game won't try to reload
// graphics already there. It'll only purge the trash.
// try again
for (i = 50; i < STORED_GRAPHICS; i++)
if ((storage_status[i] == 2) || (storage_status[i] == 0)) {
which_g_stored[i] = which_g;
storage_status[i] = 3;
return;
}
add_string_to_buf("No room for graphic.");
print_nums(0,0,which_g);
}
void add_one_graphic(short which_g)
{
short i;
for (i = 0; i < STORED_GRAPHICS; i++)
if (which_g_stored[i] == which_g) {
// Good. We got it. Now lock it and leave
storage_status[i] = 1;
return;
}
// otherwise, load it in
place_graphic_num_in_array(which_g);
put_graphics_in_template();
}
void add_terrain_to_wish_list(unsigned char ter)////
{
if (terrain_pic[ter] >= 1000)
return;
else if (terrain_pic[ter] >= 400) {
add_to_wish_list(600 + terrain_pic[ter]);
add_to_wish_list(700 + terrain_pic[ter]);
add_to_wish_list(800 + terrain_pic[ter]);
add_to_wish_list(900 + terrain_pic[ter]);
}
else switch (terrain_pic[ter]) {
case 143:
add_to_wish_list(230);
add_to_wish_list(143);
break;
case 213: case 214:
add_to_wish_list(213);
add_to_wish_list(214);
break;
case 215:
add_to_wish_list(215);
add_to_wish_list(218);
add_to_wish_list(219);
add_to_wish_list(220);
add_to_wish_list(221);
break;
case 216:
add_to_wish_list(216);
add_to_wish_list(222);
add_to_wish_list(223);
add_to_wish_list(224);
add_to_wish_list(225);
break;
case 68: case 69:
add_to_wish_list(68);
add_to_wish_list(69);
break;
case 86: case 87:
add_to_wish_list(86);
add_to_wish_list(87);
break;
default:
add_to_wish_list((short) terrain_pic[ter]);
break;
}
}
void load_outdoor_graphics() ////
{
short l,m,i,j;
short pict;
for (i = 0; i < 96; i++)
for (j = 0; j < 96; j++)
add_terrain_to_wish_list(out[i][j]);
for (l = 0; l < 2; l++)
for (m = 0; m < 2; m++)
for (i = 0; i < 4; i++) {
for (j = 0; j < 7; j++)
if (outdoors[l][m].wandering[i].monst[j] != 0) {
pict = get_monst_picnum(outdoors[l][m].wandering[i].monst[j]);
//add_monst_graphic(pict,0);
add_monst_graphic(outdoors[l][m].wandering[i].monst[j],0);
j = 8;
}
for (j = 0; j < 7; j++)
if (outdoors[l][m].special_enc[i].monst[j] != 0) {
pict = get_monst_picnum(outdoors[l][m].special_enc[i].monst[j]);
//add_monst_graphic(pict,0);
add_monst_graphic(outdoors[l][m].special_enc[i].monst[j],0);
j = 8;
}
}
for (i = 0; i < 10; i++)
if (party.out_c[i].exists == TRUE)
for (j = 0; j < 7; j++)
if (party.out_c[i].what_monst.monst[j] != 0) {
pict = get_monst_picnum(party.out_c[i].what_monst.monst[j]);
//add_monst_graphic(pict, 0);
add_monst_graphic(party.out_c[i].what_monst.monst[j], 0);
j = 8;
}
}
void add_monst_graphic(unsigned char m,short mode)////
// mode 0 - just put in list, 1 - actually add graphics
{
short x,y,i,pict;
get_monst_dims(m,&x,&y);
for (i = 0; i < x * y; i++) {
pict = get_monst_picnum(m);
if (pict >= NUM_MONST_G)
return;
pict = m_pic_index[pict];
if (mode == 0) {
add_to_wish_list(300 + pict + i);
add_to_wish_list(600 + pict + i);
add_to_wish_list(2300 + pict + i);
add_to_wish_list(2600 + pict + i);
}
else {
add_one_graphic(300 + pict + i);
add_one_graphic(600 + pict + i);
add_one_graphic(2300 + pict + i);
add_one_graphic(2600 + pict + i);
}
}
}
void load_town_graphics() // Setting up town monsters takes some finess, due to the flexibility
// of the situation
// This can be used for town or beginning out outdoor combat
{
short i,j,pict;
for (i = 0; i < town_size[town_type]; i++)
for (j = 0; j < town_size[town_type]; j++)
if (is_combat())
add_terrain_to_wish_list(combat_terrain[i][j]);
else add_terrain_to_wish_list(t_d.terrain[i][j]);
for (i = 0; i < T_M; i++)
if ((c_town.monst.dudes[i].number != 0) && (c_town.monst.dudes[i].active > 0))
add_monst_graphic(c_town.monst.dudes[i].number,0);
if (is_town())
for (i = 0; i < 4; i++)
for (j = 0; j < 4; j++) {
add_monst_graphic(c_town.town.wandering[i].monst[j],0);
}
}
void update_pc_graphics()
{
short i,j;
GWorldPtr temp_gworld,temp_gworld2;
Rect template_rect = {0,0,36,28};
PixMapHandle store_source, store_dest;
Rect source_rect;
GrafPtr old_port;
if (party_in_memory == FALSE)
return;
GetPort(&old_port);
SetPort(mainPtr);
temp_gworld = load_pict(902);
temp_gworld2 = load_pict(905);
for (i = 0; i < 6; i++)
if (adven[i].main_status > 0)
if (adven[i].which_graphic != which_graphic_index[i]) {
template_rect.left = (i / 3) * 56;
template_rect.right = template_rect.left + 56;
template_rect.top = (i % 3) * 36;
template_rect.bottom = template_rect.top + 36;
store_source = temp_gworld->portPixMap;
source_rect.left = (adven[i].which_graphic / 8) * 56;
source_rect.right = source_rect.left + 56;
// source_rect.top = (adven[i].which_graphic % 8) * 36;
// source_rect.bottom = template_rect.top + 36;
source_rect.top = 36 * (adven[i].which_graphic % 8);
source_rect.bottom = 36 * (adven[i].which_graphic % 8) + 36;
store_dest = party_template_gworld->portPixMap;
CopyBits ( (BitMap *) *store_source ,
(BitMap *) *store_dest ,
&source_rect, &template_rect,
0 , NULL);
store_source = temp_gworld2->portPixMap;
OffsetRect(&template_rect,0,108);
CopyBits ( (BitMap *) *store_source ,
(BitMap *) *store_dest ,
&source_rect, &template_rect,
0 , NULL);
which_graphic_index[i] = adven[i].which_graphic;
}
DisposeGWorld (temp_gworld);
DisposeGWorld (temp_gworld2);
SetPort(old_port);
}
// This one is complicated, but that's because it's optimized for efficiency.
// Goes through, and loads graphics for anything with storage_status of 3////
void put_graphics_in_template()
{
GWorldPtr temp_gworld;
short picture_number,i,j,which_position,offset;
Boolean this_graphic_needed = FALSE;
Rect from_rect,to_rect;
// First, load all terrains
for (j = 1; j < 6; j++) {
for (i = 50; i < STORED_GRAPHICS; i++)
if ((which_g_stored[i] >= j * 50) && (which_g_stored[i] < j * 50 + 50) &&
(storage_status[i] == 3)) {
this_graphic_needed = TRUE;
}
if (this_graphic_needed == TRUE) {
temp_gworld = load_pict(800 + j);
for (i = 50; i < STORED_GRAPHICS; i++)
if ((which_g_stored[i] >= j * 50) && (which_g_stored[i] < j * 50 + 50) &&
(storage_status[i] == 3)) {
which_position = which_g_stored[i] - j * 50;
from_rect = calc_rect(which_position % 10,which_position / 10);
to_rect = calc_rect(i % 10,i / 10);
rect_draw_some_item(temp_gworld,from_rect,storage_gworld,to_rect,0,0);
storage_status[i] = 1;
}
DisposeGWorld (temp_gworld);
}
this_graphic_needed = FALSE;
}
// Now, load all monsters
for (j = 0; j < 10; j++) {
for (i = 50; i < STORED_GRAPHICS; i++)
if ((which_g_stored[i] >= 300 + j * 20) && (which_g_stored[i] < 300 + j * 20 + 20) &&
(storage_status[i] == 3))
this_graphic_needed = TRUE;
for (i = 50; i < STORED_GRAPHICS; i++)
if ((which_g_stored[i] >= 600 + j * 20) && (which_g_stored[i] < 600 + j * 20 + 20) &&
(storage_status[i] == 3))
this_graphic_needed = TRUE;
if (this_graphic_needed == TRUE) {
temp_gworld = load_pict(1100 + j);
for (i = 50; i < STORED_GRAPHICS; i++)
if ((which_g_stored[i] >= 300 + j * 20) && (which_g_stored[i] < 300 + j * 20 + 20) &&
(storage_status[i] == 3)) {
which_position = which_g_stored[i] % 20;
from_rect = calc_rect((which_position / 10) * 2,which_position % 10);
to_rect = calc_rect(i % 10,i / 10);
rect_draw_some_item(temp_gworld,from_rect,storage_gworld,to_rect,0,0);
storage_status[i] = 1;
}
for (i = 50; i < STORED_GRAPHICS; i++)
if ((which_g_stored[i] >= 600 + j * 20) && (which_g_stored[i] < 600 + j * 20 + 20) &&
(storage_status[i] == 3)) {
which_position = which_g_stored[i] % 20;
from_rect = calc_rect((which_position / 10) * 2 + 1,which_position % 10);
to_rect = calc_rect(i % 10,i / 10);
rect_draw_some_item(temp_gworld,from_rect,storage_gworld,to_rect,0,0);
storage_status[i] = 1;
}
DisposeGWorld (temp_gworld);
}
this_graphic_needed = FALSE;
}
// Now, load all monster combat poses
for (j = 0; j < 10; j++) {
for (i = 50; i < STORED_GRAPHICS; i++)
if ((which_g_stored[i] >= 2300 + j * 20) && (which_g_stored[i] < 2300 + j * 20 + 20) &&
(storage_status[i] == 3))
this_graphic_needed = TRUE;
for (i = 50; i < STORED_GRAPHICS; i++)
if ((which_g_stored[i] >= 2600 + j * 20) && (which_g_stored[i] < 2600 + j * 20 + 20) &&
(storage_status[i] == 3))
this_graphic_needed = TRUE;
if (this_graphic_needed == TRUE) {
temp_gworld = load_pict(1200 + j);
for (i = 50; i < STORED_GRAPHICS; i++)
if ((which_g_stored[i] >= 2300 + j * 20) && (which_g_stored[i] < 2300 + j * 20 + 20) &&
(storage_status[i] == 3)) {
which_position = which_g_stored[i] % 20;
from_rect = calc_rect((which_position / 10) * 2,which_position % 10);
to_rect = calc_rect(i % 10,i / 10);
rect_draw_some_item(temp_gworld,from_rect,storage_gworld,to_rect,0,0);
storage_status[i] = 1;
}
for (i = 50; i < STORED_GRAPHICS; i++)
if ((which_g_stored[i] >= 2600 + j * 20) && (which_g_stored[i] < 2600 + j * 20 + 20) &&
(storage_status[i] == 3)) {
which_position = which_g_stored[i] % 20;
from_rect = calc_rect((which_position / 10) * 2 + 1,which_position % 10);
to_rect = calc_rect(i % 10,i / 10);
rect_draw_some_item(temp_gworld,from_rect,storage_gworld,to_rect,0,0);
storage_status[i] = 1;
}
DisposeGWorld (temp_gworld);
}
this_graphic_needed = FALSE;
}
// Now, anim terrains
for (i = 50; i < STORED_GRAPHICS; i++)
if ((which_g_stored[i] >= 1000) && (which_g_stored[i] < 1400) &&
(storage_status[i] == 3))
this_graphic_needed = TRUE;
if (this_graphic_needed == TRUE) {
temp_gworld = load_pict(820);
for (i = 50; i < STORED_GRAPHICS; i++)
if ((which_g_stored[i] >= 1000) && (which_g_stored[i] < 1400) &&
(storage_status[i] == 3)) {
which_position = which_g_stored[i] % 100;
offset = (which_g_stored[i] - 1000) / 100;
from_rect = calc_rect(4 * (which_position / 5) + offset,which_position % 5);
to_rect = calc_rect(i % 10,i / 10);
rect_draw_some_item(temp_gworld,from_rect,storage_gworld,to_rect,0,0);
storage_status[i] = 1;
}
DisposeGWorld (temp_gworld);
}
}
GWorldPtr load_pict(short picture_to_get)
{
PicHandle current_pic_handle;
Rect pic_rect;
short pic_wd,pic_hgt,x;
GWorldPtr myGWorld;
CGrafPtr origPort;
GDHandle origDev;
QDErr check_error;
PixMapHandle offPMHandle;
char good;
char d_s[60];
Rect r = {0,0,50,50};
current_pic_handle = GetPicture (picture_to_get);
x = ResError();
if (x != 0) {
if (picture_to_get == 1) // custom graphic
return NULL;
SysBeep(50);
print_nums(10,1000,x);
}
if (current_pic_handle == NIL) {
sprintf((char *) d_s, "Stuck on %d ",(short) picture_to_get);
add_string_to_buf((char *)d_s);
Alert(1076,NIL);
return NULL;
}
pic_rect = ( **( current_pic_handle) ).picFrame;
pic_wd = pic_rect.right - pic_rect.left;
pic_hgt = pic_rect.bottom - pic_rect.top;
GetGWorld (&origPort, &origDev);
check_error = NewGWorld (&myGWorld, 0 /*8*/,
&pic_rect,
NIL, NIL, 0);
if (check_error != noErr) {
if (picture_to_get == 1) { // custom graphic
ReleaseResource ((Handle) current_pic_handle);
return NULL;
}
sprintf((char *) d_s, "Stuck on %d error %d ",(short) picture_to_get,check_error);
add_string_to_buf((char *)d_s);
print_buf();
Alert(1076,NIL);
return NULL;
}
SetGWorld(myGWorld, NULL);
offPMHandle = GetGWorldPixMap (myGWorld);
good = LockPixels (offPMHandle);
if (good == FALSE) {
SysBeep(50); }
SetRect (&pic_rect, 0, 0, pic_wd, pic_hgt);
DrawPicture (current_pic_handle, &pic_rect);
SetGWorld (origPort, origDev);
UnlockPixels (offPMHandle);
ReleaseResource ((Handle) current_pic_handle);
return myGWorld;
}
// this is used for determinign whether to round off walkway corners
// right now, trying a restrictive rule (just cave floor and grass, mainly)
Boolean is_nature(char x, char y)
{
short pic;
unsigned char ter_type;
ter_type = coord_to_ter((short) x,(short) y);
pic = scenario.ter_types[ter_type].picture;
if ((pic >= 0) && (pic <= 45))
return TRUE;
if ((pic >= 67) && (pic <= 73))
return TRUE;
if ((pic >= 75) && (pic <= 87))
return TRUE;
if ((pic >= 121) && (pic <= 122))
return TRUE;
if ((pic >= 179) && (pic <= 208))
return TRUE;
if ((pic >= 211) && (pic <= 212))
return TRUE;
if ((pic >= 217) && (pic <= 246))
return TRUE;
return FALSE;
}
void draw_terrain(short mode)
//mode ... if 1, don't place on screen after redoing
// if 2, only redraw over active monst
{
char q,r;
Rect target,str_rect;
location where_draw;
location sector_p_in,view_loc;
char can_draw;
unsigned char spec_terrain;
Boolean off_terrain = FALSE,draw_trim = TRUE;
short i,j,short_spec_terrain;
GrafPtr old_port;
if (mode == 2) {
if (current_working_monster < 0) return;
supressing_some_spaces = TRUE;
for (i = 0; i < 4; i++) ok_space[i].x = -1;
if (current_working_monster >= 100) {
for (i = 0; i < c_town.monst.dudes[current_working_monster - 100].m_d.x_width; i++)
for (j = 0; j < c_town.monst.dudes[current_working_monster - 100].m_d.y_width; j++) {
ok_space[i + 2 * j].x = c_town.monst.dudes[current_working_monster - 100].m_loc.x + i;
ok_space[i + 2 * j].y = c_town.monst.dudes[current_working_monster - 100].m_loc.y + j;
ok_space[i + 2 * j].x = ok_space[i + 2 * j].x - center.x + 4;
ok_space[i + 2 * j].y = ok_space[i + 2 * j].y - center.y + 4;
}
}
if (current_working_monster < 6) {
ok_space[0] = pc_pos[current_working_monster];
ok_space[0].x = ok_space[0].x - center.x + 4;
ok_space[0].y = ok_space[0].y - center.y + 4;
}
mode = 0;
}
GetPort(&old_port);
SetPort(mainPtr);
for (i = 0; i < 13; i++)
for (j = 0; j < 13; j++) {
light_area[i][j] = 0;unexplored_area[i][j] = 0;
}
sector_p_in.x = party.outdoor_corner.x + party.i_w_c.x;
sector_p_in.y = party.outdoor_corner.y + party.i_w_c.y;
anim_ticks++;
anim_onscreen = FALSE;
if (is_town())
view_loc = c_town.p_loc;
if (is_combat())
view_loc = pc_pos[(current_pc < 6) ? current_pc : first_active_pc()];
for (i = 0; i < 13; i++)
for (j = 0; j < 13; j++) {
where_draw = (is_out()) ? party.p_loc : center;
where_draw.x += i - 6;
where_draw.y += j - 6;
if (!(is_out()))
light_area[i][j] = (is_town()) ? pt_in_light(view_loc,where_draw) : combat_pt_in_light(where_draw);
if (!(is_out()) && ((where_draw.x < 0) || (where_draw.x > town_size[town_type] - 1)
|| (where_draw.y < 0) || (where_draw.y > town_size[town_type] - 1)))
unexplored_area[i][j] = 0;
else unexplored_area[i][j] = 1 - is_explored(where_draw.x,where_draw.y);
}
for (q = 0; q < 9; q++) {
for (r = 0; r < 9; r++)
{
where_draw = (is_out()) ? party.p_loc : center;
where_draw.x += q - 4;
where_draw.y += r - 4;
off_terrain = FALSE;
draw_trim = TRUE;
if (!(is_out()) && ((where_draw.x < 0) || (where_draw.x > town_size[town_type] - 1)
|| (where_draw.y < 0) || (where_draw.y > town_size[town_type] - 1))) {
draw_trim = FALSE;
// Warning - this section changes where_draw
if (where_draw.x < 0)
where_draw.x = -1;
if (where_draw.x > town_size[town_type] - 1)
where_draw.x = town_size[town_type];
if (where_draw.y < 0)
where_draw.y = -1;
if (where_draw.y > town_size[town_type] - 1)
where_draw.y = town_size[town_type];
if (can_see(view_loc,where_draw,0) < 5)
can_draw = 1;
else can_draw = 0;
spec_terrain = 0;
}
else if (is_out()) {
if ((where_draw.x < 0) || (where_draw.x > 95)
|| (where_draw.y < 0) || (where_draw.y > 95))
can_draw = 0;
else {
spec_terrain = out[where_draw.x][where_draw.y];
can_draw = out_e[where_draw.x][where_draw.y];
}
}
else if (is_combat()) {
spec_terrain = combat_terrain[where_draw.x][where_draw.y];
if (cartoon_happening == TRUE)
can_draw = TRUE;
else can_draw = (((is_explored(where_draw.x,where_draw.y)) ||
(which_combat_type == 0) || (monsters_going == TRUE) || (overall_mode != 10))
&& (party_can_see(where_draw) < 6)) ? 1 : 0;
}
else {
spec_terrain = t_d.terrain[where_draw.x][where_draw.y];
can_draw = is_explored(where_draw.x,where_draw.y);
if (can_draw > 0) {
if (pt_in_light(c_town.p_loc,where_draw) == FALSE)
can_draw = 0;
}
if ((overall_mode == 36) && (can_draw == 0))
can_draw = (party_can_see(where_draw) < 6) ? 1 : 0;
}
spot_seen[q][r] = can_draw;
if ((can_draw != 0) && (overall_mode != 50)) { // if can see, not a pit, and not resting
if ((is_combat()) && (cartoon_happening == FALSE)) {
anim_ticks = 0;
}
short_spec_terrain = spec_terrain;
// Finally, draw this terrain spot
switch (short_spec_terrain) { //// all draw_one_terrain_spot
case 82: // cave wway
if (loc_off_act_area(where_draw) == FALSE) {
if ((is_nature(where_draw.x - 1,where_draw.y)) &&
(is_nature(where_draw.x,where_draw.y - 1) ))
short_spec_terrain = 10219;
if ((is_nature(where_draw.x + 1,where_draw.y) ) &&
(is_nature(where_draw.x,where_draw.y - 1) ))
short_spec_terrain = 10220;
if ((is_nature(where_draw.x + 1,where_draw.y) ) &&
(is_nature(where_draw.x,where_draw.y + 1) ))
short_spec_terrain = 10221;
if ((is_nature(where_draw.x - 1,where_draw.y) ) &&
(is_nature(where_draw.x,where_draw.y + 1) ))
short_spec_terrain = 10218;
}
draw_one_terrain_spot(q,r,short_spec_terrain,0);
break;
case 83: // ground wway
if (loc_off_act_area(where_draw) == FALSE) {
if ((is_nature(where_draw.x - 1,where_draw.y)) &&
(is_nature(where_draw.x,where_draw.y - 1)) )
short_spec_terrain = 10223;
if ((is_nature(where_draw.x + 1,where_draw.y) ) &&
(is_nature(where_draw.x,where_draw.y - 1) ))
short_spec_terrain = 10224;
if ((is_nature(where_draw.x + 1,where_draw.y) ) &&
(is_nature(where_draw.x,where_draw.y + 1) ))
short_spec_terrain = 10225;
if ((is_nature(where_draw.x - 1,where_draw.y) ) &&
(is_nature(where_draw.x,where_draw.y + 1) ))
short_spec_terrain = 10222;
}
draw_one_terrain_spot(q,r,short_spec_terrain,0);
break;
case 79: case 80: case 81:
if ((short_spec_terrain == 81)
&& ((out[where_draw.x][where_draw.y - 1] == 80) || (out[where_draw.x][where_draw.y - 1] == 79)))
short_spec_terrain = 42;
if ((short_spec_terrain == 81)
&& ((out[where_draw.x][where_draw.y + 1] == 80) || (out[where_draw.x][where_draw.y + 1] == 79)))
short_spec_terrain = 38;
if ((short_spec_terrain == 81)
&& ((out[where_draw.x - 1][where_draw.y] == 80) || (out[where_draw.x - 1][where_draw.y] == 79)))
short_spec_terrain = 44;
if ((short_spec_terrain == 81)
&& ((out[where_draw.x + 1][where_draw.y ] == 80) || (out[where_draw.x + 1][where_draw.y] == 79)))
short_spec_terrain = 40;
/*if ((short_spec_terrain == 81)
&& ((out[where_draw.x][where_draw.y - 1] != 234) && (out[where_draw.x][where_draw.y - 1] != 81) &&
((out[where_draw.x][where_draw.y - 1] < 36) || (out[where_draw.x][where_draw.y - 1] > 49))))
short_spec_terrain = 42;
if ((short_spec_terrain == 81)
&& ((out[where_draw.x][where_draw.y + 1] != 234) && (out[where_draw.x][where_draw.y + 1] != 81) &&
((out[where_draw.x][where_draw.y + 1] < 36) || (out[where_draw.x][where_draw.y + 1] > 49))))
short_spec_terrain = 38;
if ((short_spec_terrain == 81)
&& ((out[where_draw.x - 1][where_draw.y] != 234) &&(out[where_draw.x - 1][where_draw.y] != 81) &&
((out[where_draw.x - 1][where_draw.y] < 36) || (out[where_draw.x - 1][where_draw.y] > 49))))
short_spec_terrain = 44;
if ((short_spec_terrain == 81)
&& ((out[where_draw.x + 1][where_draw.y] != 234) && (out[where_draw.x + 1][where_draw.y] != 81) &&
((out[where_draw.x + 1][where_draw.y] < 36) || (out[where_draw.x + 1][where_draw.y] > 49))))
short_spec_terrain = 40;*/
draw_one_terrain_spot(q,r,short_spec_terrain,0);
place_road(q,r,where_draw);
break;
case 90:
draw_one_terrain_spot(q,r,-1,0);
break;
default:
if (short_spec_terrain < 2)
current_ground = 0;
if ((short_spec_terrain == 2) || (
(short_spec_terrain >= 22) && (short_spec_terrain <= 49)))
current_ground = 2;
draw_one_terrain_spot(q,r,short_spec_terrain,0);
break;
}
}
else { // Can't see. Place darkness.
draw_one_terrain_spot(q,r,-1,0);
}
if ((can_draw != 0) && (overall_mode != 50) && (frills_on == TRUE)
&& (draw_trim == TRUE) && (cartoon_happening == FALSE)) { // Place the trim
place_trim((short) q,(short) r,where_draw,spec_terrain);
}
}
}
if ((overall_mode != 50) && (!is_out()))
draw_sfx();
// Now place items
if ((overall_mode > 0) && (overall_mode != 35) && (overall_mode != 50))
draw_items();
// Now place fields
if ((overall_mode != 50) && (!is_out())) {
draw_fields();
draw_spec_items();
}
// Not camping. Place misc. shit.
if (overall_mode != 50) {
if (is_out())
draw_outd_boats(party.p_loc);
else if ((is_town()) || (which_combat_type == 1))
draw_town_boat(center);
draw_monsters();
}
if ((overall_mode < 10) || (overall_mode == 35) || ((overall_mode == 36) && (point_onscreen(c_town.p_loc,center) == TRUE))
|| (overall_mode == 50))
draw_party_symbol(mode,center);
else if (overall_mode != 36)
draw_pcs(center,0);
// Now do the light mask thing
apply_light_mask();
apply_unseen_mask();
if (mode == 0) {
redraw_terrain();
if (cartoon_happening == FALSE) {
draw_text_bar(0);
if ((overall_mode > 9) && (overall_mode != 35) && (overall_mode != 36) && (overall_mode != 50))
draw_pcs(center,1);
if (overall_mode == 14)
draw_targets(center);
}
}
SetPort((GrafPtr) old_port);
supressing_some_spaces = FALSE;
}
void place_trim(short q,short r,location where,unsigned char ter_type)
{
Boolean at_top = FALSE,at_bot = FALSE,at_left = FALSE,at_right = FALSE;
unsigned char store,store2,store3,store1;
char to_return = 0;
location targ;
// FIrst quick check ... if a pit or barrier in outdoor combat, no trim
if ((is_combat()) && (which_combat_type == 0) && (ter_type == 86))
return;
if (PSD[296][0] > 0)
return;
targ.x = q;
targ.y = r;
if ((supressing_some_spaces == TRUE) &&
(same_point(targ,ok_space[0]) == FALSE) &&
(same_point(targ,ok_space[1]) == FALSE) &&
(same_point(targ,ok_space[2]) == FALSE) &&
(same_point(targ,ok_space[3]) == FALSE))
return;
if (where.x == 0)
at_left = TRUE;
if (where.y == 0)
at_top = TRUE;
if ((overall_mode == 0) || (overall_mode == 35)) {
if (where.x == 95)
at_right = TRUE;
if (where.y == 95)
at_bot = TRUE;
}
else {
if (where.x == town_size[town_type])
at_right = TRUE;
if (where.y == town_size[town_type])
at_bot = TRUE;
}
// First, trim for fluids
if (((is_town()) || (is_combat())) && (town_trim[where.x][where.y] != 0)) {
if (town_trim[where.x][where.y] & 1)
draw_trim(q,r,1,0);
if (town_trim[where.x][where.y] & 2)
draw_trim(q,r,2,5);
if (town_trim[where.x][where.y] & 4)
draw_trim(q,r,0,3);
if (town_trim[where.x][where.y] & 8)
draw_trim(q,r,2,6);
if (town_trim[where.x][where.y] & 16)
draw_trim(q,r,1,1);
if (town_trim[where.x][where.y] & 32)
draw_trim(q,r,2,7);
if (town_trim[where.x][where.y] & 64)
draw_trim(q,r,0,2);
if (town_trim[where.x][where.y] & 128)
draw_trim(q,r,2,4);
}
if ((is_out()) && (out_trim[where.x][where.y] != 0)) {
if (out_trim[where.x][where.y] & 1)
draw_trim(q,r,1,0);
if (out_trim[where.x][where.y] & 2)
draw_trim(q,r,2,5);
if (out_trim[where.x][where.y] & 4)
draw_trim(q,r,0,3);
if (out_trim[where.x][where.y] & 8)
draw_trim(q,r,2,6);
if (out_trim[where.x][where.y] & 16)
draw_trim(q,r,1,1);
if (out_trim[where.x][where.y] & 32)
draw_trim(q,r,2,7);
if (out_trim[where.x][where.y] & 64)
draw_trim(q,r,0,2);
if (out_trim[where.x][where.y] & 128)
draw_trim(q,r,2,4);
}
if (((ter_type >= 100) && (ter_type <= 137)) && (at_top == FALSE) &&
(at_bot == FALSE) && (at_left == FALSE) && (at_right == FALSE)) {
store = get_t_t(where.x - 1,where.y);
store1 = get_t_t(where.x,where.y - 1);
store2 = get_t_t(where.x + 1,where.y);
store3 = get_t_t(where.x,where.y + 1);
if ((is_wall(store) == TRUE)
&& (is_wall(store1) == TRUE) &&
(is_ground(store2) == TRUE)
&& (is_ground(store3) == TRUE))
draw_trim(q,r,3,6);
if ((is_wall(store) == TRUE)
&& (is_wall(store3) == TRUE) &&
(is_ground(store2) == TRUE)
&& (is_ground(store1) == TRUE))
draw_trim(q,r,3,5);
if ((is_wall(store2) == TRUE)
&& (is_wall(store1) == TRUE) &&
(is_ground(store) == TRUE)
&& (is_ground(store3) == TRUE))
draw_trim(q,r,3,7);
if ((is_wall(store2) == TRUE)
&& (is_wall(store3) == TRUE) &&
(is_ground(store) == TRUE)
&& (is_ground(store1) == TRUE))
draw_trim(q,r,3,4);
if ((is_ground(store) == TRUE)
&& (is_ground(store1) == TRUE) &&
(is_ground(store2) == TRUE)
&& (is_wall(store3) == TRUE)) {
draw_trim(q,r,3,4);
draw_trim(q,r,3,5);
}
if ((is_wall(store) == TRUE)
&& (is_ground(store3) == TRUE) &&
(is_ground(store2) == TRUE)
&& (is_ground(store1) == TRUE)) {
draw_trim(q,r,3,5);
draw_trim(q,r,3,6);
}
if ((is_ground(store2) == TRUE)
&& (is_wall(store1) == TRUE) &&
(is_ground(store) == TRUE)
&& (is_ground(store3) == TRUE)) {
draw_trim(q,r,3,6);
draw_trim(q,r,3,7);
}
if ((is_wall(store2) == TRUE)
&& (is_ground(store3) == TRUE) &&
(is_ground(store) == TRUE)
&& (is_ground(store1) == TRUE)) {
draw_trim(q,r,3,4);
draw_trim(q,r,3,7);
}
}
}
void draw_trim(short q,short r,short which_trim,short which_mode)
//which_trim is 3 -> drawing wall trim -> might shift down if ground is grass
//short which_mode; // 0 top 1 bottom 2 left 3 right 4 up left 5 up right 6 down right 7 down left
{
Rect from_rect = {0,0,36,28},to_rect;
PixMapHandle store1,store2;
RGBColor test_color = {0,0,0}, store_color;
if (frills_on == FALSE)
return;
// if current ground is grass, forget trim
if ((current_ground == 2) && (which_trim < 3))
return;
terrain_there[q][r] = -1;
GetBackColor(&store_color);
RGBBackColor(&test_color);
from_rect.left = 28 * which_trim + trim_rects[which_mode].left;
from_rect.right = 28 * which_trim + trim_rects[which_mode].right;
from_rect.top = trim_rects[which_mode].top;
from_rect.bottom = trim_rects[which_mode].bottom;
if ((which_trim == 3) && (current_ground == 2)) // trim corner walls with grass instead of cave floor
OffsetRect(&from_rect,0,36);
to_rect = coord_to_rect(q,r);
to_rect.right = to_rect.left + trim_rects[which_mode].right;
to_rect.left = to_rect.left + trim_rects[which_mode].left;
to_rect.bottom = to_rect.top + trim_rects[which_mode].bottom;
to_rect.top = to_rect.top + trim_rects[which_mode].top;
OffsetRect(&to_rect,-61,-37);
store1 = mixed_gworld->portPixMap;
store2 = terrain_screen_gworld->portPixMap;
LockPixels(store2);
LockPixels(store1);
CopyBits ( (BitMap *) *store1 ,
(BitMap *) *store2 ,
&from_rect, &to_rect,
transparent, NULL);
UnlockPixels(store1);
UnlockPixels(store2);
RGBBackColor(&store_color);
}
Boolean extend_road_terrain(unsigned char ter)
{
short i;
short extend_pics[39] = {61,62,63,64,65, 66,401,402,406,202,
203,204,215,216,90, 91,92,93,102,103,
104,105,112,113,114, 115,187,188,189,190,
192,193,194,195,196, 197,191,200,201};
for (i = 0; i < 39; i++)
if (scenario.ter_types[ter].picture == extend_pics[i])
return TRUE;
return FALSE;
}
void place_road(short q,short r,location where)
{
location draw_loc;
unsigned char ter;
Rect to_rect;
Rect road_rects[2] = {{76,112,80,125},{72,144,90,148}}; // 0 - rl partial 1 - ud partial
Rect road_dest_rects[4] = {{0,12,18,16},{16,15,20,28},{18,12,36,16},{16,0,20,13}}; // top right bottom left
draw_loc.x = q; draw_loc.y = r;
terrain_there[q][r] = -1;
if (where.y > 0)
ter = coord_to_ter(where.x,where.y - 1);
if ((where.y == 0) || (extend_road_terrain(ter) == TRUE)) {
to_rect = road_dest_rects[0];
OffsetRect(&to_rect,13 + q * 28,13 + r * 36);
rect_draw_some_item (fields_gworld, road_rects[1], terrain_screen_gworld, to_rect, 0, 0);
}
if (((is_out()) && (where.x < 96)) || (!(is_out()) && (where.x < town_size[town_type] - 1)))
ter = coord_to_ter(where.x + 1,where.y);
if (((is_out()) && (where.x == 96)) || (!(is_out()) && (where.x == town_size[town_type] - 1))
|| (extend_road_terrain(ter) == TRUE)) {
to_rect = road_dest_rects[1];
OffsetRect(&to_rect,13 + q * 28,13 + r * 36);
rect_draw_some_item (fields_gworld, road_rects[0], terrain_screen_gworld, to_rect, 0, 0);
}
if (((is_out()) && (where.y < 96)) || (!(is_out()) && (where.y < town_size[town_type] - 1)))
ter = coord_to_ter(where.x,where.y + 1);
if (((is_out()) && (where.y == 96)) || (!(is_out()) && (where.y == town_size[town_type] - 1))
|| (extend_road_terrain(ter) == TRUE)) {
to_rect = road_dest_rects[2];
OffsetRect(&to_rect,13 + q * 28,13 + r * 36);
rect_draw_some_item (fields_gworld, road_rects[1], terrain_screen_gworld, to_rect, 0, 0);
}
if (where.x > 0)
ter = coord_to_ter(where.x - 1,where.y);
if ((where.x == 0) || (extend_road_terrain(ter) == TRUE)) {
to_rect = road_dest_rects[3];
OffsetRect(&to_rect,13 + q * 28,13 + r * 36);
rect_draw_some_item (fields_gworld, road_rects[0], terrain_screen_gworld, to_rect, 0, 0);
}
}
void draw_rest_screen()
{
short store_mode;
store_mode = overall_mode;
overall_mode = 50;
draw_terrain(0);
overall_mode = store_mode ;
}
void boom_space(location where,short mode,short type,short damage,short sound)
// if mode is 100, force
//short type; // 0 - flame 1 - magic 2 - poison 3 - blood 4 - cold
// 10s digit indicates sound 0 - normal ouch 1 - small sword 2 - loud sword
// 3 - pole 4 - club 5 - fireball hit 6 - squish 7 - cold
// 8 - acid 9 - claw 10 - bite 11 - slime 12 - zap 13 - missile hit
{
location where_draw = {4,4};
Rect source_rect = {0,0,36,28},text_rect,dest_rect = {13,13,49,41},big_to = {13,13,337,265},store_rect;
long dummy;
short del_len,r1,sound_key;
char dam_str[20];
short x_adj = 0,y_adj = 0,which_m;
short sound_to_play[20] = {97,69,70,71,72, 73,55,75,42,86,
87,88,89,98,0, 0,0,0,0,0};
sound_key = type / 10;
type = type % 10;
// if ((cartoon_happening == TRUE) && (anim_step < 140))
// return;
if ((cartoon_happening == FALSE) && ((mode != 100) && (party_can_see(where) == 6)))
return;
if ((type < 0) || (type > 4))
return;
if ((boom_anim_active == TRUE) && (type != 3))
return;
if ((cartoon_happening == FALSE) && (PSD[306][2] > 0) && (fast_bang == TRUE))
return;
if (is_out())
return;
// Redraw terrain in proper position
if ((((point_onscreen(center,where) == FALSE) && (overall_mode >= 10)) || (overall_mode == 0))
) {
play_sound(sound_to_play[sound]);
return;
}
else if (is_combat()) {
if (which_combat_type == 1)
draw_terrain(0);
else draw_terrain(0);
}
else if (fast_bang < 2) {
draw_terrain(0);
if (fast_bang == 1)
fast_bang = 2;
}
where_draw.x = where.x - center.x + 4;
where_draw.y = where.y - center.y + 4;
// source_rect.left += 28 * type;
// source_rect.right += 28 * type;
// adjust for possible big monster
which_m = monst_there(where);
if (which_m < 90) {
x_adj += 14 * (c_town.monst.dudes[which_m].m_d.x_width - 1);
y_adj += 18 * (c_town.monst.dudes[which_m].m_d.y_width - 1);
}
OffsetRect(&dest_rect,where_draw.x * 28,where_draw.y * 36);
source_rect = store_rect = dest_rect;
OffsetRect(&dest_rect,x_adj,y_adj);
SectRect(&dest_rect,&big_to,&dest_rect);
if (cartoon_happening == FALSE)
OffsetRect(&dest_rect,win_to_rects[0].left,win_to_rects[0].top);
else if (store_anim_type == 0)
OffsetRect(&dest_rect,306,5);
else OffsetRect(&dest_rect,store_anim_ul.h,store_anim_ul.v);
OffsetRect(&source_rect,-1 * store_rect.left + 28 * type,-1 * store_rect.top);
rect_draw_some_item(fields_gworld,source_rect,terrain_screen_gworld,dest_rect,1,1);
if ((cartoon_happening == FALSE) && (dest_rect.right - dest_rect.left >= 28)
&& (dest_rect.bottom - dest_rect.top >= 36)) {
sprintf((char *) dam_str,"%d",damage);
TextSize(10);
TextFace(bold);
//text_rect = coord_to_rect(where_draw.x,where_draw.y);
//OffsetRect(&text_rect,x_adj,y_adj);
text_rect = dest_rect;
text_rect.top += 10;
if ((damage < 10) && (dest_rect.right - dest_rect.left > 19))
text_rect.left += 10;
OffsetRect(&text_rect,-4,-5);
char_win_draw_string((GrafPtr) mainPtr,text_rect,(char *) dam_str,1,10);
TextSize(0);
TextFace(0);
}
play_sound(sound_to_play[sound]);
if ((sound == 6) && (fast_bang == 0))
Delay(12, &dummy);
if (fast_bang == 0) {
del_len = PSD[306][6] * 3 + 4;
if (play_sounds == FALSE)
Delay(del_len, &dummy);
}
redraw_terrain();
if ((cartoon_happening == FALSE) && (overall_mode > 9) && (overall_mode != 35) && (overall_mode != 36) && (overall_mode != 50))
draw_pcs(center,1);
}
void draw_pointing_arrows()
{
Rect sources[4] = {{65,46,73,54},{56,46,64,54},{56,37,64,45},{65,37,73,45}};
Rect dests[8] = {{7,100,15,108},{7,170,15,178},{140,7,148,15},{212,7,220,15},
{346,100,354,108},{346,170,354,178},{140,274,148,282},{212,274,220,282}};
short i;
if ((monsters_going == TRUE) || (overall_mode <= 1) || (overall_mode <= 10)
|| (overall_mode == 35))
return;
for (i = 0; i < 4; i++) {
rect_draw_some_item (mixed_gworld,sources[i],mixed_gworld,dests[i * 2],1,1);
rect_draw_some_item (mixed_gworld,sources[i],mixed_gworld,dests[i * 2 + 1],1,1);
}
}
void redraw_terrain()
{
Rect to_rect;
if (cartoon_happening == FALSE)
to_rect = win_to_rects[0];
else {
to_rect = terrain_screen_gworld->portRect;
if (store_anim_type == 0)
OffsetRect(&to_rect,306,5);
else OffsetRect(&to_rect,store_anim_ul.h,store_anim_ul.v);
}
rect_draw_some_item (terrain_screen_gworld, win_from_rects[0], terrain_screen_gworld, to_rect, 0, 1);
// Now place arrows
draw_pointing_arrows();
}
void draw_targets(location center)
{
Rect source_rect = {74,36,85,47},dest_rect;
location target = {4,4};
short i = 0;
short dir_array[8] = {0,3,3,3,2,1,1,1};
if (party_toast() == TRUE)
return;
for (i = 0; i < 8; i++)
if ((spell_targets[i].x != 120) && (point_onscreen(center,spell_targets[i]) == TRUE)) {
dest_rect = coord_to_rect(spell_targets[i].x - center.x + 4,spell_targets[i].y - center.y + 4);
OffsetRect(&dest_rect,5,5);
InsetRect(&dest_rect,8,12);
rect_draw_some_item (mixed_gworld,source_rect,mixed_gworld,dest_rect,1,1);
}
}
void frame_space(location where,short mode,short width,short height)
//mode; // 0 - red 1 - green
{
location where_put;
Rect to_frame;
if (point_onscreen(center,where) == FALSE)
return;
where_put.x = 4 + where.x - center.x;
where_put.y = 4 + where.y - center.y;
to_frame.top = 18 + where_put.y * 36;
to_frame.left = 18 + where_put.x * 28;
to_frame.bottom = 54 + where_put.y * 36 + 36 * (height - 1);
to_frame.right = 46 + where_put.x * 28 + 28 * (width - 1);
OffsetRect(&to_frame, ul.h,ul.v);
ForeColor((mode == 0) ? redColor : greenColor);
FrameRoundRect(&to_frame,8,8);
ForeColor(blackColor);
}
void erase_spot(short i,short j)
{
Rect to_erase;
to_erase = coord_to_rect(i,j);
EraseRect(&to_erase);
}
void undo_clip()
{
Rect overall_rect;
GrafPtr cur_port;
GetPort(&cur_port);
overall_rect = cur_port->portRect;
ClipRect(&overall_rect);
}
void draw_targeting_line(Point where_curs)
{
location which_space,store_loc;
short i,j,k,l;
long dummy;
Rect redraw_rect,redraw_rect2,terrain_rect = {0,0,351,279},target_rect;
location from_loc;
Rect on_screen_terrain_area = {23, 23, 346, 274};
if (overall_mode >= 10)
from_loc = pc_pos[current_pc];
else from_loc = c_town.p_loc;
if ((overall_mode == 11) || (overall_mode == 12) || (overall_mode == 13) || (overall_mode == 14)
|| ((overall_mode == 3) && (current_pat.pattern[4][4] != 0))) {
GlobalToLocal(&where_curs);
OffsetRect(&on_screen_terrain_area,ul.h,ul.v);
if (PtInRect (where_curs, &on_screen_terrain_area) == TRUE) {
// && (point_onscreen(center,pc_pos[current_pc]) == TRUE)){
i = (where_curs.h - 23 - ul.h) / 28;
j = (where_curs.v - 23 - ul.v) / 36;
which_space.x = center.x + (short) i - 4;
which_space.y = center.y + (short) j - 4;
k = (short) (from_loc.x - center.x + 4);
l = (short) (from_loc.y - center.y + 4);
k = (k * 28) + 32 + ul.h;
l = (l * 36) + 36 + ul.v;
if ((can_see(from_loc,which_space,0) < 5)
&& (dist(from_loc,which_space) <= current_spell_range)) {
InsetRect(&terrain_rect,13,13);
OffsetRect(&terrain_rect,5 + ul.h,5 + ul.v);
ClipRect(&terrain_rect);
PenMode (patXor);
PenSize(2,2);
MoveTo(where_curs.h,where_curs.v);
LineTo(k,l);
redraw_rect.left = min(where_curs.h,k) - 4;
redraw_rect.right = max(where_curs.h,k) + 4;
redraw_rect.top = min(where_curs.v,l) - 4;
redraw_rect.bottom = max(where_curs.v,l) + 4;
SectRect(&redraw_rect,&terrain_rect,&redraw_rect2);
// Now place targeting pattern
for (i = 0; i < 9; i++)
for (j = 0; j < 9; j++) {
store_loc.x = center.x + i - 4;
store_loc.y = center.y + j - 4;
if ((a_v(store_loc.x - which_space.x) <= 4) &&
(a_v(store_loc.y - which_space.y) <= 4) &&
(current_pat.pattern[store_loc.x - which_space.x + 4][store_loc.y - which_space.y + 4] != 0)) {
target_rect.left = 13 + BITMAP_WIDTH * i + 5 + ul.h;
target_rect.right = target_rect.left + BITMAP_WIDTH;
target_rect.top = 13 + BITMAP_HEIGHT * j + 5 + ul.v;
target_rect.bottom = target_rect.top + BITMAP_HEIGHT;
FrameRect(&target_rect);
InsetRect(&target_rect,-5,-5);
UnionRect(&target_rect,&redraw_rect2,&redraw_rect2);
// Now place number of shots left, if drawing center of target
if ((overall_mode == 14) && (store_loc.x - which_space.x + 4 == 4)
&& (store_loc.y - which_space.y + 4 == 4)) {
ForeColor(whiteColor);
MoveTo(((target_rect.left + target_rect.right) / 2) - 3,
(target_rect.top + target_rect.bottom) / 2);
DrawChar((char) (num_targets_left + 48));
ForeColor(blackColor);
}
}
}
Delay(4,&dummy);
InsetRect(&redraw_rect2,-5,-5);
redraw_partial_terrain(redraw_rect2);
PenNormal();
undo_clip();
if (is_combat())
draw_pcs(center,1);
else draw_party_symbol(0,center);
if (overall_mode == 14)
draw_targets(center);
}
}
}
}
Boolean party_toast()
{
short i;
for (i = 0; i < 6; i++)
if (adven[i].main_status == 1)
return FALSE;
return TRUE;
}
void redraw_partial_terrain(Rect redraw_rect)
{
Rect from_rect;
from_rect = redraw_rect;
OffsetRect(&from_rect,-1 * ul.h,-1 * ul.v);
// as rect_draw_some_item will shift redraw_rect before drawing, we need to compensate
OffsetRect(&redraw_rect,-1 * ul.h + 5,-1 * ul.v + 5);
rect_draw_some_item(terrain_screen_gworld,from_rect,terrain_screen_gworld,redraw_rect,0,1);
}
void dump_gworld()
{
Rect from_rect,to_rect;
long d;
from_rect = storage_gworld->portRect;
from_rect.top += 180;
to_rect = from_rect;
OffsetRect(&to_rect,0,-180);
to_rect.bottom = to_rect.top + (to_rect.bottom + to_rect.top) / 2;
rect_draw_some_item(storage_gworld,from_rect,storage_gworld,to_rect,0,1);
play_sound(0);
Delay(60,&d);
}
// This tells the dialog engine to kill the dialog, and refreshes the screen
void final_process_dialog(short which_dlog)
{
GrafPtr old_port;
cd_kill_dialog(which_dlog,0);
GetPort(&old_port);
SetPort(mainPtr);
BeginUpdate(mainPtr);
if (in_startup_mode == FALSE)
refresh_screen(0);
else draw_startup(0);
EndUpdate(mainPtr);
SetPort(old_port);
}
void HideMenuBar( void )
{
GDHandle mainScreen;
Rect mainScreenBounds;
RgnHandle mainScreenRgn;
GrafPtr windowPort;
GrafPtr oldPort;
WindowPtr frontWindow;
// get the gdhandle of the main screen which
// is the screen with the menubar
mainScreen = GetMainDevice();
mainScreenBounds = ( *mainScreen )->gdRect;
// get new region encompassing entire screen
// including area under menu bar and corners
mainScreenRgn = NewRgn();
newGrayRgn = NewRgn();
underBarRgn = NewRgn();
RectRgn( mainScreenRgn, &mainScreenBounds );
UnionRgn( mainScreenRgn, originalGrayRgn, newGrayRgn );
DiffRgn( newGrayRgn, originalGrayRgn, underBarRgn );
DisposeRgn( mainScreenRgn );
// Set gray region to entire screen
LMSetGrayRgn( newGrayRgn );
GetPort( &oldPort );
GetWMgrPort( &windowPort );
SetPort( windowPort );
SetClip( newGrayRgn );
// redraw the desktop to draw over the menu bar
PaintOne( nil, newGrayRgn );
// in case any part of a window is covered
// redraw it and recalculate the visible region
frontWindow = FrontWindow();
PaintOne( ( WindowRef )frontWindow, underBarRgn );
PaintBehind( ( WindowRef )frontWindow, underBarRgn );
CalcVis( ( WindowRef )frontWindow );
CalcVisBehind( ( WindowRef )frontWindow, underBarRgn );
// set menu bar height to 0
LMSetMBarHeight( 0 );
// Restore the port
SetPort( oldPort );
}//HideMenuBar
void ShowMenuBar( void )
{
WindowPtr frontWindow;
GrafPtr windowPort;
GrafPtr oldPort;
// Reset the menu bar height
LMSetMBarHeight( menuBarHeight );
// Restore the original gray region
LMSetGrayRgn( originalGrayRgn );
frontWindow = FrontWindow();
CalcVis( (GrafPort *)frontWindow );
CalcVisBehind( ( WindowRef )frontWindow, newGrayRgn );
// Reset the clipping regions of the window mgr port
GetPort( &oldPort );
GetWMgrPort( &windowPort );
SetPort( windowPort );
SetClip( newGrayRgn );
SetPort( oldPort );
// Redraw the menu bar
HiliteMenu( 0 );
DrawMenuBar();
}
/*
void HideShowMenuBar( )
{
GDHandle mainScreen;
// store current gray region that displays
// menu bar and the current height of the menu bar
originalGrayRgn = LMGetGrayRgn();
menuBarHeight = LMGetMBarHeight();
// calculate the rect of the menu bar to test
// if mouse down is in if desired
mainScreen = GetMainDevice();
menuBarRect = (**mainScreen).gdRect;
menuBarRect.bottom = menuBarHeight;
HideMenuBar();
while( !Button() );
ShowMenuBar();
// restore the original gray region to
// make the menu bar visible
LMSetGrayRgn( originalGrayRgn );
}
*/
Reference in New Issue View Git Blame Copy Permalink