SCAR Code:
//---------------------------------------------------------
// In_Jeopardy's
// Normal Log Cutter
//
// *Instructions*
// place character in an area that has lots of normal
// trees, use the crosshair to select the ruenscape
// client, pick the colour of the normal tree and place
// in lines 34 and 35, press play and enjoy, (have your
// axe equipped or it wont work)
//
//
// *Features*
// - will log in
// - will cut a full load of normal logs
// - will drop logs when inventory is full
// - checks for randoms
//
// *Credits*
// By In_Jeopardy
// With help from Sumilion =]
// With some guidance on log dropping from JLewis
//
//
//---------------------------------------------------------
program BasicTreeCutter;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\WoodCutting.scar}
Var
TempCount, CutMark, Mymark : integer;
frmDesign : TForm;
Button1 : TButton;
const
user =''; //username goes in between quotes.
pass =''; //password goes in between quotes.
procedure Setup;
begin;
SetupSRL;
MouseSpeed := 20;
end;
procedure buttonclick(sender: TObject);
begin
Writeln('**Script Started**');
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 100;
frmDesign.Top := 100;
frmDesign.Width := 200;
frmDesign.Height := 180;
frmDesign.Caption := 'frmDesign';
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;
Button1 := TButton.Create(frmDesign);
Button1.OnClick:= @buttonclick;
Button1.Parent := frmDesign;
Button1.Left := 60;
Button1.Top := 60;
Button1.Width := 75;
Button1.Height := 25;
Button1.Caption := 'Begin Script';
Button1.TabOrder := 8;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure colourpick0;
begin;
If FindColorSpiralTolerance(x, y, 2246712, 000, 000, 516, 337, 5) Then;
begin;
Mouse(x, y, 3, 5, true);
TempCount := InvCount;
MarkTime(CutMark);
repeat
Wait(200)
Until(InvCount = TempCount +1) Or (TimeFromMark(CutMark) >= 10000)
end;
end;
procedure colourpick1;
begin;
If FindColorSpiralTolerance(x, y, 16777215, 397, 278, 528, 306, 5) Then;
begin;
Mouse(x, y, 3, 5, true);
end;
end;
procedure NameAndPass;
begin
TypeSend(user + chr(13) + pass)
end;
procedure colourpick2;
begin;
If FindColorSpiralTolerance(x, y, 16777215, 237, 308, 366, 334, 5) Then;
begin;
Mouse(x, y, 3, 5, true);
end;
end;
procedure colourpick3;
begin;
If FindColorSpiralTolerance(x, y, 16777215, 278, 298, 495, 375, 5) Then;
begin;
Mouse(x, y, 3, 5, true);
end;
end;
procedure LoginBegin;
begin;
colourpick1
wait(2000)
NameAndPass
wait(2000)
colourpick2
wait(10000)
colourpick3
wait(5000);
end;
begin;
Setup
SafeInitForm
SafeShowFormModal
ActivateClient
If loggedin = false Then
LoginBegin;
IF loggedin = true Then
ChatsOff
wait(2000)
highestangle;
repeat
marktime(mymark);
repeat
colourpick0;
until(InvFull) Or (TimeFromMark(MyMark) >= 150000)
begin;
DropAllLogs;
end;
Until(false);
end.