Stealth Client Forum

Code: Select all

program Mine;
var x,y,t,h,z,i:integer;
var Time : TDateTime;


procedure Make;
Begin
wait(1000);
i:=200;
clearjournal;
end;


begin
Time:= Now - (0.5 / 1440);
while weight <= 40000 do
begin
for x := getx(self)
for y := gety(self)
for z := getz(self)
for t := x-2 to x+2
for h := y-2 to y+2 do
end;
   begin
   useobject($403F23B2);
   waitfortarget(5000);
   TargetToTile(1,t,h,z);
   i:=0
   while i<100 do
   begin



if InJournalBetweenTimes('but fail',Time,Now) or InJournalBetweenTimes('You put',Time,Now) or InJournalBetweenTimes('You must wait to perform another action',Time,Now)>= 0 then make;



if InJournalBetweenTimes('nothing here',Time,Now) or InJournalBetweenTimes('Try mining',Time,Now) or InJournalBetweenTimes('bort',Time,Now) or InJournalBetweenTimes('inish',Time,Now) >= 0 then make2;


   i:=i+1
   end;
   end;
end;
end.

Code: Select all

procedure Mine; 
var 
    sTime : TDateTime; 

begin
CheckDead;
   for x:=-2 to 2 do 
   begin 
      for y:=-2 to 2 do 
      begin
 
*тут я проверяю есть ли кирка в руке и одеваю если нет*

            WaitTargetTile( 400,( GetX( Self ) + x ),( GetY( Self ) + y ),GetZ( Self )); {Проставлено из расчета что всегда Tile=400}
				sTime := Now; 
				wait(500);
            	WaitJournalLine( sTime, 'cannot see|cannot mine|no clay|no more|equip|too far|broke|dead|perform|Oops|attacking',30000); 
			wait(1500);

*тут я выбрасываю руду которая мне не нужна*
*тут я пытаюсьвзять с пола ту руду что нужна*

      end;
   end;
end;

Code: Select all

procedure Mine; 
var x, y:integer;
    sTime : TDateTime; 
begin 
   for x:=-2 to 2 do 
   begin 
      for y:=-2 to 2 do 
      begin 
findtype($0E85, backpack); 
UnEquip(RHandLayer); 
wait(500);   
Equip(RhandLayer,finditem); 
UseObject(finditem); 
wait(1000); 
            WaitTargetTile( 1309,( GetX( Self ) + x ),( GetY( Self ) + y ),GetZ( Self )); {Проставлено из расчета что всегда Tile=400} 
            sTime := Now; 
            wait(500); 
               WaitJournalLine( sTime, 'cannot see|cannot mine|no clay|no more|equip|too far|broke|abort|perform|finished|attacking',30000); 
         wait(1500); 
      end; 
   end; 
end;