Simba Code:
program WizardKiller;
{$i srl/srl/misc/smart.simba}
{$i srl/srl.simba}
{$i SRL/SRL/skill/fighting.simba}
Var
x, y :Integer;
c, T, i : Integer;
foodnumber: integer;
//By Ilya\\
//Loots Water Talismans and Fire Talismans\\
//Has a procedure for runes, but its slow\\
//Start in the middle of dark wizard circle just outside of Varrock\\
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].BoxRewards := ['ostume'];
end;
procedure AntiRandom;
begin
FindNormalRandoms;
LampSkill := 'attack';
LevelUp;
Writeln('Checking for randoms');
end;
procedure Hungry;
var
c, T, i, x, y: Integer;
begin
if (HPPercent < RandomRange(50, 70)) and LoggedIn then
begin
if not InvEmpty then
for c := 0 to 2 do
for i := 1 to 28 do
if ExistsItem(i) then
begin
MMouseItem(i);
GetMousePos(x, y);
if WaitUptext('Eat', 100) then
begin
Mouse(x, y, 0, 0, false);
if WaitOption('Eat', 100) then
begin
Writeln('Eating.')
t := GetSystemTime;
while ExistsItem(i) and ((GetSystemTime - t) < 2000) do
wait(20);
end;
Exit;
end;
end;
end;
end;
function FindWizard(): Boolean;
begin
if(StrInArr('Dark wizard', ChatBoxTextArray(clMessage)))
then
Wait(RandomRange(1200, 1700));
FindObjCustom(x, y, ['Dark', 'wizard'], [1712417, 7312038, 2305581], 3);
Mouse(x, y, 1, 1, false );
ChooseOption('Attack');
end;
Function RuneFinder(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean;
Var
T,i,X,Y: Integer;
TPA: TPointArray;
ATPA: Array of TPointArray;
Begin
MarkTime(T);
Repeat
SetArrayLength(ATPA, Length(Colors));
for i := 0 to High(Colors) do
FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 3);
TPA := MergeATPA(ATPA);
ATPA := TPAtoATPAEx(TPA, 10, 10);
SortATPAFrom(ATPA, Point(MSCX, MSCY));
if (Length(ATPA) = 0) then
Exit;
MiddleTPAEx(ATPA[0], x, y);
if (TimeFromMark(T) > 5000) then
Exit;
MMouse(x, y, 10, 10);
Wait(randomrange(10,15));
If(IsUpTextMultiCustom(TheUpText)) then
begin
ClickMouse2(False);
WaitOption('une', 50);
if DidRedClick then
begin
Result := True;
Break;
end;
end;
Until(Result)
end;
function Loot(): Boolean;
begin
FindObjCustom(x, y, ['ake water', 'ake Fire', 'alisman'], [11486773, 7548451, 8684938, 11555637, 3620789], 3);
Mouse(x, y, 5, 5, false);
ChooseOption('talisman');
Wait(RandomRange(1277, 2121));
end;
function FindBanker(): Boolean;
begin
if(StrInArr('Bank', ChatBoxTextArray(clMessage)))
then
Wait(RandomRange(200, 700));
FindObjCustom(x, y, ['Banker'], [3152673], 3);
Mouse(x, y, 5, 5, false);
ChooseOption('Bank Banker');
end;
Function GetFood : boolean;
begin
Withdraw(0, 0, 20);
wait(777 + Random(77));
end;
begin
Smart_Server := 5;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
repeat
repeat
FindWizard;
Wait(2000 + Random(753));
until InFight;
while InFight do wait (5000);
FindNormalRandoms;
Hungry;
Loot;
until(AllPlayersInactive);
end.