THIS ISN'T A FUCKING RSBOT SCRIPT, ITS FOR SCAR!!!
No setup is needed, it loads everything from a form. Enjoy!
BTW: I don't recommend doing Normal/Oak trees unless the area you are in only has that type of tree, as a lot of false mouse movement will occur due to the two trees having nearly the same colors.
No setup is needed, it loads everything from a form. Enjoy!
BTW: I don't recommend doing Normal/Oak trees unless the area you are in only has that type of tree, as a lot of false mouse movement will occur due to the two trees having nearly the same colors.
Code:
program PowerChopper;
{.include SRL\SRL.SCAR}
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Button1 : TButton;
ComboBox1 : TComboBox;
username, password, nickname : String;
ChopDown1, ChopDown2, ChopDown3, TreeType : Integer;
x, y, i, w, Inv1, Inv2, color1, color2, color3, tol : Integer;
procedure DeclarePlayers;
begin
CurrentPlayer := 0;
NumberOfPlayers(1);
Players[0].Name := username;
Players[0].Pass := password;
Players[0].Nick := nickname;
Players[0].Active := True;
end;
procedure AntiRandoms;
begin
FindNormalRandoms;
FindTalk;
FindLamp('woodcutting');
end;
procedure AntiBan;
begin
case(Random(15))of
1: HoverSkill('woodcutting', false);
2: BoredHuman;
3: PickupMouse;
4: RandomRClick;
5: RandomMovement;
6: Wait(5000+random(10000));
7: MMouse(Random(750), Random(750), Random(100), Random(100));
8: begin
case(random(5)) of
0: makecompass('N');
1: makecompass('S');
2: makecompass('E');
3: makecompass('W');
end;
end;
9: begin
case(random(10)) of
0: typesend('Lol');
1: typesend('Omg');
2: typesend('Lmao');
3: typesend('Lagg');
end;
end;
10: begin
case(random(100)) of
0: begin
w := random(120000);
writeLn('Breakhandler: Taking break for ' + IntToStr(w));
Logout;
Wait(w);
LoginPlayer;
end;
1: begin
w := random(2000000);
writeLn('Breakhandler: Taking break for ' + IntToStr(w));
Logout;
Wait(w);
LoginPlayer;
end;
end;
end;
end;
end;
procedure SmartDrop;
begin
for i:= 2 to 28 do
begin
Wait(50+random(100));
AntiRandoms;
DropItem(i);
end;
end;
procedure Chop;
begin
if(TreeType=1)then begin
color1 := 1063215;
color2 := 1131319;
color3 := 2315339;
tol := 5;
if(findColorTolerance(x, y, color1, msx1, msy1, msx2, msy2, tol) or
findColorTolerance(x, y, color2, msx1, msy1, msx2, msy2, tol) or
findColorTolerance(x, y, color3, msx1 ,msy1, msx2, msy2, tol))then
begin
MMouse(x, y, 1, 1);
if(isuptext('ree')) then
case(random(2))of
0: Mouse(x, y, 1, 1, true);
1: case(random(3))of
1: begin
ChopDown1 := BitmapFromString(36, 6, 'beNoLcf8PBgwMDLEhCDaQ' +
'ROYisyGycHE0BJRjQJKCc9EMgbPRAC5lJNkF4WK1C+54qtsF9yMa9' +
'z9e75NhF7JFcBFcbDy6sCrDr5KGCACGEQ3n');
Mouse(x, y, 1, 1, false);
if(findbitmap(ChopDown1, x, y))then
Mouse(x, y, 1, 1, true);
end;
2: begin
ChopDown2 := BitmapFromString(48, 10, 'beNrFlEsKwCAMRHu7XqD' +
'b3v8Y06JEJj+UkuLgwgRJHskgcF9nyTkAc6oqf0d61WFE+5GEZztJ' +
'FQ9o0WgKQ2gt8oR2yjzWM77pqMbhIGkeSZFSHrGTMhghjbxv2pMhj' +
'5RR2HMe8jY/CO/hEFiGx49xhSf9Fszcoqa8lL94SH5fnOfQ3Et4/I' +
'hU/gHhYWf3');
Mouse(x, y, 1, 1, false);
if(findbitmap(ChopDown2, x, y))then
Mouse(x, y, 1, 1, true);
end;
3: begin
ChopDown3 := BitmapFromString(98, 7, 'beNrFVVsOwyAMy+16gf3u' +
'/sfoEKyRycOkotMiPoJJnWACFTm7icj7deA4Z8uWKjhh1rzht2RKy' +
'sPRtieQ5Tvtw8bMoMGXKrUlX550q+AhrcaMvEtOP83Kq6rUDQNGbh' +
'XK4FwljDI7KvqPcA4RuLA+XarSJZEJIP5yR5v+PqexejqiUnitgh6' +
'Dm6gdm3X731WCrv+NSmAh7l+hZRnmZMNzR3LyU+CcA8cUlfJuqRS2' +
'DXvqZ90U8T4G+6fV89jKZyOcimd+Vp5Pl01LJX0A5eTb5Q==');
Mouse(x, y, 1, 1, false);
if(findbitmap(ChopDown3, x, y))then
Mouse(x, y, 1, 1, true);
end;
end;
end;
end;
end;
if(TreeType=2)then begin
color1 := 728859;
color2 := 2317908;
color3 := 3433050;
tol := 5;
if(findColorTolerance(x, y, color1, msx1, msy1, msx2, msy2, tol) or
findColorTolerance(x, y, color2, msx1, msy1, msx2, msy2, tol) or
findColorTolerance(x, y, color3, msx1 ,msy1, msx2, msy2, tol))then
begin
MMouse(x, y, 1, 1);
if(isuptext('ak')) then
case(random(2))of
0: Mouse(x, y, 1, 1, true);
1: case(random(3))of
1: begin
ChopDown1 := BitmapFromString(45, 8, 'beNq9kssRgDAIROnOBnK1' +
'/zJwTGQDm88kOchwAAfY52q67vSl5ui2GgMzPkX1TZFZm7NdkUYLi' +
'74FgG3oFkaVy/sg8WykVYS6GHYm0B64wXgmSq/sgzBa087cYIyp81' +
'sYOEu6IyT6NzBcJNBSvYJBPvuZ2UcpdTwYdmNdDY8STGIxer5+6u9' +
'8ABe/1ao=');
Mouse(x, y, 1, 1, false);
if(findbitmap(ChopDown1, x, y))then
Mouse(x, y, 1, 1, true);
end;
2: begin
ChopDown2 := BitmapFromString(85, 4, 'beNpjYPgPBgxgEBviDmfA' +
'xYFsWiBamw/yC9B8ZK+BuUQ6Yzh5HyuXGO/DAS4pYsTxmAy3F6teP' +
'Fw8ziPS+xAuQe8DpTDthaQoYsRxRTqyvQTNxOTich6R3oeyAeut12' +
'w=');
Mouse(x, y, 1, 1, false);
if(findbitmap(ChopDown2, x, y))then
Mouse(x, y, 1, 1, true);
end;
3: begin
ChopDown3 := BitmapFromString(97, 8, 'beNrdlVsSgCAIRdldG/C3' +
'/S+jhzhGCnidzGly/ABKHmcQw7KGc29xERELhZHV4ftt/7yPkihGY' +
'QH/X02V7Vn4AaKLD5cGUPIRTS5hJiKn/OeI8rI+IXbHc46rnnVUJz' +
'0QUVLvraVezCYia0aBdqt5ZNymz1q10gMRyTsoaUhuzZlTp13/j8h' +
'DfDIBn2odDu+iEp3gA86i4Yi65GLh4bq6qESkzRD1sn8EUW6VrnDy' +
'FVNfN0dOB3fytUmn');
Mouse(x, y, 1, 1, false);
if(findbitmap(ChopDown3, x, y))then
Mouse(x, y, 1, 1, true);
end;
end;
end;
end;
end;
if(TreeType=3)then
begin
color1 := 3164221;
color2 := 2110764;
color3 := 3164734;
tol := 5;
WriteLn('Willows');
if(findColorTolerance(x, y, color1, msx1, msy1, msx2, msy2, tol) or
findColorTolerance(x, y, color2, msx1, msy1, msx2, msy2, tol) or
findColorTolerance(x, y, color3, msx1 ,msy1, msx2, msy2, tol))then
begin
MMouse(x, y, 1, 1);
if(isuptext('illo')) then
case(random(2))of
0: Mouse(x, y, 1, 1, true);
1: case(random(3))of
1: begin
ChopDown1 := BitmapFromString(87, 4, 'beNr7/z82xB2I/oMBhE0L' +
'RGvzgYjh/38GVCswRTDFkdkQRzIwMNA0EGhnPtw7yFZgimCKI7NHe' +
'CCMkJSAmQUQ4gAd1ITM');
Mouse(x, y, 1, 1, false);
if(findbitmap(ChopDown1, x, y))then
Mouse(x, y, 1, 1, true);
end;
2: begin
ChopDown2 := BitmapFromString(56, 7, 'beNq9k9ENwCAIRN3OBfx1' +
'/zGoxWrPQ6umTQkfBwF8aAw+Bi9qSWTHUFqrNehO5PRkKjBzFahRn' +
'mtyWCZgksBqC4aVUCn6qMSJgs4acd6NsKzdBUm6nGVAs84W50vtAI' +
'yMOO21/8dZbtg+7hYnDcRH/IwTnr5OJr3CyailfZFn0g5h/pUjbX9' +
'uHxXM5qfTHtrjARuo/zA=');
Mouse(x, y, 1, 1, false);
if(findbitmap(ChopDown2, x, y))then
Mouse(x, y, 1, 1, true);
end;
3: begin
ChopDown3 := BitmapFromString(107, 7, 'beNrdlkkOgCAMRbmdF3D' +
'r/Y+ByFAqtZ8SISY2LEqFDk9K8D6Ii3LsGyneZ3vQV4zV/q9agv97' +
'CGmRdm0NrkWu/z3ApK8GSKJ9stiBZ4r7uBdMQXoSF7Fq4NS+0wHmK' +
'aPdwO8CjPHbzFNoi107eBxg16ecaukBgFwxnsC6kf0FCRm3sFasUZ' +
'/iM/HBzMHNBgC+1F1JDN+B0wEO6Y3Ywy0HWAa1gNY+nwOkYzYUTlb' +
'q+HtjCsAgJ6oFKmU=');
Mouse(x, y, 1, 1, false);
if(findbitmap(ChopDown3, x, y))then
Mouse(x, y, 1, 1, true);
end;
end;
end;
end;
end;
end;
function Chopping: Boolean;
begin
inv1 := InvCount;
wait(5000 + random(3000));
inv2 := InvCount;
if inv1=inv2 then
result := false else
result := true;
end;
procedure ButtonClick(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
case ComboBox1.Text of
'Normal' : TreeType := 1;
'Oak' : TreeType := 2;
'Willow' : TreeType := 3;
end;
end;
procedure CreateForum;
begin
frmDesign := CreateForm;
frmDesign.Left := 236;
frmDesign.Top := 199;
frmDesign.Width := 235;
frmDesign.Height := 196;
frmDesign.Caption := 'PowerChopper v1.0';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 8;
Label1.Top := 8;
Label1.Width := 48;
Label1.Height := 13;
Label1.Caption := 'Username';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 8;
Label2.Top := 56;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 8;
Label3.Top := 32;
Label3.Width := 48;
Label3.Height := 13;
Label3.Caption := 'Nickname';
Edit1 := TEdit.Create(frmDesign);
Edit1.Parent := frmDesign;
Edit1.Left := 64;
Edit1.Top := 8;
Edit1.Width := 145;
Edit1.Height := 21;
Edit1.TabOrder := 8;
Edit2 := TEdit.Create(frmDesign);
Edit2.Parent := frmDesign;
Edit2.Left := 64;
Edit2.Top := 32;
Edit2.Width := 145;
Edit2.Height := 21;
Edit2.TabOrder := 9;
Edit3 := TEdit.Create(frmDesign);
Edit3.Parent := frmDesign;
Edit3.Left := 64;
Edit3.Top := 56;
Edit3.Width := 145;
Edit3.Height := 21;
Edit3.TabOrder := 10;
Edit3.PasswordChar:= '*';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick := @ButtonClick;
Button1.Left := 72;
Button1.Top := 120;
Button1.Width := 73;
Button1.Height := 24;
Button1.Caption := 'Start';
Button1.TabOrder := 11;
ComboBox1 := TComboBox.Create(frmDesign);
ComboBox1.Parent := frmDesign;
ComboBox1.Left := 48;
ComboBox1.Top := 88;
ComboBox1.Width := 121;
ComboBox1.Height := 21;
ComboBox1.ItemHeight := 13;
ComboBox1.TabOrder := 12;
ComboBox1.Text := 'Type of tree to Chop';
ComboBox1.Items.Add('Normal');
ComboBox1.Items.Add('Oak');
ComboBox1.Items.Add('Willow');
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('CreateForum', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure SetupAll;
begin
username := Edit1.Text;
nickname := Edit2.Text;
password := Edit3.Text;
end;
procedure Forum;
begin
SafeInitForm;
SafeShowFormModal;
SetupAll;
FreeForm(frmDesign);
end;
begin
Forum;
SetupSRL;
ClearDebug;
DeclarePlayers;
if(not(LoggedIn))then LoginPlayer;
repeat
Chop;
repeat
AntiRandoms;
AntiBan;
if(not(Chopping))then Chop;
until(InvFull);
if(InvFull)then SmartDrop;
until(not(LoggedIn));
end.
