Hello themadtux!
10 Jun 17 00:33, you wrote to dream master:
then do
count : byte;
hehe... was a step ahead of ya.. did that and now it faults on
Txt String Array(1..50);
it should be Txt : Array[1..50] of String;
lol... think we need an updated mpl for this little mod =] Cause I'm
an idiot when it comes to this stuff. Wish that wasn't the case that's
for sure.
The whole script is...
// .-------------------------.
// | GO-PAWZ.MPS : RELEASE 8 |------------------------------------------------ // `-------------------------'
//
// This mod is written for use with Mystic BBS v1.10 under all platforms.
//
// You can contact me at
mysticbbs@gmail.com
//
// Changelog since last release:
// - Updated for Mystic 1.10
// - Added input buffer purge to fix problems with SyncTerm
// - Inactivity time is now pulled from configuration. 0=Disable now.
// ---------------------------------------------------------------------------
Uses
CFG
Const
AsciiPause = '[Press any key]';
Var
Count : Byte;
FN : String;
Ext : String;
SavedX : Byte;
SavedY : Byte;
tStart : LongInt;
tNow : LongInt;
dTime : Integer;
Ch : Char;
Txt : Array[1..50] of String;
TxtMax : Byte;
Procedure GetFileName;
Var
F : File;
Begin
If Not FileExist(FN + Ext) Then Begin
WriteLn ('|CR|12ERROR: |14Animated pause data not found.');
Halt;
End;
If FileExist(FN + 'tx1') Then
Repeat
Count := Random(10);
If Count = 0 Then
Ext := 'txt'
Else
Ext := 'tx' + Int2Str(Count);
Until FileExist(FN + Ext);
Count := 1;
fAssign (F, FN + Ext, 66);
fReset (F);
fReadLn (F, Txt[1]);
dTime := Str2Int(Txt[1]);
While Not fEof(F) and Count < 50 Do Begin
fReadLn (F, Txt[Count]);
Count := Count + 1;
End;
fClose (F);
TxtMax := Count - 1;
End;
Procedure CheckTimeOut;
Begin
If CfgTimeOut = 0 Then Exit;
tNow := Timer - tStart;
If tNow > CfgTimeOut Then Begin
WriteLn (GetPrompt(136));
SysopLog ('GO-PAWZ: Timeout');
Hangup;
End;
End;
Procedure DoPause;
Begin
Count := 1;
Repeat
CheckTimeOut;
GotoXY (SavedX, SavedY);
Write (Txt[Count]);
If Count = TxtMax Then
Count := 1
Else
Count := Count + 1;
Delay (dTime);
Until KeyPressed;
PurgeInput;
StuffKey(#13);
End;
Begin
PurgeInput;
tStart := Timer;
If Graphics = 0 Then Begin
Write (AsciiPause);
Repeat
CheckTimeOut;
Until KeyPressed;
Halt;
End;
FN := CfgTextPath + 'anipause.';
Ext := 'txt';
SavedX := WhereX;
SavedY := WhereY;
GetFileName;
DoPause;
End;
--- GoldED+/W32-MSVC 1.1.5-b20160201
* Origin: flupH * fluph.darktech.org (21:1/105)