1 // ----------------------------------------------------------------------------
3 // ----------------------------------------------------------------------------
7 // static char *VB_Name = "modDemo";
11 // Public Function subCloseDemoRecordingFile()
14 int RecDemoRandomSeed;
18 void subGetNextDemoKey()
22 if (0 < DemoKeyRepeatCounter)
24 DemoKeyRepeatCounter = DemoKeyRepeatCounter - 1;
28 DemoOffset = DemoOffset + 1;
29 if (DemoOffset <= FileMax)
31 ax = PlayField8[DemoOffset];
39 DemoKeyCode = ax & 0xF;
40 DemoKeyRepeatCounter = (ax & 0xF0) / 0x10;
51 currency GetTotalFramesOfDemo()
53 currency GetTotalFramesOfDemo;
59 GetTotalFramesOfDemo = 0;
61 return GetTotalFramesOfDemo;
66 // --- On Error GoTo GetTotalFramesOfDemoEH
70 nFrames = nFrames + (db & 0xF0) / 0x10 + 1;
75 GetTotalFramesOfDemo = nFrames;
76 return GetTotalFramesOfDemo;
78 // GetTotalFramesOfDemoEH:
79 // ReportError "GetTotalFramesOfDemo()", "invalid data detected in file " & OrigPath
80 GetTotalFramesOfDemo = 0;
81 DemoAvailable = False;
83 return GetTotalFramesOfDemo;