Нужен скрипт на мининг.

Bel'zebuba · Post by **Bel'zebuba** » 2009-10-08 19:23:04

Чтобы копал киркой как обычно, а если неможет киркой тогда лапатой.

sub mineone()
var x,y,z, n
VAR LastTimer
UO.Set('finddistance','2')
n=0
z=UO.GetZ("self")
for x=-2 to 2
for y=-2 to 2
UO.Print(str(x)+" "+str(y))
Repeat
if UO.InJournal('TORMOZ') then
pause()
endif
UO.DeleteJournal()
UO.Warmode("0")
UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z))
UO.UseType('0x0E85')
LastTimer=UO.Timer()
Repeat
wait(500)
Until UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("where it") OR UO.Timer()>LastTimer+200
if UO.InJournal("You put") then
n=0
else
n=n+1
endif
Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or n>=5
next
next
end sub

вот сюда может как то вставить чтобы если неможет киркой капать капал лапатой>...

CuHTpoH · Post by **CuHTpoH** » 2009-10-09 01:20:45

что значит если не может киркой?

Bel'zebuba · Post by **Bel'zebuba** » 2009-10-09 06:51:57

Ну там на сервере типа есть где копаешь киркой арморы< а другие оры лопатой , и когда получаеться я жму скрипт копать , если там нету оры для арморов , которая киркой копать он стоит ждёт, и т.д , а так хочеться чтобы он копал , если киркой не копает там пишет (" You cannot gather this ore using a pickaxe") копал бы лопатой, и если лопатой не копает ("You cannot gather this ore using a shovel") тогда киркой. Или просто сделать что если он копает и пишеться (" You cannot gather this ore using a pickaxe") тогда быстро пропускал эту клетку и копал дальше!

CuHTpoH · Post by **CuHTpoH** » 2009-10-09 13:44:12

и как ты думаешь тебе бы до этого могли помочь если ты не указывал всех подробностей?

Bel'zebuba · Post by **Bel'zebuba** » 2009-10-09 14:31:15

ну вроде всю информацию дал , прошу помощи.

Bel'zebuba · Post by **Bel'zebuba** » 2009-10-10 10:07:36

что некто не может сделать?

CuHTpoH · Post by **CuHTpoH** » 2009-10-10 10:47:18

Code: Select all

sub mineone()
   var x,y,z, n , type_tool
   VAR LastTimer
   UO.Set('finddistance','2')
   n=0
   z=UO.GetZ("self")
   for x=-2 to 2
      for y=-2 to 2
         UO.Print(str(x)+" "+str(y))
         type_tool='0x0E85'
         Repeat
            if UO.InJournal('TORMOZ') then
               pause()
            endif
            UO.DeleteJournal()
            UO.Warmode("0")
            if uo.waiting() then
               uo.canceltarget()
            endif
            UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z))
            UO.UseType(type_tool)
            LastTimer=UO.Timer()
            Repeat
               wait(500)
            Until uo.injournal("You cannot gather this ore using a pickaxe") or UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("where it") OR UO.Timer()>LastTimer+200
            if uo.injournal("You cannot gather this ore using a pickaxe") then
               type_tool='' # вставить сюда тип лопаты
            endif
            if UO.InJournal("You put") then
               n=0
            else
               n=n+1
            endif
         Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or n>=5
      next
   next
end sub

обязательно отпишись как чо

Bel'zebuba · Post by **Bel'zebuba** » 2009-10-11 08:00:51

всё норм работает , спасибо.