Очень хороший скрипт мининг на даработку под дрв
Posted: 2006-05-30 12:43:13
Собственно в чем проблема...сейчас на дрв невозможно капать на одном месте как раньше...У меня есть скрипт чтоб он просто капал...
УВАЖАЙТЕ ТРУД ТЕХНИЧКИ... ИСПОЛЬЗУЙТЕ ТЕГИ
но нужно чтоб он после того как выкапает все на одно м месте делал рекол по руне в другую часть шахты.. и так чтоб он прыгал по ним раза 4-5..потом делал рекол домой..вылаживал руду и возваращался на первое место раскопки...и так по кругу...надо еще чтоб от пк и от синих убегал...и прятался преде тем как копать каждый раз...
УВАЖАЙТЕ ТРУД ТЕХНИЧКИ... ИСПОЛЬЗУЙТЕ ТЕГИ
Code: Select all
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-4 to mx+4
for j = my -4 to my+4
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
ismining = 1
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ismining
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("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") 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 uo.injournal("Iron") then
ismining = 0
endif
if not ismining then
uo.print("Not mining here")
endif
wend
UO.DeleteJournal()
next
next
goto allstop
UO.recall('0x40023FBD','2')
allstop:
uo.print("*** Script ended ***")
end sub
sub healing()
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
end sub 