Скрипты под майнинг

[Tyrael]

У меня есть скрипт на майнинг :

sub kopanie(x,y)
uo.exec("usetype pickaxe")
wait(500)
UO.LClick(x,y)
wait(5000)
end sub
sub main()
var x1, y1, x2, y2, xp, x, y, z1
repeat1:
if y1==420 then
y1=300
y2=180
z1= -1
x1=300
x2=520
else
y1=300
y2=420
z1= 1
x1=300
x2=520
endif
while y1 <> y2
xp=x1
while xp <> x2
x=xp
y=y1
kopanie(x,y)
xp=xp+20
wend
y1=y1+z1*20
x1=x1+20
x2=x2-20
wend
goto repeat1
end sub


Как мне указать кирку?
Графика кирки :
ID=0x5CBA08B9 Type=0x0E85 Name=
Quantity: 0 Colour: 0x0000 Layer: 1 Has: 1
X=65535 Y=65535 Z=0 F=0x00

что и куда сувать?

[ZuraB]

Попробуй эту строчку
> uo.exec("usetype pickaxe")
Заменить на следующую:
> uo.exec("usetype '0x0E85'")

А вообще предлагаю другой скрипт на мининг, требующий наличие лопаты в главном бэгпаке: (скрипт писал не я,автора,к сожалению,не знаю)

Code: Select all

sub shovelmining()

#в Object Types прописать чем копать - pickaxe

#становимся в хайд


#n - номер в какую сторону будет копать , 1 - вверх ,2 - вверх-вправо,3 - вправо и т.д.
#x,y - координаты для выкапывания

   var say0,say1,say2,say3,say4,say5,say6,say7,say8,say9,n,m,i,p,x,y,xx,yy,xxx,yyy,v
   
   p=24
   for n=1 to 8
      if n==1 then
         x=402
         y=232
         xx=398
         yy=207
         xxx=422
         yyy=227
      endif
      if n==2 then
         x=421
         y=273
         xx=442
         yy=250
         xxx=462
         yyy=272
      endif
      if n==3 then
         x=441
         y=292
         xx=483
         yy=293
         xxx=462
         yyy=317
      endif
      if n==4 then
         x=420
         y=316
         xx=440
         yy=338
         xxx=421
         yyy=359
      endif
      if n==5 then
         x=397
         y=339
         xx=397
         yy=382
         xxx=375
         yyy=360
      endif
      if n==6 then
         x=377
         y=316
         xx=356
         yy=337
         xxx=331
         yyy=316
      endif
      if n==7 then
         x=355
         y=294
         xx=312
         yy=293
         xxx=332
         yyy=274
      endif
      if n==8 then
         x=377
         y=273
         xx=353
         yy=249
         xxx=377
         yyy=230
      endif

#цикл выкапывания из трех клеток одного направления

      for m=1 to 3
         if m==2 then
            x=xx
            y=yy
         endif
         if m==3 then
            x=xxx
            y=yyy
         endif
         wait(1000)
         UO.Print("metka x="+str(n)+" y="+str(m))
              p=0
              v=0         

#цикл выкапывания из одной клетки

            #Where do you want to use the pickaxe? - использование кирки
            say0="use the shovel?"
            #pack. - положил что-то в рюкзак
            say1="pack."
            #useable ore. - не можешь выкапать
            say2="useable ore."
            say9="distribe"
            #There is no ore here to mine. - нет больше руды
            say3="There is no ore here to mine."
            #You put the Some with ore at eour feet. It is too heavy.. - выкапал что-то большое (It is too heavy..)
            say4="It is too heavy.."
            #Try mining in rock. - не капается 
            say5="Try mining in rock."
            #You can't mining here. - не можешь здесь капать
            say6="You can't mining here."
            #"You can't reach that." - нельзя использовать
            say7="You can't reach that."
            #Elemental - выкопал элементаля
            say8="Elemental"

         while v==0
             While not uo.hidden()
                   UO.UseSkill("Hiding")
                  wait (2500)
                wend
            While not UO.InJournal("")
               UO.DeleteJournal()
               wait (100)
            wend

                   uo.exec("usetype '0x0f39'")
            
            UO.DeleteJournal()
            wait (100)
                UO.LClick(x,y)
            wait (100)
                UO.LClick(x,y)
            wait (100)
                UO.LClick(x,y)

            i=0
            While i<>50 and not UO.InJournal(say1) and not UO.InJournal(say2) and not UO.InJournal(say3) and not UO.InJournal(say4) and not UO.InJournal(say5) and not UO.InJournal(say6) and not UO.InJournal(say7) and not UO.InJournal(say8)
               i=i+1
                  wait(200)
               wend

            if i==50 then
               UO.Print("ZADERJKA")
               v=1
            endif
            if UO.InJournal(say1) then
                 p=0
            endif
              if (UO.InJournal(say2)) and (UO.InJournal(say1)) then
                 p=p+1
                 UO.Print("POVTOR p="+str(p))
              endif
              
            if p==7 or UO.InJournal(say5) or UO.InJournal(say3) or UO.InJournal(say6) or UO.InJournal(say7) then
               v=1
            endif
            if UO.InJournal(say4)then
               UO.Print("Net MESTA")
               Goto TheEnd
            endif
#            if UO.InJournal(say8) then
#               UO.Print("Vilez ELEMENTAL")
                  
#               Goto TheEnd
            endif
         wend
      next
   next
TheEnd:
UO.Print("                     ")   
UO.Print("                     ")   
UO.Print("                     ")   
UO.Print("---=== THE END ===---")

end sub

[kpakep]

у меня чето не копает

[-=M@rTin=-]

у меня чето не копает

потамучто скрипт - х*рня

[kpakep]

у меня чето не копает

потамучто скрипт - х*рня

у тебя есть лутше ???

[-=M@rTin=-]

у тебя есть лутше ???

Есть, платите деньги .)

[-=M@rTin=-]

Vilez ELEMENTAL

ого, у когото эльки лезут из земли при копке руды?

[M0ke]

;Скрипт на Mining

sub Mining()
var mx, my, mz, i, j
repeat
uo.addobject("Shovel",0x4008003D) ;ID Лопаты или кирки
na4:
; gotoxy(5136,1181) ;
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my-4 to my+4
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Hiding")
wait(4000)
wend
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock")
UO.DeleteJournal()
if uo.waiting() then
uo.canceltarget()
endif
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Useobject("Shovel")
while not UO.InJournal("You put") and not UO.InJournal("heavy") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait(500)
endif
wend
UO.DeleteJournal()
if uo.Weight>820 then ;
end sub
goto na4
endif
next
next
until uo.dead()
end sub