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

а как сюда добавить реконектор?
http://forum.yoko.com.ua/viewtopic.php?f=20&t=10158
Page 1 of 1

Author:  mez [ 2006-11-27 15:36:44 ]
Post subject:  а как сюда добавить реконектор?

Помогите плиззз

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.setcatchbag('0x40251781')

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('0x0F39')
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 (1500)
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

Author:  GimFlex [ 2006-11-27 16:02:14 ]
Post subject: 

Code:
sub main() 
var mx, my, mz, i, j
var ismining, ixx, isheavy
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")

wait(1000)
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
uo.setcatchbag('0x40251781')

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('0x0F39')
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 (1500)
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

Sub Reconnector()
var RFlag
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
RFlag = 0
endif
Wait(20000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) Then
UO.Exec('terminate main')
wait(1000)
UO.Exec('exec main')
wait(1000)
RFlag = 1
endif
Until false
end sub

Author:  mez [ 2006-11-27 16:04:22 ]
Post subject: 

спс друг 2 раз уже выручил! как я тебе благодарен! :oops: :D :)

Author:  GimFlex [ 2006-11-27 16:06:38 ]
Post subject: 

mez wrote:
спс друг 2 раз уже выручил! как я тебе благодарен! :oops: :D :)


да незачто

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