Ive read one tutorial on scripting, some of it I didn't understand...Even with the help of other tutorials I did not completely understand what i needed to know... I managed to get this far but now im really stuck... Wizzup? has suggested that i post my script here...
SCAR Code:program Hidecrafter;
{.include SRL/SRL.scar}
const
StartPlayer = 0;
NumberOfUsers = 1;
HowManyLoads = 10;
Direction = 'N'; //What direction you want to make the compass
Procedure Declareplayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers );
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Loc :='Bank';
Players[0].Active:=True;
Players[0].String1:='Hardleather'; //What type of leather?
Players[0].String2:=''; //bank pin if any
end;
procedure declareDTMS;
begin
Needle := DTMFromString('78DA63DCC1C4C0F09C910119880A098169982' +
'8E349A09A0BA86A60B2703507816AEEA3AA29C9C94155B317D3AE' +
'F953A7A2A80100B17309E0');
Hardleather := DTMFromString('78DA637CC4C4C0B089910119D89A288369982' +
'8E32FA09ACDA86A0C141450D57C07AAD98FAA06260B57F310A8E6' +
'007E3500B09C07B3');
Thread := DTMFromString('78DA63B467666058CDC8800CCC5421344C94D' +
'102A8E630AA1A5B4D343520738EA0AA09B2E04455E30E54B30D55' +
'CDBCC99351D57801D56C40551363876A0E0002FD08B9');
end;
procedure Report;
begin
SRLRandomsReport;
WriteLn(' Rebels hidecrafter prgress report ')
WriteLn(' Running Time: ' + (TimeRunning) + '')
WriteLn(' Hidescrafted: ' + IntToStr(Hidescrafted) + '')
WriteLn(' XP Gained: ' + IntToStr(TotalXP) + '')
end;
procedure withdrawhides;
begin
OpenBank;
wait(200+random(300));
;
wait(200+random(200));
;
wait(200+random(300));
closebank;
end;
Procedure bankhides;
begin
OpenBank;
wait(600+random(500));
;
wait(400+random(500));
end;
Procedure crafthides;
begin
If(Not(LoggedIn)) Then
LoginPlayer;
Repeat
withdrawhides;
crafthides;
bankhides;
end.
I also made this
SCAR Code:Procedure crafthides;
MoveMouseSmooth(800,444)
ClickMouse(800,444,true)
MoveMouseSmooth(844,444)
ClickMouse(844,444,true)
MoveMouseSmooth(712,485)
ClickMouse(712,485,true)
MoveMouseSmooth(752,485)
ClickMouse(752,485,true)
MoveMouseSmooth(800,485)
ClickMouse(800,250,true)
MoveMouseSmooth(844,485)
ClickMouse(844,250,true)
MoveMouseSmooth(712,521)
ClickMouse(712,250,true)
MoveMouseSmooth(752,521)
ClickMouse(752,250,true)
MoveMouseSmooth(800,521)
ClickMouse(800,250,true)
MoveMouseSmooth(844,521)
ClickMouse(844,250,true)
MoveMouseSmooth(712,554)
ClickMouse(712,250,true)
MoveMouseSmooth(752,554)
ClickMouse(752,250,true)
MoveMouseSmooth(800,554)
ClickMouse(800,250,true)
MoveMouseSmooth(844,554)
ClickMouse(844,250,true)
MoveMouseSmooth(712,593)
ClickMouse(712,250,true)
MoveMouseSmooth(752,593)
ClickMouse(752,250,true)
MoveMouseSmooth(800,593)
ClickMouse(800,250,true)
MoveMouseSmooth(844,593)
ClickMouse(844,250,true)
MoveMouseSmooth(712,628)
ClickMouse(712,250,true)
MoveMouseSmooth(752,628)
ClickMouse(752,250,true)
MoveMouseSmooth(800,628)
ClickMouse(800,250,true)
MoveMouseSmooth(844,628)
ClickMouse(844,250,true)
MoveMouseSmooth(712,670)
ClickMouse(712,250,true)
MoveMouseSmooth(752,670)
ClickMouse(752,250,true)
MoveMouseSmooth(800,670)
ClickMouse(800,250,true)
MoveMouseSmooth(844,670)
ClickMouse(844,250,true)


Reply With Quote



Even If You Are On Your Way, You Will Get Run Over If You Just Sit There.


