1 // ----------------------------------------------------------------------------
3 // ----------------------------------------------------------------------------
7 static char *VB_Name = "modDemo";
10 // Public Function subCloseDemoRecordingFile()
13 int RecDemoRandomSeed;
17 void subGetNextDemoKey()
21 if (0 < DemoKeyRepeatCounter)
23 DemoKeyRepeatCounter = DemoKeyRepeatCounter - 1;
27 DemoOffset = DemoOffset + 1;
28 if (DemoOffset <= FileMax)
30 ax = PlayField8[DemoOffset];
38 DemoKeyCode = ax & 0xF;
39 DemoKeyRepeatCounter = (ax & 0xF0) / 0x10;
50 currency GetTotalFramesOfDemo()
52 currency GetTotalFramesOfDemo;
58 GetTotalFramesOfDemo = 0;
60 return GetTotalFramesOfDemo;
65 // --- On Error GoTo GetTotalFramesOfDemoEH
69 nFrames = nFrames + (db & 0xF0) / 0x10 + 1;
74 GetTotalFramesOfDemo = nFrames;
75 return GetTotalFramesOfDemo;
77 GetTotalFramesOfDemoEH:
78 // ReportError "GetTotalFramesOfDemo()", "invalid data detected in file " & OrigPath
79 GetTotalFramesOfDemo = 0;
80 DemoAvailable = False;
82 return GetTotalFramesOfDemo;