executor.c

   1 #include "dblbuf.h"\r
   2 #include "kvidha.h"\r
   3 #include "sb.h"\r
   4 \r
   5 unsigned long Color16To32(unsigned short c)\r
   6 {\r
   7     Color Temp;\r
   8 \r
   9     Temp.Reserved = 0;\r
  10     Temp.R = (((c & 0xF800) >> 11) * 255) / 31;\r
  11     Temp.G = (((c & 0x07E0) >> 5) * 255) / 63;\r
  12     Temp.B = ((c & 0x001F) * 255) / 31;\r
  13     return(*(unsigned long *)&Temp);\r
  14 }\r
  15 \r
  16 unsigned short Color32To16(unsigned long c)\r
  17 {\r
  18     Color Temp;\r
  19     unsigned short Result;\r
  20 \r
  21     *(unsigned long *)&Temp = c;\r
  22     Result = (((unsigned short)Temp.R * 31) / 255) << 11;\r
  23     Result |= (((unsigned short)Temp.G * 63) / 255) << 5;\r
  24     Result |= ((unsigned short)Temp.B * 31) / 255;\r
  25     return(Result);\r
  26 }\r
  27 \r
  28 signed short GetArg(unsigned char *Code, unsigned short *Offset, signed short *Variables)\r
  29 {\r
  30     unsigned char ArgType;\r
  31     signed short Result;\r
  32 \r
  33     ArgType = Code[*Offset];\r
  34     switch(ArgType)\r
  35     {\r
  36         case 0:\r
  37             Result = (signed short)((unsigned short)Code[*Offset + 1] + (unsigned short)(Code[*Offset + 2] << 8));\r
  38             *Offset += 3;\r
  39             break;\r
  40         case 1:\r
  41             Result = Regs[Code[*Offset + 1]];\r
  42             *Offset += 2;\r
  43             break;\r
  44         case 2:\r
  45             Result = Variables[Code[*Offset + 1]];\r
  46             *Offset += 2;\r
  47             break;\r
  48     }\r
  49     return(Result);\r
  50 }\r
  51 \r
  52 void Execute(unsigned char *WorkCode, signed short *Variables, unsigned short StartOffset)\r
  53 {\r
  54     unsigned short Offset;\r
  55     unsigned char Finished;\r
  56     unsigned short DestroyObject;\r
  57     unsigned short ObjectNum;\r
  58     unsigned short SpriteNum;\r
  59     unsigned short Instruction;\r
  60     signed short Damage, Damage2;\r
  61     signed short x, y, x2, y2, xv, yv;\r
  62     signed short Data, Data2, Angle;\r
  63     unsigned short dx, dy;\r
  64     unsigned char Frame;\r
  65     unsigned char Smokes;\r
  66     unsigned short Max;\r
  67     unsigned char Register, Player, Reg2, Reg3, Reg4, Reg5, Reg6;\r
  68     unsigned char Data3, Data4;\r
  69     unsigned short Color;\r
  70     unsigned short i;\r
  71     unsigned char DisplayInfo;\r
  72     unsigned char Choice;\r
  73     unsigned short LocalStackPos;\r
  74     unsigned long Misc;\r
  75     float Data5, Data6;\r
  76     static unsigned short DbgPtr = 0;\r
  77 \r
  78     Finished = 0;\r
  79     DisplayInfo = 1;\r
  80     Choice = 0;\r
  81     Offset = StartOffset;\r
  82     LocalStackPos = 0;\r
  83     while(Finished == 0)\r
  84     {\r
  85         if((DebugMode == 1) && (DisplayInfo == 1))\r
  86         {\r
  87             for(i = 0; i < NumClasses; i++)\r
  88             {\r
  89                 if(WorkCode == Classes[i]->Code)\r
  90                     break;\r
  91             }\r
  92             DBFRect(33, 58, 287, 142, MakeColor(0, 255, 0));\r
  93             DBFRect(34, 59, 286, 141, MakeColor(0, 0, 0));\r
  94             Data = sprintf(TextBuffer, "Debugging!\n\n\rClass: %u\n\rOffset: %u\n\n\rCode dump:\n\r", i, Offset);\r
  95             for(y = 0; y < 2; y++)\r
  96             {\r
  97                 for(x = 0; x < 15; x++)\r
  98                 {\r
  99                     Data += sprintf(TextBuffer + Data, " %02X", WorkCode[Offset + x + (y * 15)]);\r
 100                 }\r
 101                 Data += sprintf(TextBuffer + Data, "\n\r");\r
 102             }\r
 103             sprintf(TextBuffer + Data, "\0");\r
 104             DBPrint(TextBuffer, 35, 60, 255);\r
 105             Data = sprintf(TextBuffer, "Register dump:\n\r");\r
 106             for(y = 0; y < 4; y++)\r
 107             {\r
 108                 for(x = 0; x < 8; x++)\r
 109                 {\r
 110                     Data += sprintf(TextBuffer + Data, " %-6i", Regs[x + (y * 8)]);\r
 111                 }\r
 112                 Data += sprintf(TextBuffer + Data, "\n\r");\r
 113             }\r
 114             sprintf(TextBuffer + Data, "\0");\r
 115             DBPrint(TextBuffer, 35, 105, 255);\r
 116             DisplayDB();\r
 117             while(KeyTable[57] == 0)\r
 118             {\r
 119                 GetEvents();\r
 120                 if(KeyTable[203] == 1)\r
 121                 {\r
 122                     if(Choice > 0)\r
 123                         Choice--;\r
 124                     while(KeyTable[203] == 1)\r
 125                         GetEvents();\r
 126                 }\r
 127                 if(KeyTable[205] == 1)\r
 128                 {\r
 129                     if(Choice < 2)\r
 130                         Choice++;\r
 131                     while(KeyTable[205] == 1)\r
 132                         GetEvents();\r
 133                 }\r
 134                 sprintf(TextBuffer, " %cStep       %cRun to return      %cComplete\0", (unsigned short)(Choice == 0)?45:32, (unsigned short)(Choice == 1)?45:32, (unsigned short)(Choice == 2)?45:32);\r
 135                 DBPrint(TextBuffer, 35, 135, 255);\r
 136                 DisplayDB();\r
 137             }\r
 138             while(KeyTable[57] == 1)\r
 139                 GetEvents();\r
 140             if(Choice == 1)\r
 141                 DisplayInfo = 2;\r
 142             if(Choice == 2)\r
 143                 DisplayInfo = 0;\r
 144         }\r
 145         Instruction = (unsigned short)WorkCode[Offset] + ((unsigned short)WorkCode[Offset + 1] << 8);\r
 146         Offset += 2;\r
 147         switch(Instruction)\r
 148         {\r
 149             case 0:                                 //Return\r
 150                 if(DisplayInfo == 2)\r
 151                     DisplayInfo = 1;\r
 152                 if(LocalStackPos == 0)\r
 153                 {\r
 154                     Finished = 1;\r
 155                 } else {\r
 156                     Offset = Stack[--StackPos];\r
 157                     LocalStackPos--;\r
 158                 }\r
 159                 break;\r
 160             case 1:                                 //DestroyObject\r
 161                 DestroyObject = (unsigned short)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 162                 RemoveHitTest(DestroyObject);\r
 163                 if(Objects[DestroyObject]->SpriteLink != 0xFFFF)\r
 164                     Sprites[Objects[DestroyObject]->SpriteLink]->Used = 0;\r
 165                 Objects[DestroyObject]->SpriteLink = 0xFFFF;\r
 166                 Objects[DestroyObject]->Used = 2;\r
 167                 break;\r
 168             case 2:                                 //SpawnExplosion\r
 169                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 170                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 171                 Frame = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 172                 Smokes = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 173                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 174                 SpawnExplosion(x, y, Frame, Smokes, (unsigned char)Data);\r
 175                 break;\r
 176             case 3:                                 //StoreRandom\r
 177                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 178                 Max = (unsigned short)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 179                 Regs[Register] = rand() % Max;\r
 180                 break;\r
 181             case 4:                                 //StoreReg\r
 182                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 183                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 184                 Regs[Register] = Data;\r
 185                 break;\r
 186             case 5:                                 //Add\r
 187                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 188                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 189                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 190                 Regs[Register] = Data + Data2;\r
 191                 break;\r
 192             case 6:                                 //Equals\r
 193                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 194                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 195                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 196                 Regs[Register] = (Data == Data2)?1:0;\r
 197                 break;\r
 198             case 7:                                 //If\r
 199                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 200                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 201                 if(Data != 0)\r
 202                     Offset = Data2;\r
 203                 break;\r
 204             case 8:                                 //SpawnPixel\r
 205                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 206                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 207                 xv = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 208                 yv = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 209                 Player = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 210                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 211                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 212                 Damage = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 213                 Color = (unsigned short)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 214                 SpawnPixel((unsigned short)x, (unsigned short)y, (float)xv / 100, (float)yv / 100, Player, (unsigned char)Data, (unsigned char)Data2, Damage, Color16To32(Color));\r
 215                 break;\r
 216             case 9:                                 //NotEquals\r
 217                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 218                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 219                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 220                 Regs[Register] = (Data != Data2)?1:0;\r
 221                 break;\r
 222             case 10:                                //Substract\r
 223                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 224                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 225                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 226                 Regs[Register] = Data - Data2;\r
 227                 break;\r
 228             case 11:                                //SpawnObject\r
 229                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 230                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 231                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 232                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 233                 xv = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 234                 yv = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 235                 SpawnObject((unsigned short)Data, (unsigned char)Data2, (unsigned short)x, (unsigned short)y, (float)xv / 100, (float)yv / 100);\r
 236                 break;\r
 237             case 12:                                //Goto\r
 238                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 239                 Offset = Data;\r
 240                 break;\r
 241             case 13:                                //StoreVariable\r
 242                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 243                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 244                 Variables[Data] = Data2;\r
 245                 break;\r
 246             case 14:                                //GetLevelInfo\r
 247                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 248                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 249                 if(Data == 0) Regs[Register] = LevelWidth;\r
 250                 if(Data == 1) Regs[Register] = LevelHeight;\r
 251                 if(Data == 2) Regs[Register] = (signed short)LevelFinished;\r
 252                 if(Data == 3) Regs[Register] = (signed short)GameType;\r
 253                 if(Data == 4) Regs[Register] = (signed short)((Gravity + 0.005) * 100);\r
 254                 break;\r
 255             case 15:                                //SetPlayerInfo\r
 256                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 257                 Player = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 258                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 259                 if(Data == 0) Players[Player]->Object = (unsigned short)Data2;\r
 260                 if(Data == 1) Players[Player]->VPObject = (unsigned short)Data2;\r
 261                 if(Data == 2) Players[Player]->Used = (unsigned char)Data2;\r
 262                 if(Data == 3) Players[Player]->Angle = (float)Data2;\r
 263                 if(Data == 4) Players[Player]->Dir = (unsigned char)Data2;\r
 264                 if(Data == 5) Players[Player]->CrossColor = (unsigned long)Color16To32(Data2);\r
 265                 if(Data == 6) Players[Player]->Left = (unsigned char)Data2;\r
 266                 if(Data == 7) Players[Player]->Right = (unsigned char)Data2;\r
 267                 if(Data == 8) Players[Player]->Up = (unsigned char)Data2;\r
 268                 if(Data == 9) Players[Player]->Down = (unsigned char)Data2;\r
 269                 if(Data == 10) Players[Player]->Shoot = (unsigned char)Data2;\r
 270                 if(Data == 11) Players[Player]->Change = (unsigned char)Data2;\r
 271                 if(Data == 13) Players[Player]->Health = (unsigned short)Data2;\r
 272                 if(Data == 14) Players[Player]->MaxHealth = (unsigned short)Data2;\r
 273                 if(Data == 15) Players[Player]->Kills = Data2;\r
 274                 if(Data == 16) Players[Player]->Lives = Data2;\r
 275                 if(Data == 18) Players[Player]->JustShot = (unsigned char)Data2;\r
 276                 if(Data == 18) Players[Player]->CurWeapon = Data2;\r
 277                 break;\r
 278             case 16:                                //GetPlayerInfo\r
 279                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 280                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 281                 Player = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 282                 if(Data == 0) Regs[Register] = (signed short)Players[Player]->Object;\r
 283                 if(Data == 1) Regs[Register] = (signed short)Players[Player]->VPObject;\r
 284                 if(Data == 2) Regs[Register] = (signed short)Players[Player]->Used;\r
 285                 if(Data == 3) Regs[Register] = (signed short)Players[Player]->Angle;\r
 286                 if(Data == 4) Regs[Register] = (signed short)Players[Player]->Dir;\r
 287                 if(Data == 5) Regs[Register] = (signed short)Players[Player]->CrossColor;\r
 288                 if(Data == 6) Regs[Register] = (signed short)Players[Player]->Left;\r
 289                 if(Data == 7) Regs[Register] = (signed short)Players[Player]->Right;\r
 290                 if(Data == 8) Regs[Register] = (signed short)Players[Player]->Up;\r
 291                 if(Data == 9) Regs[Register] = (signed short)Players[Player]->Down;\r
 292                 if(Data == 10) Regs[Register] = (signed short)Players[Player]->Shoot;\r
 293                 if(Data == 11) Regs[Register] = (signed short)Players[Player]->Change;\r
 294                 if(Data == 12)\r
 295                 {\r
 296                     Angle = Players[Player]->Angle;\r
 297                     if(Angle > 90)\r
 298                         Angle -= 360;\r
 299                     if(Players[Player]->Dir == 1)\r
 300                         Angle = 180 - Angle;\r
 301                     if(Angle < 0)\r
 302                         Angle += 360;\r
 303                     Regs[Register] = Angle;\r
 304                 }\r
 305                 if(Data == 13) Regs[Register] = (signed short)Players[Player]->Health;\r
 306                 if(Data == 14) Regs[Register] = (signed short)Players[Player]->MaxHealth;\r
 307                 if(Data == 15) Regs[Register] = (signed short)Players[Player]->Kills;\r
 308                 if(Data == 16) Regs[Register] = (signed short)Players[Player]->Lives;\r
 309                 if(Data == 17) Regs[Register] = (signed short)Players[Player]->JustShot;\r
 310                 if(Data == 18) Regs[Register] = (signed short)Players[Player]->CurWeapon;\r
 311                 break;\r
 312             case 17:                                //SetObjectInfo\r
 313                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 314                 ObjectNum = (unsigned short)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 315                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 316                 if(Data == 0) Objects[ObjectNum]->x = (float)Data2;\r
 317                 if(Data == 1) Objects[ObjectNum]->y = (float)Data2;\r
 318                 if(Data == 2) Objects[ObjectNum]->xv = (float)Data2 / 100;\r
 319                 if(Data == 3) Objects[ObjectNum]->yv = (float)Data2 / 100;\r
 320                 if(Data == 4) Objects[ObjectNum]->SpriteLink = (unsigned short)Data2;\r
 321                 if(Data == 5) Objects[ObjectNum]->Owner = (unsigned char)Data2;\r
 322                 if(Data == 6) Objects[ObjectNum]->Class = (unsigned short)Data2;\r
 323                 if(Data == 7) Objects[ObjectNum]->Used = (unsigned char)Data2;\r
 324                 if(Data == 8) Objects[ObjectNum]->xv = (float)(signed short)Objects[ObjectNum]->xv + ((float)Data2 / 10000);\r
 325                 if(Data == 9) Objects[ObjectNum]->yv = (float)(signed short)Objects[ObjectNum]->yv + ((float)Data2 / 10000);\r
 326                 break;\r
 327             case 18:                                //GetObjectInfo\r
 328                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 329                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 330                 ObjectNum = (unsigned short)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 331                 if(Data == 0) Regs[Register] = (signed short)Objects[ObjectNum]->x;\r
 332                 if(Data == 1) Regs[Register] = (signed short)Objects[ObjectNum]->y;\r
 333                 if(Data == 2) Regs[Register] = (signed short)(Objects[ObjectNum]->xv * 100);\r
 334                 if(Data == 3) Regs[Register] = (signed short)(Objects[ObjectNum]->yv * 100);\r
 335                 if(Data == 4) Regs[Register] = (signed short)Objects[ObjectNum]->SpriteLink;\r
 336                 if(Data == 5) Regs[Register] = (signed short)Objects[ObjectNum]->Owner;\r
 337                 if(Data == 6) Regs[Register] = (signed short)Objects[ObjectNum]->Class;\r
 338                 if(Data == 7) Regs[Register] = (signed short)Objects[ObjectNum]->Used;\r
 339                 if(Data == 8) Regs[Register] = (signed short)((Objects[ObjectNum]->xv - (float)(signed short)Objects[ObjectNum]->xv) * 10000);\r
 340                 if(Data == 9) Regs[Register] = (signed short)((Objects[ObjectNum]->yv - (float)(signed short)Objects[ObjectNum]->yv) * 10000);\r
 341                 break;\r
 342             case 19:                                //ChangeSign\r
 343                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 344                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 345                 Regs[Register] = -Data;\r
 346                 break;\r
 347             case 20:                                //Multiply\r
 348                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 349                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 350                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 351                 Regs[Register] = Data * Data2;\r
 352                 break;\r
 353             case 21:                                //Divide\r
 354                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 355                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 356                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 357                 Regs[Register] = Data / Data2;\r
 358                 break;\r
 359             case 22:                                //Call\r
 360                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 361                 if(StackPos < MAX_STACK)\r
 362                 {\r
 363                     Stack[StackPos++] = Offset;\r
 364                     LocalStackPos++;\r
 365                     Offset = Data;\r
 366                 } else {\r
 367                     sprintf(TextBuffer, "Stack overflow!\n\n\n\rPress space to continue...\0");\r
 368                     DBFRect(68, 88, 252, 112, MakeColor(255, 0, 0));\r
 369                     DBFRect(69, 89, 251, 111, MakeColor(0, 0, 0));\r
 370                     DBPrint(TextBuffer, 70, 90, 255);\r
 371                     DisplayDB();\r
 372                     while(KeyTable[57] == 1)\r
 373                         GetEvents();\r
 374                     while(KeyTable[57] == 0)\r
 375                         GetEvents();\r
 376                 }\r
 377                 break;\r
 378             case 23:                                //SetSpriteInfo\r
 379                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 380                 SpriteNum = (unsigned short)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 381                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 382                 if((unsigned short)SpriteNum == 0xFFFF)\r
 383                     break;\r
 384                 if(Data == 0) Sprites[SpriteNum]->CurFrame = (unsigned char)Data2;\r
 385                 if(Data == 1) Sprites[SpriteNum]->AnimTimer = (unsigned char)Data2;\r
 386                 if(Data == 2) Sprites[SpriteNum]->AnimDelay = (unsigned char)Data2;\r
 387                 if(Data == 3) Sprites[SpriteNum]->Transparent = (unsigned char)Data2;\r
 388                 if(Data == 4) Sprites[SpriteNum]->x = (signed short)Data2;\r
 389                 if(Data == 5) Sprites[SpriteNum]->y = (signed short)Data2;\r
 390                 break;\r
 391             case 24:                                //GetSpriteInfo\r
 392                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 393                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 394                 SpriteNum = (unsigned short)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 395                 if((unsigned short)SpriteNum == 0xFFFF)\r
 396                     break;\r
 397                 if(Data == 0) Regs[Register] = (signed short)Sprites[SpriteNum]->CurFrame;\r
 398                 if(Data == 1) Regs[Register] = (signed short)Sprites[SpriteNum]->AnimTimer;\r
 399                 if(Data == 2) Regs[Register] = (signed short)Sprites[SpriteNum]->AnimDelay;\r
 400                 if(Data == 3) Regs[Register] = (signed short)Sprites[SpriteNum]->Transparent;\r
 401                 if(Data == 4) Regs[Register] = (signed short)Sprites[SpriteNum]->x;\r
 402                 if(Data == 5) Regs[Register] = (signed short)Sprites[SpriteNum]->y;\r
 403                 if(Data == 6) Regs[Register] = (signed short)Sprites[SpriteNum]->Template;\r
 404                 break;\r
 405             case 25:                                //GreaterThan\r
 406                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 407                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 408                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 409                 Regs[Register] = (Data > Data2)?1:0;\r
 410                 break;\r
 411             case 26:                                //LessThan\r
 412                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 413                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 414                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 415                 Regs[Register] = (Data < Data2)?1:0;\r
 416                 break;\r
 417             case 27:                                //GetKey\r
 418                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 419                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 420                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 421                 Regs[Register] = Players[Data]->Keys[Data2];\r
 422                 break;\r
 423             case 28:                                //CalcSine\r
 424                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 425                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 426                 if(Data < 0)\r
 427                     Data += ((unsigned short)(-Data / 360) + 1) * 360;\r
 428                 if(Data >= 360)\r
 429                     Data -= (unsigned short)(Data / 360) * 360;\r
 430                 Regs[Register] = Sine[Data] * 100;\r
 431                 break;\r
 432             case 29:                                //CalcCosine\r
 433                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 434                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 435                 if(Data < 0)\r
 436                     Data += ((unsigned short)(-Data / 360) + 1) * 360;\r
 437                 if(Data >= 360)\r
 438                     Data -= (unsigned short)(Data / 360) * 360;\r
 439                 Regs[Register] = Cosine[Data] * 100;\r
 440                 break;\r
 441             case 30:                                //GetPixelInfo\r
 442                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 443                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 444                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 445                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 446                 if(Data == 0) Regs[Register] = (signed short)Color32To16(GetMapPixel((unsigned short)x, (unsigned short)y, 0));\r
 447                 if(Data == 1) Regs[Register] = (signed short)GetMapPixel((unsigned short)x, (unsigned short)y, 1);\r
 448                 break;\r
 449             case 31:                                //And\r
 450                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 451                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 452                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 453                 Regs[Register] = Data & Data2;\r
 454                 break;\r
 455             case 32:                                //Or\r
 456                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 457                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 458                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 459                 Regs[Register] = Data | Data2;\r
 460                 break;\r
 461             case 33:                                //BNot\r
 462                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 463                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 464                 Regs[Register] = !Data;\r
 465                 break;\r
 466             case 34:                                //Not\r
 467                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 468                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 469                 Regs[Register] = ~Data;\r
 470                 break;\r
 471             case 35:                                //DrawLine\r
 472                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 473                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 474                 x2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 475                 y2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 476                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 477                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 478                 Data3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 479                 Data4 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 480                 DrawLine(x, y, x2, y2, Color16To32(Data), Color16To32(Data2), Data3, Data4);\r
 481                 break;\r
 482             case 36:                                //StorePVar\r
 483                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 484                 Player = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 485                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 486                 Players[Player]->PVars[Data] = Data2;\r
 487                 break;\r
 488             case 37:                                //GetPVar\r
 489                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 490                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 491                 Player = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 492                 Regs[Register] = Players[Player]->PVars[Data];\r
 493                 break;\r
 494             case 38:                                //CalcDist\r
 495                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 496                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 497                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 498                 x2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 499                 y2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 500                 Misc = ((unsigned long)(x - x2) * (unsigned long)(x - x2)) + ((unsigned long)(y - y2) * (unsigned long)(y - y2));\r
 501                 Regs[Register] = sqrt((double)Misc);\r
 502                 break;\r
 503             case 39:                                //CalcAngle\r
 504                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 505                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 506                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 507                 x2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 508                 y2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 509                 Regs[Register] = CalcAngle(x, y, x2, y2);\r
 510                 break;\r
 511             case 40:                                //AddHitTest\r
 512                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 513                 AddHitTest((unsigned short)Data);\r
 514                 break;\r
 515             case 41:                                //RemoveHitTest\r
 516                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 517                 RemoveHitTest((unsigned short)Data);\r
 518                 break;\r
 519             case 42:                                //CopyToMap\r
 520                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 521                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 522                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 523                 Frame = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 524                 Data3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 525                 Data4 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 526                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 527                 CopyToMap(x - Caches[Data]->cx[Frame], y - Caches[Data]->cy[Frame], Caches[Data]->Frames[Frame], Caches[Data]->w, Caches[Data]->h, 0, Data3, Data4, (unsigned short)Data2);\r
 528                 break;\r
 529             case 43:                                //HurtRadius\r
 530                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 531                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 532                 Damage = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 533                 Damage2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 534                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 535                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 536                 Player = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 537                 HurtRadius(x, y, Damage, Damage2, (unsigned short)Data, (unsigned short)Data2, Player);\r
 538                 break;\r
 539             case 44:                                //CollVel\r
 540                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 541                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 542                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 543                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 544                 Data5 = ((float)GetArg(WorkCode, (unsigned short *)&Offset, Variables)) / 100;\r
 545                 Data6 = ((float)GetArg(WorkCode, (unsigned short *)&Offset, Variables)) / 100;\r
 546                 Data3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 547                 CollVel(x, y, (float *)&Data5, (float *)&Data6, Data3);\r
 548                 Regs[Data] = (signed short)(Data5 * 100);\r
 549                 Regs[Data2] = (signed short)(Data6 * 100);\r
 550                 break;\r
 551             case 45:                                //SetObjectVar\r
 552                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 553                 Data3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 554                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 555                 Objects[Data]->Variables[Data3] = Data2;\r
 556                 break;\r
 557             case 46:                                //GetObjectVar\r
 558                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 559                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 560                 Data3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 561                 Regs[Register] = Objects[Data]->Variables[Data3];\r
 562                 break;\r
 563             case 47:                                //Debug\r
 564                 DebugMode = 1;\r
 565                 break;\r
 566             case 48:                                //Trace\r
 567                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 568                 Reg2 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 569                 Reg3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 570                 Reg4 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 571                 Reg5 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 572                 Reg6 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 573                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 574                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 575                 x2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 576                 y2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 577                 Data3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 578                 Data4 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 579                 Data = -1;\r
 580                 Regs[Register] = CollisionTest((signed short *)&x, (signed short *)&y, (signed short *)&x2, (signed short *)&y2, Data3, Data4, (unsigned short *)&Data, 0xFF, 0);\r
 581                 Regs[Reg2] = x;\r
 582                 Regs[Reg3] = y;\r
 583                 Regs[Reg4] = x2;\r
 584                 Regs[Reg5] = y2;\r
 585                 Regs[Reg6] = Data;\r
 586                 break;\r
 587             case 49:                                //CallExternal\r
 588                 ObjectNum = (unsigned short)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 589                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 590                 Execute(Classes[Objects[ObjectNum]->Class]->Code, (signed short *)&Objects[ObjectNum]->Variables[0], Classes[Objects[ObjectNum]->Class]->Scripts[Data]);\r
 591                 break;\r
 592             case 50:                                //SetLevelInfo\r
 593                 Data = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 594                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 595                 if(Data == 0) LevelWidth = Data2;\r
 596                 if(Data == 1) LevelHeight = Data2;\r
 597                 if(Data == 2) LevelFinished = (unsigned short)Data2;\r
 598                 if(Data == 3) GameType = (unsigned char)Data2;\r
 599                 if(Data == 4) Gravity = (float)Data2 / 100;\r
 600                 break;\r
 601             case 51:                                //SpawnSprite\r
 602                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 603                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 604                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 605                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 606                 xv = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 607                 yv = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 608                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 609                 Data3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 610                 Data4 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 611                 Regs[Register] = SpawnSprite((unsigned char)Data, x, y, (signed char)xv, (signed char)yv, Data2, Data3, Data4);\r
 612                 break;\r
 613             case 52:                                //Proximity\r
 614                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 615                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 616                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 617                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 618                 Regs[Register] = -1;\r
 619                 for(i = 0; i < MAX_HITTESTS; i++)\r
 620                 {\r
 621                     if((ObjectNum = HitTests[i]) == 0xFFFF)\r
 622                         break;\r
 623                     if((x >= Objects[ObjectNum]->x - Data) && (x <= Objects[ObjectNum]->x + Data) && (y >= Objects[ObjectNum]->y - Data) && (y <= Objects[ObjectNum]->y + Data))\r
 624                     {\r
 625                         Misc = ((unsigned long)(x - (signed short)Objects[ObjectNum]->x) * (unsigned long)(x - (signed short)Objects[ObjectNum]->x)) + ((unsigned long)(y - (signed short)Objects[ObjectNum]->y) * (unsigned long)(y - (signed short)Objects[ObjectNum]->y));\r
 626                         if((signed short)sqrt((double)Misc) <= Data)\r
 627                         {\r
 628                             Regs[Register] = ObjectNum;\r
 629                             break;\r
 630                         }\r
 631                     }\r
 632                 }\r
 633                 break;\r
 634             case 53:                                //PlaySound\r
 635                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 636                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 637                 PlaySound((unsigned short)Data, (unsigned char)Data2, 0, MAX_SOUNDS - 1, 22050, 1);\r
 638                 break;\r
 639             case 54:                                //MakeColor\r
 640                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 641                 Reg2 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 642                 Reg3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 643                 Reg4 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 644                 Regs[Register] = (Reg2 << 11) + (Reg3 << 5) + Reg4;\r
 645                 break;\r
 646             case 55:                                //SetPixelInfo\r
 647                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 648                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 649                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 650                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 651                 SetMapPixel((unsigned short)x, (unsigned short)y, (Data == 0)?Color16To32(Data2):Data2, Data);\r
 652                 break;\r
 653             case 56:                                //ExtProximity\r
 654                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 655                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 656                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 657                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 658                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 659                 Max = (unsigned short)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 660                 Regs[Register] = -1;\r
 661                 for(i = 0; i < MAX_HITTESTS; i++)\r
 662                 {\r
 663                     if((ObjectNum = HitTests[i]) == 0xFFFF)\r
 664                         break;\r
 665                     if((ObjectNum == Max) || (Objects[ObjectNum]->Class == (unsigned short)Data2))\r
 666                         continue;\r
 667                     if((x >= Objects[ObjectNum]->x - Data) && (x <= Objects[ObjectNum]->x + Data) && (y >= Objects[ObjectNum]->y - Data) && (y <= Objects[ObjectNum]->y + Data))\r
 668                     {\r
 669                         Misc = ((unsigned long)(x - (signed short)Objects[ObjectNum]->x) * (unsigned long)(x - (signed short)Objects[ObjectNum]->x)) + ((unsigned long)(y - (signed short)Objects[ObjectNum]->y) * (unsigned long)(y - (signed short)Objects[ObjectNum]->y));\r
 670                         if((signed short)sqrt((double)Misc) <= Data)\r
 671                         {\r
 672                             Regs[Register] = ObjectNum;\r
 673                             break;\r
 674                         }\r
 675                     }\r
 676                 }\r
 677                 break;\r
 678             case 57:                                //DrawLightning\r
 679                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 680                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 681                 x2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 682                 y2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 683                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 684                 Data3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 685                 DrawLightning(x, y, x2, y2, Data, Data3);\r
 686                 break;\r
 687             case 58:                                //PlaySoundLoop\r
 688                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 689                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 690                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 691                 Misc = (unsigned long)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 692                 Data5 = (float)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 693                 Regs[Register] = (signed short)PlaySound((unsigned short)Data, (unsigned char)Data2, 0, MAX_SOUNDS - 1, Misc * 10, Data5 / 100);\r
 694                 break;\r
 695             case 59:                                //SetSoundInfo\r
 696                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 697                 Data3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 698                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 699                 if(Data == 0) Sounds[Data3].Pitch = (unsigned long)Data2 * 10;\r
 700                 if(Data == 1) Sounds[Data3].Playing = (unsigned char)Data2;\r
 701                 if(Data == 2) Sounds[Data3].Volume = (float)(Data2 / 100);\r
 702                 break;\r
 703             case 60:                                //GetSoundInfo\r
 704                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 705                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 706                 Data3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 707                 if(Data == 0) Regs[Register] = (signed short)(Sounds[Data3].Pitch / 10);\r
 708                 if(Data == 1) Regs[Register] = (signed short)Sounds[Data3].Playing;\r
 709                 if(Data == 2) Regs[Register] = (signed short)(Sounds[Data3].Volume * 100);\r
 710                 break;\r
 711             case 61:                                //TraceCoords\r
 712                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 713                 Reg2 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 714                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 715                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 716                 x2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 717                 y2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 718                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 719                 Data3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 720                 Data4 = 0;\r
 721                 if(x2 > x)\r
 722                 {\r
 723                     xv = 1;\r
 724                     dx = x2 - x;\r
 725                 } else {\r
 726                     xv = -1;\r
 727                     dx = x - x2;\r
 728                 }\r
 729                 if(y2 > y)\r
 730                 {\r
 731                     yv = 1;\r
 732                     dy = y2 - y;\r
 733                 } else {\r
 734                     yv = -1;\r
 735                     dy = y - y2;\r
 736                 }\r
 737                 Max = 0;\r
 738                 if(dx > dy)\r
 739                 {\r
 740                     for(i = 0; i <= dx; i++)\r
 741                     {\r
 742                         Regs[Register] = x;\r
 743                         Regs[Reg2] = y;\r
 744                         if(++Data4 >= Data3)\r
 745                         {\r
 746                             Execute(WorkCode, Variables, Data);\r
 747                             Data4 = 0;\r
 748                         }\r
 749                         GetNextLineCoord(&x, &y, &Max, dx, dy, xv, yv);\r
 750                     }\r
 751                 } else {\r
 752                     for(i = 0; i <= dy; i++)\r
 753                     {\r
 754                         Regs[Register] = x;\r
 755                         Regs[Reg2] = y;\r
 756                         if(++Data4 >= Data3)\r
 757                         {\r
 758                             Execute(WorkCode, Variables, Data);\r
 759                             Data4 = 0;\r
 760                         }\r
 761                         GetNextLineCoord(&x, &y, &Max, dx, dy, xv, yv);\r
 762                     }\r
 763                 }\r
 764                 break;\r
 765             case 62:                                //DecodeColor\r
 766                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 767                 Reg2 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 768                 Reg3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 769                 i = (unsigned short)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 770                 Regs[Register] = (i & 0xF800) >> 11;\r
 771                 Regs[Reg2] = (i & 0x07E0) >> 5;\r
 772                 Regs[Reg3] = i & 0x001F;\r
 773                 break;\r
 774             case 63:                                //DrawPoly\r
 775                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 776                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 777                 x2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 778                 y2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 779                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 780                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 781                 Color = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 782                 Data3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 783                 DrawPoly(x, y, x2, y2, Data, Data2, Color16To32(Color), Data3);\r
 784                 break;\r
 785             case 64:                                //LoopHitTests\r
 786                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 787                 Reg2 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 788                 Reg3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 789                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 790                 for(i = 0; i < MAX_HITTESTS; i++)\r
 791                 {\r
 792                     if(HitTests[i] == 0xFFFF)\r
 793                         break;\r
 794                     Regs[Register] = HitTests[i];\r
 795                     Regs[Reg2] = (signed short)Objects[HitTests[i]]->x;\r
 796                     Regs[Reg3] = (signed short)Objects[HitTests[i]]->y;\r
 797                     Execute(WorkCode, Variables, Data);\r
 798                 }\r
 799                 break;\r
 800             case 65:                                //DrawCircle\r
 801                 x = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 802                 y = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 803                 x2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 804                 Color = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 805                 Data3 = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 806                 DrawCircle(x, y, x2, Color16To32(Color), Data3);\r
 807                 break;\r
 808             case 66:                                //Sqrt\r
 809                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 810                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 811                 if(Data < 0)\r
 812                     Data = 0;\r
 813                 Regs[Register] = (unsigned short)sqrt((float)Data);\r
 814                 break;\r
 815             case 67:                                //Abs\r
 816                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 817                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 818                 if(Data < 0)\r
 819                     Regs[Register] = -Data;\r
 820                 else\r
 821                     Regs[Register] = Data;\r
 822                 break;\r
 823             case 68:                                //StoreGVar\r
 824                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 825                 Data2 = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 826                 GameVars[Data] = Data2;\r
 827                 break;\r
 828             case 69:                                //GetGVar\r
 829                 Register = (unsigned char)GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 830                 Data = GetArg(WorkCode, (unsigned short *)&Offset, Variables);\r
 831                 Regs[Register] = GameVars[Data];\r
 832                 break;\r
 833             case 70:                                //CondDebug\r
 834                 if(KeyTable[68] == 1)\r
 835                     DebugMode = 1;\r
 836                 break;\r
 837             default:\r
 838                 sprintf(TextBuffer, "Unknown instruction %u at offset %u!\n\rCode address: %p\n\n\rPress space to continue...\0", Instruction, Offset, (void *)WorkCode);\r
 839                 DBFRect(68, 88, 252, 112, MakeColor(255, 0, 0));\r
 840                 DBFRect(69, 89, 251, 111, MakeColor(0, 0, 0));\r
 841                 DBPrint(TextBuffer, 70, 90, 255);\r
 842                 DisplayDB();\r
 843                 while(KeyTable[57] == 1)\r
 844                     GetEvents();\r
 845                 while(KeyTable[57] == 0)\r
 846                     GetEvents();\r
 847         }\r
 848     }\r
 849 }\r