SCAR Code:
program LongbowFletcher;
{.include srl/srl.scar}
Var
x,y,knife,Log,Bow: integer;
const
BankCol = 2116441; //color of bank booth counter
Loads = 10; //how many loads to do
KindOfLog = ('Norm'); //first 4 letters of log
BankCounter = 2116441;
//=========================================================================================================================================================
procedure FindColors;
begin
FindColor(x,y,BankCounter,0,0,385,345);
end;
//==========================================================================================================================================================
procedure LoadDTMs;
begin
knife := BitmapFromString(54, 42, 'beNrtl08KgkAYxZ110BmkdYt' +
'q67JlB+gEIiKDiIgWEVKtjCgqKQxKCFp1yF6OuHEdPGIe7wA/3jff' +
'nzGMUb9naGlpaf2JBDmetG3fccjxKkIxME1CPGJCocAaExIGrts43' +
'2ZkhCL0vMZlflZ4VISRlMoIkBAv8X1lBPi8XvjmoZgHAYwAKcegWI' +
'QhjACr+jKO6GUUgRD1LQ57Qrw0jkGIAFHfd/ngJMQLRH3vpyMh3mq' +
'WoL5oEGw62hfI3CBTqwO/bkW14EjxGkhyQjnpsvG18ARtgAqP7Qhs' +
'43ESUhaXH68e0dV2I/zEfYXdsdusseZoCcGWpSlld9TCCsYlQxsgh' +
'BuVOUDVKdx4Wlo/0dgaMmJ9AElzg04=');
Log := BitmapFromString(43, 36, 'beNqtWO9rE0EQbT75XQqKWokio' +
'khDS0JLWpXUYk0Npq1BLRUtir9AoVBQREStKCIi4ldBEEEEEcT/0B' +
'deOpnO7Oyd6DGE3jZ3783bN7O7adZGgmuuWTO3Osy/5mcn9Tj/MI+' +
'0psb1LR7hU3xkoVVHjBRdBjo/niRsWCHarQag8cmIoM2/IiZJAhl0' +
'vpmRVEAGhYCH5ncylPTUeFkkfY+VZFUm90I7GW1lFvRI/p1lDFOSN' +
'u0nESX+fy8zBRqOuRsCml7RVdkZxZqICbXshOsPnm4keabI9BEXpg' +
'8tnTxy5cyx6+0TNzvjGPHiS/r8JFDSA5ETUmpUOs3DvdbRtbPHH/Q' +
'mEfeWJ0hgolottJOZdGQtiQfC2rjdrT1cm9pcbSA2LtUR4FCeQNHk' +
'VqAnUoOwkBeZUmeMABdYAAW6hNDIE9AeyKPf7+zb6O7fXDnw/MbM0' +
'/Xm42vTgkJojJjAIAmMje7KW7GMq59cPvjrwzICBDQHgcaICQySAE' +
'TTImS6QaxDheiIrVuzJEAIQpOVCRLAxBGdBLT5zbrpuSljDAlgFsh' +
'BB0Z8QBxUAUxSxgO+L+0s9iGBR72xV3dOJREZ1IcGgD+p/z94YFBi' +
'QkA4eBrEhSdRfYCG+EBHW7g4M9qu785zCGqwAg0ZGl0y1dPNomPnY' +
'YADbkFGxjNSJJvq+vwewPENeD8KAcFKZGB+2WyBpeF0bdKiZEhlkh' +
'xIQD4573cX9/58v/TtTefzizZfCHS8kHASES5DSyQEvCdl3dHG27p' +
'aheYg8OXlIt+MdgRW0n/Yb6UNmm6ga4T2yBDA1lSKThSA4L8/rnx/' +
'e0EIcArQEn3biaC1P1kXSQIoQLMhwddgACjw41336+vzIID0jRWlK' +
'3poQWe94JYEMF+RAhRBmxCZwgMggFmgCTMEkn2J6AjMDqBNV9SNSK' +
'+G207oL0AAwhSAwKdn57wCviX6xAUaDQFrKAn4oov6ACw3WAdXG6j' +
'KPAHdDMX2Zs+g0y/aXCU2IbofmvarO7BH1JGEgQGibbB6cLgoQwER' +
'QZb+CNQfJMvviGRw+yUDDmLCCDfafkeXK4GCzQnLKo/rD86ZE4o+l' +
'/lDk9PEpvxXB7GkIH5XnNwvScfW85s/8pQ8oPmjsV4dImLRLxWZ3C' +
'MCeiXyZyW/V8xTKv9zgT+aRRzMuDFtBFrS2HN/AJPyok4=');
Bow := BitmapFromString(49, 36, 'beNqtmM1KHEEQx7ePitF1dx9gn' +
'0Bc4sEPkI1KWJSAGAQRRAURRULIIYcchBw8CB6EQA4BTz6pNVuxqK' +
'2uquma3aFZpnt6pn9T9Z+q6m216Pi0sbK7NcBzOIE2Gq7hCY2IBhP' +
'wLutq7YjaWsZhXRXYgjZ/IxqBLr8q7v08/AjNR3JQ4V6LXzUpTSMq' +
'fiMMwgPhF1sBUrLA8ATfTp0z2l6DxicjEgdDJGxlVkpP58tjqmQhq' +
'V3rwEVzW0WQKqrb0YfHMx2s8CBLooNyx5H1irVUwfw8XCKw/b1NHy' +
'CkzNoR9Vjt94HkaH2eg9XaJLpKo6MiudhZmARL0UVJz6Kba6zcXBz' +
's73VXWEx1nDAdj1HYzWUW0gaBkfLHI63GAkMk6oJWuVx96U7O+a8u' +
'geREKidmiueXYFjqAg/+uerkaicq/7tuLCEHaTSY+/V1KfddCVIoX' +
'EQN9fq956cenoAw14RcaYvHpAJFvdz1nGClGopbCYqcqC2ISmRSov' +
'rxZfHfTdexlaMo4CGkmXozfTtYzMNUXiNN7ZSiOe9rVWEBP8Da+nA' +
'mSLkmeWnEk87zZadx2VBIFQxcla5KQjq3lSohJ2ZGkcB9hCRURI+q' +
'rYFnHqweTtvCd1W1prk+WrpYKqqtkCEj57lP5YlGJEQiI0c8mH6ft' +
'GtFXl7colk4gJc69S8x3R+3uaHUeklIKFeU5Sba/nBxYtd+xyr3IZ' +
'WVztTdSrRWj1ipoqIiQd2QWjfm3plCP0o6RiraHKkit8aFWegVRML' +
'lEYzg7ZiTqOwUSLSz86tQYRDfPupVtUJAKuTBRhLCHW5h9s+NIxYt' +
'QRqvldBKqCh/UStGTbMTFPxoE+KBFdUJzR5eG9AcL1OaQyOUeyqUZ' +
'AHY/x5JvSW7zgb/cU38R8SsR+eqDVG6vEv/aHkR8g3yLiIh');
end;
//=====================================================================================================================================================
procedure OpenAndBank;
begin
repeat
If FindColor(x,y,BankCounter,0,0,385,345) then
MoveMouseSmooth(x,y)
until (IsUpText('boot'));
if IsUpText('boot')then
wait(300+random(200));
ClickMouse(x,y,False)
wait(300+random(100));
ChooseOption('uick')
Flag;
If (FindDTM(Log,x,y,0,0,-314,-132)) then
Mouse(x,y,-314,-132,False);
ChooseOption('All');
Repeat
If (FindDTM(Log,x,y,0,0,88,-113)) then
MoveMouseSmooth(x,y)
Until(IsUpText(KindOfLog));
If IsUpText(KindOfLog) then
Mouse(x,y,5,5,False);
wait(200+random(100));
ChooseOption('All');
Closebank;
end;
//==================================================================================================================================
Procedure Fletch;
begin
if findDTM(Knife,x,y,0,0,56,124) then
Mouse(x,y,2,2,True);
if FindDTM(Log,x,y,0,0,153,88) then
Mouse(x,y,2,2,True);
wait(1000+random(200));
Mouse(0,0,-155,-76,False)
ChooseOption('ake x');
wait(500+random(200));
TypeSend('99')
wait(50000+random(2000));
end;
//=========================================================================================================================
procedure ProgressReport;
begin
ClearDebug;
WriteLn('{}-------------------------------------------------------------{}');
WriteLn('-------------------->Darkfire355LongbowFletch<--------------------');
WriteLn(' Script ran for: ' +TimeRunning);
WriteLn(' Script did : ' +IntToStr(Loads) + ' Loads ' + ' ');
// WriteLn(' Script has made approx. ' + IntToStr(w) + ' Longbows ' + ' ');
WriteLn(' Gained some exp');
WriteLn('{}-------------------------------------------------------------{}');
end;
//--------------------------------------------------------------------------------------------------------------------
begin
//Here you need to put all the procedures what you want to do, this is the mainloop
end.