static void
gutter_renderer_text_draw (GtkSourceGutterRenderer *renderer,
cairo_t *cr,
GdkRectangle *background_area,
GdkRectangle *cell_area,
GtkTextIter *start,
GtkTextIter *end,
GtkSourceGutterRendererState state)
{
GtkSourceGutterRendererText *text = GTK_SOURCE_GUTTER_RENDERER_TEXT (renderer);
GtkTextView *view;
gint width;
gint height;
gfloat xalign;
gfloat yalign;
GtkSourceGutterRendererAlignmentMode mode;
gint x = 0;
gint y = 0;
GtkStyleContext *context;
/* Chain up to draw background */
if (GTK_SOURCE_GUTTER_RENDERER_CLASS (gtk_source_gutter_renderer_text_parent_class)->draw != NULL)
{
GTK_SOURCE_GUTTER_RENDERER_CLASS (gtk_source_gutter_renderer_text_parent_class)->draw (renderer,
cr,
background_area,
cell_area,
start,
end,
state);
}
view = gtk_source_gutter_renderer_get_view (renderer);
if (text->priv->is_markup)
{
pango_layout_set_markup (text->priv->cached_layout,
text->priv->text,
-1);
}
else
{
pango_layout_set_text (text->priv->cached_layout,
text->priv->text,
-1);
}
pango_layout_get_pixel_size (text->priv->cached_layout, &width, &height);
gtk_source_gutter_renderer_get_alignment (renderer,
&xalign,
&yalign);
/* Avoid calculations if we don't wrap text */
if (gtk_text_view_get_wrap_mode (view) == GTK_WRAP_NONE)
{
mode = GTK_SOURCE_GUTTER_RENDERER_ALIGNMENT_MODE_CELL;
}
else
{
mode = gtk_source_gutter_renderer_get_alignment_mode (renderer);
}
switch (mode)
{
case GTK_SOURCE_GUTTER_RENDERER_ALIGNMENT_MODE_CELL:
x = cell_area->x + (cell_area->width - width) * xalign;
y = cell_area->y + (cell_area->height - height) * yalign;
break;
case GTK_SOURCE_GUTTER_RENDERER_ALIGNMENT_MODE_FIRST:
center_on (view,
cell_area,
start,
width,
height,
xalign,
yalign,
&x,
&y);
break;
case GTK_SOURCE_GUTTER_RENDERER_ALIGNMENT_MODE_LAST:
center_on (view,
cell_area,
end,
width,
height,
xalign,
yalign,
&x,
&y);
break;
default:
g_assert_not_reached ();
}
context = gtk_widget_get_style_context (GTK_WIDGET (view));
gtk_render_layout (context, cr, x, y, text->priv->cached_layout);
}
void
MapAgent::display (UAS_Pointer<UAS_Common> &doc_ptr, bool popup)
{
static bool first_time = True;
u_int i, num_children;
MapButton *parent_button, *child_button, *this_button = NULL;
if (f_shell == NULL)
create_ui();
// Just pop up the window if the map has already been created
// for the specified document.
if (doc_ptr == f_doc_ptr)
{
if (popup) {
f_shell->Popup();
XMapRaised(XtDisplay(*f_shell), XtWindow(*f_shell));
}
f_onscreen = TRUE;
return;
}
// Must have to create a new tree, so start by wiping out the old one.
if (f_tree != NULL)
{
f_tree->Destroy();
delete f_tree;
}
f_tree = new WXawTree (*f_porthole, "tree");
// f_tree->Realize();
// Tree gravity should be a preference that is retrieved right here.
// (Or better yet stored in the class record.)
/* -------- Start the local map at this node's parent. -------- */
UAS_Pointer<UAS_Common> toc_this = doc_ptr;
UAS_Pointer<UAS_Common> toc_parent =
(doc_ptr != (UAS_Pointer<UAS_Common>)0)
? doc_ptr->parent() : (UAS_Pointer<UAS_Common>)0;
// If the entry has a parent, create a button for it and each of
// the entry's siblings.
if (toc_parent != (UAS_Pointer<UAS_Common>)NULL)
{
parent_button = new MapButton (*f_tree, toc_parent, NULL);
// parent_button->expand();
/* -------- Create a button for each sibling. -------- */
UAS_List<UAS_Common> kids = toc_parent->children();
num_children = kids.length();
UAS_Pointer<UAS_Common> toc_kid;
for (i = 0; i < num_children; i++)
{
toc_kid = kids[i];
child_button = new MapButton (*f_tree, toc_kid, parent_button);
if (toc_kid == doc_ptr)
{
f_doc_ptr = doc_ptr;
this_button = child_button;
}
}
}
else // No TOC parent -- SWM: Also may be no TOC!!!
{
f_doc_ptr = doc_ptr;
this_button = new MapButton (*f_tree, toc_this, NULL);
}
if (this_button == NULL)
{
message_mgr().
error_dialog (CATGETS(Set_Messages, 7, "File a Bug"));
return;
}
else
{
static bool first_time = TRUE;
static Pixel highlight_bg, highlight_fg;
if (first_time)
{
const char *s;
unsigned long status;
s = window_system().get_string_default ("MapHighlightBackground");
if (s == NULL || *s == '\0')
{
highlight_bg = this_button->f_button.Foreground();
}
else
{
status = window_system().get_color (s, highlight_bg);
// On failure to allocate, just invert.
if (status == 0)
{
highlight_bg = this_button->f_button.Foreground();
highlight_fg = this_button->f_button.Background();
}
// Got bg, so now try for fg.
else
{
s = window_system().
get_string_default ("MapHighlightForeground");
if (s == NULL || *s == '\0')
{
highlight_fg =this_button->f_button.Background();
}
else
{
status = window_system().get_color (s, highlight_fg);
// If we cant get both colors, just invert the button.
if (status == 0)
{
Display *dpy = window_system().display();
XFreeColors (dpy,
DefaultColormap(dpy,DefaultScreen(dpy)),
&highlight_bg, 1, 0);
highlight_bg = this_button->f_button.Foreground();
highlight_fg = this_button->f_button.Background();
}
}
}
}
if (highlight_fg == this_button->f_button.Foreground() ||
highlight_bg == this_button->f_button.Background() ||
highlight_fg == highlight_bg)
{
highlight_bg = this_button->f_button.Foreground();
highlight_fg = this_button->f_button.Background();
}
first_time = FALSE;
}
this_button->f_button.Background (highlight_bg);
this_button->f_button.Foreground (highlight_fg);
// this_button->expand();
}
/* -------- Create a button for each child. -------- */
if (toc_this != (UAS_Pointer<UAS_Common>)NULL)
{
UAS_List<UAS_Common> myKids = toc_this->children();
num_children = myKids.length();
for (i = 0; i < num_children; i++)
child_button =
new MapButton (*f_tree, myKids[i], this_button);
#if 0
if (!XtIsRealized(*f_shell))
{
f_tree->Manage();
f_shell->Realize();
}
#endif
}
// Manage all the children.
MapButton::ManageKids();
UAS_String buffer = CATGETS(Set_MapAgent, 2, "Dtinfo: ");
buffer = buffer + doc_ptr->title();
f_shell->Title ((char*)buffer);
if (!XtIsRealized (*f_shell))
f_shell->Realize();
f_tree->Realize();
f_tree->ForceLayout();
f_min_tree_width = f_tree->Width();
f_min_tree_height = f_tree->Height();
ON_DEBUG (printf ("+++++ Tree min dims: %d x %d\n",
f_min_tree_width, f_min_tree_height));
center_on (this_button);
f_tree->Manage();
if (popup)
{
if (first_time)
{
WXmForm form (XtParent (XtParent (*f_panner)));
form.Height (50);
first_time = False;
}
f_shell->Popup();
XMapRaised(XtDisplay(*f_shell), XtWindow(*f_shell));
}
f_onscreen = TRUE;
}
static void
gutter_renderer_text_draw (GtkSourceGutterRenderer *renderer,
cairo_t *cr,
GdkRectangle *background_area,
GdkRectangle *cell_area,
GtkTextIter *start,
GtkTextIter *end,
GtkSourceGutterRendererState state)
{
GtkSourceGutterRendererText *text = GTK_SOURCE_GUTTER_RENDERER_TEXT (renderer);
gint width;
gint height;
PangoAttrList *attr_list;
gfloat xalign;
gfloat yalign;
GtkSourceGutterRendererAlignmentMode mode;
GtkTextView *view;
gint x = 0;
gint y = 0;
GtkStyleContext *context;
/* Chain up to draw background */
if (GTK_SOURCE_GUTTER_RENDERER_CLASS (gtk_source_gutter_renderer_text_parent_class)->draw != NULL)
{
GTK_SOURCE_GUTTER_RENDERER_CLASS (gtk_source_gutter_renderer_text_parent_class)->draw (renderer,
cr,
background_area,
cell_area,
start,
end,
state);
}
view = gtk_source_gutter_renderer_get_view (renderer);
if (text->priv->is_markup)
{
pango_layout_set_markup (text->priv->cached_layout,
text->priv->text,
-1);
}
else
{
pango_layout_set_text (text->priv->cached_layout,
text->priv->text,
-1);
}
attr_list = pango_layout_get_attributes (text->priv->cached_layout);
if (!attr_list)
{
pango_layout_set_attributes (text->priv->cached_layout,
pango_attr_list_copy (text->priv->cached_attr_list));
}
else
{
pango_attr_list_insert (attr_list,
pango_attribute_copy (text->priv->fg_attr));
}
pango_layout_get_pixel_size (text->priv->cached_layout, &width, &height);
gtk_source_gutter_renderer_get_alignment (renderer,
&xalign,
&yalign);
mode = gtk_source_gutter_renderer_get_alignment_mode (renderer);
switch (mode)
{
case GTK_SOURCE_GUTTER_RENDERER_ALIGNMENT_MODE_CELL:
x = cell_area->x + (cell_area->width - width) * xalign;
y = cell_area->y + (cell_area->height - height) * yalign;
break;
case GTK_SOURCE_GUTTER_RENDERER_ALIGNMENT_MODE_FIRST:
center_on (renderer,
cell_area,
start,
width,
height,
xalign,
yalign,
&x,
&y);
break;
case GTK_SOURCE_GUTTER_RENDERER_ALIGNMENT_MODE_LAST:
center_on (renderer,
cell_area,
end,
width,
height,
xalign,
yalign,
&x,
&y);
break;
}
context = gtk_widget_get_style_context (GTK_WIDGET (view));
gtk_render_layout (context, cr, x, y, text->priv->cached_layout);
}
short effect::act()
{
short temp;
Sint32 xd, yd, distance, generic;
oblink *foelist, *here;
walker *newob;
short numfoes;
// Make sure everyone we're poshorting to is valid
if (foe && foe->dead)
foe = NULL;
if (leader && leader->dead)
leader = NULL;
if (owner && owner->dead)
owner = NULL;
collide_ob = NULL; // always start with no collison..
// Any special actions ..
switch (family) // determine what to do..
{
case FAMILY_GHOST_SCARE:
if (owner)
center_on(owner);
break;
case FAMILY_MAGIC_SHIELD: // revolve around owner
if (!owner || owner->dead)
{
dead = 1;
death();
break;
}
switch (drawcycle % 16)
{
case 0:
xd = 0;
yd = -24;
break;
case 1:
xd = -9;
yd = -22;
break;
case 2:
xd = -17;
yd = -17;
break;
case 3:
xd = -22;
yd = -9;
break;
case 4:
xd = -24;
yd = 0;
break;
case 5:
xd = -22;
yd = 9;
break;
case 6:
xd = -17;
yd = 17;
break;
case 7:
xd = -9;
yd = 22;
break;
case 8:
xd = 0;
yd = 24;
break;
case 9:
xd = 9;
yd = 22;
break;
case 10:
xd = 17;
yd = 17;
break;
case 11:
xd = 22;
yd = 9;
break;
case 12:
xd = 24;
yd = 0;
break;
case 13:
xd = 22;
yd = -9;
break;
case 14:
xd = 17;
yd = -17;
break;
case 15:
xd = 9;
yd = -22;
break;
}
center_on(owner);
setxy( (short)( xpos+xd ), (short) (ypos+yd) );
foelist = screenp->find_foe_weapons_in_range(
screenp->oblist, sizex, &temp, this);
here = foelist;
while (foelist) // first weapons
{
stats->hitpoints -= foelist->ob->damage;
foelist->ob->dead = 1;
foelist->ob->death();
foelist = foelist->next;
}
delete_list(here);
foelist = screenp->find_foes_in_range(
screenp->oblist, sizex, &temp, this);
here = foelist;
while (foelist) // second enemies
{
stats->hitpoints -= foelist->ob->damage;
attack(foelist->ob);
dead = 0;
foelist = foelist->next;
}
delete_list(here);
if ( (stats->hitpoints <= 0) || (lifetime-- < 0) )
{
dead = 1;
death();
}
break; // end of magic shield case
case FAMILY_BOOMERANG: // fighter's boomerang
// Zardus: FIX: if the drawcycle is in its >253s, the boomerang dies. This will fix the bug where
// the boomerang comes back to 0 (owner) after spiraling around all the way if the owner has
// that good of an ability (to keep its life so high). This caps boomerang ability, though... Another
// fix could be to make the drawcycle var an int or at least something with more capacity than char.
if (!owner || owner->dead || drawcycle > 253)
{
dead = 1;
death();
break;
}
switch (drawcycle % 16)
{
case 0:
xd = 0;
yd = -24;
break;
case 1:
xd = -9;
yd = -22;
break;
case 2:
xd = -17;
yd = -17;
break;
case 3:
xd = -22;
yd = -9;
break;
case 4:
xd = -24;
yd = 0;
break;
case 5:
xd = -22;
yd = 9;
break;
case 6:
xd = -17;
yd = 17;
break;
case 7:
xd = -9;
yd = 22;
break;
case 8:
xd = 0;
yd = 24;
break;
case 9:
xd = 9;
yd = 22;
break;
case 10:
xd = 17;
yd = 17;
break;
case 11:
xd = 22;
yd = 9;
break;
case 12:
xd = 24;
yd = 0;
break;
case 13:
xd = 22;
yd = -9;
break;
case 14:
xd = 17;
yd = -17;
break;
case 15:
xd = 9;
yd = -22;
break;
}
xd *= (drawcycle+4);
xd /= 48;
yd *= (drawcycle+4);
yd /= 48;
center_on(owner);
setxy((short) (xpos+xd), (short) (ypos+yd) );
foelist = screenp->find_foe_weapons_in_range(
screenp->oblist, sizex*2, &temp, this);
here = foelist;
while (foelist) // first weapons
{
stats->hitpoints -= foelist->ob->damage;
foelist->ob->dead = 1;
foelist->ob->death();
foelist = foelist->next;
}
delete_list(here);
foelist = screenp->find_foes_in_range(
screenp->oblist, sizex, &temp, this);
here = foelist;
while (foelist) // second enemies
{
stats->hitpoints -= foelist->ob->damage;
attack(foelist->ob);
dead = 0;
foelist = foelist->next;
}
delete_list(here);
if ( (stats->hitpoints <= 0) || (lifetime-- < 0) )
{
dead = 1;
death();
}
break; // end of boomerang case
case FAMILY_KNIFE_BACK: // returning blade
if (!owner || owner->dead)
{
dead = 1;
break;
}
distance = distance_to_ob(owner);
if (distance > 10)
{
xd = yd = 0; // zero out distance movements
if (owner->xpos > xpos)
{
if ( (owner->xpos - xpos) > stepsize )
xd = stepsize;
else
xd = owner->xpos - xpos;
}
else if (owner->xpos < xpos)
{
if ( (xpos - owner->xpos) > stepsize )
xd = -stepsize;
else
xd = owner->xpos - xpos;
}
if (owner->ypos > ypos)
{
if ( (owner->ypos - ypos) > stepsize )
yd = stepsize;
else
yd = owner->ypos - ypos;
}
else if (owner->ypos < ypos)
{
if ( (ypos - owner->ypos) > stepsize )
yd = -stepsize;
else
yd = owner->ypos - ypos;
}
setxy((short) (xpos+xd), (short) (ypos+yd) );
newob = screenp->add_ob(ORDER_WEAPON, FAMILY_KNIFE);
newob->damage = damage;
newob->owner = owner;
newob->team_num = team_num;
newob->death_called = 1; // to ensure no spawning of more ..
newob->setxy(xpos, ypos);
if (!screenp->query_object_passable((short) (xpos+xd), (short) (ypos+yd), newob))
{
newob->attack(newob->collide_ob);
damage /= 4;
//setxy(xpos-(2*xd)+random(xd), ypos-(2*yd)+random(yd));
}
newob->dead = 1;
}
else
{
owner->weapons_left++;
//if (owner->user != -1)
//{
// sprintf(message, "Knives now %d", owner->weapons_left);
// screenp->do_notify(message, owner);
//}
ani_type = ANI_WALK;
dead = 1;
}
break;
case FAMILY_CLOUD: // poison cloud
if (lifetime > 0)
lifetime--;
else
{
dead = 1;
death();
}
if (lifetime < 8)
invisibility_left +=3;
if (invisibility_left > 0)
invisibility_left--;
// Hit any nearby foes (not friends, for now)
foelist = screenp->find_foes_in_range(
screenp->oblist, sizex, &temp, this);
here = foelist;
while (foelist) //
{
if (hits(xpos, ypos, sizex, sizey, // this is the cloud
foelist->ob->xpos, foelist->ob->ypos,
foelist->ob->sizex, foelist->ob->sizey)
)
{
attack(foelist->ob);
} // end of actual hit
foelist = foelist->next;
}
delete_list(here);
// Are we performing some action?
if (stats->commandlist)
temp = stats->do_command();
else
{
xd = yd = 0;
while (xd == 0 && yd == 0)
{
xd = random(3)-1;
yd = random(3)-1;
}
stats->add_command(COMMAND_WALK, (short) random(20), (short) xd, (short) yd);
}
break; // end of cloud
case FAMILY_CHAIN: // chain lightning ..
if (!leader || lineofsight<1 || !owner) // lost our leader, etc.? kill us ..
{
dead = 1;
death();
return 1;
}
// Are we at our leader? If so, attack him :)
if (hits(xpos, ypos, sizex, sizey,
leader->xpos, leader->ypos, leader->sizex, leader->sizey))
{
// Do things ..
newob = screenp->add_ob(ORDER_FX, FAMILY_EXPLOSION);
if (!newob)
{
dead = 1;
death();
return 1; // failsafe
}
newob->owner = owner;
newob->team_num = team_num;
newob->stats->level = stats->level;
newob->damage = damage;
newob->ani_type = ANI_EXPLODE;
newob->center_on(this);
leader->skip_exit += 3; // can't hit us for 3 rounds ..
if (on_screen())
screenp->soundp->play_sound(SOUND_EXPLODE);
// Now make new objects to seek out foes ..
// First, are our offspring powerful enough at 1/2 our power?
generic = (damage)/2;
if (owner->myguy)
foelist = screenp->find_foes_in_range(screenp->oblist,
240+(owner->myguy->intelligence/2), &temp, this);
else
foelist = screenp->find_foes_in_range(screenp->oblist,
240+stats->level*5, &temp, this);
if (temp && generic>20) // more foes to find ..
{
here = foelist;
numfoes = random(owner->stats->level)+1;
while (here && numfoes--)
{
if (here->ob != leader && here->ob->skip_exit<1) // don't hit current guy, etc.
{
newob = screenp->add_ob(ORDER_FX, FAMILY_CHAIN);
if (!newob)
{
delete_list(foelist);
return 0; // failsafe
}
newob->owner = owner; // our caster
newob->leader = here->ob; // guy to attack
newob->stats->level = stats->level;
newob->stats->set_bit_flags(BIT_MAGICAL, 1);
newob->damage = generic;
newob->team_num = team_num;
newob->center_on(this);
} // end of wasn't current guy case
here = here->next;
} // end of loop for nearby foes we found
} // end of check for nearby foes
// Clean up our list .. ?
// Zardus: TAG: nah, lets use delete_list
/*here = foelist->next;
while (here)
{
delete foelist;
foelist = here;
here = here->next;
}
delete foelist;*/
delete_list(foelist);
dead = 1;
death();
return 1;
}
// Move toward our leader ..
lineofsight--;
distance = distance_to_ob_center(leader);
if (distance > stepsize*2)
{
xd = yd = 0; // zero out distance movements
if (leader->xpos > xpos)
{
if ( (leader->xpos - xpos) > stepsize )
xd = stepsize;
else
xd = leader->xpos - xpos;
}
else if (leader->xpos < xpos)
{
if ( (xpos - leader->xpos) > stepsize )
xd = -stepsize;
else
xd = leader->xpos - xpos;
}
if (leader->ypos > ypos)
{
if ( (leader->ypos - ypos) > stepsize )
yd = stepsize;
else
yd = leader->ypos - ypos;
}
else if (leader->ypos < ypos)
{
if ( (ypos - leader->ypos) > stepsize )
yd = -stepsize;
else
yd = leader->ypos - ypos;
}
// Set our facing?
curdir = facing(xd, yd);
set_frame(ani[curdir][0]);
} // end of big step
else
{
//xd = leader->xpos;
//yd = leader->ypos;
center_on(leader);
return 1;
}
setxy((short) (xpos+xd), (short) (ypos+yd) );
return 1; // so as not to animate, etc.
//break; // end of FAMILY_CHAIN
case FAMILY_DOOR_OPEN:
// Here is how doors work. They start out as a FAMILY_DOOR
// from ORDER_WEAPON under the weaplist. When the door is
// collided with, the obmap marks the door as dead, and spawns
// the FAMILY_DOOR_OPEN on the weaplist (this object). It
// animates ANI_DOOR_OPEN, and when it is done, it dies and
// spawns a FAMILY_DOOR_OPEN on the fxlist. The amusing part
// is that now that it is on the fxlist, it won't act anymore,
// thus preventing it from continuously respawning itself.
if (ani_type != ANI_WALK)
return animate();
newob = screenp->add_fx_ob(ORDER_FX, FAMILY_DOOR_OPEN);
if (!newob)
break;
newob->ani_type = ANI_WALK;
newob->setxy(xpos, ypos);
newob->stats->level = stats->level;
newob->team_num = team_num;
newob->ignore = 1;
newob->curdir = curdir;
// set correct frame
newob->animate();
dead = 1;
death();
return 1;
break;
default:
break;
}
// Complete previous animations (like firing)
if (ani_type != ANI_WALK)
return animate();
switch (family) // determine what to do..
{
default:
dead = 1;
death();
break;
}
return 0;
}
short weap::animate()
{
//walker * newob;
// We never use ani_type as as I can tell; always use 0
// if (ani_type)
// {
// Log("weap ani_type = %d\n", ani_type);
// ani_type = 0;
// }
switch (family)
{
case FAMILY_TREE:
case FAMILY_BLOOD:
if (ani_type > 1)
ani_type = 0;
set_frame(ani[curdir+ani_type*NUM_FACINGS][cycle]);
cycle++;
if (ani[curdir+ani_type*NUM_FACINGS][cycle] == -1)
{
ani_type = 0; //ANI_WALK;
cycle = 0;
}
break;
case FAMILY_CIRCLE_PROTECTION:
if (!owner || owner->dead || stats->hitpoints < 1)
{
dead = 1;
return death();
}
center_on(owner);
break;
case FAMILY_GLOW:
if (ani_type > 2) // illegal case
ani_type = 2; // pulse case
set_frame(ani[curdir+ani_type*NUM_FACINGS][cycle]);
cycle++;
if (ani[curdir+ani_type*NUM_FACINGS][cycle] == -1)
{
ani_type = 2; // pulse
cycle = 0;
}
if (lifetime-- < 1)
{
dead = 1;
death();
}
break;
default:
ani_type = 0;
set_frame(ani[curdir][cycle]);
cycle++;
if (ani[curdir][cycle] == -1)
{
cycle = 0;
}
break;
} // end of family switch
return 1;
}