wthomas
02-28-2013, 12:56 AM
This script trolls cows anywhere just start the script up next to cows :)
NB: there is super awesome hidden ANTI_LEACH, yes the script will basically run as it is. but with changes to less than 8 lines of code the script will run for 5+hours. Hope you enjoy.
program TrollFighter;
{$DEFINE SMART8}
{$i Srl/Srl.simba}
{$I P07Include.Simba}
var
foodSlot,x,y:integer;
Procedure P07_DeclarePlayer;
Begin
P07_PlayerName:='';
P07_PlayerPass:='';
End;
Function getHp:double;
Var
green,red:TpointArray;
x,y:Integer;
Begin
FindColorsTolerance(green,65280,240,70,275,170,0);
FindColorsTolerance(red,255,240,70,275,170,0);
If (length(red)>0) And (length(green)>0) Then
Tesult:=100*length(green)/(length(green)+length(red))
Else Result:=100;
//writeln(result);
End;
Function inCombat:Boolean;
Var x,y:integer;
Begin
Result:=findColorTolerance(x,y,65280,240,70,275,17 0,5);
End;
Procedure eatFood;
Var i:integer;
Begin
Repeat
Inc(foodslot);
Writeln('trying to eat foods troll style');
Wait(300);
Until P07_UseInvItem(foodslot,'Eat') Or (foodslot>28);
//NB this procedure ^^ is an easily modified version of P07_UseInvItem()
end;
procedure fightcow;
var x,y:integer;
begin
If P07_FindObjCustom(x, y, ['Attack', 'Cow,Monkey'], [4343892,4740971,5397094], 5) Then
Begin
// wait(50);
ClickMouse2(MOUSE_LEFT);
Writeln('waiting for hp bar');
WaitFunc(@incombat ,50,2000)
Writeln('waiting for hp bar to-go, we''re fighting now');
Repeat
If getHP<20 Then eatFood;
Wait(200);
Until NOT inCombat;
end;
end;
begin
SRL_SixHourFix := True;
SMART_FixSpeed := True;
foodSlot:=0;
SetUpSRL;
P07_DeclarePlayer;
SetupP07Include;
//P07_LoginPlayer;
Writeln('starting script');
P07_MakeCameraAngleHigh;
Repeat
fightCow;
//mysteryfunctionwashere?iwonderwhatitdid.
Wait(1000000);
until false;
end.
Um, also I'll probably release an actual non troll version of this in a few days, probably adding the other half of the code that handles more monsters, stops it attacking other peoples monsters etc oh and also the combat random detection+avoidance. stay tuned.
NB: there is super awesome hidden ANTI_LEACH, yes the script will basically run as it is. but with changes to less than 8 lines of code the script will run for 5+hours. Hope you enjoy.
program TrollFighter;
{$DEFINE SMART8}
{$i Srl/Srl.simba}
{$I P07Include.Simba}
var
foodSlot,x,y:integer;
Procedure P07_DeclarePlayer;
Begin
P07_PlayerName:='';
P07_PlayerPass:='';
End;
Function getHp:double;
Var
green,red:TpointArray;
x,y:Integer;
Begin
FindColorsTolerance(green,65280,240,70,275,170,0);
FindColorsTolerance(red,255,240,70,275,170,0);
If (length(red)>0) And (length(green)>0) Then
Tesult:=100*length(green)/(length(green)+length(red))
Else Result:=100;
//writeln(result);
End;
Function inCombat:Boolean;
Var x,y:integer;
Begin
Result:=findColorTolerance(x,y,65280,240,70,275,17 0,5);
End;
Procedure eatFood;
Var i:integer;
Begin
Repeat
Inc(foodslot);
Writeln('trying to eat foods troll style');
Wait(300);
Until P07_UseInvItem(foodslot,'Eat') Or (foodslot>28);
//NB this procedure ^^ is an easily modified version of P07_UseInvItem()
end;
procedure fightcow;
var x,y:integer;
begin
If P07_FindObjCustom(x, y, ['Attack', 'Cow,Monkey'], [4343892,4740971,5397094], 5) Then
Begin
// wait(50);
ClickMouse2(MOUSE_LEFT);
Writeln('waiting for hp bar');
WaitFunc(@incombat ,50,2000)
Writeln('waiting for hp bar to-go, we''re fighting now');
Repeat
If getHP<20 Then eatFood;
Wait(200);
Until NOT inCombat;
end;
end;
begin
SRL_SixHourFix := True;
SMART_FixSpeed := True;
foodSlot:=0;
SetUpSRL;
P07_DeclarePlayer;
SetupP07Include;
//P07_LoginPlayer;
Writeln('starting script');
P07_MakeCameraAngleHigh;
Repeat
fightCow;
//mysteryfunctionwashere?iwonderwhatitdid.
Wait(1000000);
until false;
end.
Um, also I'll probably release an actual non troll version of this in a few days, probably adding the other half of the code that handles more monsters, stops it attacking other peoples monsters etc oh and also the combat random detection+avoidance. stay tuned.