mining

[richiemd]

hey not sure if there a script for this aredy since i dont undersand germin
but i would like a script

all i want it to do is mine all around me till there no more ore

[-=JoKeR=-]

I`m sure you can find here this script by using Search.

[richiemd]

i tryed but most of the topics are in germin and i dont understand

[Mazer]

i used this.. i hope it still works

Code: Select all

sub minround() 
VAR Kirka = '0x0E85'  ;Тип того чем будем копать 
VAR MaxVes = 625  ; максимальнай вес минус 10-15 стоуов 
VAR TileNum = '-1'  ; Номер тайла 
VAR x, y, t, k 
VAR MaxTime = 100    
VAR ms1 = "There is no ore" 
VAR ms2 = "You can't use" 
VAR ms3 = "You put " 
VAR ms4 = "You loosen some rocks" 
VAR ms5 = "location" 
VAR ms6 = "Try mining" 
VAR ms7 = "You can't see that" 
for y=-2 to 2 
for x=-2 to 2 
 k = 0 
     repeat 
        UO.DeleteJournal() 
        t = UO.Timer() 
        k = k + 1 
        wait(300) 
        UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0) 
        UO.UseType( Kirka ) 
        repeat 
           wait(300) 
        until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR ((t +MaxTime) < UO.Timer()) 
        If UO.Weight > MaxVes Then 
           UO.Print(" Overweight!" ) 
           return 
        Endif 
     until ( NOT UO.InJournal(ms4) AND NOT UO.InJournal(ms3) OR (k > 10) ) 
  next 
next 
endsub