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

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

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