//////////////////////////////////////////////////////
///                                                ///
///                  DemonAlcher                   ///
///               By InuYasha                      ///
///                                                ///
//////////////////////////////////////////////////////
///                   THANKS TO                    ///
///          Idiota for scripting lessons
///          AtillaZeHun for scripting lessons     ///
//////////////////////////////////////////////////////
///                 INSTRUCTIONS                   ///
///                                                ///
///    Have noted item you want to alch in first   ///
///                inventory slot                  ///
///                                                ///
//////////////////////////////////////////////////////
program Alcher;                                    ///
{.include     library.txt}                         ///
{.include         PAr.txt}                         ///
{.include boxbreaker2.txt}                         ///
var c :integer;                                    ///
const                                              ///
//////////////////////////////////////////////////////
///                     SETUP                      ///
//////////////////////////////////////////////////////
///                                                ///
    AmountToAlch = 100; // How many you want 2 alch///
    AlchType     = Low; // High or Low             ///
    LampSkill    ='slayer';                        ///
///                                                ///
//////////////////////////////////////////////////////

procedure clickspellbook;
begin
mouse(737,106,1,1,true); //this clicks on the spell book symbol
wait(200+random(50));
end;

procedure clickspell;
begin
if(alchtype=low)then;
begin
mouse(660,250,1,1,true); //this clicks on the lowalch if chosen
wait(2000+random(50));
end;
if(not(alchtype=low))then;
begin
mouse(640,327,1,1,true); //this clicks on the highalch if u didn't put low
wait(1000+random(500));
end;
end;
end;

procedure clickitem;
begin
mouse(583,228,1,1,true);
wait(2500+random(500));
end;

procedure RandomChecker;
begin
   Check4Randoms;
   FindBox;
   Check4Lamp(LampSkill);
end;


begin
LoadLibrary('MSN Messenger (BETA)')
c:=0;
repeat
login;
RandomChecker;
ClickSpellBook;
RandomChecker;
ClickSpell;
RandomChecker;
ClickItem;
c:=c+1;
until(c=AmountToAlch)
logout;
end.