Simba Code:
var
EntranceModes:integer;
const
EntranceMode = 1; // 1 is the new mode, 2 is the old mode.
function FindObjectFar(Color: TintegerArray; Tol,CTS:integer; hMoD,sMoD: extended; Uptext: Array of String; WaitUptextWait,WaitUptextRandom: Integer; x,y,xs,ys:integer): boolean;
var
III,i,tmpcts: integer;
TPA:tpointarray;
TPAA: T2DPointArray;
//TIA: array of TIntegerArray; //I decided to make a TintegerArray for people that don't want to use ACA.
begin
tmpcts := GetColorToleranceSpeed;
ColorToleranceSpeed(CTS);
SetColorSpeed2Modifiers(hMoD, SMoD);
FindColorsSpiralTolerance(MSCX, MSCY, TPA, color[III], x,y,xs,ys, Tol)
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
SplitTPAWrap(TPA,20,TPAA); // wrappers use less memory.
SortATPAFromSize(TPAA,20,false); // This will Sort them
// DebugATPA(TPAA,''); // this can help us see our TPA in debug
for I := 0 to low(TPAA) do // instead of doing High, we'll start with low - which is basically the furthest point - this way it wont even hover players
begin // it will go straight for the cave!!!
MiddleTPAEx(TPAA[i], X, Y);
{ case random(600) of
1..450: MMouse(x, y, RandomRange(-25, 25), RandomRange(-15, 15));
451..570: MMouse(x, y, RandomRange(-20, 20), RandomRange(-20, 20));
571..590: MMouse(x, y, RandomRange(-15, 15), RandomRange(-25, 25)); // was going to use 'humanmouse, but then got bored, would be something
591..600: MMouse(x, y, RandomRange(-35, 35), RandomRange(-30, 30)); // like Randomrange(........) all = humanMouse so its
end; // Mmouse(x,y,Humanmouse);
}
MMouse(x, y, RandomRange(-50, 50), RandomRange(-25, 25)); // but i added this few days ago.
if WaitUpTextMulti(uptext,WaitUptextWait+random(WaitUptextRandom)) then
Begin
Result := True;
GetMousePos(X, Y);
break;
end;
end;
end;
Procedure EnterCave;
var
x,y:integer;
begin
for EntranceModes := 0 to 3 do
begin
if EntranceMode = 1 then
begin
if FindObjectFar([CaveColor],Cavetol,CaveCTS,CaveHue,CaveSat,['nter'],100,50,MSX1, MSY1, MSX2, MSY2) then
begin
ClickMouse2(mouse_left);
ColorToleranceSpeed(0);
SetColorSpeed2Modifiers(0.0, 0.);
waithumanclick3;
end;
end;
if EntranceMode = 2 Then
begin
if FindObjCustom(x, y, ['nter'], caveEntranceWhite, 2) then // entrance code from sean's script/mx1000
begin
ClickMouse2(mouse_left);
ColorToleranceSpeed(0);
SetColorSpeed2Modifiers(0.0, 0.);
waithumanclick3;
end;
end;
break;
end;
end;
Procedure FightCaveLoop;
Begin
ColorToleranceSpeed(0);
SetColorSpeed2Modifiers(0.0, 0.);
If FindtheRandoms then
findnormalrandoms;
MakeCompass(randomrange (165, 189));
SetAngle(0);
repeat
EnterCave; // This is our Cave entrance procedure. the way it is atm, it won't click inside the cave or MISS-CLICK
until (not(findbanksymbol));
CharacterIsIncave := true;
caveEntrances := (caveEntrances + 1);
Inc(progress);
SmartProggy;
for PlayerModes:= 0 to 5 do
begin
if PlayerMode = 1 then
InsideCaveLoop1;
if Playermode = 2 Then
InsideCaveLoop2;
If Playermode = 3 then
InsideCaveLoop3;
if Playermode =4 then
Insidecaveloop4;
break;
end;
case random (10) of
5..10: progressreport;
0..4: Smallproggy;
end;
GoalsandLevels;
AntiBan;
exit;
end;