Yoko
http://forum.yoko.com.ua/

mining
http://forum.yoko.com.ua/viewtopic.php?f=17&t=12876
Page 1 of 1

Author:  richiemd [ 2007-12-09 20:22:20 ]
Post subject:  mining

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

Author:  -=JoKeR=- [ 2007-12-09 22:20:00 ]
Post subject: 

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

Author:  richiemd [ 2007-12-09 23:27:53 ]
Post subject: 

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

Author:  Mazer [ 2007-12-10 09:04:10 ]
Post subject: 

i used this.. i hope it still works
Code:
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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/