I find that it is better to put a time countdown when a script is sleeping rather than just saying "Sleeping for 12 minutes". So, I made a simple function to disguise SCAR to a timer which counts down how much time is left in whatever you are waiting for.
(sorry if that description is confusing :s)
SCAR Code://-------------------------------------------------------------\\
// Procedure TimeStatus(WaitTime: Integer); ||
// Creates a countdown for however long you input into ||
// WaitTime, and sets it as the SCAR disguise. ||
//-------------------------------------------------------------//
Procedure TimeStatus(WaitTime: Integer);
var
Hours, Minutes, Seconds, G: Integer;
Ticker: String;
begin
MarkTime(G);
while (WaitTime > TimeFromMark(G)) do
begin
Wait(500);
ConvertTime(WaitTime - TimeFromMark(G), Hours, Minutes, Seconds);
if (Hours > 0) and (Minutes > 0) then
begin
Ticker := '' + IntToStr(Hours) + ':' + IntToStr(Minutes) + ':' + IntToStr(Seconds);
Disguise('Waiting for: ' + Ticker);
end;
if (Hours = 0) and (Minutes > 0) then
begin
Ticker := '' + IntToStr(Minutes) + ':' + IntToStr(Seconds);
Disguise('Waiting for: ' + Ticker);
end;
if (Hours = 0) and (Minutes = 0) then
begin
Ticker := '' + IntToStr(Seconds);
Disguise('Waiting for: ' + Ticker);
end;
end;
end;






Reply With Quote










