Experiment Simba Script

Nvm just close this

 

Not sure why SPS is included when there's no walking.

So basically you loop FindObjCustom for a few colors?

 

Like I said I am learning Simba scripting I am teaching my self I modified a script and got rid of most of the stuff that wasn't needed just seeing if it works.
Edit:Any help would be appreciated and thank you.

 

Code:

procedure AntiBan;
begin
 case Random(250) of
  0: begin StatsGuise('AntiBan') GameTab(tab_stats) HoverSkill ('Mining', false) GameTab(28); end;
  1: begin StatsGuise('AntiBan') SleepAndMoveMouse (9000+random(600)); end;
  2: begin StatsGuise('AntiBan') GameTab(tab_inv) ExamineInv; GameTab(28); end;
  3: begin StatsGuise('AntiBan') RandomAngle(1); end;
  4: begin StatsGuise('AntiBan') GameTab(tab_stats) HoverSkill ('Attack', false) GameTab(28); end;
  5: begin StatsGuise('AntiBan') SleepAndMoveMouse (4000+random(250)); end;
  6: begin StatsGuise('AntiBan') RandomAngle(2); end;
 end;
end;

This needs to be changed. You need the semicolons(";") after the method you're calling. Like so:

Code:

0: begin 
    StatsGuise('AntiBan'); 
	GameTab(tab_stats); 
	HoverSkill('Mining', false); 
	GameTab(28); 
  end;

Code:

MMouse(TPA[0].X, TPA[0].Y, 5, 5);

I wouldn't do that, this is in your FindObjOnScreen method. I would loop through the TPA and check. Lookup a TPA tutorial and see how it's done correctly.

Also, this, could be an infinite loop:

Code:

repeat
 Result := False;
 CTS := GetColorToleranceSpeed;

 ColorToleranceSpeed(2);

 SetColorSpeed2Modifiers(Hmod,Smod);

 FindColorsSpiralTolerance(MSCX, MSCY, TPA,(Color), MSX1, MSY1, MSX2, MSY2, Tolerance);
 ColorToleranceSpeed(CTS);
 if (Length(TPA) < 1) then
  Exit;
  MMouse(TPA[0].X, TPA[0].Y, 5, 5);
  if WaitUpText('Take', 400) then
  begin
   GetMousePos(X, Y);
   ClickMouse2(False);
   ChooseOptionMulti(Drops);
   Result := True;
   Exit;
  end;
  Until(Result)

Add timers and failsafes to break out of the loop after so many tries or a set amount of time has passed.

Code:

repeat
   PlusOne := InvCount + 1;

Another possiblity of an infinite loop. Move the PlusOne line above the repeat, as you'll just keep incrementing PlusOne even if your InvCount hasn't increased.

You also never increment the ExperimentsKilled variable that's used in your report. You never call FreeAllDTMs either.

This is just a quick overview of what I saw.

 

Thanks for the help I will get to fixing it tomorrow.