SCAR Code:
program WCFMtrainer;
//|||||||||||||||||||||||||||||||||||\\
// Script made by: All that is man \\
// Start by trees and it should do \\
// the rest :) \\
// \\
// \\
//|||||||||||||||||||||||||||||||||||\\
{.include srl/srl.scar}
var
x, y, normallog, normaltree, tinderbox : integer;
ProceDure Load;
Begin;
NormalLog := BitmapFromString(7, 4, 'beNpjYCgLlm1IsWxKsYYjB' +
'gYGNWYBBgdJ1iQLpgQrIGJwMAAKFgRKpDppAZGDg0aCg0KKkwIDVg' +
'AAB2YOCg==');
NormalTree := DTMFromString('78DA633CCEC0C0709001052465D930FC07D28' +
'C40FC1F0818F70019D751D5D87B4B806946289F713B90588FAAA6' +
'ACDE1F55CD6D20B115558D899524AA9A5B40E216AA1A497976143' +
'5008B0F107F');
TinderBox := BitmapFromString(3, 5, 'beNpjYPBwYPT5z8nwn8HtP' +
'4fLfw4GBgYHSw4gAjIYDRkcwQwoAADhZwcr');
End;
Procedure AntiBan;
Begin
case random(12) of
1: Hoverskill('random', false);
2, 3: HoverSkill('mining', false);
4: PickupMouse;
5: Begin
MakeCompass('w');
wait(50+random(124));
Makecompass('s');
wait(50+random(124));
MakeCompass('random');
wait(50+random(124));
MakeCompass('n');
End;
6: Mmouse(0, 0, 800, 800);
End;
End;
Function LogInInv : Boolean;
Begin
If FindBitMapToleranceIn(NormalLog, x, y, MIx1, MIy1, MIx2, MIy2, 500) Then
Begin
Result := True;
End;
End;
Function CheckTinderBox : Boolean;
Begin
If FindBitMapToleranceIn(Tinderbox, x, y, MIx1, MIy1, MIx2, MIy2, 255) Then
Begin
Result := True;
end else
Begin
Writeln('Did not find tinderbox, please get one.');
TerminateScript;
End;
End;
Procedure ChopDownTree;
Begin
If not (LogInInv) Then
Begin
If FindDTM(NormalTree, x, y, MSx1, MSy1, MSx2, MSy2) Then
Begin
MMouse(x, y, 5, 5);
Wait(250+Random(166));
If IsUpText('hop') Then
Begin
Mouse(x, y, 5, 5, True);
Repeat
Wait(500);
Until(LogInInv);
End;
End;
End;
End;
Procedure LightTheLog;
Begin
If FindBitMapToleranceIn(Tinderbox, x, y, MIx1, MIy1, MIx2, MIy2, 255) Then
Begin
Mouse(x, y, 5, 5, True);
If FindBitMapToleranceIn(NormalLog, x, y, MIx1, MIy1, MIx2, MIy2, 255) Then
Begin
Mouse(x, y, 5, 5, True);
Repeat
Wait(500);
Until not (LogInInv);
End;
End;
End;
begin
ClearDebug;
ActivateClient;
SetUpSrl;
Load;
ChecktinderBox;
repeat
ChopDownTree;
AntiBan;
LightTheLog;
AntiBan;
until(False);
end.