Free Hero Mesh

'^Q'
  Quit.

'^Y'
  Sound test. (Does nothing if sound is not configured.)

'^l' <location>
  Draw lines horizontal, vertical, and diagonal, from the clicked location,
  until the mouse button is released.

'go' <level>
  Go to the specified level. If the level number is negative, then it is
  a level order number, otherwise it is a level ID number.


=== Mode-independent commands ===

?.?.ctrl.G: select 'go',-:Go_To_Level where :Go_To_Level=cast(:Go_To_Level as int) and cast(:Go_To_Level as int)>0;
?.?.ctrl.Q: ^Q
?.?.ctrl.S: ^S
?.?.ctrl.T: ^T
?.?.ctrl.Y: ^Y
?.?.shift.ctrl.M: select ':s';
?.?.f10: select ':x';
?.?.ctrl.middle: ^l

! Picture editor macros
?.picedit.macro.M: insert into graph(x,y,c) select s-x-1,y,c from graph where x<s/2;

      return 0;
    case '^c': // Select class/image
      class_image_select();
      return 0;
    case '^e': // Edit Misc/Dir of MRU slot
      mru_edit(mru+curmru);
      return 0;
    case '^l': // Draw lines from location
      draw_lines(number%64?:64,number/64);
      return prev;
    case '^s': // String list/edit
      string_list();
      return 0;
    case '^u': // Add object (allow duplicates)
      if(prev) return prev;
      add_object_at(number&63?:64,number/64?:64,mru+curmru,0);
      return 0;

Mouse (in grid):

  LEFT          Add object
  CTRL+LEFT     Edit Misc/Dir of object
  ALT+LEFT      Add object (allow duplicate)
  SHIFT+LEFT    Set top corner of selection rectangle
  CTRL+MIDDLE   Show lines
  ALT+MIDDLE    Set Misc2/Misc3 of MRU to X/Y
  SHIFT+MIDDLE  Make 1x1 selection rectangle
  RIGHT         Delete object
  CTRL+RIGHT    Copy object to MRU
  SHIFT+RIGHT   Set bottom corner of selection rectangle

      sound_test();
      return prev;
    case '^d': // Describe object
      describe_at(number-65);
      return prev;
    case '^g': // Display global variables
      global_examine();
      return prev;
    case '^l': // Draw lines from location
      timerflag=1;
      draw_lines(number%64?:64,number/64);
      return prev;
    case '^n': // List objects (bizarro)
      list_objects_at(number-65,bizplayfield,"bizarro ");
      return prev;
    case '^o': // List objects
      list_objects_at(number-65,playfield,"");
      return prev;

  SHIFT+DEL   Delete moves up to mark
  SHIFT+num   Save state 1 to 8
  CTRL+num    Load state 1 to 8
  ALT+num     Exchange state 1 to 8

Mouse (in grid):

  SHIFT+LEFT   Attempt to move player
  MIDDLE       Describe topmost object
  CTRL+MIDDLE  Show lines
  RIGHT        Inspect objects (main world)
  SHIFT+RIGHT  Inspect objects (bizarro world)

const char*screen_prompt(const char*txt);
int screen_message(const char*txt);

int scrollbar(int*cur,int page,int max,SDL_Event*ev,SDL_Rect*re);

void draw_popup(const unsigned char*txt);
int modal_draw_popup(const unsigned char*txt);

void draw_lines(int x,int y);

// == class ==

#define CF_PLAYER 0x01
#define CF_INPUT 0x02
#define CF_COMPATIBLE 0x04
#define CF_QUIZ 0x08

            return 0;
        }
        break;
    }
  }
  return -1;
}

void draw_lines(int x,int y) {
  Uint8*pix;
  int pitch;
  SDL_Event ev;
  int xx=(x-1)*picture_size+left_margin+picture_size/2;
  int yy=(y-1)*picture_size+picture_size/2;
  set_cursor(XC_cross_reverse);
  if(xx>0 && yy>0 && xx<screen->w && yy<screen->h) {
    SDL_LockSurface(screen);
    pix=screen->pixels;
    pitch=screen->pitch;
    // Diagonal
    for(y=0;y<screen->h;y++) {
      x=xx-yy+y;
      if(x>1 && x<screen->w-2) memcpy(pix+y*pitch+x-2,"\xF0\xF8\xF7\xF8\xF0",5);
      x=xx+yy-y;
      if(x>1 && x<screen->w-2) memcpy(pix+y*pitch+x-2,"\xF0\xF8\xF7\xF8\xF0",5);
    }
    // Vertical
    if(xx+2<screen->w) for(y=0;y<screen->h;y++) pix[y*pitch+xx+2]=0xF0;
    if(xx+1<screen->w) for(y=0;y<screen->h;y++) pix[y*pitch+xx+1]=0xF8;
    for(y=0;y<screen->h;y++) pix[y*pitch+xx]=0xF7;
    if(xx-1>0) for(y=0;y<screen->h;y++) pix[y*pitch+xx-1]=0xF8;
    if(xx-2>0) for(y=0;y<screen->h;y++) pix[y*pitch+xx-2]=0xF0;
    // Horizontal
    if(yy+2<screen->h) memset(pix+(yy+2)*pitch,0xF0,screen->w);
    if(yy+1<screen->h) memset(pix+(yy+1)*pitch,0xF8,screen->w);
    memset(pix+yy*pitch,0xF7,screen->w);
    if(yy-1>0) memset(pix+(yy-1)*pitch,0xF8,screen->w);
    if(yy-2>0) memset(pix+(yy-2)*pitch,0xF0,screen->w);
    SDL_UnlockSurface(screen);
  }
  SDL_Flip(screen);
  while(SDL_WaitEvent(&ev)) switch(ev.type) {
    case SDL_KEYDOWN: case SDL_MOUSEBUTTONDOWN:
    case SDL_KEYUP: case SDL_MOUSEBUTTONUP:
      return;
    case SDL_QUIT:
      SDL_PushEvent(&ev);
      return;
  }
}

static Uint16 decide_picture_size(int nwantsize,const Uint8*wantsize,const Uint16*havesize,int n) {
  int i,j;
  if(!nwantsize) fatal("Unable to determine what picture size is wanted\n");
  for(i=0;i<nwantsize;i++) if(havesize[j=wantsize[i]]==n) return j;
  for(i=*wantsize;i;--i) if(havesize[i]) return i;
  fatal("Unable to determine what picture size is wanted\n");