Simba Code:
Program KipjesSlayer;
{$Define SMART}
{$Include SRL/SRL/Misc/SMART.simba}
{$i SRL/SRL.simba}
var
arP: TPointArray;
ararP: T2DPointArray;
tmpCTS, i, arL: Integer;
P: TPoint;
x,y:integer;
//Version 1.05
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
// FILL IN //////////////////////////////////////
Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Active := True;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
LampSkill := 'Slayer';
//DONT TOUCH ////////////////////////////////////////
end;
//Low level Tasks:
//Get the Task
Procedure GetTask;
Begin
GameTab(Tab_Inv);
if FindNPCChatText('anshee', True) then
begin
writeln('[Task Handler] > Our new task is: Banshees.')
end;
if FindNPCChatText('at', True) then
begin
writeln('[Task Handler] > Our new task is: Banshees.')
end;
if FindNPCChatText('Ear', True) then
begin
writeln('[Task Handler] > Our new task is: Bears.')
end;
if FindNPCChatText('ird', True) then
begin
writeln('[Task Handler] > Our new task is: Birds.')
end;
if FindNPCChatText('bug', True) then
begin
writeln('[Task Handler] > Our new task is: Cave bugs.')
end;
if FindNPCChatText('crawler', True) then
begin
writeln('[Task Handler] > Our new task is: Cave Crawlers.')
end;
if FindNPCChatText('slime', True) then
begin
writeln('[Task Handler] > Our new task is: Cave Slimes.')
end;
if FindNPCChatText('hand', True) then
begin
writeln('[Task Handler] > Our new task is: Crawling hands.')
end;
if FindNPCChatText('lizard', True) then
begin
writeln('[Task Handler] > Our new task is: Desert lizards.')
end;
if FindNPCChatText('og', True) then
begin
writeln('[Task Handler] > Our new task is: Dogs.')
end;
if FindNPCChatText('arve', True) then
begin
writeln('[Task Handler] > Our new task is: Dwarves.')
end;
if FindNPCChatText('host', True) then
begin
writeln('[Task Handler] > Our new task is: Ghosts.')
end;
if FindNPCChatText('oblin', True) then
begin
writeln('[Task Handler] > Our new task is: Goblins.')
end;
if FindNPCChatText('friend', True) then
begin
writeln('[Task Handler] > Our new task is: Ice fiends.')
end;
if FindNPCChatText('alphite', True) then
begin
writeln('[Task Handler] > Our new task is: Kalphites.')
end;
if FindNPCChatText('inotaur', True) then
begin
writeln('[Task Handler] > Our new task is: Minotaurs.')
end;
if FindNPCChatText('onkey', True) then
begin
writeln('[Task Handler] > Our new task is: Moneys.')
end;
if FindNPCChatText('corpion', True) then
begin
writeln('[Task Handler] > Our new task is: Scorpion.')
end;
if FindNPCChatText('keleton', True) then
begin
writeln('[Task Handler] > Our new task is: Skeletons.')
end;
if FindNPCChatText('pider', True) then
begin
writeln('[Task Handler] > Our new task is: Spiders.')
end;
if FindNPCChatText('olve', True) then
begin
writeln('[Task Handler] > Our new task is: Wolves.')
end;
if FindNPCChatText('ombie', True) then
begin
writeln('[Task Handler] > Our new task is: Zombies.')
end;
if FindNPCChatText('ows', True) then
begin
writeln('[Task Handler] > Our new task is: Cows')
wait(randomrange(400,500));
TaskCows;
end;
end;
procedure AntiBan;
begin
if not(LoggedIn)then
Exit;
case Random(7)of
0: HoverSkill('Slayer', false);
1: RandomRClick;
2: BoredHuman;
3: PickUpMouse;
4: RandomMovement;
5: HoverSkill('Attack', false);
6: HoverSkill('Defense', false);
7: HoverSkill('Ranged', false);
8: HoverSkill('Magic', false);
9: HoverSkill('Prayer', false);
end;
end;
procedure TaskCows;
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.05, 0.69);
//Kill cows
repeat
if FindColorSpiralTolerance(x,y,6058621, MSX1, MSY1, MSX2, MSY2, 18) then
begin
MMouse(X, Y, 3, 3);
wait(randomrange(200,300));
if WaitUpTextMulti(['Cow','ow'], 250) then
begin
Writeln ('[Combat Handler] > Found Cow!')
Writeln ('[Combat Handler] > Attack: Cow!')
ClickMouse2(true);
wait(randomrange(1500,2000));
end;
procedure Start;
begin
wait(randomrange(300,400));
SetAngle(SRL_ANGLE_HIGH);
wait(randomrange(300,400));
end;
procedure MainLoop;
begin
GetTask;
repeat
wait(5000);
until(false);
end;
Begin
SetupSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
Writeln ('-----------------------------------')
Writeln ('--------- Kipjes Slayer -----------')
Writeln ('-----------------------------------')
wait(10000);
GameTab(Tab_Inv);
wait(400);
Start;
wait(100);
MainLoop;
end.