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

Мининг, хлопци только не ругайтесь
http://forum.yoko.com.ua/viewtopic.php?f=20&t=8895
Page 1 of 1

Author:  ViSerT [ 2006-09-27 15:33:46 ]
Post subject:  Мининг, хлопци только не ругайтесь

:wink: вобщем скрипт который меня во всём устраивает...

Quote:
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.setcatchbag('0x400BF4EF')

While not UO.Dead()
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+2
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()
hide()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype('0x0E85')
ixx = 0
ismining=1
while not UO.InJournal("You put") and not UO.InJournal("location")and not UO.InJournal("but fail") and not UO.InJournal("no ore") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ixx <= 100
wait (100)
ixx = ixx + 1
wend
while UO.InJournal("but fail")
Wait (3000)
UO.DeleteJournal()
wend




if uo.injournal("Dull Copper") then
ismining = 0
endif

if not ismining then
uo.print("Not mining here")
endif
wend
UO.DeleteJournal()
next
next
wend
end sub

sub hide()
while not UO.Hidden()
UO.Warmode("0")
UO.UseSkill("Hiding")
wait(4000)
wend
end sub


sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')

repeat
wait(500)
until UO.InJournal('backpack')
end sub



но вот нет паузы если выкопаешь элементаль...

вот этот кусочек из друго скрипта

Quote:

sub Pause() ; Пауза скрипта если выкопали Элема (продолжить сказав GO )
UO.DeleteJournal()
REPEAT
WAIT(3000)
UO.Print("!!!СКРИПТ НА ПАУЗЕ!!!!")
UNTIL UO.InJournal('GO')
UO.Print("!!!СКРИПТ ПРОДОЛЖЕН!!!!")
endif
end sub

sub pwav() ; звук при выкапывании ЭЛЕМЕНТАЛА
uo.playwav("C:\Documents and Settings\Serguchio\Desktop\injection\amatorty.wav")
endsub



если комуто не трудно склеить это буду весьма благодарен...

Author:  Scripts Writer [ 2006-09-27 16:02:34 ]
Post subject: 

Напиши сюда сообщение, кот. появляется если выкапывается элементаль.

Author:  ViSerT [ 2006-09-27 16:09:12 ]
Post subject: 

достаточно слова: elemental ...

Author:  Scripts Writer [ 2006-09-27 17:37:07 ]
Post subject: 

Code:
hide() 
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype('0x0E85')
ixx = 0
ismining=1
while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("but fail") and not UO.InJournal("no ore") and not uO.InJournal("far away") and not UO.InJournal("in rock") and ixx <= 100
  wait (100)
  ixx = ixx + 1
wend
if uo.InJournal('elemental') then
  Pause()
end if
while UO.InJournal("but fail")
  Wait (3000)
  UO.DeleteJournal()
wend

Author:  Edred [ 2006-09-27 20:12:59 ]
Post subject: 

А журнал-то зачем в цикле удаляешь??? :shock: Такие вещи лучше реализовывать по-другому...

Блин, Стелс развращает... InJournalBetweenTimes('accept you as master|You fail|is already tame.', starttime, Now)...

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