SRL Archive - MSI Suggestions

Proggie saver


Naum

2010-03-16 16:03:41

I started on a progress report saver for MSI. However, there are a few drawbacks:

-> A new Folder called 'MSI Progress Reports'
-> A sub folder called Woodcutter.

Hierarchy: SRL/MSI/MSI Progress Reports/REPORT.TXT

The 'REPORT' Part will be, I think, that time and date so:

12:30pm_4/4/04.txt

Allowing for consistent format. But, feel free to discuss it - or overhaul the idea. It's really beneficial if your SCAR closes and you want the last 'proggie'. Furthermore, it also keeps a log - so you can select your best ones :sasmokin:

On the other hand, the drawbacks are predominantly minor things such as clearing the folder of reports before commiting. But that's done in SRL_Logs anyway, so it's good practice.

DONE!

Firstly, create a folder in MSI called MSI Progress Reports.
Open up SCAR and replace this as your script:

program New;
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/Misc/Debug.Scar}
{.Include SRL/SRL/Misc/Users.Scar}

Var X, Y, I : Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
TP : TPoint;
TB : TBox;

Procedure MSI_SaveReport;
Var FileH : Integer;
Path, Debug, FileS : String;
TSA : TStringArray;
Begin
Path := AppPath+'Includes\SRL\SRL\MSI\MSI Progress Reports\';
WriteLn(Path);
FileS := Copy(TheTime, 1, Pos('PM', TheTime) - 2);
FileS := Replace(FileS, ':', '-');
WriteLn(FileS);
FileH := ReWriteFile(Path + FileS + ' ' + TheDate(Date_Formal) + '.txt', False);
WriteLn(Path + FileS + ' ' + TheDate(Date_Formal));
Debug := Copy(GetDebugText, (LastPos('MSI Extreme', GetDebugText) - 88),
iAbs((LastPos('}', GetDebugText)+1) - (LastPos('MSI Extreme', GetDebugText) - 88)));
FileS := Debug;
WriteFileString(FileH, 'Progress Report Saved:'+#13+#10);
WriteFileString(FileH, #13+#10+'This proggie was written '+TheTime+' at '+TheDate(Date_Formal)+#13+#10);
WriteFileString(FileH, FileS);
CloseFile(FileH);
End;

Begin
SetupSRL;
SRLPlayerForm(False, [], [], [], []);
MSI_SaveReport;
End.

Save it! Then put this as your debug:

05:25:58 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:25:58 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: 16 objects found!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: 16 objects found!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: 16 objects found!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: 16 objects found!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: 16 objects found!
05:26:00 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:26:00 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:26:00 PM: troll cohen: Detail: MSI_FindObjects: 23 objects found!
05:26:04 PM: troll cohen: Detail: MSI_FindObjectsTPA: No colors found!
05:26:04 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:26:05 PM: troll cohen: Detail: MSI_FindObjectsTPA: Own character!
05:26:05 PM: troll cohen: Detail: MSI_FindObjects: 28 objects found!
05:26:08 PM: troll cohen: Detail: MSI_FindObjectsTPA: No colors found!
05:26:08 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:26:08 PM: troll cohen: Entering Func: MSI_CountItems: Found 21 of item Logs
{----------------------------------------------------------------}
{ MSI Extreme Player Report }
{----------------------------------------------------------------}
{ Time Running: 7 Minutes and 19 Seconds }
{----------------------------------------------------------------}
{ }
{ Player 0: Empty Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: False }
{ Reason: User set to False }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 1: Troll Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 1 }
{ Experience: 525 }
{ Level: 39 }
{ Item: Normal logs }
{ Amount: 21 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 2: Cohen Gorak }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 3: Honour Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 4: Broddi Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 5: Cohen Abyss }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 6: Pirate Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 7: Run Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
05:26:42 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:26:47 PM: troll cohen: Detail: MSI_FindObjectsTPA: No colors found!
05:26:47 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:26:48 PM: troll cohen: Detail: MSI_FindObjects: 23 objects found!
05:26:51 PM: troll cohen: Detail: MSI_FindObjectsTPA: No colors found!
05:26:51 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:26:51 PM: troll cohen: Detail: MSI_FindObjects: 16 objects found!

05:38:18 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:18 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:18 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:18 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:38:22 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:22 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:22 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:22 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:22 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:23 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:23 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:23 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:23 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:23 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:23 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:38:25 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:25 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:25 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:28 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
{----------------------------------------------------------------}
{ MSI Extreme Player Report }
{----------------------------------------------------------------}
{ Time Running: 19 Minutes and 8 Seconds }
{----------------------------------------------------------------}
{ }
{ Player 0: Empty Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: False }
{ Reason: User set to False }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 1: Troll Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 3 }
{ Experience: 875 }
{ Level: 39 }
{ Item: Normal logs }
{ Amount: 35 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 2: Cohen Gorak }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 3: Honour Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 4: Broddi Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 5: Cohen Abyss }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 6: Pirate Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 7: Run Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
05:38:30 PM: troll cohen: Player Action: MSI_MainLoop: Switching players
NextPlayer
SwitchToPlayer(PlayerNo: 2, Active: True);
Welcome to Runescape.
Cohen Gorak
Successfully executed
Successfully compiled (3169 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script
Line 6: [Hint] (24265:5): Variable 'Y' never used in script
Line 6: [Hint] (24265:5): Variable 'I' never used in script
Line 7: [Hint] (24266:1): Variable 'TPA' never used in script
Line 8: [Hint] (24267:1): Variable 'ATPA' never used in script
Line 9: [Hint] (24268:1): Variable 'TP' never used in script
Line 10: [Hint] (24269:1): Variable 'TB' never used in script
SRL Compiled in 15 msec
C:\Program Files\SCAR\
Successfully executed
Failed when compiling
Line 15: [Error] (24274:1): Unknown identifier 'Debug' in script
Successfully compiled (3149 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script

riable 'TB' never used in script
TB' never used in script
SRL Compiled in 16 msec
-1
Successfully executed
Successfully compiled (3138 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script
Line 6: [Hint] (24265:5): Variable 'Y' never used in script
Line 6: [Hint] (24265:5): Variable 'I' never used in script
Line 7: [Hint] (24266:1): Variable 'TPA' never used in script
Line 8: [Hint] (24267:1): Variable 'ATPA' never used in script
Line 9: [Hint] (24268:1): Variable 'TP' never used in script
Line 10: [Hint] (24269:1): Variable 'TB' never used in script
SRL Compiled in 16 msec
386127
Successfully executed
Successfully compiled (3198 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script
Line 6: [Hint] (24265:5): Variable 'Y' never used in script
Line 6: [Hint] (24265:5): Variable 'I' never used in script
Line 7: [Hint] (24266:1): Variable 'TPA' never used in script
Line 8: [Hint] (24267:1): Variable 'ATPA' never used in script
Line 9: [Hint] (24268:1): Variable 'TP' never used in script
Line 10: [Hint] (24269:1): Variable 'TB' never used in script
SRL Compiled in 15 msec
Successfully executed
Successfully compiled (3203 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script
Line 6: [Hint] (24265:5): Variable 'Y' never used in script
Line 6: [Hint] (24265:5): Variable 'I' never used in script
Line 7: [Hint] (24266:1): Variable 'TPA' never used in script
Line 8: [Hint] (24267:1): Variable 'ATPA' never used in script
Line 9: [Hint] (24268:1): Variable 'TP' never used in script
Line 10: [Hint] (24269:1): Variable 'TB' never used in script
SRL Compiled in 16 msec
[Runtime Error] : Out Of Range in line 19 in script
Successfully compiled (3227 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script
Line 6: [Hint] (24265:5): Variable 'Y' never used in script
Line 7: [Hint] (24266:1): Variable 'TPA' never used in script
Line 8: [Hint] (24267:1): Variable 'ATPA' never used in script
Line 9: [Hint] (24268:1): Variable 'TP' never used in script
Line 10: [Hint] (24269:1): Variable 'TB' never used in script
SRL Compiled in 16 msec
Successfully executed
Successfully compiled (3212 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script
Line 6: [Hint] (24265:5): Variable 'Y' never used in script
Line 7: [Hint] (24266:1): Variable 'TPA' never used in script
Line 8: [Hint] (24267:1): Variable 'ATPA' never used in script
Line 9: [Hint] (24268:1): Variable 'TP' never used in script
Line 10: [Hint] (24269:1): Variable 'TB' never used in script
SRL Compiled in 16 msec
Successfully executed

Now press run. It would have saved a new .txt file in your MSI Progress Reports folder. The most recent one should be something like this:

Progress Report Saved:

This proggie was written -TIME-
{----------------------------------------------------------------}
{ MSI Extreme Player Report }
{----------------------------------------------------------------}
{ Time Running: 19 Minutes and 8 Seconds }
{----------------------------------------------------------------}
{ }
{ Player 0: Empty Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: False }
{ Reason: User set to False }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 1: Troll Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 3 }
{ Experience: 875 }
{ Level: 39 }
{ Item: Normal logs }
{ Amount: 35 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 2: Cohen Gorak }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 3: Honour Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 4: Broddi Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 5: Cohen Abyss }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 6: Pirate Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 7: Run Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}

It should work…

NCDS

2010-03-16 16:27:09

I like the idea, especially for such a project. We might as well.

Wizzup?

2010-03-16 16:30:18

Uuuuuuuuuuuuuhmmm… Why don't you just write the report to a file…

Naum

2010-03-16 16:31:36

From: Wizzup?
Uuuuuuuuuuuuuhmmm… Why don't you just write the report to a file…


That's what I'm doing.

Sir R. M8gic1an

2010-03-16 16:36:00

No need to have a woodcutter subfolder. Do keep in mind that in the future it should be able to switch between skills without restarting the script, and different players might be doing different skills, so it'd be a pain in the ass to set it to the correct folder each time…

~RM

Naum

2010-03-16 16:46:31

True that is. So the folder MSI Proggies remains?

Sir R. M8gic1an

2010-03-16 16:48:52

From: Naum
True that is. So the folder MSI Proggies remains?


Definitely.

~RM

Naum

2010-03-16 16:57:31

Cool :)
I'm done. Firstly, create a folder in MSI called MSI Progress Reports.
Open up SCAR and replace this as your script:

program New;
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/Misc/Debug.Scar}
{.Include SRL/SRL/Misc/Users.Scar}

Var X, Y, I : Integer;
TPA : TPointArray;
ATPA : T2DPointArray;
TP : TPoint;
TB : TBox;

Procedure MSI_SaveReport;
Var FileH : Integer;
Path, Debug, FileS : String;
TSA : TStringArray;
Begin
Path := AppPath+'Includes\SRL\SRL\MSI\MSI Progress Reports\';
WriteLn(Path);
FileS := Copy(TheTime, 1, Pos('PM', TheTime) - 2);
FileS := Replace(FileS, ':', '-');
WriteLn(FileS);
FileH := ReWriteFile(Path + FileS + ' ' + TheDate(Date_Formal) + '.txt', False);
WriteLn(Path + FileS + ' ' + TheDate(Date_Formal));
Debug := Copy(GetDebugText, (LastPos('MSI Extreme', GetDebugText) - 88),
iAbs((LastPos('}', GetDebugText)+1) - (LastPos('MSI Extreme', GetDebugText) - 88)));
FileS := Debug;
WriteFileString(FileH, 'Progress Report Saved:'+#13+#10);
WriteFileString(FileH, #13+#10+'This proggie was written '+TheTime+' at '+TheDate(Date_Formal)+#13+#10);
WriteFileString(FileH, FileS);
CloseFile(FileH);
End;

Begin
SetupSRL;
SRLPlayerForm(False, [], [], [], []);
MSI_SaveReport;
End.

Save it! Then put this as your debug:

05:25:58 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:25:58 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: 16 objects found!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: 16 objects found!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: 16 objects found!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: 16 objects found!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:25:59 PM: troll cohen: Detail: MSI_FindObjects: 16 objects found!
05:26:00 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:26:00 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:26:00 PM: troll cohen: Detail: MSI_FindObjects: 23 objects found!
05:26:04 PM: troll cohen: Detail: MSI_FindObjectsTPA: No colors found!
05:26:04 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:26:05 PM: troll cohen: Detail: MSI_FindObjectsTPA: Own character!
05:26:05 PM: troll cohen: Detail: MSI_FindObjects: 28 objects found!
05:26:08 PM: troll cohen: Detail: MSI_FindObjectsTPA: No colors found!
05:26:08 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:26:08 PM: troll cohen: Entering Func: MSI_CountItems: Found 21 of item Logs
{----------------------------------------------------------------}
{ MSI Extreme Player Report }
{----------------------------------------------------------------}
{ Time Running: 7 Minutes and 19 Seconds }
{----------------------------------------------------------------}
{ }
{ Player 0: Empty Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: False }
{ Reason: User set to False }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 1: Troll Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 1 }
{ Experience: 525 }
{ Level: 39 }
{ Item: Normal logs }
{ Amount: 21 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 2: Cohen Gorak }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 3: Honour Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 4: Broddi Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 5: Cohen Abyss }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 6: Pirate Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 7: Run Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
05:26:42 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:26:47 PM: troll cohen: Detail: MSI_FindObjectsTPA: No colors found!
05:26:47 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:26:48 PM: troll cohen: Detail: MSI_FindObjects: 23 objects found!
05:26:51 PM: troll cohen: Detail: MSI_FindObjectsTPA: No colors found!
05:26:51 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:26:51 PM: troll cohen: Detail: MSI_FindObjects: 16 objects found!

05:38:18 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:18 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:18 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:18 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:38:19 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:20 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:21 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:38:22 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:22 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:22 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:22 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:22 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:23 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:23 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:23 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:23 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:23 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:23 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:24 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:38:25 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:25 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:25 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
05:38:26 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: 26 objects found!
05:38:27 PM: troll cohen: Detail: MSI_FindObjects: Uptext didn't match!
05:38:28 PM: troll cohen: Detail: MSI_FindObjects: Objects not found!
{----------------------------------------------------------------}
{ MSI Extreme Player Report }
{----------------------------------------------------------------}
{ Time Running: 19 Minutes and 8 Seconds }
{----------------------------------------------------------------}
{ }
{ Player 0: Empty Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: False }
{ Reason: User set to False }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 1: Troll Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 3 }
{ Experience: 875 }
{ Level: 39 }
{ Item: Normal logs }
{ Amount: 35 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 2: Cohen Gorak }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 3: Honour Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 4: Broddi Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 5: Cohen Abyss }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 6: Pirate Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 7: Run Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
05:38:30 PM: troll cohen: Player Action: MSI_MainLoop: Switching players
NextPlayer
SwitchToPlayer(PlayerNo: 2, Active: True);
Welcome to Runescape.
Cohen Gorak
Successfully executed
Successfully compiled (3169 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script
Line 6: [Hint] (24265:5): Variable 'Y' never used in script
Line 6: [Hint] (24265:5): Variable 'I' never used in script
Line 7: [Hint] (24266:1): Variable 'TPA' never used in script
Line 8: [Hint] (24267:1): Variable 'ATPA' never used in script
Line 9: [Hint] (24268:1): Variable 'TP' never used in script
Line 10: [Hint] (24269:1): Variable 'TB' never used in script
SRL Compiled in 15 msec
C:\Program Files\SCAR\
Successfully executed
Failed when compiling
Line 15: [Error] (24274:1): Unknown identifier 'Debug' in script
Successfully compiled (3149 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script

riable 'TB' never used in script
TB' never used in script
SRL Compiled in 16 msec
-1
Successfully executed
Successfully compiled (3138 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script
Line 6: [Hint] (24265:5): Variable 'Y' never used in script
Line 6: [Hint] (24265:5): Variable 'I' never used in script
Line 7: [Hint] (24266:1): Variable 'TPA' never used in script
Line 8: [Hint] (24267:1): Variable 'ATPA' never used in script
Line 9: [Hint] (24268:1): Variable 'TP' never used in script
Line 10: [Hint] (24269:1): Variable 'TB' never used in script
SRL Compiled in 16 msec
386127
Successfully executed
Successfully compiled (3198 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script
Line 6: [Hint] (24265:5): Variable 'Y' never used in script
Line 6: [Hint] (24265:5): Variable 'I' never used in script
Line 7: [Hint] (24266:1): Variable 'TPA' never used in script
Line 8: [Hint] (24267:1): Variable 'ATPA' never used in script
Line 9: [Hint] (24268:1): Variable 'TP' never used in script
Line 10: [Hint] (24269:1): Variable 'TB' never used in script
SRL Compiled in 15 msec
Successfully executed
Successfully compiled (3203 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script
Line 6: [Hint] (24265:5): Variable 'Y' never used in script
Line 6: [Hint] (24265:5): Variable 'I' never used in script
Line 7: [Hint] (24266:1): Variable 'TPA' never used in script
Line 8: [Hint] (24267:1): Variable 'ATPA' never used in script
Line 9: [Hint] (24268:1): Variable 'TP' never used in script
Line 10: [Hint] (24269:1): Variable 'TB' never used in script
SRL Compiled in 16 msec
[Runtime Error] : Out Of Range in line 19 in script
Successfully compiled (3227 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script
Line 6: [Hint] (24265:5): Variable 'Y' never used in script
Line 7: [Hint] (24266:1): Variable 'TPA' never used in script
Line 8: [Hint] (24267:1): Variable 'ATPA' never used in script
Line 9: [Hint] (24268:1): Variable 'TP' never used in script
Line 10: [Hint] (24269:1): Variable 'TB' never used in script
SRL Compiled in 16 msec
Successfully executed
Successfully compiled (3212 ms)
Line 6: [Hint] (24265:5): Variable 'X' never used in script
Line 6: [Hint] (24265:5): Variable 'Y' never used in script
Line 7: [Hint] (24266:1): Variable 'TPA' never used in script
Line 8: [Hint] (24267:1): Variable 'ATPA' never used in script
Line 9: [Hint] (24268:1): Variable 'TP' never used in script
Line 10: [Hint] (24269:1): Variable 'TB' never used in script
SRL Compiled in 16 msec
Successfully executed

Now press run. It would have saved a new .txt file in your MSI Progress Reports folder. The most recent one should be something like this:

Progress Report Saved:

This proggie was written -TIME-
{----------------------------------------------------------------}
{ MSI Extreme Player Report }
{----------------------------------------------------------------}
{ Time Running: 19 Minutes and 8 Seconds }
{----------------------------------------------------------------}
{ }
{ Player 0: Empty Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: False }
{ Reason: User set to False }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 1: Troll Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 3 }
{ Experience: 875 }
{ Level: 39 }
{ Item: Normal logs }
{ Amount: 35 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 2: Cohen Gorak }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 3: Honour Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 4: Broddi Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 5: Cohen Abyss }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 6: Pirate Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}
{ }
{ Player 7: Run Cohen }
{ City: Varrock }
{ Location: Varrock east trees }
{ Active: True }
{ }
{ Skill: Woodcutting }
{ Loads: 0 }
{ Experience: 0 }
{ Level: 0 }
{ Item: Normal logs }
{ Amount: 0 }
{ }
{----------------------------------------------------------------}

It should work…

marpis

2010-03-16 17:03:09

very nice :) rep+

Nava2

2010-03-16 17:17:34

Why not just make the report a TStringArray rather than writeln'ing it each time, then save it to a file?

Wizzup?

2010-03-16 17:27:14

From: Naum
That's what I'm doing.


No, you are using Pos() and GetDebugText. I'm saying you should write the progress report directly to a file.
Overkill, overcomplicated.

Coh3n

2010-03-16 20:28:44

From: Wizzup?
No, you are using Pos() and GetDebugText. I'm saying you should write the progress report directly to a file.
Overkill, overcomplicated.

^ That's what I thought you were doing. :p

E: I've always used WriteINI for what I've needed to do, but couldn't you use do like a WriteFileString for each line of the progress report? It would be a bunch of extra lines in the proggy, but it would get the job done.

Nava2

2010-03-16 21:15:23

From: Coh3n
^ That's what I thought you were doing. :p

E: I've always used WriteINI for what I've needed to do, but couldn't you use do like a WriteFileString for each line of the progress report? It would be a bunch of extra lines in the proggy, but it would get the job done.


Or just make everything a TStringArray and use a for loop to writeln and write to a file..

Coh3n

2010-03-16 21:18:12

From: Nava2
Or just make everything a TStringArray and use a for loop to writeln and write to a file..

Yeah that too. If we did that, we could have a function that puts it in the array, safes to file, and prints in the report box.

You're so smart :rolleyes:

Wizzup?

2010-03-16 21:26:19

Or make a function that calls writeln() and writetofile… WriteMyReport(s:string);

Coh3n

2010-03-16 21:39:31

From: Wizzup?
Or make a function that calls writeln() and writetofile… WriteMyReport(s:string);



procedure AddToProggy(s: String);
var
fileName: String;
begin
fileName := AppPath + 'Reports.txt';

AddToReport(s);
WriteFileString(fileName, s);
end;

procedure ProgressReport;
var
i, j, k: integer;
skill, item: TStringArray;
intItems: TIntegerArray;
fileName: String;
begin
ClearReport;
GetReportInfo;

fileName := AppPath + 'Reports.txt';
WriteFileString(fileName, 'This proggie was written ' + TheTime + ' at ' + TheDate(Date_Formal));

AddToProggy('{----------------------------------------------------------------}');
AddToProggy('{ MSI Extreme Player Report }');
AddToProggy('{----------------------------------------------------------------}'); //64 from '{' to '}'
AddToProggy('{ ' + PadR('Time Running: ' + TimeRunning, 59) + '}');
AddToProggy('{----------------------------------------------------------------}');

for i := 0 to (HowManyPlayers - 1) do
with ProgressReportArray[i] do
begin
AddToProggy('{ }');
// { Player 0: Player Name }
AddToProggy('{ ' + PadR('Player ' + IntToStr(i) + ': ' + Capitalize(PlayerName), 59) + '}'); //PlayerName
// { City: Varrock }
AddToProggy('{ ' + PadR('City: ' + LocToText(PlayerCity), 59) + '}'); //PlayerCity
// { Location: VE_Trees }
AddToProggy('{ ' + PadR('Location: ' + LocToText(PlayerLoc), 59) + '}'); //PlayerLoc
// { Active: True }
AddToProggy('{ ' + PadR('Active: ' + Capitalize(BoolToStr(PlayerStatus)), 59) + '}'); //PlayerStatus
if (not PlayerStatus) then
// { Reason: Failed to bank items } //FalseReason
AddToProggy('{ ' + PadR('Reason: ' + FalseReason, 57) + '}');
AddToProggy('{ }');

for j := 0 to High(SkillInfo) do //SkillInfo
with SkillInfo[j] do
begin
skill := SkillTextArray(PlayerSkills[CurrentPlayer][j]);
// { Skill: Woodcutting }
AddToProggy('{ ' + PadR('Skill: ' + skill[0], 59) + '}');
// { Loads: 45 }
AddToProggy('{ ' + PadR('Loads: ' + IntToStr(TotalLoads), 57) + '}'); //TotalLoads
// { Experience: 38,650 }
AddToProggy('{ ' + PadR('Experience: ' + GroupDigits(Round(TotalEXP), ','), 57) + '}'); //TotalEXP
// { Level: 91 }
AddToProggy('{ ' + PadR('Level: ' + IntToStr(Level), 57) + '}'); //Level

intItems := MSI_GetItemList(i, j);
for k := 0 to High(intItems) do //TotalObj
begin
item := ObjTextArray(PlayerSkills[CurrentPlayer][j], intItems[k]);
// { Item: Normal logs }
AddToProggy('{ ' + PadR('Item: ' + item[0], 55) + '}');
// { Amount: 1,546 }
AddToProggy('{ ' + PadR('Amount: ' + GroupDigits(ObjQuants[k], ','), 55) + '}'); //ObjQuants
end;

AddToProggy('{ }');
AddToProggy('{----------------------------------------------------------------}');
end;
end;

AddToProggy('{----------------------------------------------------------------}');
end;

NCDS

2010-03-16 22:17:56

Seems like the time and the date should be swapped?

WriteFileString(fileName, 'This proggie was written ' + TheTime + ' at ' + TheDate(Date_Formal));

Coh3n

2010-03-16 22:18:59

From: NCDS
Seems like the time and the date should be swapped?

WriteFileString(fileName, 'This proggie was written ' + TheTime + ' at ' + TheDate(Date_Formal));

Lol, yeah. I just copied from Naums script. :p

Naum

2010-03-17 03:17:36

From: Wizzup?
No, you are using Pos() and GetDebugText. I'm saying you should write the progress report directly to a file.
Overkill, overcomplicated.


Oh, lol. My bad. I misunderstood you there. I thought you meant writing the whole thing to a file, instead of each line individually.

From: Coh3n

procedure AddToProggy(s: String);
var
fileName: String;
begin
fileName := AppPath + 'Reports.txt';

AddToReport(s);
WriteFileString(fileName, s);
end;

procedure ProgressReport;
var
i, j, k: integer;
skill, item: TStringArray;
intItems: TIntegerArray;
fileName: String;
begin
ClearReport;
GetReportInfo;

fileName := AppPath + 'Reports.txt';
WriteFileString(fileName, 'This proggie was written ' + TheTime + ' at ' + TheDate(Date_Formal));

AddToProggy('{----------------------------------------------------------------}');
AddToProggy('{ MSI Extreme Player Report }');
AddToProggy('{----------------------------------------------------------------}'); //64 from '{' to '}'
AddToProggy('{ ' + PadR('Time Running: ' + TimeRunning, 59) + '}');
AddToProggy('{----------------------------------------------------------------}');

for i := 0 to (HowManyPlayers - 1) do
with ProgressReportArray[i] do
begin
AddToProggy('{ }');
// { Player 0: Player Name }
AddToProggy('{ ' + PadR('Player ' + IntToStr(i) + ': ' + Capitalize(PlayerName), 59) + '}'); //PlayerName
// { City: Varrock }
AddToProggy('{ ' + PadR('City: ' + LocToText(PlayerCity), 59) + '}'); //PlayerCity
// { Location: VE_Trees }
AddToProggy('{ ' + PadR('Location: ' + LocToText(PlayerLoc), 59) + '}'); //PlayerLoc
// { Active: True }
AddToProggy('{ ' + PadR('Active: ' + Capitalize(BoolToStr(PlayerStatus)), 59) + '}'); //PlayerStatus
if (not PlayerStatus) then
// { Reason: Failed to bank items } //FalseReason
AddToProggy('{ ' + PadR('Reason: ' + FalseReason, 57) + '}');
AddToProggy('{ }');

for j := 0 to High(SkillInfo) do //SkillInfo
with SkillInfo[j] do
begin
skill := SkillTextArray(PlayerSkills[CurrentPlayer][j]);
// { Skill: Woodcutting }
AddToProggy('{ ' + PadR('Skill: ' + skill[0], 59) + '}');
// { Loads: 45 }
AddToProggy('{ ' + PadR('Loads: ' + IntToStr(TotalLoads), 57) + '}'); //TotalLoads
// { Experience: 38,650 }
AddToProggy('{ ' + PadR('Experience: ' + GroupDigits(Round(TotalEXP), ','), 57) + '}'); //TotalEXP
// { Level: 91 }
AddToProggy('{ ' + PadR('Level: ' + IntToStr(Level), 57) + '}'); //Level

intItems := MSI_GetItemList(i, j);
for k := 0 to High(intItems) do //TotalObj
begin
item := ObjTextArray(PlayerSkills[CurrentPlayer][j], intItems[k]);
// { Item: Normal logs }
AddToProggy('{ ' + PadR('Item: ' + item[0], 55) + '}');
// { Amount: 1,546 }
AddToProggy('{ ' + PadR('Amount: ' + GroupDigits(ObjQuants[k], ','), 55) + '}'); //ObjQuants
end;

AddToProggy('{ }');
AddToProggy('{----------------------------------------------------------------}');
end;
end;

AddToProggy('{----------------------------------------------------------------}');
end;


I'll put that in my MSI and give it a run whilst I'm at school (7 hours). If it does everything correctly, there's no reason it shouldn't, then I'll commit.

Sir R. M8gic1an

2010-03-17 07:14:10

Do remember do add the 'enter' character when writing to file :p

~RM

Nava2

2010-03-17 08:00:45

#10#13 :)

Wizzup?

2010-03-17 08:08:42

From: Nava2
#10#13 :)


#10

Gu3st...

2010-03-17 11:20:29

#10#13 is used in windows
#10 is used in linux

(was it necessary to have 3 posts??

Wizzup?

2010-03-17 13:26:05

From: Zyt3x
#10#13 is used in windows
#10 is used in linux

(was it necessary to have 3 posts??


#10 works fine in Windows too, unless you use notepad.