source: abuse/trunk/src/imlib/input.cpp @ 668 Tweet

/*
 *  Abuse - dark 2D side-scrolling platform game
 *  Copyright (c) 1995 Crack dot Com
 *  Copyright (c) 2005-2011 Sam Hocevar <sam@hocevar.net>
 *
 *  This software was released into the Public Domain. As with most public
 *  domain software, no warranty is made or implied by Crack dot Com, by
 *  Jonathan Clark, or by Sam Hocevar.
 */

#if defined HAVE_CONFIG_H
#   include "config.h"
#endif

#include <string.h>

#include "common.h"

#include "input.h"

void button::remap(Filter *f)
{
  if (visual)
  {
    f->Apply(visual);
    if (pressed)
      f->Apply(pressed);
  }
}

void button_box::press_button(int id)      // if button box doesn't contain id, nothing happens
{
}

void button_box::remap(Filter *f)
{
  for (button *b=buttons; b; b=(button *)b->next)
    b->remap(f);
}

ifield *button_box::find(int search_id)
{
  if (search_id==id) return this;
  for (ifield *i=(ifield *)buttons; i; i=i->next)
    if (search_id==i->id) return i;
  return NULL;
}

button_box::button_box(int X, int Y, int ID, int MaxDown, button *Buttons, ifield *Next)
{
  m_pos = vec2i(X, Y); id=ID; next=Next;
  buttons=Buttons;
  maxdown=MaxDown;
  if (buttons && maxdown) buttons->push();  // the first button is automatically selected!
}

button_box::~button_box()
{
  while (buttons)
  {
    button *b=buttons;
    buttons=(button *)buttons->next;
    delete b;
  }
}

void button_box::area(int &x1, int &y1, int &x2, int &y2)
{
  button *b=buttons;
  if (!b) return ;
  else
  {
    b->area(x1,y1,x2,y2);
    int xp1,yp1,xp2,yp2;
    for (b=(button *)b->next; b; b=(button *)b->next)
    {
      b->area(xp1,yp1,xp2,yp2);
      if (xp1<x1) x1=xp1;
      if (xp2>x2) x2=xp2;
      if (yp1<y1) y1=yp1;
      if (yp2>y2) y2=yp2;
    }
  }
}

void button_box::draw_first(image *screen)
{
  for (button *b=buttons; b; b=(button *)b->next)
    b->draw_first(screen);
}

void button_box::draw(int active, image *screen)
{
  return ;
}

void button_box::Move(vec2i pos)
{
    for(button * b = buttons; b; b = (button *)b->next)
        b->Move(pos + b->m_pos);
    m_pos = pos;
}

char *button_box::read()
{
  for (button *b=buttons; b; b=(button *)b->next)
  {
    if (*((int *)b->read())==0)
      return (char *)b;
  }
  return NULL;
}

void button_box::handle_event(Event &ev, image *screen, InputManager *im)
{
  switch (ev.type)
  {
    case EV_MOUSE_BUTTON :
    {
      int x1,y1,x2,y2;
      int found=0;
      for (button *b=buttons; !found && b; b=(button *)b->next)  // see if the user clicked on a button
      {
    b->area(x1,y1,x2,y2);
    if (ev.mouse_move.x>=x1 && ev.mouse_move.x<=x2 &&
        ev.mouse_move.y>=y1 && ev.mouse_move.y<=y2)
    {
      b->handle_event(ev,screen,im);

      int total=0;
      button *b2=buttons;
      for (; b2; b2=(button *)b2->next)
        if (*((int *)b2->read())==0)
          total++;

      if (*((int *)b->read())==0)  // did the user press or release the button
      {
        if (total>maxdown)
        {
          for (b2=buttons; total>maxdown && b2; b2=(button *)b2->next)
            if ((b!=b2 || maxdown==0) && *((int *)b2->read())==0)
        {
          total--;
          b2->push();
          b2->draw_first(screen);
        }
        }
        b->draw_first(screen);
      } else if (total==0 && maxdown)
        b->push();    // don't let the user de-press a button if non others are selected.

      found=1; // don't look at anymore buttons

    }
      }
    } break;
  }
}


void button_box::add_button(button *b)
{
  b->next=buttons;
  buttons=b;
}


void button_box::arrange_left_right()
{
    vec2i on = m_pos;
    for (button *b = buttons; b; b = (button *)b->next)
    {
        int x1, y1, x2, y2;
        b->area(x1, y1, x2, y2);
        b->m_pos = on;
        on.x += (x2 - x1 + 1) + 1;
    }
}

void button_box::arrange_up_down()
{
    vec2i on = m_pos;
    for (button *b = buttons; b; b = (button *)b->next)
    {
        int x1, y1, x2, y2;
        b->area(x1,y1,x2,y2);
        b->m_pos = on;
        on.y += (y2 - y1 + 1) + 1;
    }
}

void button::change_visual(image *new_visual)
{
  CHECK(visual);
  visual=new_visual;
}

void button::area(int &x1, int &y1, int &x2, int &y2)
{
    vec2i pos1 = m_pos;
    vec2i pos2 = m_pos;

    if (pressed)
        pos2 += pressed->Size() - vec2i(1);
    else if (text)
        pos2 += wm->font()->Size() * vec2i(strlen(text), 1) + vec2i(6);
    else
        pos2 += visual->Size() + vec2i(6);

    x1 = pos1.x; y1 = pos1.y;
    x2 = pos2.x; y2 = pos2.y;
}


button::button(int X, int Y, int ID, char const *Text, ifield *Next)
{
    m_pos = vec2i(X, Y);
    id = ID;
    act_id=-1;
    text = strdup(Text);
    up=1; next=Next; act=0;
    visual=NULL;
    pressed=NULL;
}


button::button(int X, int Y, int ID, image *vis, ifield *Next)
{
    m_pos = vec2i(X, Y);
    id=ID; text=NULL;
    act_id=-1;
    visual=vis; up=1; next=Next; act=0;
    pressed=NULL;
}

button::button(int X, int Y, int ID, image *Depressed, image *Pressed, image *active, ifield *Next)
{
    m_pos = vec2i(X, Y);
    id=ID; text=NULL;
    act_id=-1;
    visual=Depressed; up=1; next=Next; act=0;
    pressed=Pressed;
    act_pict=active;
}


void text_field::change_data(char const *new_data, int new_cursor, // cursor==-1, does not change it.
                 int active, image *screen)
{
  if (strlen(format)<strlen(new_data))
    data=(char *)realloc(data,strlen(new_data));

  strcpy(data,new_data);
  if (new_cursor!=-1)
    cur=new_cursor;
  draw_first(screen);
  draw(active,screen);
}

char *text_field::read()
{
  while (*data && data[strlen(data)-1]==' ') data[strlen(data)-1]=0;
  return data;
}

void text_field::handle_event(Event &ev, image *screen, InputManager *im)
{
  int xx;
  if (ev.type==EV_KEY)
  {
    switch (ev.key)
    {
      case JK_LEFT : if (cur) { draw_cur(wm->dark_color(),screen); cur--;
                           draw_cur(wm->bright_color(),screen); } break;
      case JK_RIGHT : if (cur<(int)strlen(format)-1) { draw_cur(wm->dark_color(),screen); cur++;
                           draw_cur(wm->bright_color(),screen); } break;
      case JK_END : if (cur!=last_spot())
                          { draw_cur(wm->dark_color(),screen); cur=last_spot();
                            if (cur==(int)strlen(format)-1) cur--;
                           draw_cur(wm->bright_color(),screen); } break;
      case JK_HOME : if (cur)
                          { draw_cur(wm->dark_color(),screen); cur=0;
                           draw_cur(wm->bright_color(),screen); } break;
      case JK_BACKSPACE : if (cur)
         { draw_cur(wm->dark_color(),screen); cur--;
           for (xx=cur; xx<(int)strlen(format)-1; xx++)
             data[xx]=data[xx+1];
           data[strlen(format)-1]=' ';
           draw_text(screen);
           draw_cur(wm->bright_color(),screen);
           wm->Push(new Event(id,(char *)this));
         } break;
      default : if (ev.key>=' ' && ev.key<='~')
         {
           draw_cur(wm->dark_color(),screen);
           for (xx=strlen(format)-1; xx>cur && xx>0; xx--)
             data[xx]=data[xx-1];
           data[cur]=ev.key;
           if (cur<(int)strlen(format)-1)
             cur++;
       data[strlen(format)]=0;
           draw_text(screen);
           draw_cur(wm->bright_color(),screen);
           wm->Push(new Event(id,(char *)this));
         } break;
    }
  }
}

void text_field::draw(int active, image *screen)
{
  if (active)
  {
    screen->Rectangle(vec2i(xstart(), m_pos.y), vec2i(xend(), yend()),
                      wm->bright_color());
    draw_cur(wm->bright_color(),screen);
  }
  else
  {
    screen->Rectangle(vec2i(xstart(), m_pos.y), vec2i(xend(), yend()),
                      wm->dark_color());
    draw_cur(wm->dark_color(),screen);
  }
}

void text_field::area(int &x1, int &y1, int &x2, int &y2)
{
    x1 = m_pos.x; y1 = m_pos.y;
    x2 = xend(); y2 = yend();
}

text_field::text_field(int X, int Y, int ID, char const *Prompt,
                       char const *Format, char const *Data, ifield *Next)
{
    int slen=(strlen(Format)>strlen(Data) ? strlen(Format) : strlen(Data));

    m_pos = vec2i(X, Y);
    id=ID;
    prompt = strdup(Prompt);
    format=strcpy((char *)malloc(slen+1),Format);
    data=strcpy((char *)malloc(slen+1),Data);
    cur=strlen(data);
    while (cur && data[cur-1]==' ') cur--;
    next=Next;
}

text_field::text_field(int X, int Y, int ID, char const *Prompt,
                       char const *Format, double Data, ifield *Next)
{
  char num[20];
  sprintf(num,"%g",Data);
  int slen=(strlen(Format)>strlen(num) ? strlen(Format) : strlen(num));
  m_pos = vec2i(X, Y); id=ID;
  prompt = strdup(Prompt);
  format=strcpy((char *)malloc(slen+1),Format);
  data=strcpy((char *)malloc(slen+1),num);
  cur=strlen(num);
  while (cur && data[cur-1]==' ') cur--;
  next=Next;
}


void button::push()
{ up=!up; }

void button::handle_event(Event &ev, image *screen, InputManager *im)
{
  if ((ev.type==EV_KEY && ev.key==13) || (ev.type==EV_MOUSE_BUTTON &&
                                         ev.mouse_button))
  {
    int  x1,y1,x2,y2;
    area(x1,y1,x2,y2);
    up=!up;
    draw_first(screen);
    draw(act,screen);
    wm->Push(new Event(id,(char *)this));
  }
}

void button::draw(int active, image *screen)
{
  int x1,y1,x2,y2,color=(active ? wm->bright_color() : wm->medium_color());
  area(x1,y1,x2,y2);
  if (active!=act  && act_id!=-1 && active)
    wm->Push(new Event(act_id,NULL));

  if (pressed)
  {
    if (up)
    {
      if (!active)
        screen->PutImage(visual, m_pos);
      else
        screen->PutImage(pressed, m_pos);
    } else screen->PutImage(act_pict, m_pos);
  }
  else
  {
    screen->Rectangle(vec2i(x1 + 2, y1 + 2), vec2i(x2 - 2, y2 - 2), color);
    act = active;
  }
}

void button::draw_first(image *screen)
{
    if (pressed)
    {
        draw(0, screen);
        return;
    }

    int x1,y1,x2,y2;
    area(x1,y1,x2,y2);

    if (up)
    {
      screen->Rectangle(vec2i(x1, y1), vec2i(x2, y2), wm->black());
//      screen->widget_bar(,wm->bright_color(),wm->medium_color(),wm->dark_color());
      screen->WidgetBar(vec2i(x1 + 1, y1 + 1), vec2i(x2 - 1, y2 - 1),
                        wm->bright_color(),wm->medium_color(),wm->dark_color());
    }
    else
    {
      screen->Line(vec2i(x1, y1), vec2i(x2, y1), wm->dark_color());
      screen->Line(vec2i(x1, y1), vec2i(x1, y2), wm->dark_color());
      screen->Line(vec2i(x2, y1 + 1), vec2i(x2, y2), wm->bright_color());
      screen->Line(vec2i(x1 + 1, y2), vec2i(x2, y2), wm->bright_color());
      screen->Bar(vec2i(x1 + 1, y1 + 1), vec2i(x2 - 1, y2 - 1),
                  wm->medium_color());
    }

    if ((up && text) || (!up && !visual))
    {
        wm->font()->PutString(screen, m_pos + vec2i(4, 5), text, wm->black());
        wm->font()->PutString(screen, m_pos + vec2i(3, 4), text);
    }
    else if (up)
        screen->PutImage(visual, m_pos + vec2i(3, 3), 1);
    else
        screen->PutImage(visual, vec2i(x1 + 3, y1 + 3), 1);
}

void text_field::draw_first(image *screen)
{
  wm->font()->PutString(screen, m_pos + vec2i(0, 3), prompt);
  screen->Bar(vec2i(xstart(), m_pos.y), vec2i(xend(), yend()), wm->dark_color());
  wm->font()->PutString(screen, vec2i(xstart() + 1, m_pos.y + 3), data);
}


void text_field::draw_cur(int color, image *screen)
{
  screen->Bar(vec2i(xstart() + cur * wm->font()->Size().x + 1, yend() - 2),
              vec2i(xstart() + (cur + 1) * wm->font()->Size().x, yend() - 1),
              color);
}



info_field::info_field(int X, int Y, int ID, char const *info, ifield *Next)
{
  m_pos = vec2i(X, Y); id = ID; next = Next;
  text = strdup(info);
  w = -1;
}


void info_field::area(int &x1, int &y1, int &x2, int &y2)
{
  if (w==-1)     // if we haven't calculated this yet
  {
    int fw = wm->font()->Size().x, fh = wm->font()->Size().y, maxw = 0;
    char *info=text;
    for (w=fw,h=fh+1; *info; info++)
    {
      if (w>maxw) maxw=w;
      if (*info=='\n')
      {
    h+=fh+1;
    w=1;
      }
      else w+=fw;
    }
    w=maxw;
  }
  x1 = m_pos.x;
  y1 = m_pos.y;
  x2 = m_pos.x + w;
  y2 = m_pos.y + h;
}

void info_field::put_para(image *screen, char const *st, int dx, int dy,
              int xspace, int yspace, JCFont *font, int color)
{
  int ox=dx;
  while (*st)
  {
    if (*st=='\n')
    {
      dx=ox;
      dy+=yspace;
    }
    else
    {
      font->PutChar(screen, vec2i(dx, dy), *st, color);
      dx+=xspace;
    }
    st++;
  }
}

void info_field::draw_first(image *screen)
{
  put_para(screen, text, m_pos.x+1, m_pos.y+1, wm->font()->Size().x,
           wm->font()->Size().y, wm->font(), wm->black());
  put_para(screen, text, m_pos.x, m_pos.y, wm->font()->Size().x,
           wm->font()->Size().y, wm->font(), wm->bright_color());
}