///////////////////////
  //  ScarScape Alcher //
 //     By Jens       //
///////////////////////

// This script is specially designed for ScarScape
//
// - Equip fire staff
// - Notes to alch in first inventory spot
// - Nats somewhere in inventory

program ScarScapeAlcher;
{.include library.txt}
{.include BoxBreaker2.txt}
{.include par.txt}
var count,ux,uy: integer;

const
notes = 5; //Number of notes you are going to alch

procedure MagicTab;
begin
if(not(GetColor(733,177)=2829182))then
  Mouse(730,179,14,13,true);
end;

procedure ClickAlch;
begin
repeat
  MMouse(631,318,11,12);
  Wait(200);
until(IsTextAt2(9,9,'Cast',100))
GetMousePos(ux,uy);
Mouse(ux,uy,0,0,true);
end;

procedure ClickNote;
begin
repeat
  MMouse(574,219,19,20);
  Wait(150);
until(IsTextAt2(9,9,'Cast',100))
GetMousePos(ux,uy);
Mouse(ux,uy,0,0,true);
end;

procedure Randoms;
begin
FindStrangeBox;
Check4Randoms;
Check4Lamp('magic');
end;

begin
Wait(2500);
LoadLibrary('Sygate Personal Firewall Pro');
BoxOpenerSetup;
MagicTab;
Randoms;
repeat
  ClickAlch;
  Randoms;
  ClickNote;
  count:= count + 1;
  Wait(3000+random(250));
until(count > notes)
Randoms;
Logout;
end.