pcap
2013-03-01 20:40:58
hey i m almost finished with a little script ive been working on but i m not sure about free dtm i would love some help
program Cow_Killer;
{$I SRL/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I P07Include.Simba}
var
x, y: Integer;
Test: Tstringarray;
procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
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;
DeclarePlayers;
P07_LoginPlayer;
Repeat
Kill_Cow;
Eat_Food;
Until(false);
end.