Herblore Trainer For DestructionScape

[ScaryKidz]

Makes P Pots
Probably won't ever be used by anyone but me and a few friends but I figured I'd post it as a sign of accomplishment

Code: (css) [Select]

program ScaryHerby; //I worked very hard on this actually i
                     //script and I made it for a friend.
                     //used for Getting herby up with p pots on
                     //      DestructionScape

var
i,x,y: Integer;

const
RanarrColor = 412973;
PrayPotColor = 10277439;
WaterVialColor = 12493213;
BankBoothColor = 1523790;
CloseBankColor = 1909802;
SnapeGrassColor = 3825160;
RanarrUnfColor = 9612178;
AirRuneColor = 14474464;

procedure Bank1;

begin
if(FindColor(x,y,BankBoothColor,221,130,108,156)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  Wait(2000);
 end;
end;

 procedure GetRanarr;
begin
 i:= 0;
repeat
  i:= i + 1;
if(FindColor(x,y,RanarrColor,120,100,160,1125)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  Wait(250);
 end;
  until(i = 14);
end;




 procedure GetWaterVial;
begin
 i:= 0;
repeat
  i:= i + 1;
if(FindColor(x,y,WaterVialColor,80,100,120,130)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  Wait(250);
 end;
 until(i = 14);
end;



 procedure CloseBank;
begin
if(FindColor(x,y,CloseBankColor,488,34,490,36)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  Wait(100);
 end;
end;

 procedure ClickWater;
begin
if(FindColor(x,y,WaterVialColor,690,430,715,460)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(150+random(10));
  ClickMouse(x,y,true);
  Wait(150);
 end;
end;


 procedure ClickRanarr;
begin
if(FindColor(x,y,RanarrColor,605,320,630,340)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(150+random(10));
  ClickMouse(x,y,true);
  Wait(150);
 end;
end;


 procedure GetSnapeGrass;
begin
 i:= 0;
repeat
  i:= i + 1;
if(FindColor(x,y,SnapeGrassColor,25,90,75,115)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  Wait(250);
 end;
 until(i = 14);
end;





 procedure ClickRanarrUnf;
begin
if(FindColor(x,y,RanarrUnfColor,600,320,630,360)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  Wait(100);
 end;
end;

 procedure ClickSnapeGrass;
begin
if(FindColor(x,y,SnapeGrassColor,680,430,715,460)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  Wait(150);
 end;
end;

 procedure BankAirRune;
begin
 i:= 0;
repeat
  i:= i + 1;
if(FindColor(x,y,AirRuneColor,560,210,600,245)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,20);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  Wait(250);
 end;
  until(i = 14);
end;






begin;
repeat
Bank1
begin;
GetRanarr
end;
begin GetWaterVial;
end;
begin CloseBank;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin ClickRanarr;
end;
begin ClickWater;
end;
begin Bank1;
end;
begin GetSnapeGrass;
end;
begin CloseBank;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin ClickRanarrUnf;
end;
begin ClickSnapeGrass;
end;
begin Bank1
end;
begin BankAirRune
end;
begin CloseBank
end;
until(false)




end.

end.

And of course an improved shorter script for brews :D Btw this is not for rs :D

Code: (java) [Select]

program ScaryBrew; //I worked very hard on this actually i
                             //script and I made it for a friend.
                             //used for Getting herby up with p pots on
                             //      DestructionScape

var
i,x,y: Integer;
const
ToadFlaxColor = 204290;
WaterVialColor = 12559521;
BankBoothColor = 2378070;
CloseBankColor = 1909802;
NestColor = 2240565;
ToadFlaxUnfColor = 11186876;
procedure Bank1;
begin
if(FindColor(x,y,BankBoothColor,220,120,240,160)) then
 begin
  Wait(120+random(10));
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,5);
  Wait(400+random(10));
  ClickMouse(x,y,true);
  Wait(1500);
 end;
end;

 procedure GetToadFlax;
begin
if(FindColor(x,y,ToadFlaxColor,130,100,160,130)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,5);
  Wait(100+random(10));
  ClickMouse(x,y,false);
  Wait(200);
end;
 begin
  MoveMouseSmoothEx(142,156 +random(0),20,40,45,25,5);
  Wait(250+random(10));
  ClickMouse(142,156,true);
  Wait(250);
end;
begin
 i:= 0;
repeat
  i:= i + 1;
if(FindColor(x,y,ToadFlaxColor,130,100,160,130)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,5);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  Wait(250);
end;
 until(i = 4);
 end;
 end;





 procedure GetWaterVial;
begin
if(FindColor(x,y,WaterVialColor,80,100,120,130)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,5);
  Wait(100+random(10));
  ClickMouse(x,y,false);
  Wait(250);
end;
 begin
  MoveMouseSmoothEx(121,211 +random(0),20,40,45,25,5);
  Wait(250+random(10));
  ClickMouse(121,211,true);
  Wait(250);
   end;
end;

 procedure CloseBank;
begin
if(FindColor(x,y,CloseBankColor,488,34,490,36)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,5);
  Wait(100+random(10));
  ClickMouse(x,y,true);
  Wait(400);
 end;
end;
 procedure MakeHalfPot;
begin
 i:= 0;
repeat
  i:= i + 1;
if(FindColor(x,y,WaterVialColor,690,430,715,460)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,5);
  Wait(200+random(10));
  ClickMouse(x,y,true);
  Wait(200);
 end;
begin
if(FindColor(x,y,ToadFlaxColor,605,320,630,340)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,5);
  Wait(200+random(10));
  ClickMouse(x,y,true);
  Wait(200);
 end;
end;
 until(i = 14);
end;
 procedure GetNest;
begin
if(FindColor(x,y,NestColor,20,90,75,115)) then
 begin
   Wait(350+random(10));
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,5);
  Wait(100+random(10));
  ClickMouse(x,y,false);
  Wait(250);
 end;
 begin
  MoveMouseSmoothEx(81,198 +random(0),20,40,45,25,5);
  Wait(250+random(10));
  ClickMouse(81,198,true);
  Wait(250);
   end;
end;





 procedure MakeFinishedPot;
begin
 i:= 0;
repeat
  i:= i + 1;
if(FindColor(x,y,ToadFlaxUnfColor,600,320,630,360)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,5);
  Wait(150+random(10));
  ClickMouse(x,y,true);
  Wait(150);
 end;
begin
if(FindColor(x,y,NestColor,680,430,715,460)) then
 begin
  MoveMouseSmoothEx(x,y +random(0),20,40,45,25,5);
  Wait(150+random(10));
  ClickMouse(x,y,true);
  Wait(150);
   end;
  end;
 until(i = 14);
 end;
 procedure BankFinishedItem;
 begin
  MoveMouseSmoothEx(659,271 +random(0),20,40,45,25,5);
  Wait(150+random(10));
  ClickMouse(659,271,false);
  Wait(250);
   MoveMouseSmoothEx(654,368 +random(0),20,40,45,25,5);
  Wait(150+random(10));
  ClickMouse(654,368,true);
 end;
begin;
repeat
Bank1
begin;
GetToadFlax
end;
begin GetWaterVial;
end;
begin CloseBank;
end;
begin MakeHalfPot
end;
begin Bank1;
end;
begin GetNest;
end;
begin CloseBank;
end;
begin MakeFinishedPot;
end;
begin Bank1
end;
begin BankFinishedItem
end;
until(false)
end.
end.

[tvirusx1]

For a first Script it is quite good, well done .

But why do you do:
[SCAR]y +random(0)[/SCAR]
You could just leave it y.

You also have to consider if the Bot doesn't find a Color, E.g because of lagg.
[SCAR]if(FindColor(....)) then
begin
    //found it do stuff...
end else
begin
    //could not find that color!
    //lets wait or do anything to fix...
end;
[/SCAR]
Thats just a suggestion, but other than those your Script is good .

[trek 93]

u shouldnt use clickmouse or movemousesmooth they are detectable

[ScaryKidz]

For a first Script it is quite good, well done .

But why do you do:
[SCAR]y +random(0)[/SCAR]
You could just leave it y.

You also have to consider if the Bot doesn't find a Color, E.g because of lagg.
[SCAR]if(FindColor(....)) then
begin
    //found it do stuff...
end else
begin
    //could not find that color!
    //lets wait or do anything to fix...
end;
[/SCAR]
Thats just a suggestion, but other than those your Script is good .

Thanks =] I also made more improved versions but hadn't read ur post yet o.O thanks for the tip