Simba Code:
program Ogre_Destroyer;
//OGRE DESTOYER!!// By BAJABLAST1
{$DEFINE SRL5}
{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i SRL\SRL\Misc\Debug.simba}
Const
AT = 4000;
ScriptVersion = '2.6';
PT = 6;
UseAutoChecker = true;
Var
I,k, r, h, ch: Integer;
//=====================================================//
Procedure DeclarePlayers;
Begin
NumberOfPlayers(1);
CurrentPlayer := 0;
With Players[0] do
Begin
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Active :=True;
End;
End;
//=====================================================//
function Ogre: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.06, 1.64);
FindColorsSpiralTolerance(MSCX, MSCY, arP, 7319502, MSX1, MSY1, MSX2, MSY2, 18);
if (Length(arP) = 0) then
begin
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;
arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);
for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);
if (X >= 18.90) and (X <= 69.80) and (Y >= 19.49) and (Y <= 73.61) and (Z >= 12.64) and (Z <= 45.19) then
begin
Result := arC[i];
Break;
end;
end;
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
if (i = arL + 1) then
end;
function XPFinder(skill: variant): integer;
var
b: TBox;
p: TPoint;
tpa: TPointArray;
begin
result := -1;
if (not gameTab(TAB_STATS)) then
exit;
p := skillToCoords(skill);
if (p.x < 1) then
exit;
mmouse(p.x, p.y + 5, 12, 4);
wait(400 + random(200));
if (WaitFindColors(tpa, 15133931, MIX1, MIY1, MIX2, MIY2, 0, 3000)) then
begin
b := getTPABounds(tpa);
wait(400 + random(150));
result := strToIntDef(getNumbers(getTextAt(b.x1 + 15, b.y1 + 15, 0, 1, 4, 4305653, 0, 75, smallChars)), -1);
end;
end;
Procedure TimePlay;
var
I: Byte;
Cont : boolean;
Begin
if FindNormalRandoms then
begin
WriteLn('===============================');
WriteLn('In Random');
WriteLn('Run Time: ' + TimeRunning);
WriteLn('===============================');
end;
end;
Procedure AntiBand;
Begin
WriteLn('AntiBan Started');
case Random(100) of
1: Begin WriteLn('Hovering Over Stats') GameTab(tab_Stats) Wait(700+ Random(500)) GameTab(tab_Inv); End;
2: Begin WriteLn('Random Movement') RandomMovement; End;
End;
End;
Procedure SetCamera;
Begin
WriteLn('Camera set to North') MakeCompass('360');
SetAngle(SRL_ANGLE_HIGH);
End;
Procedure Xp;
Begin
Mouse(532, 64, 2, 2, True);
End;
Procedure Intro;
Begin
WriteLn('==BagaBlast1--OgreDestroyer==');
WriteLn('=========--Welcome--=========');
WriteLn('=============================');
End;
Procedure Attack;
Var x, y: Integer;
Begin
k := k+1;
x:=MSCX;
y:=MSCY;
if FindObjTPAMulti(x, y, [Ogre],5, 1, 10, 15, 30, ['more', 'gre', 'Ogre', '4 more', '2 more']) Then
begin
Mouse(x, y, 1, 1, false);
WriteLn('');
WaitOption('ttack', 500 + Random(150));
WriteLn('');
Wait(AT + Random(1000));
end;
end;
Procedure RunningTime;
Begin
ClearDebug;
ch := XPFinder(3);
WriteLn('=================================================');
WriteLn('Run Time: ' + TimeRunning);
WriteLn('Range XP gained: ' + IntToStr((h-ch)*-(301/100)));
WriteLn('Range XP/Hr: ' + IntToStr(((h-ch)*-(301/100))/(PT)));
WriteLn('Contitution XP gained: ' + IntToStr((h-ch)*-1));
WriteLn('Contitution XP/Hr: ' + IntToStr(((h-ch)*-1)/(PT)));
WriteLn('=================================================');
End;
begin
Smart_Server:=100
Smart_Members := True;
Smart_SuperDetail := False;
SetUpSRL;
DeclarePlayers;
LogInPlayer;
Intro;
Wait(6000 + Random(500));
WriteLn('Starting Script');
h := XPFInder(3);
MarkTime(r);
Xp;
GameTab(tab_Inv);
SetCamera;
k := 0;
Repeat
Attack;
AntiBand;
TimePlay;
RunningTime;
Until(false);
end.
