program    New; 
{.include osi.txt} 
var he,heh: integer; 
var click,click2: integer; 
var counter: integer; 
var bitmap: integer; 

//Anti-Randoms Are NOT yet built in. 
//Works 100% and is very efficient while still emulating humans. 
//Have a fire Staff equipted or fire runes in first inventory slot. 
//Have notes in inventory slot place 4, row 3. 
//Thats all, enjoy! 

const 
////////////////////// 
highalchcolor= 849658;//Put in the HighAlch Symbol Color, the bottom yellow part of it. 
notecolor= 8037557;//Put in the color of the note 
////////////////////// 

Procedure LoadBmps; 
begin 
bitmap := BitmapFromString(24, 12, 
       '625445776754776754776754776754776754000101000101252625' + 
       '000101BEB61C000101B56200BEB61CB56200000101000101000101' + 
       '0001010001010001010C0B0AECECD7383229544A3C776754776754' + 
       '776754776754000101000101252625000101000101000101000101' + 
       '000101000101B56200BEB61C000101000101BEB61C0001010C0B0A' + 
       'ECECD7ECECD7000101544A3C776754776754776754776754000101' + 
       '000101000101000101000101000101000101000101000101000101' + 
       '000101000101BEB61CB562000C0B0AFFFEFEECECD7000101000101' + 
       '544A3C776754776754776754000101000101252625000101000101' + 
       '000101000101000101000101000101000101000101000101000101' + 
       '0001010C0B0AECECD70001010001012E2A24544A3C776754776754' + 
       '776754000101000101252625000101000101BEB61C000101000101' + 
       '0001010001010001010001010001010001010C0B0AFFFEFEECECD7' + 
       '0001010001012E2A24625445776754776754000101000101252625' + 
       '000101000101000101BEB61C000101000101BEB61C000101000101' + 
       '000101000101000101ECECD7ECECD70C0B0A0001013832292E2A24' + 
       '625445776754000101000101252625000101000101000101000101' + 
       'BEB61CBEB61CBEB61CBEB61C0001010001010C0B0A0C0B0AFFFEFE' + 
       'ECECD70C0B0A0001010001012E2A242E2A24625445000101000101' + 
       '000101252625000101000101000101BEB61CBEB61CBEB61CBEB61C' + 
       'BEB61C0001010001010C0B0A0C0B0AECECD7ECECD7000101000101' + 
       '2E2A242D251A2E2A24776754000101000101252625000101000101' + 
       '000101BEB61C000101BEB61CBEB61C0001010001010C0B0A0C0B0A' + 
       '0C0B0AECECD7ECECD70C0B0A0001010001012E2A242E2A242E2A24' + 
       '000101000101252625000101000101000101000101000101000101' + 
       '0C0B0A0C0B0ABEB61C0C0B0A0C0B0A0C0B0A0C0B0AFFFEFEECECD7' + 
       '0001010001012E2A242E2A242E2A242E2A24000101252625252625' + 
       '0001010001010001010001010001010001010C0B0A0C0B0ABEB61C' + 
       '0C0B0A0C0B0A0C0B0AECECD7ECECD70001010001013832292E2A24' + 
       '2E2A242E2A242E2A24000101ECECD7ECECD72526250C0B0A000101' + 
       '0001010001010C0B0A0C0B0A0C0B0A0C0B0A0C0B0A0C0B0A0C0B0A' + 
       'FFFEFEECECD70001010001012E2A242E2A242E2A242E2A242E2A24' + 
       ''); 
end; 

procedure signiature; 
begin 
Writeln('                                           '); 
Writeln('==========HighAlcher v.1.0 By M.G..=========='); 
Writeln('~Thanks for all your help & support Chriz~'); 
Writeln('~~~~~~~~~~Now lets make some cash~~~~~~~~~'); 
Writeln('                                           '); 
end; 

procedure clickmagic; 
begin 
FindBitmap(bitmap,x,y) 
mouse(x,y,15,15,true) 
sleep(100+random(200)) 
end; 

procedure alcher; 
begin 
FindColorTolerance(he,heh,highalchcolor,723,299,740,306,50) 
mouse(he,heh,6,6,true) 
sleep(100+random(300)) 
FindColorTolerance(click,click2,notecolor,696,286,723,314,100) 
mouse(click,click2,10,10,true) 
sleep(1900+random(200)) 
end; 

begin 
signiature 
loadbmps 
clickmagic 
repeat 
alcher; 
until(1>2); 
end.