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

Мининг на РУО
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4118
Page 1 of 1

Author:  Saruman [ 2005-06-03 05:54:11 ]
Post subject:  Мининг на РУО

Ну как ни пытался отредачить этот скрипт,не получалось,после первой дырки скрипт стоит
ну хелп :roll:

Code:
sub mining() 
var mx, my, mz, i, j
var ismining, ixx, isheavy
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-2 to mx+2
for j = my -2 to my+2
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
ismining = 1
while not UO.InJournal("Try mining elsewhere") and not UO.InJournal("is nothing") and not UO.InJournal("can't") and not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("can't use") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ismining

wait(400)

UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype('0x0E85')
if UO.Weight>840 then
UO.recall('0x40023FBD','2')
Return
endif
ixx = 0
ismining=1
while not UO.InJournal("Try mining elsewhere") and not UO.InJournal("Здесь больше нечего") and not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("can't use") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ixx <= 100
wait (100)
ixx = ixx + 1
wend



if uo.injournal("Rusty") then
ismining = 0
endif
if uo.injournal("Old Copper") then
ismining = 0
endif
if uo.injournal("Dull Copper") then
ismining = 0
endif
if uo.injournal("the Copper") then
ismining = 0
endif
if not ismining then
uo.print("Not mining here")
endif
wend
UO.DeleteJournal()
next
next
uo.print("*** Script ended ***")
end sub
sub healing()
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
end sub


while not UO.InJournal("Try mining elsewhere") and not UO.InJournal("Здесь больше нечего") and not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("can't use") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ixx <= 100


красную строчку надо поправить,и у меня чо та не доходит на что поправить :roll: (ЗЫ там раньше стояла ("is nothing") )
помогите плз

Author:  Saruman [ 2005-06-03 05:57:25 ]
Post subject: 

а ещё,его в соседку пихните :wink: работает на ролевых шардах типо Антареса,ВХ, и всяких других,просто в скрипте нужно поменять тип кирки,и вуаля :wink:

Author:  Saruman [ 2005-06-03 17:33:07 ]
Post subject: 

и чо вы все игнорируете?
помогите блин! :cry:

Author:  flake [ 2005-06-03 19:07:09 ]
Post subject: 

Внимательно проверь сообщения на нужном шарде.
Ничего больше не могу сказать, не играл там.
Удачи!

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/