//<================================================= =======>
//<=======================AGILE MOUSE!=====================>
//<===========FAST Agility trainer Created By...===========>
//<======================YWV MASTER========================>
//<================================================= =======>
//Make sure to read the instructions on my post!
program AgileMouse;
{.include SRL/SRL.scar}
Const
MouseNumber=14;//Chance Depending on how many mice you are using
Username='Username'; //username
Password='Password'; //password
MouseColor=16185079; //Pick the WHITE part of the mouse in your inventory.
LadderColor=0000000;//Pick the most common color of the ladder.
/////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////
Var InvSlot: Integer;
Release: Integer;
Inv2Slot: Integer;
/////////////AntiRandom///////////////////////////////////////
Procedure AntiRandoms;
Begin
Findnormalrandoms;
End;
////////////////////////////////////////////////////////////////
////////////////Turns MiniMap///////////////////////////////////
procedure Map;
begin
MakeCompass('E');
AntiRandoms;
end;
////////////////////////////////////////////////////////////////
///////////////Winds Up Mice////////////////////////////////////
Procedure OpenInv;
begin
ClickAllItemsColorWait('Wind',MouseColor, 100);
AntiRandoms;
end;
////////////////////////////////////////////////////////////////
//////////////Releases Mice/////////////////////////////////////
Procedure DropMice;
Begin
ClickAllItemsColorWait('Release',MouseColor, 300);
end;
/////////////////////////////////////////////////////////////////
///////////////Picks up Mice/////////////////////////////////////
procedure PickEmUp;
begin
if FindObj(X, Y, 'Pick-up', MouseColor, 20) then
begin
Wait(100+random(50));
Mouse(x,y,0,0,true);
end else
if FindObj(X,Y,'Take', MouseColor, 10) then
Wait(100+random(50));
Mouse(x,y,0,0,true);
end;
////////////////////Fight Finder/runner/////////////////////////
Procedure Fight;
begin
if FindFight then
begin
if FindObj(X, Y, 'Climb-Down', LadderColor, 20) then
Mouse(x,y,0,0,true);
Wait(10000+random(2000));
if FindObj(x,y,'Climb-Up',LadderColor,20) then
Mouse(x,y,0,0,true);
end;
end;
///////////Main Loop/////////////////////////////////////////////
begin
setupsrl;
numberofplayers(1);
players[0].name := Username;
players[0].pass := Password;
loginplayer;
Map;
Repeat
DropTo(15,28);
OpenInv;
AntiRandoms;
DropMice;
repeat
PickEmUp;
until(ExistsItem(MouseNumber))
AntiRandoms;
Fight;
until(false)
end.
When it compiles it gets an error with the "ClickAllItemsColorWait" my idea is old includes. where can i find the information to replace old script
This is not my script i found in first scripts.


Reply With Quote









