source: abuse/trunk/src/director.cpp @ 17 Tweet

#include "director.hpp"
#include "game.hpp"
#include "lisp.hpp"
#include "fonts.hpp"

director scene_director;

void director::scroll_text(char *Text) 
{ text=Text; 
  text_y=the_game->first_view->cy2-the_game->first_view->cy1+1;
}

director::director()
{
  tleft=ttop=tright=tbottom=pan_xv=pan_yv=0;
  text_step=-2;
  frame_speed=100;
  scroll_speed=60;
  pan_speed=60;
  scene_abort=0;
}

extern unsigned char *white_light;



int text_draw(int y, int x1, int y1, int x2, int y2, char *buf, JCFont *font, uint8_t *cmap, char color)
{
  short cx1,cy1,cx2,cy2,word_size,word_len;
  screen->get_clip(cx1,cy1,cx2,cy2);
  screen->in_clip(x1,y1,x2,y2);  
  int h=font->height()+2,w=font->width(),x=x1,dist;
  y+=y1;
  char *word_start;

  while (buf && *buf)
  {
    do 
    {  
      if (*buf=='\\' && buf[1]=='n')
      {
        x=x1;
        y+=h*2;
        buf+=2;
      }
      
      // skip space
      if (*buf==' ' || *buf=='\r' || *buf=='\n' || *buf=='\t')
      {          
        x+=w;
        while (*buf==' ' || *buf=='\r' || *buf=='\n' || *buf=='\t')   // skip space until next word
          buf++;
      }

      word_start=buf;
      for (word_len=0,word_start=buf,word_size=0;*buf && *buf!=' ' && *buf!='\r' && *buf!='\n' && 
           *buf!='\t' && (*buf!='\\' || buf[1]!='n');buf++,word_size+=w,word_len++);
      
      if (word_size<x2-x1) // make sure the word can fit on the screen
      {
        if (word_size+x>x2)    // does word not fit on line?
        {
          y+=h;                // go to next line
          x=x1;      
        }
      }


      if (y+h<y1)         // word on screen yet?
        x+=word_size;

    } while (*buf && y+h<y1);     // if not on screen yet, fetch next word

    dist=31;
    if (y-y1<dist)
      if (y-y1<1) dist=0;
      else dist=y-y1;

    if (y2-y<dist)
      if (y2-y<1) dist=0;
      else dist=y2-y;         

    int c=cmap[dist];
    if (y>y2) { buf=NULL; } 
    else
    {
      while (word_len--)
      {
        font->put_char(screen,x+1,y+1,*word_start,0);
        font->put_char(screen,x,y,*word_start,c);
        word_start++;
        x+=w;      
      }
    }

  }
  screen->set_clip(cx1,cy1,cx2,cy2);
  return (y<=y1);  
}








void director::wait(void *arg)
{
  if (scene_abort) return ;
  pan_time=frame_time=text_time=NULL;
  int done=0;
  void *pan_symbol=make_find_symbol("pan"),
       *text_symbol=make_find_symbol("text");
      
  JCFont *font=eh->font();

  do
  {
    the_game->draw_map(the_game->first_view);
    time_marker cur_time;

    if (pan_steps)
    {
      if (pan_time)
      {
        if ((int)(cur_time.diff_time(pan_time)*1000)>pan_speed)
        {
          the_game->pan(pan_xv,pan_yv);
          pan_steps--;
          delete pan_time;
          if (pan_steps)
            pan_time=new time_marker;
          else pan_time=NULL;
        }
      } else pan_time=new time_marker;
    } else if (arg==pan_symbol) done=1;

    if (text)
    {
      if (text_draw(text_y,
                    the_game->first_view->cx1+tleft,
                    the_game->first_view->cy1+ttop,
                    the_game->first_view->cx2-tright,
                    the_game->first_view->cy2-tbottom,text,font,
                    white_light+32*256,
                    eh->bright_color()
                    
                    ))
        text=NULL;
      if (text_time)
      {
        if ((int)(cur_time.diff_time(text_time)*1000)>scroll_speed)
        {             
          text_y+=text_step;
          delete text_time;
          if (text)
            text_time=new time_marker;      
          else
            text_time=NULL;
        }
      } else text_time=new time_marker;     
    } else if (arg==text_symbol) done=1;
            
    eh->flush_screen();   
    while (eh->event_waiting())
    {   
      event ev;     
      eh->get_event(ev);
      if (ev.type==EV_KEY)
      {
        switch (ev.key)
        {
          case JK_UP :
          case JK_LEFT : 
          {
            if (scroll_speed>=20) 
            scroll_speed-=20; 
            else text_step--;
          }
          break;
          case JK_RIGHT :
          case JK_DOWN : 
          {
            if (text_step<-2)
            text_step++;
            else if (scroll_speed<200) scroll_speed+=20; 
            break;
            case JK_ESC : set_abort(1); done=1; break;
            case JK_ENTER : done=1; break;
          }           
        }         
      } 
    }          
  } while (!done);
  if (pan_time) delete pan_time;
  if (frame_time) delete frame_time;
  if (text_time) delete text_time;
}