Free Hero Mesh

  a mark, then it is added like using Connect (if the object's flags
  allow it) and then the return value will be 2.

,FakeMove  ( obj dir -- result ) **
  Works like FakeMove but you can specify a different object instead of
  the current one.

FindConnection  ( link -- result ) **
  Find all connected objects to this one, execute the link for all objects
  in the connected group (including this one), and then pushes zero. If
  any of the CONNECT messages return nonzero, then it will stop and then
  the result is that value instead, and won't execute the link at all. If
  this object doesn't have the Connection flag, or its other flags are not
  appropriate, then it just does nothing and the result is zero.

,FindConnection  ( obj link -- result ) **
  Similar to FindConnection but uses a specified object instead of
  necessarily using the current object. If the object is zero then it
  will do nothing and the result is zero.

Finished  ( -- number )
  Returns the value of an internal flag which tells it that the beginning
  and ending phases should be skipped. This is a 8-bit number; zero means
  don't skip them, and any other number means it does. When the game engine
  sets this automatically, it normally sets it to 1, but "-1 FlushClass"
  during the input phase sets it to 255. When you set this value by
  yourself, you can use any 8-bit number.

  Should use the ,Connect instruction to add additional objects to the
  connection group; it will then send this message to those objects too.
  If the return value is true, then the movement fails, and none of the
  objects in the group will move. The Inertia of this object is set
  automatically before calling this message; it can change the Inertia
  before returning if it wants a different value for Inertia. Arg1 is
  the number of objects in the group previously to this one, Arg2 is the
  direction of movement, and Arg3 is the total Weight so far. If this
  message is sent for FindConnection, then Arg3 is a mark instead, and
  the Inertia is not automatically changed.

CREATE
  Sent when the object is created by the Create instruction. This is done
  after the object is created, but before sending any other messages. The
  From is the object that created it. The return value will be used as the
  Arg3 of the SUNK and CREATED messages it might send if appropriate. From
  is the object which executed the Create instruction to create it.

  x&=0xFFFF;
  x|=x<<8; x&=0x00FF00FF;
  x|=x<<4; x&=0x0F0F0F0F;
  x|=x<<2; x&=0x33333333;
  x|=x<<1; x&=0x55555555;
  return x;
}

static Value v_find_connection(Uint32 xobj,Uint32 lnk,Uint32 obj,Uint16*code) {
  Object*o=objects[obj];
  Value v=NVALUE(0);
  Uint32 n;
  int i;
  int first=nconn;
  int last;
  if(nconn!=pconn) Throw("Improper nested connected move");
  if((o->oflags^OF_CONNECTION)&(OF_CONNECTION|OF_MOVING|OF_DESTROYED|OF_BIZARRO)) return NVALUE(0);
  add_connection(obj);
  for(i=first;i<nconn;i++) {
    o=objects[n=conn[i].obj];
    v=send_message(obj,n,MSG_CONNECT,NVALUE(i-first),NVALUE(objects[obj]->dir),UVALUE(0,TY_MARK));
    if(v_bool(v)) goto done;
    if(o->shovable&0xFF00) add_connection_shov(o);
  }
  last=pconn=nconn;
  for(i=first;i<last;i++) {
    StackReq(0,1);
    Push(OVALUE(conn[i].obj));
    if(lnk!=0xFFFF) execute_program(classes[lnk>>16]->codes,lnk&0xFFFF,xobj);
  }
  done:
  for(i=first;i<nconn;i++) {
    o=objects[conn[i].obj];
    o->oflags&=~OF_MOVING;
    if(conn[i].visual) o->oflags|=OF_VISUALONLY; else o->oflags&=~OF_VISUALONLY;
  }
  pconn=nconn=first;
  StackReq(0,1);
  return v;
}

// Here is where the execution of a Free Hero Mesh bytecode subroutine is executed.
#define NoIgnore() do{ changed=1; }while(0)
#define GetVariableOf(a,b) (i=v_object(Pop()),i==VOIDLINK?NVALUE(0):b(objects[i]->a))
#define GetVariableOrAttributeOf(a,b) (t2=Pop(),t2.t==TY_CLASS?NVALUE(classes[t2.u]->a):(i=v_object(t2),i==VOIDLINK?NVALUE(0):b(objects[i]->a)))
#define Numeric(a) do{ if((a).t!=TY_NUMBER) Throw("Type mismatch"); }while(0)
#define DivideBy(a) do{ Numeric(a); if(!(a).u) Throw("Division by zero"); }while(0)

    case OP_DUP: StackReq(1,2); t1=Pop(); Push(t1); Push(t1); break;
    case OP_EQ: StackReq(2,1); t2=Pop(); t1=Pop(); Push(NVALUE(v_equal(t1,t2)?1:0)); break;
    case OP_EQ2: StackReq(4,1); t4=Pop(); t3=Pop(); t2=Pop(); t1=Pop(); Push(NVALUE(v_equal(t1,t3)?(v_equal(t2,t4)?1:0):0)); break;
    case OP_EXEC: StackReq(1,0); t1=Pop(); i=convert_link(t1,obj,code); if(i==0xFFFF) return; code=classes[i>>16]->codes; ptr=i&0xFFFF; break;
    case OP_EXEC_C: StackReq(1,0); t1=Pop(); i=convert_link(t1,obj,code); if(i!=0xFFFF) execute_program(classes[i>>16]->codes,i&0xFFFF,obj); break;
    case OP_FAKEMOVE: NoIgnore(); StackReq(1,1); t1=Pop(); Numeric(t1); Push(NVALUE(fake_move_dir(obj,resolve_dir(obj,t1.u),0))); break;
    case OP_FAKEMOVE_C: NoIgnore(); StackReq(2,1); t1=Pop(); Numeric(t1); i=v_object(Pop()); if(i==VOIDLINK) Push(NVALUE(0)); else Push(NVALUE(fake_move_dir(i,resolve_dir(i,t1.u),0))); break;
    case OP_FINDCONNECTION: NoIgnore(); StackReq(1,1); t1=Pop(); t2=v_find_connection(obj,convert_link(t1,obj,code),obj,code); Push(t2); break;
    case OP_FINDCONNECTION_C: NoIgnore(); StackReq(2,1); t1=Pop(); i=v_object(Pop()); t2=(i==VOIDLINK)?NVALUE(0):v_find_connection(obj,convert_link(t1,obj,code),i,code); Push(t2); break;
    case OP_FINISHED: StackReq(0,1); Push(NVALUE(all_flushed)); break;
    case OP_FINISHED_E: StackReq(1,0); t1=Pop(); Numeric(t1); all_flushed=t1.u; break;
    case OP_FLIP: v_flip(); break;
    case OP_FLUSHCLASS: NoIgnore(); StackReq(1,0); t1=Pop(); if(t1.t==TY_CLASS) flush_class(t1.u); else if(t1.t==TY_NUMBER && t1.s==-1) flush_all(); else if(t1.t) Throw("Type mismatch"); break;
    case OP_FLUSHOBJ: NoIgnore(); flush_object(obj); break;
    case OP_FLUSHOBJ_C: NoIgnore(); StackReq(1,0); i=v_object(Pop()); if(i!=VOIDLINK) flush_object(i); break;
    case OP_FOR: NoIgnore(); StackReq(3,1); t3=Pop(); t2=Pop(); t1=Pop(); ptr=v_for(code,ptr,t1,t2,t3); break;

,Connect
.Create
Data
DelInventory
Delta
.,Destroy
,FakeMove
,FindConnection
FlushClass
,FlushObj
GetInventory
HeightAt
HitMe
IgnoreKey
.,IntMove ; move without initializing Inertia

#define OP_DELTA 32935
#define OP_DESTROY 32936
#define OP_DESTROY_C 34984
#define OP_DESTROY_D 41128
#define OP_DESTROY_CD 43176
#define OP_FAKEMOVE 32937
#define OP_FAKEMOVE_C 34985
#define OP_FINDCONNECTION 32938
#define OP_FINDCONNECTION_C 34986
#define OP_FLUSHCLASS 32939
#define OP_FLUSHOBJ 32940
#define OP_FLUSHOBJ_C 34988
#define OP_GETINVENTORY 32941
#define OP_HEIGHTAT 32942
#define OP_HITME 32943
#define OP_IGNOREKEY 32944
#define OP_INTMOVE 32945
#define OP_INTMOVE_C 34993
#define OP_INTMOVE_D 41137
#define OP_INTMOVE_CD 43185
#define OP_JUMPTO 32946
#define OP_JUMPTO_C 34994
#define OP_JUMPTO_D 41138
#define OP_JUMPTO_CD 43186
#define OP_LOC 32947
#define OP_LOC_C 34995
#define OP_LOCATEME 32948
#define OP_LOCATEME_C 34996
#define OP_LOSELEVEL 32949
#define OP_MANHATTAN 32950
#define OP_MANHATTAN_C 34998
#define OP_MAXINVENTORY 32951
#define OP_MORTON 32952
#define OP_MORTON_C 35000
#define OP_MOVE 32953
#define OP_MOVE_C 35001
#define OP_MOVE_D 41145
#define OP_MOVE_CD 43193
#define OP_MOVEPLUS 32954
#define OP_MOVEPLUS_C 35002
#define OP_MOVEPLUS_D 41146
#define OP_MOVEPLUS_CD 43194
#define OP_MOVETO 32955
#define OP_MOVETO_C 35003
#define OP_MOVETO_D 41147
#define OP_MOVETO_CD 43195
#define OP_PLUSMOVE 32956
#define OP_PLUSMOVE_C 35004
#define OP_PLUSMOVE_D 41148
#define OP_PLUSMOVE_CD 43196
#define OP_MINUSMOVE 32957
#define OP_MINUSMOVE_C 35005
#define OP_MINUSMOVE_D 41149
#define OP_MINUSMOVE_CD 43197
#define OP_NEWX 32958
#define OP_NEWXY 32959
#define OP_NEWY 32960
#define OP_OBJABOVE 32961
#define OP_OBJABOVE_C 35009
#define OP_OBJBELOW 32962
#define OP_OBJBELOW_C 35010
#define OP_OBJBOTTOMAT 32963
#define OP_OBJCLASSAT 32964
#define OP_OBJDIR 32965
#define OP_OBJDIR_C 35013
#define OP_OBJLAYERAT 32966
#define OP_OBJMOVINGTO 32967
#define OP_OBJTOPAT 32968
#define OP_POPUP 32969
#define OP_POPUPARGS 32970
#define OP_REL 32971
#define OP_REL_C 35019
#define OP_SEEK 32972
#define OP_SEEK_C 35020
#define OP_SEND 32973
#define OP_SEND_C 35021
#define OP_SEND_D 41165
#define OP_SEND_CD 43213
#define OP_SENDEX 32974
#define OP_SENDEX_C 35022
#define OP_SENDEX_D 41166
#define OP_SENDEX_CD 43214
#define OP_SETINVENTORY 32975
#define OP_SOUND 32976
#define OP_SWEEP 32977
#define OP_SWEEPEX 32978
#define OP_SYNCHRONIZE 32979
#define OP_TARGET 32980
#define OP_TARGET_C 35028
#define OP_TRACE 32981
#define OP_TRIGGER 32982
#define OP_TRIGGERAT 32983
#define OP_VOLUMEAT 32984
#define OP_WINLEVEL 32985
#define OP_XDIR 32986
#define OP_XDIR_C 35034
#define OP_XSTEP 32987
#define OP_XSTEP_C 35035
#define OP_XYDIR 32988
#define OP_YDIR 32989
#define OP_YDIR_C 35037
#define OP_YSTEP 32990
#define OP_YSTEP_C 35038
#define OP_MARK 32991
#define OP_TMARK 32992
#define OP_IN 32993
#define OP_NIN 32994
#define OP_MBEGIN 32995
#define OP_FLIP 32996
#define OP_COUNT 32997
#define OP_CLEAR 32998
#define OP_UNIQ 32999
#define OP_ARRAY 33000
#define OP_GETARRAY 33001
#define OP_INITARRAY 33002
#define OP_SETARRAY 33003
#define OP_ARRAYCELL 33004
#define OP_ARRAYSLICE 33005
#define OP_COPYARRAY 33006
#define OP_DOTPRODUCT 33007
#define OP_PATTERN 33008
#define OP_PATTERN_C 35056
#define OP_PATTERN_E 37104
#define OP_PATTERN_EC 39152
#define OP_PATTERNS 33009
#define OP_PATTERNS_C 35057
#define OP_PATTERNS_E 37105
#define OP_PATTERNS_EC 39153
#define OP_ROOK 33010
#define OP_BISHOP 33011
#define OP_QUEEN 33012
#define OP_CUT 33013
#define OP_BIZARRO 33014
#define OP_BIZARRO_C 35062
#define OP_BIZARRO_E 37110
#define OP_BIZARRO_EC 39158
#define OP_BIZARROSWAP 33015
#define OP_BIZARROSWAP_D 41207
#define OP_SWAPWORLD 33016
#define OP_ABSTRACT 33017
#define OP_SUPER 33018
#define OP_SUPER_C 35066
#define OP_FUNCTION 33019
#define OP_LOCAL 33020
#define OP_LABEL 33021
#define OP_STRING 33022
#define OP_INT16 33023
#define OP_INT32 33024
#define OP_DISPATCH 33025
#define OP_USERFLAG 33026
#ifdef HEROMESH_CLASS
static const Op_Names op_names[]={
{"*",8486943},
{"+",8421405},
{"+Move",10584252},
{"-",8421406},
{"-Move",10584253},
{"-rot",8421382},
{".",10518528},
{"/",8486944},
{"ANHH",8389394},
{"ARRIVED",8389124},
{"Abstract",8683769},
{"Animate",8552596},
{"AnimateDead",8552597},
{"Arg1",8552576},
{"Arg2",8552577},
{"Arg3",8552578},
{"Array",8683752},
{"ArrayCell",8421612},
{"ArraySlice",8421613},
{"Arrivals",8618092},
{"Arrived",8618090},
{"Assassinate",8487062},
{"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",8683655},
{"Bishop",8683763},
{"Bizarro",8618230},
{"BizarroSwap",10518775},
{"Broadcast",10518679},
{"BroadcastAnd",8421528},
{"BroadcastAndEx",8421529},
{"BroadcastEx",10518683},
{"BroadcastList",8421532},
{"BroadcastListEx",8421533},
{"BroadcastSum",8421534},

{"CodePage",8683656},
{"CollisionLayers",8487036},
{"Coloc",8487074},
{"Compatible",8487035},
{"Connect",8487075},
{"Connection",8618104},
{"Control",8421514},
{"CopyArray",8421614},
{"Create",10518692},
{"DEEP_POP",8389417},
{"DEPARTED",8389125},
{"DESTROY",8389122},
{"DESTROYED",8389136},
{"DINK",8389390},
{"DOOR",8389378},

{"Departed",8618091},
{"Departures",8618093},
{"Destroy",10584232},
{"Destroyed",8487033},
{"Dir",8618054},
{"Distance",9142346},
{"Done",8618103},
{"DotProduct",8421615},
{"E",9437184},
{"END_TURN",8389139},
{"EditorHelp",8683665},
{"F",9437192},
{"FAROUT",8389421},
{"FFFFTT",8389399},
{"FLOATED",8389132},
{"FROG",8389383},
{"FakeMove",8487081},
{"FindConnection",8487082},
{"Finished",8552582},
{"FlushClass",8421547},
{"FlushObj",8487084},
{"From",8421503},
{"GLASS",8389379},
{"GLISSANT",8389419},
{"GetArray",8421609},
{"GetInventory",8421549},
{"HAWK",8389425},
{"HEARTBEAT",8389407},
{"HIT",8389134},
{"HITBY",8389135},
{"Hard",8618072},
{"Height",9142354},
{"HeightAt",8421550},
{"Help",8683664},
{"HitMe",8421551},
{"INIT",8389120},
{"IgnoreKey",8421552},
{"Image",8618055},
{"InPlace",8683662},
{"Inertia",9142344},
{"InitArray",8421610},
{"Input",8683660},
{"IntMove",10584241},
{"Invisible",8618095},
{"JAYAYAYNG",8389416},
{"JUMPED",8389128},
{"JumpTo",10584242},
{"KEWEL",8389422},
{"KEY",8389129},
{"KLECK",8389387},
{"KLINKK",8389385},
{"Key",8421509},
{"KeyCleared",8618096},
{"L",9437194},
{"LASTIMAGE",8389126},
{"LB",9437195},
{"LF",9437193},
{"LOCK",8389408},
{"LOOP",8388610},
{"Level",8421508},
{"LevelTable",8683659},
{"Loc",8487091},
{"LocateMe",8487092},
{"LoseLevel",8421557},
{"MOVED",8389127},
{"MOVING",8389130},
{"Manhattan",8487094},
{"MaxInventory",8421559},
{"Misc1",9142364},
{"Misc2",9142366},
{"Misc3",9142368},
{"Misc4",9142370},
{"Misc5",9142372},
{"Misc6",9142374},
{"Misc7",9142376},
{"Morton",8487096},
{"Move",10584249},
{"Move+",10584250},
{"MoveNumber",8552579},
{"MoveTo",10584251},
{"Moved",8618101},
{"Moving",8618102},
{"Msg",8421502},
{"N",9437186},
{"NE",9437185},
{"NW",9437187},
{"NewX",8421566},
{"NewXY",8421567},
{"NewY",8421568},
{"OLDPHONE",8389402},
{"ONCE",8388609},
{"OSC",8388616},
{"OSCLOOP",8388618},
{"ObjAbove",8487105},
{"ObjBelow",8487106},
{"ObjBottomAt",8421571},
{"ObjClassAt",8421572},
{"ObjDir",8487109},
{"ObjLayerAt",8421574},
{"ObjMovingTo",8421575},
{"ObjTopAt",8421576},
{"Order",8683657},
{"Others",8683666},
{"P",8880368},
{"P*",8880369},
{"PLAYERMOVING",8389133},
{"POSTINIT",8389138},
{"POUR",8389377},
{"POWER",8389386},
{"Player",8487034},
{"PopUp",8421577},
{"Queen",8683764},
{"Quiz",8683661},
{"R",9437198},
{"RATCHET1",8389418},
{"RATCHET2",8389412},
{"RATTLE",8389403},
{"RB",9437197},
{"RF",9437199},
{"Rel",8487115},
{"Rook",8683762},
{"S",9437190},
{"SE",9437191},
{"SMALL_POP",8389389},
{"SPLASH",8389376},
{"STEAM",8389424},
{"STOP",8388608},
{"SUBS",8683667},
{"SUNK",8389131},
{"SW",9437189},
{"Seek",8487116},
{"Self",8421501},
{"Send",10584269},
{"SendEx",10584270},
{"SetArray",8421611},
{"SetInventory",8421583},
{"Shape",8618051},
{"ShapeDir",8618074},
{"Sharp",8618073},
{"Shovable",8618075},
{"Sound",8421584},
{"Stealthy",8618100},
{"Strength",9142358},
{"Super",8487162},
{"SwapWorld",8421624},
{"Sweep",8421585},
{"SweepEx",8421586},
{"Synchronize",8421587},
{"TAHTASHH",8389409},
{"THMP_thmp",8389405},
{"THWIT",8389384},
{"TICK",8389391},
{"Target",8487124},
{"Temperature",9142337},
{"Trace",8421589},
{"Trigger",8421590},
{"TriggerAt",8421591},
{"UH_OH",8389382},
{"UNCORK",8389414},
{"UNHH",8389381},
{"UserSignal",8618097},
{"UserState",8618098},
{"VACUUM",8389411},
{"VisualOnly",8618099},
{"Volume",9142350},
{"VolumeAt",8421592},
{"W",9437188},
{"WAHOO",8389400},
{"WHACK",8389423},
{"Weight",9142352},
{"WinLevel",8421593},
{"XDir",8487130},
{"XStep",8487131},
{"XYDir",8421596},
{"Xloc",8486980},
{"YDir",8487133},
{"YEEHAW",8389401},
{"YStep",8487134},
{"Yloc",8486981},
{"_",8421599},
{"a?",8421439},
{"again",8683533},
{"and",8683544},
{"band",8421415},
{"begin",8683532},
{"bit",8683563},
{"bit0",8388609},

{"bit9",8423401},
{"bnot",8421418},
{"bor",8421416},
{"bxor",8421417},
{"c?",8421433},
{"case",8683542},
{"chain",8421536},
{"clear",8421606},
{"count",8421605},
{"cut",8683765},
{"cz?",8421434},
{"dup",8421377},
{"else",8683530},
{"eq",8421424},
{"eq2",8421425},
{"exec",8486940},
{"flip",8421604},
{"for",8683537},
{"fork",8683545},
{"ge",8486965},
{"gt",8486963},
{"if",8683529},
{"in",8421601},
{"is",8421431},
{"land",8421420},
{"le",8486966},
{"link",8683547},
{"lnot",8421423},
{"lor",8421421},
{"lsh",8421413},
{"lt",8486964},
{"lxor",8421422},
{"m?",8421435},
{"max",8486948},
{"mbegin",8683747},
{"min",8486947},
{"mod",8486945},
{"n?",8421432},
{"ne",8421426},
{"neg",8421410},
{"next",8683538},
{"nin",8421602},
{"nip",8421379},
{"o?",8421437},
{"or",8683543},
{"over",8421384},
{"oz?",8421438},
{"pick",8421383},
{"repeat",8683536},
{"ret",8421397},
{"rot",8421381},
{"rsh",8486950},
{"rtn",8683546},
{"s?",8421436},
{"swap",8421378},
{"then",8683531},
{"tmark",8421600},
{"tuck",8421380},
{"uniq",8421607},
{"until",8683534},
{"while",8683535},
};
#define N_OP_NAMES 360
#endif