Stealth Client Forum

Code: Select all

procedure Mine(X, Y: Integer); 
 var 
   StaticData: TStaticCell; 
   Tile: Word; 
   Z: ShortInt; 
   Finded: Boolean; 
   Counter: Byte; 
   StartTime: TDateTime; 
   i: Integer; 
 begin 
   Finded := False; 
   StaticData := ReadStaticsXY(X, Y, WorldNum); 
   for i := 0 to StaticData.StaticCount - 1 do begin 
     if i >= StaticData.StaticCount then Break; 
     if (GetTileFlags(2, StaticData.Statics[i].Tile) and $200) = $200 then begin 
       Tile := StaticData.Statics[i].Tile; 
       Z := StaticData.Statics[i].Z; 
       Finded := True; 
       Break; 
     end; 
   end; 
   
   CheckState(); 
   while Finded do begin 
     if Dead or not Connected then Exit; 
     if TargetPresent then CancelTarget; 
     while not CheckMiningTool do begin 
       if Dead or not Connected then Exit; 
       CreateMiningTools; 
     end; 
     CheckLag(LagWait); 
     Wait(WaitTime); 
     UseObject(MiningTool); 
     CheckLag(LagWait); 
     WaitForTarget(WaitTime); 
     if TargetPresent then begin 
       StartTime := Now; 
       TargetToTile(Tile, X, Y, Z); 
       Counter := WaitCycles; 
       Finded := False; 
       while (not Finded) and (Counter > 0) do begin 
         CheckLag(LagWait); 
         if InJournalBetweenTimes('t mine there|is too far away|cannot be seen|is no metal here to mine', StartTime, Now) > 0 then Exit; 
         if InJournalBetweenTimes('put it in your backpack|loosen some rocks but fail to find any useable ore|have worn out your tool', StartTime, Now) > 0 then Finded := True; 
         if Not Finded then Wait(200); 
         Dec(Counter); 
       end; 
       CheckState(); 
     end; 
   end;    
 end;

Code: Select all

21:24:25:591: GLHF, Server -> Client: 0x6C, len: 19
0000: 6C 00 00 00 01 ED 00 00 00 00 00 00 00 00 00 00         l...............
0010: 00 00 00                                                ...


21:24:25:591: GLHF, Client -> Server: 0x6C, len: 19
0000: 6C 00 00 00 01 ED 00 40 05 29 7C 14 A1 0B DB 00         l......@.)|.....
0010: 00 0B 44    

Code: Select all

21:24:25:733: GLHF, Server -> Client: 0x6C, len: 19
0000: 6C 00 00 00 01 ED 00 00 00 00 00 00 00 00 00 00         l...............
0010: 00 00 00                                                ...

Code: Select all

21:24:26:866: GLHF, Client -> Server: 0x6C, len: 19
0000: 6C 00 00 00 01 ED 00 00 04 79 9F 14 AE 0B D1 00         l........y......
0010: 00 01 90                                                ...

Code: Select all

21:24:30:426: GLHF, Server -> Client: 0x6C, len: 19
0000: 6C 00 00 00 01 ED 00 00 00 00 00 00 00 00 00 00         l...............
0010: 00 00 00                                                ...

Code: Select all

21:24:30:854: GLHF, Client -> Server: 0x6C, len: 19
0000: 6C 00 00 00 01 ED 00 00 04 79 9F 14 AE 0B D1 00         l........y......
0010: 00 01 90                                                ...

Code: Select all

21:24:37:033: GLHF, Server -> Client: 0x6C, len: 19
0000: 6C 00 00 00 01 ED 00 00 00 00 00 00 00 00 00 00         l...............
0010: 00 00 00                                                ...


21:24:38:172: GLHF, Client -> Server: 0x6C, len: 19
0000: 6C 00 00 00 01 ED 00 40 02 5C 8E 14 B0 0B D1 00         l......@.\......
0010: 00 17 97                                                ...