Free Hero Mesh

*.gz
codepage.har

          if(tokent!=TF_CLOSE) ParseError("Expected close parenthesis\n");
          break;
        case OP_MISC4: define_user_flags(0x1000,0x101F); break;
        case OP_MISC5: define_user_flags(0x1020,0x103F); break;
        case OP_MISC6: define_user_flags(0x1040,0x105F); break;
        case OP_MISC7: define_user_flags(0x1060,0x107F); break;
        case OP_COLLISIONLAYERS: define_user_flags(0x1C80,0x1C87); break;
        case OP_CODEPAGE:
          nxttok();
          if(tokent!=TF_INT || tokenv<1 || tokenv>65535) ParseError("Number from 1 to 65535 expected\n");
          set_code_page(tokenv);
          nxttok();
          if(tokent!=TF_CLOSE) ParseError("Expected close parenthesis\n");
          break;
        default:
          ParseError("Invalid top level definition: %s\n",tokenstr);
      }
    } else {
      ParseError("Invalid top level definition\n");
    }
  }

  Set the limit for logical animations, from 1 to 255. The default is 32.

(Background <number> [<number>])
  Set the background colour, from 0 to 255. The default value is 1. You
  can optionally specify a second number, which is the background colour
  for the inventory; if not specified, uses the same colour for both.

(CodePage <number>)
  Define the code page, from 1 to 65535. If not specified, then the
  default code page is used.

(CollisionLayers <userflags...>)
  Define user flags as CollisionLayers bits; the first defined flag is
  bit0. Up to 8 flags can be defined in this way.

(Misc4 <userflags...>)
  Define user flags as Misc4 bits; the first defined flag is bit0. Up to
  32 flags can be defined in this way.

.autoSave
  If true, saves changes to the level and solution files when the program
  terminates. If false (default), they are only saved to the user cache
  database; to copy the changes to the level and solution files, you must
  use the .u command in SQL mode (-x).

.codepage
  The path to the code page file. If not specified, then code pages other
  than 437 are not available (code page 437 is built-in).

.editTitle
  The window title to use in edit mode. A tilde is replaced by the name of
  the puzzle set.

.gameTitle
  The window title to use in game mode. A tilde is replaced by the name of
  the puzzle set.

! Hero Mesh configuration settings
?.screenWidth: 800
?.screenHeight: 600
?.imageSize: 24
?.traceAll: true
?.showInventory: 0
?.maxTrigger: 32767
?.pasteCommand: xclip -o
?.codepage: /home/user/freeheromesh/codepage.har

! Game inputs
?.gameKey.A: 'A
?.gameKey.B: 'B
?.gameKey.C: 'C
?.gameKey.D: 'D
?.gameKey.E: 'E

extern SDL_Surface*screen;
extern Uint16 picture_size;
extern int left_margin;

void init_palette(void);
void init_screen(void);
void load_pictures(void);
void set_code_page(Uint16 n);

// Use only when screen is unlocked
void draw_picture(int x,int y,Uint16 img);
void draw_cell(int x,int y);

// Use only when screen is locked
void draw_text(int x,int y,const unsigned char*t,int bg,int fg);

MoveNumber
Level
Key
=Finished

; Class definitions
-Background ; used at top level only; not in a class
-CodePage ; used at top level only; not in a class
-Input
-Quiz
-InPlace
-DefaultImage
-Help
-EditorHelp
-SUBS

#define OP_ARG3_E 36987
#define OP_MOVENUMBER 32892
#define OP_LEVEL 32893
#define OP_KEY 32894
#define OP_FINISHED 32895
#define OP_FINISHED_E 36991
#define OP_BACKGROUND 32896
#define OP_CODEPAGE 32897
#define OP_INPUT 32898
#define OP_QUIZ 32899
#define OP_INPLACE 32900
#define OP_DEFAULTIMAGE 32901
#define OP_HELP 32902
#define OP_EDITORHELP 32903
#define OP_SUBS 32904
#define OP_ANIMATE 32905
#define OP_ANIMATEDEAD 32906
#define OP_ASSASSINATE 32907
#define OP_ASSASSINATE_C 34955
#define OP_BROADCAST 32908
#define OP_BROADCAST_D 41100
#define OP_BROADCASTCLASS 32909
#define OP_BROADCASTEX 32910
#define OP_BROADCASTEX_D 41102
#define OP_BROADCASTSUM 32911
#define OP_BROADCASTSUMEX 32912
#define OP_CHAIN 32913
#define OP_CHEBYSHEV 32914
#define OP_CHEBYSHEV_C 34962
#define OP_COLOC 32915
#define OP_COLOC_C 34963
#define OP_CREATE 32916
#define OP_CREATE_D 41108
#define OP_DELINVENTORY 32917
#define OP_DELTA 32918
#define OP_DESTROY 32919
#define OP_DESTROY_C 34967
#define OP_DESTROY_D 41111
#define OP_DESTROY_CD 43159
#define OP_FLUSHCLASS 32920
#define OP_FLUSHOBJ 32921
#define OP_FLUSHOBJ_C 34969
#define OP_GETINVENTORY 32922
#define OP_HEIGHTAT 32923
#define OP_IGNOREKEY 32924
#define OP_INTMOVE 32925
#define OP_INTMOVE_C 34973
#define OP_INTMOVE_D 41117
#define OP_INTMOVE_CD 43165
#define OP_JUMPTO 32926
#define OP_JUMPTO_C 34974
#define OP_JUMPTO_D 41118
#define OP_JUMPTO_CD 43166
#define OP_LOC 32927
#define OP_LOC_C 34975
#define OP_LOCATEME 32928
#define OP_LOSELEVEL 32929
#define OP_MANHATTAN 32930
#define OP_MANHATTAN_C 34978
#define OP_MAXINVENTORY 32931
#define OP_MOVE 32932
#define OP_MOVE_C 34980
#define OP_MOVE_D 41124
#define OP_MOVE_CD 43172
#define OP_MOVEPLUS 32933
#define OP_MOVEPLUS_C 34981
#define OP_MOVEPLUS_D 41125
#define OP_MOVEPLUS_CD 43173
#define OP_MOVETO 32934
#define OP_MOVETO_C 34982
#define OP_MOVETO_D 41126
#define OP_MOVETO_CD 43174
#define OP_PLUSMOVE 32935
#define OP_PLUSMOVE_C 34983
#define OP_PLUSMOVE_D 41127
#define OP_PLUSMOVE_CD 43175
#define OP_MINUSMOVE 32936
#define OP_MINUSMOVE_C 34984
#define OP_MINUSMOVE_D 41128
#define OP_MINUSMOVE_CD 43176
#define OP_NEWX 32937
#define OP_NEWXY 32938
#define OP_NEWY 32939
#define OP_OBJABOVE 32940
#define OP_OBJABOVE_C 34988
#define OP_OBJBELOW 32941
#define OP_OBJBELOW_C 34989
#define OP_OBJBOTTOMAT 32942
#define OP_OBJCLASSAT 32943
#define OP_OBJDIR 32944
#define OP_OBJDIR_C 34992
#define OP_OBJLAYERAT 32945
#define OP_OBJMOVINGTO 32946
#define OP_OBJTOPAT 32947
#define OP_POPUP 32948
#define OP_POPUPARGS 32949
#define OP_REL 32950
#define OP_REL_C 34998
#define OP_SEEK 32951
#define OP_SEEK_C 34999
#define OP_SEND 32952
#define OP_SEND_C 35000
#define OP_SEND_D 41144
#define OP_SEND_CD 43192
#define OP_SENDEX 32953
#define OP_SENDEX_C 35001
#define OP_SENDEX_D 41145
#define OP_SENDEX_CD 43193
#define OP_SETINVENTORY 32954
#define OP_SOUND 32955
#define OP_SYNCHRONIZE 32956
#define OP_TARGET 32957
#define OP_TARGET_C 35005
#define OP_TRACE 32958
#define OP_VOLUMEAT 32959
#define OP_WINLEVEL 32960
#define OP_XDIR 32961
#define OP_XDIR_C 35009
#define OP_XYDIR 32962
#define OP_YDIR 32963
#define OP_YDIR_C 35011
#define OP_MARK 32964
#define OP_TMARK 32965
#define OP_IN 32966
#define OP_NIN 32967
#define OP_MBEGIN 32968
#define OP_FLIP 32969
#define OP_ARRAY 32970
#define OP_GETARRAY 32971
#define OP_INITARRAY 32972
#define OP_SETARRAY 32973
#define OP_ARRAYCELL 32974
#define OP_ARRAYSLICE 32975
#define OP_COPYARRAY 32976
#define OP_DOTPRODUCT 32977
#define OP_PATTERN 32978
#define OP_PATTERN_C 35026
#define OP_PATTERN_E 37074
#define OP_PATTERN_EC 39122
#define OP_PATTERNS 32979
#define OP_PATTERNS_C 35027
#define OP_PATTERNS_E 37075
#define OP_PATTERNS_EC 39123
#define OP_FOUR 32980
#define OP_EIGHT 32981
#define OP_CUT 32982
#define OP_FUNCTION 32983
#define OP_LOCAL 32984
#define OP_LABEL 32985
#define OP_STRING 32986
#define OP_INT16 32987
#define OP_INT32 32988
#define OP_DISPATCH 32989
#define OP_USERFLAG 32990
#ifdef HEROMESH_CLASS
static const Op_Names op_names[]={
{"*",8486937},
{"+",8421399},
{"+Move",10584231},
{"-",8421400},
{"-Move",10584232},
{"-rot",8421382},
{".",10518528},
{"/",8486938},
{"ANHH",8389394},
{"ARRIVED",8389124},
{"Animate",8421513},
{"AnimateDead",8421514},
{"Arg1",8552569},
{"Arg2",8552570},
{"Arg3",8552571},
{"Array",8683722},
{"ArrayCell",8421582},
{"ArraySlice",8421583},
{"Arrivals",8618086},
{"Arrived",8618084},
{"Assassinate",8487051},
{"B",9437196},
{"BANG",8389380},
{"BEDOINGNG",8389406},
{"BEEDEEP",8389404},
{"BEGIN_TURN",8389123},
{"BLOCKED",8389144},
{"BOOOM",8389410},
{"BOUNCE",8389415},
{"BRRREEET",8389396},
{"BRRRT",8389395},
{"BUZZER",8389420},
{"BWEEP",8389397},
{"Background",8683648},
{"Broadcast",10518668},
{"BroadcastEx",10518670},
{"BroadcastSum",8421519},
{"BroadcastSumEx",8421520},
{"Busy",8618088},
{"CHEEP",8389393},
{"CHYEW",8389392},
{"CLICK",8389388},
{"COLLIDE",8389142},
{"COLLIDEBY",8389141},
{"COLLIDING",8389143},
{"CONFLICT",8389140},
{"CREATE",8389121},
{"CREATED",8389137},
{"Chebyshev",8487058},
{"Class",8486970},
{"Climb",9142350},
{"CodePage",8683649},
{"CollisionLayers",8487029},
{"Coloc",8487059},
{"Compatible",8487028},
{"CopyArray",8421584},
{"Create",10518676},
{"DEEP_POP",8389417},
{"DEPARTED",8389125},
{"DESTROY",8389122},
{"DESTROYED",8389136},
{"DINK",8389390},
{"DOOR",8389378},
{"DRLRLRINK",8389398},
{"DYUPE",8389413},
{"DefaultImage",8683653},
{"DelInventory",8421525},
{"Delta",8421526},
{"Density",9142342},
{"Departed",8618085},
{"Departures",8618087},
{"Destroy",10584215},
{"Destroyed",8487026},
{"Dir",8618048},
{"Distance",9142340},
{"Done",8618097},
{"DotProduct",8421585},
{"E",9437184},
{"END_TURN",8389139},
{"EditorHelp",8683655},
{"Eight",8683733},
{"F",9437192},
{"FAROUT",8389421},
{"FFFFTT",8389399},
{"FLOATED",8389132},
{"FROG",8389383},
{"Finished",8552575},
{"FlushClass",8421528},
{"FlushObj",8487065},
{"Four",8683732},
{"From",8421496},
{"GLASS",8389379},
{"GLISSANT",8389419},
{"GetArray",8421579},
{"GetInventory",8421530},
{"HAWK",8389425},
{"HEARTBEAT",8389407},
{"HIT",8389134},
{"HITBY",8389135},
{"Hard",8618066},
{"Height",9142348},
{"HeightAt",8421531},
{"Help",8683654},
{"INIT",8389120},
{"IgnoreKey",8421532},
{"Image",8618049},
{"InPlace",8683652},
{"Inertia",9142338},
{"InitArray",8421580},
{"Input",8683650},
{"IntMove",10584221},
{"Invisible",8618089},
{"JAYAYAYNG",8389416},
{"JUMPED",8389128},
{"JumpTo",10584222},
{"KEWEL",8389422},
{"KEY",8389129},
{"KLECK",8389387},
{"KLINKK",8389385},
{"Key",8421502},
{"KeyCleared",8618090},
{"L",9437194},
{"LASTIMAGE",8389126},
{"LB",9437195},
{"LF",9437193},
{"LOCK",8389408},
{"LOOP",8388610},
{"Level",8421501},
{"Loc",8487071},
{"LocateMe",8421536},
{"LoseLevel",8421537},
{"MOVED",8389127},
{"MOVING",8389130},
{"Manhattan",8487074},
{"MaxInventory",8421539},
{"Misc1",9142358},
{"Misc2",9142360},
{"Misc3",9142362},
{"Misc4",9142364},
{"Misc5",9142366},
{"Misc6",9142368},
{"Misc7",9142370},
{"Move",10584228},
{"Move+",10584229},
{"MoveNumber",8421500},
{"MoveTo",10584230},
{"Moved",8618095},
{"Moving",8618096},
{"Msg",8421495},
{"N",9437186},
{"NE",9437185},
{"NW",9437187},
{"NewX",8421545},
{"NewXY",8421546},
{"NewY",8421547},
{"OLDPHONE",8389402},
{"ONCE",8388609},
{"OSC",8388616},
{"OSCLOOP",8388618},
{"ObjAbove",8487084},
{"ObjBelow",8487085},
{"ObjBottomAt",8421550},
{"ObjClassAt",8421551},
{"ObjDir",8487088},
{"ObjLayerAt",8421553},
{"ObjMovingTo",8421554},
{"ObjTopAt",8421555},
{"P",8880338},
{"P*",8880339},
{"PLAYERMOVING",8389133},
{"POSTINIT",8389138},
{"POUR",8389377},
{"POWER",8389386},
{"Player",8487027},
{"PopUp",8421556},
{"Quiz",8683651},
{"R",9437198},
{"RATCHET1",8389418},
{"RATCHET2",8389412},
{"RATTLE",8389403},
{"RB",9437197},
{"RF",9437199},
{"Rel",8487094},
{"S",9437190},
{"SE",9437191},
{"SMALL_POP",8389389},
{"SPLASH",8389376},
{"STEAM",8389424},
{"STOP",8388608},
{"SUBS",8683656},
{"SUNK",8389131},
{"SW",9437189},
{"Seek",8487095},
{"Self",8421494},
{"Send",10584248},
{"SendEx",10584249},
{"SetArray",8421581},
{"SetInventory",8421562},
{"Shape",8618045},
{"ShapeDir",8618068},
{"Sharp",8618067},
{"Shovable",8618069},
{"Sound",8421563},
{"Stealthy",8618094},
{"Strength",9142352},
{"Synchronize",8421564},
{"TAHTASHH",8389409},
{"THMP_thmp",8389405},
{"THWIT",8389384},
{"TICK",8389391},
{"Target",8487101},
{"Temperature",9142331},
{"Trace",8421566},
{"UH_OH",8389382},
{"UNCORK",8389414},
{"UNHH",8389381},
{"UserSignal",8618091},
{"UserState",8618092},
{"VACUUM",8389411},
{"VisualOnly",8618093},
{"Volume",9142344},
{"VolumeAt",8421567},
{"W",9437188},
{"WAHOO",8389400},
{"WHACK",8389423},
{"Weight",9142346},
{"WinLevel",8421568},
{"XDir",8487105},
{"XYDir",8421570},
{"Xloc",8486974},
{"YDir",8487107},
{"YEEHAW",8389401},
{"Yloc",8486975},
{"_",8421572},
{"a?",8421433},
{"again",8683534},
{"band",8421409},
{"begin",8683533},
{"bit",8683557},
{"bit0",8388609},
{"bit1",8388610},

{"bit7",8388736},
{"bit8",8423400},
{"bit9",8423401},
{"bnot",8421412},
{"bor",8421410},
{"bxor",8421411},
{"c?",8421427},
{"chain",8421521},
{"cut",8683734},
{"cz?",8421428},
{"dup",8421377},
{"el",8683532},
{"else",8683530},
{"eq",8421418},
{"eq2",8421419},
{"flip",8421577},
{"for",8683538},
{"ge",8486959},
{"gt",8486957},
{"if",8683529},
{"in",8421574},
{"is",8421425},
{"land",8421414},
{"le",8486960},
{"lnot",8421417},
{"lor",8421415},
{"lsh",8421407},
{"lt",8486958},
{"lxor",8421416},
{"m?",8421429},
{"max",8486942},
{"mbegin",8683720},
{"min",8486941},
{"mod",8486939},
{"n?",8421426},
{"ne",8421420},
{"neg",8421404},
{"next",8683539},
{"nin",8421575},
{"nip",8421379},
{"o?",8421431},
{"over",8421384},
{"oz?",8421432},
{"pick",8421383},
{"repeat",8683537},
{"ret",8421398},
{"rot",8421381},
{"rsh",8486944},
{"s?",8421430},
{"swap",8421378},
{"then",8683531},
{"tmark",8421573},
{"tuck",8421380},
{"until",8683535},
{"while",8683536},
};
#define N_OP_NAMES 323
#endif

static const unsigned char pcfont[2048]={
0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x7e, 0x81, 0xa5, 0x81, 0xbd, 0x99,
0x81, 0x7e, 0x7e, 0xff, 0xdb, 0xff, 0xc3, 0xe7, 0xff, 0x7e, 0x6c, 0xfe,
0xfe, 0xfe, 0x7c, 0x38, 0x10, 0x0, 0x10, 0x38, 0x7c, 0xfe, 0x7c, 0x38,
0x10, 0x0, 0x38, 0x7c, 0x38, 0xfe, 0xfe, 0x7c, 0x38, 0x7c, 0x10, 0x10,
0x38, 0x7c, 0xfe, 0x7c, 0x38, 0x7c, 0x0, 0x0, 0x18, 0x3c, 0x3c, 0x18, 0x0,
0x0, 0xff, 0xff, 0xe7, 0xc3, 0xc3, 0xe7, 0xff, 0xff, 0x0, 0x3c, 0x66, 0x42,
0x42, 0x66, 0x3c, 0x0, 0xff, 0xc3, 0x99, 0xbd, 0xbd, 0x99, 0xc3, 0xff, 0xf,

SDL_Surface*screen;
Uint16 picture_size;
int left_margin;

static SDL_Surface*picts;
static Uint8*curpic;
static const unsigned char*fontdata;

static const char default_palette[]=
  "C020FF "
  "000000 222222 333333 444444 555555 666666 777777 888888 999999 AAAAAA BBBBBB CCCCCC DDDDDD EEEEEE FFFFFF "
  "281400 412300 5F3200 842100 A05000 C35F14 E1731E FF8232 FF9141 FFA050 FFAF5F FFBE73 FFD282 FFE191 FFF0A0 "
  "321E1E 412220 5F2830 823040 A03A4C BE4658 E15464 FF6670 FF7F7B FF8E7F FF9F7F FFAF7F FFBF7F FFCF7F FFDF7F "
  "280D0D 401515 602020 802A2A A03535 C04040 E04A4A FF5555 FF6764 FF6F64 FF7584 FF849D FF94B7 FF9FD1 FFAEEA "

  fprintf(stderr,"Done\n");
}

void init_screen(void) {
  const char*v;
  int w,h,i;
  if(main_options['x']) return;
  if(!fontdata) fontdata=pcfont;
  optionquery[1]=Q_screenWidth;
  w=strtol(xrm_get_resource(resourcedb,optionquery,optionquery,2)?:"800",0,10);
  optionquery[1]=Q_screenHeight;
  h=strtol(xrm_get_resource(resourcedb,optionquery,optionquery,2)?:"600",0,10);
  optionquery[1]=Q_screenFlags;
  v=xrm_get_resource(resourcedb,optionquery,optionquery,2)?:"";
  if(SDL_Init(SDL_INIT_VIDEO|(strchr(v,'z')?SDL_INIT_NOPARACHUTE:0)|SDL_INIT_TIMER)) fatal("Error initializing SDL: %s\n",SDL_GetError());

  } else {
    SDL_EnableKeyRepeat(SDL_DEFAULT_REPEAT_DELAY,SDL_DEFAULT_REPEAT_INTERVAL);
  }
  SDL_EnableUNICODE(1);
  optionquery[1]=Q_margin;
  left_margin=strtol(xrm_get_resource(resourcedb,optionquery,optionquery,2)?:"65",0,10);
}

void set_code_page(Uint16 n) {
  int c,i,j,s;
  const char*v;
  unsigned char*d;
  Uint8 b[32];
  FILE*fp;
  if(!n) return;
  if(fontdata && fontdata!=pcfont) fatal("Multiple code page specifications\n");
  optionquery[1]=Q_codepage;
  v=xrm_get_resource(resourcedb,optionquery,optionquery,2);
  if(!v || !*v) {
    if(n==437) return;
    fatal("Cannot load code page %d; code page file is not configured\n",n);
  }
  fp=fopen(v,"r");
  if(!fp) {
    perror(0);
    fatal("Cannot open code page file\n");
  }
  fontdata=d=malloc(0x800);
  if(!d) fatal("Allocation failed\n");
  memcpy(d,pcfont,0x800);
  name:
  s=i=0;
  for(;;) {
    c=fgetc(fp);
    if(c<0) {
      if(n!=437) fatal("Cannot find code page %d\n",n);
      goto done;
    }
    if(!c) break;
    if(!s) {
      if(c<'0' || c>'9') s=1;
      else if(c=='0' && !i) s=1;
      else i=10*i+c-'0';
      if(i>65535) s=1;
    }
  }
  if(s || i!=n) goto skip;
  i=fgetc(fp)<<16;
  i|=fgetc(fp)<<24;
  i|=fgetc(fp)<<0;
  i|=fgetc(fp)<<8;
  if(i==0x800) {
    fread(d,8,256,fp);
    goto done;
  } else if(i==0x400) {
    fread(d+0x400,8,128,fp);
  } else if(i<32 || i>0x800) {
    fatal("Unrecognized format of code page %d\n",n);
  } else {
    fread(b,32,1,fp);
    for(s=0;s<256;s++) if(!(b[s>>3]&(1<<(s&7)))) {
      if(c=fgetc(fp)) {
        i=fgetc(fp);
        if(i&~255) fatal("Error reading data for character %d in code page %d\n",s,n);
        if(i!=s) memcpy(d+s*8,d+i*8,8);
      }
      for(j=0;j<8;j++) if(!(c&(1<<j))) d[j+s*8]=fgetc(fp);
    }
  }
  memset(d,0,8);
  goto done;
  skip:
  i=fgetc(fp)<<16;
  i|=fgetc(fp)<<24;
  i|=fgetc(fp)<<0;
  i|=fgetc(fp)<<8;
  fseek(fp,i,SEEK_CUR);
  goto name;
  done:
  fclose(fp);
}

// Widgets

static void draw_scrollbar(int*cur,int page,int max,int x0,int y0,int x1,int y1) {
  Uint8*pix=screen->pixels;
  Uint16 pitch=screen->pitch;
  int x,y,m0,m1;

traceAll
traceObject
showInventory
progress
autoSave
maxTrigger
pasteCommand
codepage

#define Q_traceAll 182
#define Q_traceObject 183
#define Q_showInventory 184
#define Q_progress 185
#define Q_autoSave 186
#define Q_maxTrigger 187
#define Q_pasteCommand 188
#define Q_codepage 189
static const char*const global_quarks[]={
  "screenWidth",
  "screenHeight",
  "margin",
  "palette",
  "popupColors",
  "imageSize",

  "traceAll",
  "traceObject",
  "showInventory",
  "progress",
  "autoSave",
  "maxTrigger",
  "pasteCommand",
  "codepage",
0};
#ifdef HEROMESH_BINDINGS
static const SDLKey quark_to_key[Q_undo+1-Q_backspace]={
SDLK_BACKSPACE,
SDLK_TAB,
SDLK_CLEAR,
SDLK_RETURN,