Майнинг с моргалкой
Posted: 2007-10-23 13:06:30
Здраствуйте все. Вот мой скрипт
Нуждаюсь в помощи. Как зделать что бы когда пишеться is atacking you или отнялось 1хп окно ультимы внизу заморгало ? и когда набираеться допустим максимальный вес написаный мною.
sub Mining()
var mx, my, mz, i, j, z
for z = 1 to 100
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
hide()
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))
while not UO.InJournal("nothing here to mine") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("where") and not UO.InJournal("in rock") and not UO.InJournal("iron")
hide()
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0e85")
while not UO.InJournal("qq") and not UO.InJournal("location") and not UO.InJournal("nothing here to mine") and not UO.InJournal("but fail") and not UO.InJournal("where") and not UO.InJournal("nothing here to mine") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait (100)
wend
wend
UO.DeleteJournal()
next
next
UO.Press(34)
wait(100)
UO.Press(34)
wait(100)
UO.Press(34)
wait(100)
UO.Press(34)
wait(100)
end sub
sub hide()
end sub
Нуждаюсь в помощи. Как зделать что бы когда пишеться is atacking you или отнялось 1хп окно ультимы внизу заморгало ? и когда набираеться допустим максимальный вес написаный мною.
