Amends
2012-08-13 12:29:52
So I've been toying with this for awhile now but to no avail and so i need your guys help. Ive been trying to get the six hour fix to work but it hasn't done much for me. I tried looking through the forums a few times and all the fixes i could find weren't working.
Please let me know what im doing wrong (Here's a snippet of the script, just mainloop and procedure that includes six hour fix)
Thanks kindly for any input
Please let me know what im doing wrong (Here's a snippet of the script, just mainloop and procedure that includes six hour fix)
procedure SetUpStuff;
begin
ClearDebug;
{$IFDEF SMART}
{$IFDEF SIMBAMAJOR980}
Smart_Server := 55;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ELSE}
SRL_SixHourFix := True;
Smart_FixSpeed := True;
{$ENDIF}
{$ENDIF}
SetUpSRL;
DeclarePlayers;
if not LoggedIn then
begin
repeat
LoginPlayerToLob;
until LobbyScreen;
OpenWorldScreen;
if not WorldScreen then
OpenWorldScreen;
if WorldScreen then
begin
SelectWorld(MainWorld);
LogInPlayer;
end;
end;
while not LoggedIn do
wait(500);
ActivateClient;
wait(100+random(100));
end;
begin
SetUpStuff;
MakeCompass('E');
SetAngle(SRL_ANGLE_HIGH);
GameTab(tab_Emotes);
repeat
begin
//Sendkeys(CRText, 50, 50);
TypeSendEx(CRText, true);
Writeln('Text entered…');
Writeln('Pausing!');
Mouse(573, 423, 2, 2, true);
wait((DelayMessage*1000)-random(500)+random(1000));
end;
until (false);
end.
Thanks kindly for any input