Hexless
2013-03-05 13:52:14
Is it possible for my script to stop clicking the minimap after its already there?
[PHP]program iShrimpPowerFisherSMART;
{$DEFINE SMART8}
{$i srl/srl.simba}
{$i P07Include .simba}
Var
Camera1,Camera2,X,Y,Boolean:Integer;
Procedure P07_DeclarePlayer;
begin //AutoLogin
P07_PlayerName:='UserNameHERE';
P07_PlayerPass:='PassWordHERE';
end;
Procedure WalkToShrimps;
begin
MMouse(621, 137,0,0);
wait(250+random(250));
ClickMouse2(Mouse_Left);
Writeln('Walking To Shrimps Fishing Spot!');
end;
Procedure FishShrimps;
begin
If FindColorSpiralTolerance(X,Y,15518125,MSX1,MSY1,MSX2,MSY2,20) Then
mouse(x,y,2,2,false);
wait(200+random(100));
P07_ChooseOptionMulti(['Net','et']);
writeln('Fishing the Shrimpies!');
end;
Procedure Bank;
begin
MMouse(663, 87,0,0);
wait(250+random(250));
ClickMouse2(Mouse_Left);
sleep(10000+random(750));
If P07_FindObj(X,Y,'ank booth',8229016,10) Then
mouse(x,y,2,2,false);
P07_ChooseOptionMulti(['se-q']);
If (P07_BankScreen) Then
P07_Deposit(2,18,true);
wait(500+random(100));
end;
Procedure DropShrimps;
begin
If P07_InvFull Then
P07_DropAllExcept([0]);
end;
procedure RotateCamera;
begin
P07_MakeCompassdegree(randomrange(0, 360));
end;
procedure CameraRotate;
begin
camera1 := 2;
camera2 := (random(5));
if camera2 = camera1 then
RotateCamera;
end;
begin
P07_DeclarePlayer;
SetupSRL;
SetupP07Include;
ActivateClient;
ClearDebug;
if (not P07_LoggedIn) then
P07_LogInPlayer;
P07_MakeCameraAngleHigh;
if (P07_LoggedIn) then
begin
repeat
WalkToShrimps;
Sleep(11000+random(750));
FishShrimps;
CameraRotate;
Sleep(20000+random(2000));
If P07_InvFull Then
Bank;
until(false);
end;
end. [/PHP]
[PHP]program iShrimpPowerFisherSMART;
{$DEFINE SMART8}
{$i srl/srl.simba}
{$i P07Include .simba}
Var
Camera1,Camera2,X,Y,Boolean:Integer;
Procedure P07_DeclarePlayer;
begin //AutoLogin
P07_PlayerName:='UserNameHERE';
P07_PlayerPass:='PassWordHERE';
end;
Procedure WalkToShrimps;
begin
MMouse(621, 137,0,0);
wait(250+random(250));
ClickMouse2(Mouse_Left);
Writeln('Walking To Shrimps Fishing Spot!');
end;
Procedure FishShrimps;
begin
If FindColorSpiralTolerance(X,Y,15518125,MSX1,MSY1,MSX2,MSY2,20) Then
mouse(x,y,2,2,false);
wait(200+random(100));
P07_ChooseOptionMulti(['Net','et']);
writeln('Fishing the Shrimpies!');
end;
Procedure Bank;
begin
MMouse(663, 87,0,0);
wait(250+random(250));
ClickMouse2(Mouse_Left);
sleep(10000+random(750));
If P07_FindObj(X,Y,'ank booth',8229016,10) Then
mouse(x,y,2,2,false);
P07_ChooseOptionMulti(['se-q']);
If (P07_BankScreen) Then
P07_Deposit(2,18,true);
wait(500+random(100));
end;
Procedure DropShrimps;
begin
If P07_InvFull Then
P07_DropAllExcept([0]);
end;
procedure RotateCamera;
begin
P07_MakeCompassdegree(randomrange(0, 360));
end;
procedure CameraRotate;
begin
camera1 := 2;
camera2 := (random(5));
if camera2 = camera1 then
RotateCamera;
end;
begin
P07_DeclarePlayer;
SetupSRL;
SetupP07Include;
ActivateClient;
ClearDebug;
if (not P07_LoggedIn) then
P07_LogInPlayer;
P07_MakeCameraAngleHigh;
if (P07_LoggedIn) then
begin
repeat
WalkToShrimps;
Sleep(11000+random(750));
FishShrimps;
CameraRotate;
Sleep(20000+random(2000));
If P07_InvFull Then
Bank;
until(false);
end;
end. [/PHP]