Free Hero Mesh

  variable equal to the start value. The flag can be STOP to stop an
  animation, ONCE to play the animation once (and to queue a LASTIMAGE
  event if the animation isn't changed before that happens; note that
  the message is sent even before the animation is actually visible),
  LOOP to play it in a loop, or OSCLOOP for an oscillating loop. The
  delay between frames is in centiseconds; the start and end are the
  image numbers in this class, and may be ascending or descending.

AnimateDead  ( x y class start end delay -- )
  Create a dead animation, at the specified coordinates. Give the class
  to use the pictures of, and the start and end image number, and the
  delay between frames in centiseconds. This will draw the animation on
  the screen without being associated with any object; this animation is
  purely visual and does not affect the game state. The animation will
  play once and then it will disappear.

Arg1  ( -- value )
  The first message argument.

=Arg1  ( value -- )
  Allows setting the first message argument. This will last until the
  current message returns, and does not affect further messages sent; it

  d->class=o->class;
  d->x=o->x;
  d->y=o->y;
  d->s=o->anim->step[o->anim->vstep];
  d->vtime=o->anim->vtime;
  d->vimage=o->anim->vimage;
}

static void v_animate_dead(Value x,Value y,Value c,Value s,Value e,Value z) {
  DeadAnimation*d;
  if(no_dead_anim || ndeadanim>=0x1000) return;
  if(x.t || y.t || s.t || e.t || z.t || c.t!=TY_CLASS) return;
  if(!z.u || (z.u&~255) || x.u<1 || x.u>pfwidth || y.u<1 || y.u>pfheight) return;
  if(!classes[c.u] || !classes[c.u]->nimages || (classes[c.u]->cflags&(CF_GROUP|CF_NOCLASS2))) return;
  deadanim=realloc(deadanim,(ndeadanim+1)*sizeof(DeadAnimation));
  if(!deadanim) fatal("Allocation failed\n");
  d=deadanim+ndeadanim++;
  d->class=c.u;
  d->x=x.u;
  d->y=y.u;
  d->s.flag=ANI_ONCE;
  d->s.start=s.u;
  d->s.end=e.u;
  d->s.speed=z.u;
  d->vtime=0;
  d->vimage=s.u;
}

void objtrash(Uint32 n) {
  Object*o=objects[n];
  if(!o) return;
  if(!main_options['e']) {
    if(n==traced_obj.u && o->generation==traced_obj.t && main_options['t']) {
      printf("# Object traced at (%d,%d)\n",o->x,o->y);

#define GetClassFlagOf(a) t2=Pop(),Push(t2.t==TY_CLASS?NVALUE(classes[t2.u]->cflags&a?1:0):(i=v_object(t2),i==VOIDLINK?NVALUE(0):NVALUE(classes[objects[i]->class]->cflags&a?1:0)))
#define SetFlagOf(a) do{ t2=Pop(); i=v_object(Pop()); if(i!=VOIDLINK) { if(v_bool(t2)) objects[i]->oflags|=a; else objects[i]->oflags&=~a; } }while(0)
#define NotSound(a) do{ if((a).t==TY_SOUND || (a).t==TY_USOUND) Throw("Cannot convert sound to type"); }while(0)
static void execute_program(Uint16*code,int ptr,Uint32 obj) {
  Uint32 i,j;
  Object*o=objects[obj];
  Value t1,t2;
  static Value t3,t4,t5,t6;
  if(StackProtection()) Throw("Call stack overflow");
  // Note about bit shifting: At least when running Hero Mesh in DOSBOX, out of range bit shifts produce zero.
  // I don't know if this is true on all computers that Hero Mesh runs on, though. (Some documents suggest that x86 doesn't work this way)
  // The below code assumes that signed right shifting is available on the computer that Free Hero Mesh runs on.
  for(;;) switch(code[ptr++]) {
    case 0x0000 ... 0x00FF: StackReq(0,1); Push(NVALUE(code[ptr-1])); break;
    case 0x0100 ... 0x01FF: StackReq(0,1); Push(NVALUE(code[ptr-1]-0x200)); break;

    case 0x3000 ... 0x37FF: NoIgnore(); StackReq(1,0); o->uservars[code[ptr-1]&0x7FF]=Pop(); break;
    case 0x3800 ... 0x38FF: NoIgnore(); StackReq(1,0); globals[code[ptr-1]&0x7FF]=Pop(); break;
    case 0x4000 ... 0x7FFF: StackReq(0,1); Push(CVALUE(code[ptr-1]-0x4000)); break;
    case 0x87E8 ... 0x87FF: StackReq(0,1); Push(NVALUE(1UL<<(code[ptr-1]&31))); break;
    case 0xC000 ... 0xFFFF: StackReq(0,1); Push(MVALUE((code[ptr-1]&0x3FFF)+256)); break;
    case OP_ADD: StackReq(2,1); t2=Pop(); Numeric(t2); t1=Pop(); Numeric(t1); Push(NVALUE(t1.u+t2.u)); break;
    case OP_ANIMATE: StackReq(4,0); t4=Pop(); Numeric(t4); t3=Pop(); Numeric(t3); t2=Pop(); Numeric(t2); t1=Pop(); Numeric(t1); animate(obj,t1.u,t2.u,t3.u,t4.u); break;
    case OP_ANIMATEDEAD: StackReq(6,0); t6=Pop(); t5=Pop(); t4=Pop(); t3=Pop(); t2=Pop(); t1=Pop(); v_animate_dead(t1,t2,t3,t4,t5,t6); break;
    case OP_ARG1: StackReq(0,1); Push(msgvars.arg1); break;
    case OP_ARG1_E: StackReq(1,0); msgvars.arg1=Pop(); break;
    case OP_ARG2: StackReq(0,1); Push(msgvars.arg2); break;
    case OP_ARG2_E: StackReq(1,0); msgvars.arg2=Pop(); break;
    case OP_ARG3: StackReq(0,1); Push(msgvars.arg3); break;
    case OP_ARG3_E: StackReq(1,0); msgvars.arg3=Pop(); break;
    case OP_ARRAYCELL: StackReq(3,1); t3=Pop(); Numeric(t3); t2=Pop(); Numeric(t2); t1=Pop(); Push(v_array_cell(t1,t2.u,t3.u)); break;

-DefaultImage
-Help
-EditorHelp
-SUBS

; Main operations
Animate
AnimateDead
,Assassinate ; destroy without sending any messages
.Broadcast
*BroadcastClass ; for (Broadcast [class])
.BroadcastEx ; broadcast with three arguments
BroadcastSum ; Broadcast, but result is sum of return values
BroadcastSumEx
chain

#define OP_QUIZ 32894
#define OP_INPLACE 32895
#define OP_DEFAULTIMAGE 32896
#define OP_HELP 32897
#define OP_EDITORHELP 32898
#define OP_SUBS 32899
#define OP_ANIMATE 32900
#define OP_ANIMATEDEAD 32901
#define OP_ASSASSINATE 32902
#define OP_ASSASSINATE_C 34950
#define OP_BROADCAST 32903
#define OP_BROADCAST_D 41095
#define OP_BROADCASTCLASS 32904
#define OP_BROADCASTEX 32905
#define OP_BROADCASTEX_D 41097
#define OP_BROADCASTSUM 32906
#define OP_BROADCASTSUMEX 32907
#define OP_CHAIN 32908
#define OP_CREATE 32909
#define OP_CREATE_D 41101
#define OP_DELINVENTORY 32910
#define OP_DELTA 32911
#define OP_DESTROY 32912
#define OP_DESTROY_C 34960
#define OP_DESTROY_D 41104
#define OP_DESTROY_CD 43152
#define OP_FLUSHCLASS 32913
#define OP_FLUSHOBJ 32914
#define OP_FLUSHOBJ_C 34962
#define OP_GETINVENTORY 32915
#define OP_HEIGHTAT 32916
#define OP_IGNOREKEY 32917
#define OP_INTMOVE 32918
#define OP_INTMOVE_C 34966
#define OP_INTMOVE_D 41110
#define OP_INTMOVE_CD 43158
#define OP_JUMPTO 32919
#define OP_JUMPTO_C 34967
#define OP_JUMPTO_D 41111
#define OP_JUMPTO_CD 43159
#define OP_LOC 32920
#define OP_LOC_C 34968
#define OP_LOCATEME 32921
#define OP_LOSELEVEL 32922
#define OP_MAXINVENTORY 32923
#define OP_MOVE 32924
#define OP_MOVE_C 34972
#define OP_MOVE_D 41116
#define OP_MOVE_CD 43164
#define OP_MOVEPLUS 32925
#define OP_MOVEPLUS_C 34973
#define OP_MOVEPLUS_D 41117
#define OP_MOVEPLUS_CD 43165
#define OP_MOVETO 32926
#define OP_MOVETO_C 34974
#define OP_MOVETO_D 41118
#define OP_MOVETO_CD 43166
#define OP_NEWX 32927
#define OP_NEWXY 32928
#define OP_NEWY 32929
#define OP_OBJABOVE 32930
#define OP_OBJABOVE_C 34978
#define OP_OBJBELOW 32931
#define OP_OBJBELOW_C 34979
#define OP_OBJBOTTOMAT 32932
#define OP_OBJCLASSAT 32933
#define OP_OBJDIR 32934
#define OP_OBJDIR_C 34982
#define OP_OBJLAYERAT 32935
#define OP_OBJTOPAT 32936
#define OP_POPUP 32937
#define OP_POPUPARGS 32938
#define OP_QUEUETURN 32939
#define OP_SEND 32940
#define OP_SEND_C 34988
#define OP_SEND_D 41132
#define OP_SEND_CD 43180
#define OP_SENDEX 32941
#define OP_SENDEX_C 34989
#define OP_SENDEX_D 41133
#define OP_SENDEX_CD 43181
#define OP_SETINVENTORY 32942
#define OP_SOUND 32943
#define OP_SYNCHRONIZE 32944
#define OP_TRACE 32945
#define OP_VOLUMEAT 32946
#define OP_WINLEVEL 32947
#define OP_XDIR 32948
#define OP_XDIR_C 34996
#define OP_XYDIR 32949
#define OP_YDIR 32950
#define OP_YDIR_C 34998
#define OP_MARK 32951
#define OP_TMARK 32952
#define OP_IN 32953
#define OP_NIN 32954
#define OP_MBEGIN 32955
#define OP_ARRAY 32956
#define OP_GETARRAY 32957
#define OP_INITARRAY 32958
#define OP_SETARRAY 32959
#define OP_ARRAYCELL 32960
#define OP_FUNCTION 32961
#define OP_LOCAL 32962
#define OP_LABEL 32963
#define OP_STRING 32964
#define OP_INT16 32965
#define OP_INT32 32966
#define OP_DISPATCH 32967
#ifdef HEROMESH_CLASS
static const Op_Names op_names[]={
{"*",8486937},
{"+",8421399},
{"-",8421400},
{"-rot",8421382},
{".",10518528},
{"/",8486938},
{"ANHH",8389394},
{"ARRIVED",8389124},
{"Animate",8421508},
{"AnimateDead",8421509},
{"Arg1",8552565},
{"Arg2",8552566},
{"Arg3",8552567},
{"Array",8683708},
{"ArrayCell",8421568},
{"Arrivals",8618083},
{"Arrived",8618081},
{"Assassinate",8487046},
{"B",9437196},
{"BANG",8389380},
{"BEDOINGNG",8389406},
{"BEEDEEP",8389404},
{"BEGIN_TURN",8389123},
{"BIZARRO_SWAP",8389143},
{"BOOOM",8389410},
{"BOUNCE",8389415},
{"BRRREEET",8389396},
{"BRRRT",8389395},
{"BUZZER",8389420},
{"BWEEP",8389397},
{"Background",8683644},
{"Broadcast",10518663},
{"BroadcastEx",10518665},
{"BroadcastSum",8421514},
{"BroadcastSumEx",8421515},
{"Busy",8618085},
{"CHEEP",8389393},
{"CHYEW",8389392},
{"CLEANUP",8389140},
{"CLICK",8389388},
{"COLLIDE",8389142},
{"COLLIDEBY",8389141},
{"CREATE",8389121},
{"CREATED",8389137},
{"Class",8486967},
{"Climb",9142347},
{"CollisionLayers",8487025},
{"Compatible",8487024},
{"Create",10518669},
{"DEEP_POP",8389417},
{"DEPARTED",8389125},
{"DESTROY",8389122},
{"DESTROYED",8389136},
{"DINK",8389390},
{"DOOR",8389378},
{"DRLRLRINK",8389398},
{"DYUPE",8389413},
{"DefaultImage",8683648},
{"DelInventory",8421518},
{"Delta",8421519},
{"Density",9142339},
{"Departed",8618082},
{"Departures",8618084},
{"Destroy",10584208},
{"Destroyed",8487022},
{"Dir",8618045},
{"Distance",9142337},
{"Done",8618093},
{"E",9437184},
{"END_TURN",8389139},
{"EditorHelp",8683650},
{"F",9437192},
{"FAROUT",8389421},
{"FFFFTT",8389399},
{"FLOATED",8389132},
{"FROG",8389383},
{"Finished",8552571},
{"FlushClass",8421521},
{"FlushObj",8487058},
{"From",8421492},
{"GLASS",8389379},
{"GLISSANT",8389419},
{"GetArray",8421565},
{"GetInventory",8421523},
{"HAWK",8389425},
{"HEARTBEAT",8389407},
{"HIT",8389134},
{"HITBY",8389135},
{"Hard",8618063},
{"Height",9142345},
{"HeightAt",8421524},
{"Help",8683649},
{"INIT",8389120},
{"IgnoreKey",8421525},
{"Image",8618046},
{"InPlace",8683647},
{"Inertia",9142335},
{"InitArray",8421566},
{"Input",8683645},
{"IntMove",10584214},
{"Invisible",8618086},
{"JAYAYAYNG",8389416},
{"JUMPED",8389128},
{"JumpTo",10584215},
{"KEWEL",8389422},
{"KEY",8389129},
{"KLECK",8389387},
{"KLINKK",8389385},
{"Key",8421498},
{"KeyCleared",8618087},
{"L",9437194},
{"LASTIMAGE",8389126},
{"LB",9437195},
{"LF",9437193},
{"LOCK",8389408},
{"LOOP",8388610},
{"Level",8421497},
{"Loc",8487064},
{"LocateMe",8421529},
{"LoseLevel",8421530},
{"MOVED",8389127},
{"MOVING",8389130},
{"MaxInventory",8421531},
{"Misc1",9142355},
{"Misc2",9142357},
{"Misc3",9142359},
{"Misc4",9142361},
{"Misc5",9142363},
{"Misc6",9142365},
{"Misc7",9142367},
{"Move",10584220},
{"Move+",10584221},
{"MoveNumber",8421496},
{"MoveTo",10584222},
{"Moved",8618092},
{"Msg",8421491},
{"N",9437186},
{"NE",9437185},
{"NW",9437187},
{"NewX",8421535},
{"NewXY",8421536},
{"NewY",8421537},
{"OLDPHONE",8389402},
{"ONCE",8388609},
{"OSC",8388616},
{"OSCLOOP",8388618},
{"ObjAbove",8487074},
{"ObjBelow",8487075},
{"ObjBottomAt",8421540},
{"ObjClassAt",8421541},
{"ObjDir",8487078},
{"ObjLayerAt",8421543},
{"ObjTopAt",8421544},
{"PLAYERMOVING",8389133},
{"POSTINIT",8389138},
{"POUR",8389377},
{"POWER",8389386},
{"Player",8487023},
{"PopUp",8421545},
{"QueueTurn",8421547},
{"Quiz",8683646},
{"R",9437198},
{"RATCHET1",8389418},
{"RATCHET2",8389412},
{"RATTLE",8389403},
{"RB",9437197},
{"RF",9437199},
{"S",9437190},
{"SE",9437191},
{"SMALL_POP",8389389},
{"SPLASH",8389376},
{"STEAM",8389424},
{"STOP",8388608},
{"SUBS",8683651},
{"SUNK",8389131},
{"SW",9437189},
{"Self",8421490},
{"Send",10584236},
{"SendEx",10584237},
{"SetArray",8421567},
{"SetInventory",8421550},
{"Shape",8618042},
{"ShapeDir",8618065},
{"Sharp",8618064},
{"Shovable",8618066},
{"Sound",8421551},
{"Stealthy",8618091},
{"Strength",9142349},
{"Synchronize",8421552},
{"TAHTASHH",8389409},
{"THMP_thmp",8389405},
{"THWIT",8389384},
{"TICK",8389391},
{"Temperature",9142328},
{"Trace",8421553},
{"UH_OH",8389382},
{"UNCORK",8389414},
{"UNHH",8389381},
{"UserSignal",8618088},
{"UserState",8618089},
{"VACUUM",8389411},
{"VisualOnly",8618090},
{"Volume",9142341},
{"VolumeAt",8421554},
{"W",9437188},
{"WAHOO",8389400},
{"WHACK",8389423},
{"Weight",9142343},
{"WinLevel",8421555},
{"XDir",8487092},
{"XYDir",8421557},
{"Xloc",8486971},
{"YDir",8487094},
{"YEEHAW",8389401},
{"Yloc",8486972},
{"_",8421559},
{"a?",8421430},
{"again",8683534},
{"band",8421407},
{"begin",8683533},
{"bit",8683555},
{"bit0",8388609},
{"bit1",8388610},

{"bit7",8388736},
{"bit8",8423400},
{"bit9",8423401},
{"bnot",8421410},
{"bor",8421408},
{"bxor",8421409},
{"c?",8421424},
{"chain",8421516},
{"cz?",8421425},
{"dup",8421377},
{"el",8683532},
{"else",8683530},
{"eq",8421416},
{"for",8683538},
{"ge",8486956},
{"gt",8486954},
{"if",8683529},
{"in",8421561},
{"is",8421422},
{"land",8421412},
{"le",8486957},
{"lnot",8421415},
{"lor",8421413},
{"lsh",8421405},
{"lt",8486955},
{"lxor",8421414},
{"m?",8421426},
{"mbegin",8683707},
{"mod",8486939},
{"n?",8421423},
{"ne",8421417},
{"neg",8421404},
{"next",8683539},
{"nin",8421562},
{"nip",8421379},
{"o?",8421428},
{"over",8421384},
{"oz?",8421429},
{"pick",8421383},
{"repeat",8683537},
{"ret",8421398},
{"rot",8421381},
{"rsh",8486942},
{"s?",8421427},
{"swap",8421378},
{"then",8683531},
{"tmark",8421560},
{"tuck",8421380},
{"until",8683535},
{"while",8683536},
};
#define N_OP_NAMES 300
#endif