Daher
09-22-2012, 03:24 PM
{$DEFINE RS2}
{$I OSI\OSI.scar}
var
A:Integer;
B:Integer;
begin
repeat
Mouse(786,259,0,0,true);
wait(100);
if findcolor(A,B,634799,587,391,799,549) then
Mouse(A,B,0,0,true);
wait(800);
if findcolor(A,B,858751,566,241,803,559) then
Mouse(A,B,0,0,true);
wait(100);
if findcolor(A,B,71705,748,394,771,412) then
Mouse(691,255,0,0,true);
wait(100);
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('rune');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('iron');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('black');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('brown');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('steel');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('bronze');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('dragon');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('mithril');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('adamant');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('5');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('1');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('2');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('3');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('4');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('6');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('7');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('8');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('9');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('10');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('seven');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('six');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('five');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('four');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('three');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('two');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('one');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('eight');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('nine');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('ten');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('attack');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('defence');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('strength');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('Hitpoints');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('range');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('prayer');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('magic');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('cooking');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('woodcutting');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('fletching');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('fishing');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('firemaking');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('crafting');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('smithing');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('mining');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('herblore');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('agility');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('thieving');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('slayer');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('farming');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('runecrafting');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('hunter');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('construction');
until(false);
end.
// Alcher ^
/ Scar code.
{$I OSI\OSI.scar}
var
A:Integer;
B:Integer;
begin
repeat
Mouse(786,259,0,0,true);
wait(100);
if findcolor(A,B,634799,587,391,799,549) then
Mouse(A,B,0,0,true);
wait(800);
if findcolor(A,B,858751,566,241,803,559) then
Mouse(A,B,0,0,true);
wait(100);
if findcolor(A,B,71705,748,394,771,412) then
Mouse(691,255,0,0,true);
wait(100);
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('rune');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('iron');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('black');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('brown');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('steel');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('bronze');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('dragon');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('mithril');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('adamant');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('5');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('1');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('2');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('3');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('4');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('6');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('7');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('8');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('9');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('10');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('seven');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('six');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('five');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('four');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('three');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('two');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('one');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('eight');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('nine');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('ten');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('attack');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('defence');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('strength');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('Hitpoints');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('range');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('prayer');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('magic');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('cooking');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('woodcutting');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('fletching');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('fishing');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('firemaking');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('crafting');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('smithing');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('mining');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('herblore');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('agility');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('thieving');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('slayer');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('farming');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('runecrafting');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('hunter');
if findcolor(A,B,45311,566,241,803,559) then
TypeSend('construction');
until(false);
end.
// Alcher ^
/ Scar code.