Hey321
2007-10-25 16:22:19
Well, I think I did a better job then the other guy, this can use as MANY mice as you feel is necessary. Wound is if your mice are wound before the script is started, true for yes false for no. MouseNumber is how many mice you have.
Have fun!
//<========================================================>
//<=======================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=7;//Chance Depending on how many mice you are using
Username=''; //username
Password=''; //password
MouseColor=16185079; //Pick the WHITE part of the mouse in your inventory.
LadderColor=6062752;//Pick the most common color of the ladder.
Wound=True; //Are your mice wound?
/////////////////////////////////////////////////////////////////////////
/////////////////////////////////////////////////////////////////////////
Var
c, x, y : integer;
/////////////AntiRandom///////////////////////////////////////
Procedure AntiRandoms;
Begin
Findnormalrandoms;
End;
////////////////////////////////////////////////////////////////
////////////////Turns MiniMap///////////////////////////////////
procedure Map;
begin
MakeCompass('S');
AntiRandoms;
end;
////////////////////////////////////////////////////////////////
///////////////Winds Up Mice////////////////////////////////////
Procedure OpenInv;
begin
c:=0
repeat
begin
c:=c+1
MouseItem(c, true)
AntiRandoms;
end;
until(c=mousenumber)
end;
////////////////////////////////////////////////////////////////
//////////////Releases Mice/////////////////////////////////////
Procedure DropMice;
Begin
c:=0
repeat
c:=c+1
MouseItem(c, false)
ChooseOption('elease')
until(c=mousenumber)
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;
Players[0].active := true
loginplayer;
Map;
if(wound)then
AntiRandoms;
DropMice;
repeat
PickEmUp;
until(ExistsItem(MouseNumber))
Repeat
OpenInv;
AntiRandoms;
DropMice;
repeat
PickEmUp;
FindNormalRandoms;
until(ExistsItem(MouseNumber))
AntiRandoms;
Fight;
until(false)
end.Have fun!