Ok, well i use to be quite active around here then i left rs and left srl-forums too. Well now im back and im making a few scripts again. The one that im making right now is very simple. Its not finished yet though. Im hoping someone can help me and tell me when im getting File Access Error and why it doesnt do anything after repeat in the main loop because i tested it with numbers having it write a number 1 -10 depenging on how far it got. It seemed to end right at the repeat and not do anything.
Well Heres the script:
SCAR Code:
program Moola;
{.include SRL/srl.scar}
var SpinNumber, WheelNumber:Integer;
const
TimesToTry = 10; //Number Of Time You Want It To Search For The Wheel.
WaitBetweenTries = 7200000; //Number Of Millseconds Between Searches (7200000 = 2 Hours ) (wheel only come about every 6 hours but is suposivly random)
function IsHomePage: boolean;
begin
result:= GetColor(745, 406) =13160660;
end;
procedure SearchHome;
begin
if IsHomePage then
begin
WriteLn('Were at The Search Home Page')
HoldMouse(632, 334,True);
MMouse(437, 335, 0, 0); {< Gets ready To Input Text! }
ReleaseMouse(437, 335, True);
WriteLn('Clearing Old Text');
end else
begin
writeln('were not at the search Homepage')
HoldMouse(427, 207,True);
MMouse(256, 207, 0, 0); {< Gets ready To Input Text! }
ReleaseMouse(256, 207, True);
WriteLn('Clearing Old Text');
end;
SpinNumber := SpinNumber+1;
end;
procedure WriteText; {Writes A text, edit it if you want} {its what it searches}
begin
Wait(700+random(400))
begin
Case Random(20) of
0: TypeSend('NHL Stats');
1: TypeSend('SRL Forums');
2: TypeSend('Yahoo');
3: TypeSend('Moola Strategys');
4: TypeSend('Runescape');
5: TypeSend('Runescape Scar');
6: TypeSend('Hockey Standings');
7: TypeSend('Hockey Playoffs');
8: TypeSend('Msn Messenger');
9: TypeSend('Moola Search');
10: TypeSend('Freddy1990');
11: TypeSend('Scar 3.14');
12: TypeSend('Ice Hockey');
13: TypeSend('Canada');
14: TypeSend('USA');
15: TypeSend('SRL Manuel');
16: TypeSend('Computers');
17: TypeSend('ebay');
18: TypeSend('wikipedia');
19: TypeSend('sports');
20: TypeSend('Traveling');
end;
writeLn('Started Search')
end;
end;
procedure refresh;
begin
Mouse(116, 38, 4, 4, true)
wait(2000+random(100))
end;
Function IsThereWheel : Boolean;
begin
result:= GetColor(387, 278) =10053171;
end;
procedure ContinueOfWheel;
begin
if (Not(IsThereWheel)) then
begin
WheelNumber:= WheelNumber+1
end;
end;
procedure PrintProgressReport;
begin
WriteLn(' ----------------------------------')
WriteLn('We have searched ' + IntToStr(SpinNumber) + ' Times!')
WriteLn('We Have Gotten The Wheel '+ IntToStr(WheelNumber) + ' Times!')
WriteLn(' ----------------------------------')
end;
begin
SetupSRL;
IsHomepage;
repeat
Wait(WaitBetweenTries+random(40000))
SearchHome;
WriteText;
IsThereWheel;
ContinueOfWheel;
refresh;
PrintProgressReport;
until(SpinNumber>TimesToTry)
end.