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

Нужен скрипт на мининг.
http://forum.yoko.com.ua/viewtopic.php?f=17&t=15172		 Page 1 of 1
Author:  Bel'zebuba [ 2009-10-08 19:23:04 ]
Post subject:  Нужен скрипт на мининг.
Чтобы копал киркой как обычно, а если неможет киркой тогда лапатой.

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

вот сюда может как то вставить чтобы если неможет киркой капать капал лапатой>...
Author:  CuHTpoH [ 2009-10-09 01:20:45 ]
Post subject: 
что значит если не может киркой?
Author:  Bel'zebuba [ 2009-10-09 06:51:57 ]
Post subject: 
Ну там на сервере типа есть где копаешь киркой арморы< а другие оры лопатой , и когда получаеться я жму скрипт копать , если там нету оры для арморов , которая киркой копать он стоит ждёт, и т.д , а так хочеться чтобы он копал , если киркой не копает там пишет (" You cannot gather this ore using a pickaxe") копал бы лопатой, и если лопатой не копает ("You cannot gather this ore using a shovel") тогда киркой. Или просто сделать что если он копает и пишеться (" You cannot gather this ore using a pickaxe") тогда быстро пропускал эту клетку и копал дальше!
Author:  CuHTpoH [ 2009-10-09 13:44:12 ]
Post subject: 
и как ты думаешь тебе бы до этого могли помочь если ты не указывал всех подробностей?
Author:  Bel'zebuba [ 2009-10-09 14:31:15 ]
Post subject: 
ну вроде всю информацию дал , прошу помощи.
Author:  Bel'zebuba [ 2009-10-10 10:07:36 ]
Post subject: 
что некто не может сделать?
Author:  CuHTpoH [ 2009-10-10 10:47:18 ]
Post subject: 
Code:
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


обязательно отпишись как чо
Author:  Bel'zebuba [ 2009-10-11 08:00:51 ]
Post subject: 
всё норм работает , спасибо.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/