Нужна помощь в скрипте на мининг.

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
messir
Posts: 18
Joined: 2010-02-16 19:41:25

Нужна помощь в скрипте на мининг.

Post by messir »

В общем я не умею писать умные красивые скрипты, и использую только то, что мне известно и понятно. Поэтому скрипт очень "тупой". Но при этом работает без нареканий. Проблема вот в чем:
В некоторых частях скрипта используется goto и именно на нее происходит ругань. А именно. Запускаю скрипт, он летит по руне как пологается, встает на нужную точку и начинает копать. Как накопал улетает домой, сгружается, пополняет запасы и снова летит к шахте. И вот когда чар прилетает и должен идти к точке копания, то на этом месте вылазиет ошибка "Line 44: GoTo - некорректное определение цикла в скрипте?!!"
Как вылечить и почему эта ошибка возникает?

вот код (помечу 44 строчку, на которую ругается)

Code: Select all

sub start()
uo.Exec('exec Avtohealing')
uo.Exec('exec Speak')
uo.Exec('exec Drap')
UO.Set('finddistance','3')
uo.WarMode(1)
wait(1000)
uo.setarm("1")
wait(1000)
uo.deletejournal()
wait(500)
letimkopat()
endsub


sub letimkopat()
if uo.injournal ("Saving World State") then
	wait(20000)
	uo.deletejournal()
endif
wait(5000)
uo.disarm()
wait(500)
UO.Exec("useobject '0x79ED63A2'")
wait(1000)
UO.LClick (62,81)
wait(7000)
if uo.injournal ("Kal Ort Por") then
	uo.deletejournal()
	wait(1000)
	uo.arm("1")
	wait(500)
	idemkopat()
	else
	letimkopat()
endif
end sub

sub idemkopat()
var q,w,e,r
q=23
e=10
w=0
r=0 #44 строчка на которую скрипт ругается.
while not uo.dead()
first:
if q==w then	
	w=0
	goto second
else
	if uo.injournal ("Saving World State") then
		wait(20000)
		uo.deletejournal()
	endif
	uo.press(33)
	wait(500)
	w=w+1
	goto first
endif

second:
if e==r then
		r=0
		uo.press(35)
		wait(1000)
		uo.press(35)
		wait(1000)
		uo.press(34)
		wait(1000)
		mining()
else
		if uo.injournal ("Saving World State") then
			wait(20000)
			uo.deletejournal()
		endif
		uo.press(36)
		wait(500)
		r=r+1
		goto second
endif
wait(1000)
wend
end sub

sub domoy()
if uo.injournal ("Saving World State") then
	wait(20000)
	uo.deletejournal()
endif
wait(10000)
uo.disarm()
wait(500)
UO.Exec("useobject '0x79ED63A2'")
wait(1000)
UO.LClick (62,66)
uo.press(36)
wait(100)
uo.press(36)
wait(100)
uo.press(36)
wait(100)
uo.press(36)
wait(100)
uo.press(36)
wait(100)
uo.press(36)
wait(100)
uo.press(36)
wait(100)
uo.press(36)
wait(100)
wait(5000)
if uo.injournal ("a unicorn") then
	uo.deletejournal()
	uo.press(36)
	wait(1000)
	uo.press(36)
	wait(1000)
	uo.press(34)
	wait(1000)
	uo.press(34)
	wait(1000)
	drop()
else
	domoy()
endif
end sub

sub drop()
if uo.injournal ("Saving World State") then
	wait(20000)
	uo.deletejournal()
endif
uo.msg("Âûãðóæàþ ðóäó")
if uo.count("0x19B9") >0 then
	UO.exec("waittargetobject '^0x19B9'")
	UO.Drop('^0x19B9')
	wait(1000)
	drop()
	else
	wait(1000)
	recharge()
endif
end sub

sub recharge()
if uo.injournal ("Saving World State") then
	wait(20000)
	uo.deletejournal()
endif
uo.msg("Ñîáèðàþñü çàðÿäèòü ðóíáóê")
wait(1000)
UO.Exec("waittargetobject '~0x1F4C'")
UO.Exec("useobject '0x79ED63A2'")
wait(1000)
UO.LClick (243,22)
wait(20000)
uo.msg("Ìîþ ãðÿçíûå áèíòû")
wait(1000)
UO.Exec("waittargetobject '~0x0E7B'")
UO.Exec("useobject '^0x0E20'")
wait(1000)
bandage()
end sub

sub bandage()
while not uo.dead()
if uo.injournal ("Saving World State") then
	wait(20000)
	uo.deletejournal()
endif
uo.msg("Ñîáèðàþñü ïîïîëíèòü çàïàñû áèíòîâ")
wait(1000)
if uo.count('0x0E21')>100 then
	uo.msg("Áèíòîâ áîëüøå 100 øòóê")
	wait(1000)
	eda()
	else
	UO.Exec("moveitem '~0x0E21' '10' '^0x0E75'")
	wait(1000)
	uo.msg("Áåðó 10 áèíòîâ")
	wait(1000)
endif
wend
end sub

sub eda()
while not uo.dead()
if uo.injournal ("Saving World State") then
	wait(20000)
	uo.deletejournal()
endif
uo.msg("Ñîáèðàþñü ïîïîëíèòü çàïàñû åäû")
wait(1000)
if uo.count('0x171F')>0 then
	uo.msg("Åäû áîëüøå 5")
	wait(1000)
	letimkopat()
	else
	uo.msg("Áåðó Åäó")
	wait(1000)
	UO.Exec("moveitem '~0x171F' '1' '^0x0E75'")
	wait(1000)
endif
wend
end sub

sub speak()
while not uo.dead()
if uo.injournal ("Saving World State") then
	wait(20000)
	uo.deletejournal()
endif
uo.msg("Êà÷àþ ìèíèíã! Ñêàæè drîp me è ÿ âûáðîøó âñþ ðóäó!")
wait(7500)
wend
end sub

sub drap()
while not uo.dead()
if uo.injournal ("drop me") then
	uo.deletejournal()
	wait(1000)
	drapactive()
endif
wait(1000)
wend
end sub

sub drapactive()
while uo.count("0x19B9")>0
UO.exec("waittargetobject '^0x19B9'")
UO.Drop('^0x19B9')
uo.msg("Ñáðàñûâàåì...")
wait(1000)
wend
end sub

sub Avtohealing()
var x=1
while not uo.dead()
if (UO.STR-x) > UO.Life then
uo.msg(".bandage self")
wait(1000)
endif
wait(1000)
wend
end sub


sub mining()
var i,j,n,m,r
i=0
j=0
n=15
m=4
r=0
begin:
while not uo.dead()
if uo.injournal ("Saving World State") then
	wait(20000)
	uo.deletejournal()
endif
if j==m then
	uo.press(33)
	wait(1000)
	uo.press(33)
	wait(1000)
	uo.press(36)
	wait(1000)
	j=0
	goto back
else
	if r==1 then
		goto west
	else
		goto east
	endif
endif
wend

east:
while not uo.dead()
if uo.injournal ("Saving World State") then
	wait(20000)
	uo.deletejournal()
endif
if i<n then
	goto kopalka1
else
	uo.press(35)
	wait(1000)
	uo.press(35)
	wait(1000)
	uo.press(36)
	wait(1000)
	i=0
	j=j+1
	r=r+1
endif
uo.exec("usetype '0x171F'")
goto begin
wend

west:
while not uo.dead()
if uo.Weight>=20000 or uo.count('0x0E21')<10 then
	domoy()
endif
if uo.injournal ("Saving World State") then
	wait(20000)
	uo.deletejournal()
endif
if i<n then
	goto kopalka2
else
	uo.press(35)
	wait(1000)
	uo.press(35)
	wait(1000)
	uo.press(34)
	wait(1000)
	i=0
	j=j+1
	r=0
endif
uo.exec("usetype '0x171F'")
goto begin
wend

back:
while not uo.dead()
if uo.Weight>=20000 or uo.count('0x0E21')<10 then
	domoy()
endif
if uo.injournal ("Saving World State") then
	wait(20000)
	uo.deletejournal()
endif
if j<m then
	wait(50)
	uo.press(33)
	wait(1000)
	j=j+1
	goto back
else
	uo.press(34)
	wait(1000)
	j=0
	uo.exec("usetype '0x171F'")
	wait(50)
	goto begin
endif
wend

kopalka1:
while not uo.dead()
uo.msg(".pray")
wait(100)
uo.exec("usetype 'pickaxe'")
wait(500)
UO.LClick (403,303)
wait(5000)
if uo.injournal ("There is no") then
	uo.deletejournal()
	uo.press(34)
	wait(1000)
	i=i+1
	goto east
else
	goto kopalka1
endif
uo.exec("usetype '0x171F'")
goto begin
wend

kopalka2:
while not uo.dead()
uo.msg(".pray")
wait(100)
uo.exec("usetype 'pickaxe'")
wait(500)
UO.LClick (403,303)
wait(5000)
if uo.injournal ("There is no") then
	uo.deletejournal()
	uo.press(36)
	wait(1000)
	i=i+1
	goto west
else
	goto kopalka2
endif
uo.exec("usetype '0x171F'")
goto begin
wend
end sub
Top
Post Reply

Return to “Scripting Ore”