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

Помогите с минингом
http://forum.yoko.com.ua/viewtopic.php?f=20&t=199		 Page 1 of 1
Author:  Herigan [ 2004-04-26 21:43:06 ]
Post subject:  Помогите с минингом
Недавно скачал инжект, с основными командами понял, с пвп понял, токо туговато с логическим мышлением. Киньте пожалуйста макрос чтобы чар выкапывал прямоугольную пещеру(на нашем шарде это вип шахты) 6 на 19.
Если можно то исключить выкапывание ирона дулл купера ну в общем всего до шадоу, т.е. если он выкапывал бы эти металлы, то не копал их до There is no ore а шел бы дальше
Спасибо.
Author:  black hawk [ 2004-05-06 15:15:00 ]
Post subject: 
вот тебе макрос на выкапывание руды
правда он выкапывает все в радиусе 3 клеток вокруг себя
но все равно не копает дулл коппер и все до шадоуа


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-3 to mx+3
for j = my -3 to my+3
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))
wait(500)
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

sub plavka()
;uo.moveitem('sumkap.ruda','1')
;wait(500)

while UO.Count('0x19b7')> '0'
UO.DeleteJournal()


uo.moveitem('sumkap.ruda','1')
while NOT UO.Count('0x19b7')> 0
wait(50)
wend
UO.UseType('0x19b7')
UO.UseType('0x19b8')
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")AND NOT UO.InJournal("*You smelt")
wait(50)
wend
; wait(600)
;uo.moveitem('sumkap.ruda','1')
;wait(200)
wend
end sub

sub hiding()
var x

while UO.life>0
UO.DeleteJournal()
uo.useskill('Hiding')

while NOT UO.InJournal("You have") AND NOT UO.InJournal("You can't")
wait(50)
wend

;if UO.InJournal("You have") then
wait(4000)
;uo.useskill('Stealth')
;while NOT UO.InJournal("You have") AND NOT UO.InJournal("You can't")
; wait(50)
wend
;end if
if uo.str>uo.life then
sat("guards")
end if
wend

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