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.
Code: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,170,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.


















