It compiles then attacks first cow but now its saying Error: Out Of Range at line 2138
The following DTMs were not freed: [0, 1, 2, 3] and before it was saying something about a bit map error.
Code:program Cow_Killer; {$I SRL/SRL.Simba} {$I SRL/SRL/Misc/Debug.Simba} {$I P07Include.Simba} var x, y: Integer; Test: Tstringarray; Procedure P07_DeclarePlayer; Begin P07_PlayerName:='username'; P07_PlayerPass:='password'; End; procedure Kill_Cow; Begin repeat If P07_FindObjCustom (x,y, ['ow'], [1848381, 11975615],3) then ClickMouse2(Mouse_left); Wait(4500) until(HPPercent <10); End; Procedure Eat_Food; Begin Repeat If (HPPercent <10) then if P07_FindObjcustom(x,y, ['rout'], [7238283], 2) then Clickmouse2(mouse_left); until(HPPercent > 50) End; begin ClearDebug; SetupP07Include; P07_DeclarePlayer; P07_LoginPlayer; Repeat Kill_Cow; Eat_Food; Until(false); end.


Reply With Quote






