Free Hero Mesh

  the creation of the objects. The result value is the number of objects
  of that class.

(Broadcast <class>)  ( message arg1 arg2 -- count )
  An alternative syntax for Broadcast (needed only for compatibility with
  EKS Hero Mesh).

BroadcastAnd  ( class message arg1 arg2 -- bool )
  As Broadcast but the result is 1 if all results are true, or 0 if at
  least one result is zero. If any result is zero, it doesn't send the
  message to the rest.

BroadcastAndEx  ( class message arg1 arg2 arg3 -- bool )
  As BroadcastSum but with three message arguments.

BroadcastEx  ( class message arg1 arg2 arg3 -- count )
  As Broadcast but with three message arguments.

BroadcastList  ( class message arg1 arg2 -- ... )
  As Broadcast but push all results to the stack. If any result is a mark,
  it is not pushed to the stack.

BroadcastListEx  ( class message arg1 arg2 arg3 -- ... )
  As BroadcastList but with three message arguments.

BroadcastSum  ( class message arg1 arg2 -- total )
  As Broadcast but the result is the sum of the return values rather than
  the number of objects. If a return value is a class or object, it is
  treated as 1. Other non-numeric return values are errors.

BroadcastSumEx  ( class message arg1 arg2 arg3 -- total )
  As BroadcastSum but with three message arguments.

#define Pop() (vstack[--vstackptr])

// For arrival/departure masks
#define Xbit(a) ((a)%5-2)
#define Ybit(a) (2-(a)/5)

static Value send_message(Uint32 from,Uint32 to,Uint16 msg,Value arg1,Value arg2,Value arg3);
static Uint32 broadcast(Uint32 from,int c,Uint16 msg,Value arg1,Value arg2,Value arg3,Uint8 s);
static Value destroy(Uint32 from,Uint32 to,Uint32 why);

static const Sint8 x_delta[8]={1,1,0,-1,-1,-1,0,1};
static const Sint8 y_delta[8]={0,-1,-1,-1,0,1,1,1};

const unsigned char*value_string_ptr(Value v) {
  switch(v.t) {

    case OP_ASSASSINATE: NoIgnore(); destroy(obj,obj,8); break;
    case OP_ASSASSINATE_C: NoIgnore(); StackReq(1,0); i=v_object(Pop()); destroy(obj,i,8); break;
    case OP_BAND: StackReq(2,1); t2=Pop(); Numeric(t2); t1=Pop(); Numeric(t1); Push(NVALUE(t1.u&t2.u)); break;
    case OP_BNOT: StackReq(1,1); t1=Pop(); Numeric(t1); Push(NVALUE(~t1.u)); break;
    case OP_BOR: StackReq(2,1); t2=Pop(); Numeric(t2); t1=Pop(); Numeric(t1); Push(NVALUE(t1.u|t2.u)); break;
    case OP_BROADCAST: StackReq(4,1); t4=Pop(); t3=Pop(); t2=Pop(); t1=Pop(); Push(v_broadcast(obj,t1,t2,t3,t4,NVALUE(0),0)); break;
    case OP_BROADCAST_D: StackReq(4,0); t4=Pop(); t3=Pop(); t2=Pop(); t1=Pop(); v_broadcast(obj,t1,t2,t3,t4,NVALUE(0),0); break;
    case OP_BROADCASTAND: StackReq(4,1); t4=Pop(); t3=Pop(); t2=Pop(); t1=Pop(); Push(v_broadcast(obj,t1,t2,t3,t4,NVALUE(0),2)); break;
    case OP_BROADCASTANDEX: StackReq(5,1); t5=Pop(); t4=Pop(); t3=Pop(); t2=Pop(); t1=Pop(); Push(v_broadcast(obj,t1,t2,t3,t4,t5,2)); break;
    case OP_BROADCASTCLASS: StackReq(3,1); t4=Pop(); t3=Pop(); t2=Pop(); Push(v_broadcast(obj,CVALUE(code[ptr++]),t2,t3,t4,NVALUE(0),0)); break;
    case OP_BROADCASTEX: StackReq(5,1); t5=Pop(); t4=Pop(); t3=Pop(); t2=Pop(); t1=Pop(); Push(v_broadcast(obj,t1,t2,t3,t4,t5,0)); break;
    case OP_BROADCASTEX_D: StackReq(5,0); t5=Pop(); t4=Pop(); t3=Pop(); t2=Pop(); t1=Pop(); v_broadcast(obj,t1,t2,t3,t4,t5,0); break;
    case OP_BROADCASTLIST: StackReq(4,0); t4=Pop(); t3=Pop(); t2=Pop(); t1=Pop(); v_broadcast(obj,t1,t2,t3,t4,NVALUE(0),3); break;
    case OP_BROADCASTLISTEX: StackReq(5,0); t5=Pop(); t4=Pop(); t3=Pop(); t2=Pop(); t1=Pop(); v_broadcast(obj,t1,t2,t3,t4,t5,3); break;
    case OP_BROADCASTSUM: StackReq(4,1); t4=Pop(); t3=Pop(); t2=Pop(); t1=Pop(); Push(v_broadcast(obj,t1,t2,t3,t4,NVALUE(0),1)); break;
    case OP_BROADCASTSUMEX: StackReq(5,1); t5=Pop(); t4=Pop(); t3=Pop(); t2=Pop(); t1=Pop(); Push(v_broadcast(obj,t1,t2,t3,t4,t5,1)); break;
    case OP_BUSY: StackReq(0,1); if(o->oflags&OF_BUSY) Push(NVALUE(1)); else Push(NVALUE(0)); break;
    case OP_BUSY_C: StackReq(1,1); GetFlagOf(OF_BUSY); break;
    case OP_BUSY_E: NoIgnore(); StackReq(1,0); if(v_bool(Pop())) o->oflags|=OF_BUSY; else o->oflags&=~OF_BUSY; break;
    case OP_BUSY_EC: NoIgnore(); StackReq(2,0); SetFlagOf(OF_BUSY); break;
    case OP_BXOR: StackReq(2,1); t2=Pop(); Numeric(t2); t1=Pop(); Numeric(t1); Push(NVALUE(t1.u^t2.u)); break;

  if(vstackptr==stackptr) {
    return NVALUE(0);
  } else {
    return Pop();
  }
}

static Uint32 broadcast(Uint32 from,int c,Uint16 msg,Value arg1,Value arg2,Value arg3,Uint8 s) {
  Uint32 t=0;
  Uint32 n;
  Object*o;
  Value v;
  if(s==2) t=0xFFFFFFFFULL;
  if(lastobj==VOIDLINK) return t;
  n=lastobj;
  while(o=objects[n]) {
    if(!c || o->class==c) {
      v=send_message(from,n,msg,arg1,arg2,arg3);
      switch(s) {
        case 0:
          t++;
          break;
        case 1:
          switch(v.t) {
            case TY_NUMBER: t+=v.u; break;
            case TY_CLASS: t++; break;
            default:
              if(v.t<=TY_MAXTYPE) Throw("Invalid return type for BroadcastSum");
              t++;
          }
          break;
        case 2:
          switch(v.t) {
            case TY_NUMBER: if(!v.u) return 0;
            case TY_SOUND: case TY_USOUND: Throw("Invalid return type for BroadcastAnd");
          }
          break;
        case 3:
          StackReq(0,1);
          if(v.t!=TY_MARK) Push(v);
          break;
      }
    }
    n=o->prev;
    if(n==VOIDLINK) break;
  }
  return t;
}

-SUBS

; Main operations
Animate
AnimateDead
,Assassinate ; destroy without sending any messages
.Broadcast
BroadcastAnd ; Broadcast, but result is AND of return values
BroadcastAndEx
*BroadcastClass ; for (Broadcast [class])
.BroadcastEx ; broadcast with three arguments
BroadcastList ; Broadcast, pushing results to stack
BroadcastListEx
BroadcastSum ; Broadcast, but result is sum of return values
BroadcastSumEx
chain
,Chebyshev
,Coloc
.Create
DelInventory

#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_BROADCASTAND 32909
#define OP_BROADCASTANDEX 32910
#define OP_BROADCASTCLASS 32911
#define OP_BROADCASTEX 32912
#define OP_BROADCASTEX_D 41104
#define OP_BROADCASTLIST 32913
#define OP_BROADCASTLISTEX 32914
#define OP_BROADCASTSUM 32915
#define OP_BROADCASTSUMEX 32916
#define OP_CHAIN 32917
#define OP_CHEBYSHEV 32918
#define OP_CHEBYSHEV_C 34966
#define OP_COLOC 32919
#define OP_COLOC_C 34967
#define OP_CREATE 32920
#define OP_CREATE_D 41112
#define OP_DELINVENTORY 32921
#define OP_DELTA 32922
#define OP_DESTROY 32923
#define OP_DESTROY_C 34971
#define OP_DESTROY_D 41115
#define OP_DESTROY_CD 43163
#define OP_FLUSHCLASS 32924
#define OP_FLUSHOBJ 32925
#define OP_FLUSHOBJ_C 34973
#define OP_GETINVENTORY 32926
#define OP_HEIGHTAT 32927
#define OP_IGNOREKEY 32928
#define OP_INTMOVE 32929
#define OP_INTMOVE_C 34977
#define OP_INTMOVE_D 41121
#define OP_INTMOVE_CD 43169
#define OP_JUMPTO 32930
#define OP_JUMPTO_C 34978

#define OP_JUMPTO_D 41122
#define OP_JUMPTO_CD 43170
#define OP_LOC 32931
#define OP_LOC_C 34979
#define OP_LOCATEME 32932
#define OP_LOSELEVEL 32933
#define OP_MANHATTAN 32934
#define OP_MANHATTAN_C 34982
#define OP_MAXINVENTORY 32935
#define OP_MOVE 32936
#define OP_MOVE_C 34984
#define OP_MOVE_D 41128
#define OP_MOVE_CD 43176
#define OP_MOVEPLUS 32937
#define OP_MOVEPLUS_C 34985
#define OP_MOVEPLUS_D 41129
#define OP_MOVEPLUS_CD 43177
#define OP_MOVETO 32938
#define OP_MOVETO_C 34986
#define OP_MOVETO_D 41130
#define OP_MOVETO_CD 43178
#define OP_PLUSMOVE 32939
#define OP_PLUSMOVE_C 34987
#define OP_PLUSMOVE_D 41131
#define OP_PLUSMOVE_CD 43179
#define OP_MINUSMOVE 32940
#define OP_MINUSMOVE_C 34988
#define OP_MINUSMOVE_D 41132
#define OP_MINUSMOVE_CD 43180
#define OP_NEWX 32941
#define OP_NEWXY 32942
#define OP_NEWY 32943
#define OP_OBJABOVE 32944
#define OP_OBJABOVE_C 34992
#define OP_OBJBELOW 32945
#define OP_OBJBELOW_C 34993
#define OP_OBJBOTTOMAT 32946
#define OP_OBJCLASSAT 32947
#define OP_OBJDIR 32948
#define OP_OBJDIR_C 34996
#define OP_OBJLAYERAT 32949
#define OP_OBJMOVINGTO 32950
#define OP_OBJTOPAT 32951
#define OP_POPUP 32952
#define OP_POPUPARGS 32953
#define OP_REL 32954
#define OP_REL_C 35002
#define OP_SEEK 32955
#define OP_SEEK_C 35003
#define OP_SEND 32956
#define OP_SEND_C 35004
#define OP_SEND_D 41148
#define OP_SEND_CD 43196
#define OP_SENDEX 32957
#define OP_SENDEX_C 35005
#define OP_SENDEX_D 41149
#define OP_SENDEX_CD 43197
#define OP_SETINVENTORY 32958
#define OP_SOUND 32959
#define OP_SYNCHRONIZE 32960
#define OP_TARGET 32961
#define OP_TARGET_C 35009
#define OP_TRACE 32962
#define OP_VOLUMEAT 32963
#define OP_WINLEVEL 32964
#define OP_XDIR 32965
#define OP_XDIR_C 35013
#define OP_XYDIR 32966
#define OP_YDIR 32967
#define OP_YDIR_C 35015
#define OP_MARK 32968
#define OP_TMARK 32969
#define OP_IN 32970
#define OP_NIN 32971
#define OP_MBEGIN 32972
#define OP_FLIP 32973
#define OP_ARRAY 32974
#define OP_GETARRAY 32975
#define OP_INITARRAY 32976
#define OP_SETARRAY 32977
#define OP_ARRAYCELL 32978
#define OP_ARRAYSLICE 32979
#define OP_COPYARRAY 32980
#define OP_DOTPRODUCT 32981
#define OP_PATTERN 32982
#define OP_PATTERN_C 35030
#define OP_PATTERN_E 37078
#define OP_PATTERN_EC 39126
#define OP_PATTERNS 32983
#define OP_PATTERNS_C 35031
#define OP_PATTERNS_E 37079
#define OP_PATTERNS_EC 39127
#define OP_FOUR 32984
#define OP_EIGHT 32985
#define OP_CUT 32986
#define OP_FUNCTION 32987
#define OP_LOCAL 32988
#define OP_LABEL 32989
#define OP_STRING 32990
#define OP_INT16 32991
#define OP_INT32 32992
#define OP_DISPATCH 32993
#define OP_USERFLAG 32994
#ifdef HEROMESH_CLASS
static const Op_Names op_names[]={
{"*",8486937},
{"+",8421399},
{"+Move",10584235},
{"-",8421400},
{"-Move",10584236},
{"-rot",8421382},
{".",10518528},
{"/",8486938},
{"ANHH",8389394},
{"ARRIVED",8389124},
{"Animate",8421513},
{"AnimateDead",8421514},
{"Arg1",8552569},
{"Arg2",8552570},
{"Arg3",8552571},
{"Array",8683726},
{"ArrayCell",8421586},
{"ArraySlice",8421587},
{"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},
{"BroadcastAnd",8421517},
{"BroadcastAndEx",8421518},
{"BroadcastEx",10518672},
{"BroadcastList",8421521},
{"BroadcastListEx",8421522},
{"BroadcastSum",8421523},
{"BroadcastSumEx",8421524},
{"Busy",8618088},
{"CHEEP",8389393},
{"CHYEW",8389392},
{"CLICK",8389388},
{"COLLIDE",8389142},
{"COLLIDEBY",8389141},
{"COLLIDING",8389143},
{"CONFLICT",8389140},
{"CREATE",8389121},
{"CREATED",8389137},
{"Chebyshev",8487062},
{"Class",8486970},
{"Climb",9142350},
{"CodePage",8683649},
{"CollisionLayers",8487029},
{"Coloc",8487063},
{"Compatible",8487028},
{"CopyArray",8421588},
{"Create",10518680},
{"DEEP_POP",8389417},
{"DEPARTED",8389125},
{"DESTROY",8389122},
{"DESTROYED",8389136},
{"DINK",8389390},
{"DOOR",8389378},
{"DRLRLRINK",8389398},
{"DYUPE",8389413},
{"DefaultImage",8683653},
{"DelInventory",8421529},
{"Delta",8421530},
{"Density",9142342},
{"Departed",8618085},
{"Departures",8618087},
{"Destroy",10584219},
{"Destroyed",8487026},
{"Dir",8618048},
{"Distance",9142340},
{"Done",8618097},
{"DotProduct",8421589},
{"E",9437184},
{"END_TURN",8389139},
{"EditorHelp",8683655},
{"Eight",8683737},
{"F",9437192},
{"FAROUT",8389421},
{"FFFFTT",8389399},
{"FLOATED",8389132},
{"FROG",8389383},
{"Finished",8552575},
{"FlushClass",8421532},
{"FlushObj",8487069},
{"Four",8683736},
{"From",8421496},
{"GLASS",8389379},
{"GLISSANT",8389419},
{"GetArray",8421583},
{"GetInventory",8421534},
{"HAWK",8389425},
{"HEARTBEAT",8389407},
{"HIT",8389134},
{"HITBY",8389135},
{"Hard",8618066},
{"Height",9142348},
{"HeightAt",8421535},
{"Help",8683654},
{"INIT",8389120},
{"IgnoreKey",8421536},
{"Image",8618049},
{"InPlace",8683652},
{"Inertia",9142338},
{"InitArray",8421584},
{"Input",8683650},
{"IntMove",10584225},
{"Invisible",8618089},
{"JAYAYAYNG",8389416},
{"JUMPED",8389128},
{"JumpTo",10584226},
{"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",8487075},
{"LocateMe",8421540},
{"LoseLevel",8421541},
{"MOVED",8389127},
{"MOVING",8389130},
{"Manhattan",8487078},
{"MaxInventory",8421543},
{"Misc1",9142358},
{"Misc2",9142360},
{"Misc3",9142362},
{"Misc4",9142364},
{"Misc5",9142366},
{"Misc6",9142368},
{"Misc7",9142370},
{"Move",10584232},
{"Move+",10584233},
{"MoveNumber",8421500},
{"MoveTo",10584234},
{"Moved",8618095},
{"Moving",8618096},
{"Msg",8421495},
{"N",9437186},
{"NE",9437185},
{"NW",9437187},
{"NewX",8421549},
{"NewXY",8421550},
{"NewY",8421551},
{"OLDPHONE",8389402},
{"ONCE",8388609},
{"OSC",8388616},
{"OSCLOOP",8388618},
{"ObjAbove",8487088},
{"ObjBelow",8487089},
{"ObjBottomAt",8421554},
{"ObjClassAt",8421555},
{"ObjDir",8487092},
{"ObjLayerAt",8421557},
{"ObjMovingTo",8421558},
{"ObjTopAt",8421559},
{"P",8880342},
{"P*",8880343},
{"PLAYERMOVING",8389133},
{"POSTINIT",8389138},
{"POUR",8389377},
{"POWER",8389386},
{"Player",8487027},
{"PopUp",8421560},
{"Quiz",8683651},
{"R",9437198},
{"RATCHET1",8389418},
{"RATCHET2",8389412},
{"RATTLE",8389403},
{"RB",9437197},
{"RF",9437199},
{"Rel",8487098},
{"S",9437190},
{"SE",9437191},
{"SMALL_POP",8389389},
{"SPLASH",8389376},
{"STEAM",8389424},
{"STOP",8388608},
{"SUBS",8683656},
{"SUNK",8389131},
{"SW",9437189},
{"Seek",8487099},
{"Self",8421494},
{"Send",10584252},
{"SendEx",10584253},
{"SetArray",8421585},
{"SetInventory",8421566},
{"Shape",8618045},
{"ShapeDir",8618068},
{"Sharp",8618067},
{"Shovable",8618069},
{"Sound",8421567},
{"Stealthy",8618094},
{"Strength",9142352},
{"Synchronize",8421568},
{"TAHTASHH",8389409},
{"THMP_thmp",8389405},
{"THWIT",8389384},
{"TICK",8389391},
{"Target",8487105},
{"Temperature",9142331},
{"Trace",8421570},
{"UH_OH",8389382},
{"UNCORK",8389414},
{"UNHH",8389381},
{"UserSignal",8618091},
{"UserState",8618092},
{"VACUUM",8389411},
{"VisualOnly",8618093},
{"Volume",9142344},
{"VolumeAt",8421571},
{"W",9437188},
{"WAHOO",8389400},
{"WHACK",8389423},
{"Weight",9142346},
{"WinLevel",8421572},
{"XDir",8487109},
{"XYDir",8421574},
{"Xloc",8486974},
{"YDir",8487111},
{"YEEHAW",8389401},
{"Yloc",8486975},
{"_",8421576},
{"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",8421525},
{"cut",8683738},
{"cz?",8421428},
{"dup",8421377},
{"el",8683532},
{"else",8683530},
{"eq",8421418},
{"eq2",8421419},
{"flip",8421581},
{"for",8683538},
{"ge",8486959},
{"gt",8486957},
{"if",8683529},
{"in",8421578},
{"is",8421425},
{"land",8421414},
{"le",8486960},
{"lnot",8421417},
{"lor",8421415},
{"lsh",8421407},
{"lt",8486958},
{"lxor",8421416},
{"m?",8421429},
{"max",8486942},
{"mbegin",8683724},
{"min",8486941},
{"mod",8486939},
{"n?",8421426},
{"ne",8421420},
{"neg",8421404},
{"next",8683539},
{"nin",8421579},
{"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",8421577},
{"tuck",8421380},
{"until",8683535},
{"while",8683536},
};
#define N_OP_NAMES 327
#endif