Simba Code:
{$DEFINE SMART}
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Pin := '';
WorldInfo := [27, 42, 45, 46, 48, 52, 59, 70, 72, 78, 79, 87, 104, 115, 117];
BoxRewards := ['XP','xp','lamp'];
LampSkill := Skill_Slayer;
Active := True;
Nick := 'ragon 3397';
end;
end;
function getApproxHP() : Integer;
begin
with MFBox do
begin
Result := 100 - CountColorTolerance(HP_BAR_COLOR2, X1, Y1, X2, Y2, 2);
end;
end;
var tmpx,tmpy : Integer;
blackList : array of Integer;
begin
{$IFDEF SMART}
{$IFDEF SIMBAMAJOR980}
Smart_Server := 72;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ELSE}
// SRL_SixHourFix := True;
// SmartFixSpeed := True;
{$ENDIF}
{$ENDIF}
DeclarePlayers;
SetupSRL;
SRL_COMBATRANDOMS := false;
SetAngle(SRL_ANGLE_HIGH);
MouseSpeed := RandomRange(8, 12);
repeat
begin
if not LoggedIn then LogInPlayer;
if LoggedIn then
begin
FindNormalRandoms;
if srl_InFight AND (getApproxHP < 60) then
PlaySound('./Charge.wav');
if (Pos('stun',GetBlackChatMessage) > 0) OR InvFull then
begin
for tmpx := 1 to 28 do
begin
if ExistsItem(tmpx) AND (not InIntArray(blackList,tmpx)) then
begin
MMouseItem(tmpx);
sleep(200);
if IsUpTextMultiCustom(['Drink Cup of tea','Cup','of','tea']) then
begin
Clickmouse2 (mouse_right);
sleep(200 + Random(100));
if ChooseOptionMulti(['Drop Cup','rop Cup','op Cup']) then
sleep(200 + Random(200));
end else
CombineIntArrayWrap(blacklist,[tmpx],blacklist);
end;
end;
end;
tmpy := MSCX;
tmpx := MSCY;
if FindObjTPA(tmpx,tmpy,8887723,16,33,35,27,60,['steal-from','eal','from']) then
begin
MMouse(tmpx,tmpy,12,12);
Clickmouse2 (mouse_left);
sleep(200 + Random(300));
if IsUpTextMultiCustom(['Steal-from','Steal','from']) then
sleep(6800 + Random(400));
end;
end;
end
until(false);
end.