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

Для тех кто умеет !!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4787		 Page 1 of 1
Author:  KIL [ 2005-08-12 16:45:15 ]
Post subject:  Для тех кто умеет !!
Я написал скрипт на мининг , можно сказать мое 2 творенье !! Пожалуйста помогите мне его облегчить и добавить чтобы он рекалился когда его начинают атачить ждал 30 сек и потом назад дальше копать !! Я конечно могу сам добавить но я думаю у профессионала получится лудше !

sub main()
while (not uo.dead())
recal1()
while uo.injournal('fizzles.')
uo.deletejournal()
wait(100)
recal1()
wait(100)
wend
mining()
mining()
mining()
mining()
mining()
mining()
recal2()
while uo.injournal('fizzles.')
uo.deletejournal()
wait(100)
recal2()
wait(100)
wend
mining()
mining()
mining()
mining()
mining()
mining()
recal3()
while uo.injournal('fizzles.')
uo.deletejournal()
wait(100)
recal3()
wait(100)
wend
mining()
mining()
mining()
mining()
mining()
mining()
wend
end sub


;==============================================
sub recal1()
uo.findtype('0x1f15')
uo.print('MESTO ¹1')
wait(500)
uo.cast('Recal','finditem')
wait(3000)
end sub
;==============================================
sub recal2()
uo.findtype('0x1f17')
uo.print('MESTO ¹2')
wait(500)
uo.cast('Recal','finditem')
wait(3000)
end sub
;==============================================
sub recal3()
uo.findtype('0x1f16')
uo.print('MESTO ¹3')
wait(500)
uo.cast('Recal','finditem')
wait(3000)
end sub
;==============================================
sub recal4()
uo.findtype('0x1f14')
uo.print('DOMOI')
wait(500)
uo.cast('Recal','finditem')
wait(4000)
while uo.injournal('fizzles.')
uo.deletejournal()
wait(100)
recal4()
wait(100)
wend
;UO.UseSkill('Meditation')
wait(100)
main_vib()
endsub

;==============================================
sub mining()
var my, mx,i,j
mx = UO.GetX("self")
my = UO.GetY("self")
tohide()
for i = mx-3 to mx+3
for j = my-3 to my+3
dig(i,j)
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))

ВРОДЕ СЮДА НАДО ДОБАВЛЯТЬ !!!! НО ОН ПОКА НЕ ДОКОПАЕТ НЕСРАБОТАЕТ !!!! ТЕРЯЮ ЛИШНИЕ СИКУНДЫ НА УХОД !!!!

while uo.weight>600
wait(1000)
recal4()
wait(100)
wend
next
next
end sub

sub dig(i,j)
VAR Pic="0x0f39"
while (not uo.injournal("no ore")) and (not uo.injournal("in rock")) and (not uo.injournal("Iron")) and (not uo.injournal("Rusty")) and (not uo.injournal("Copper")) and (not uo.injournal ("That is too far"))
tohide()
UO.Waittargettile("1339", str(i), str(j),"0")
UO.Usetype (Pic)
uo.deletejournal()
while (not uo.injournal("fail")) and (not uo.injournal("put")) and (not uo.injournal("elemental")) and (not uo.injournal("no ore")) and (not uo.injournal("in rock")) and (not uo.injournal ("That is too far"))
wait(100)
wend
wend
uo.deletejournal()
end sub
;==============================================
sub tohide()
while NOT UO.Hidden()
UO.DeleteJournal()
if UO.Life<10 then
UO.UseType('0x0F0E','0x0631') ; inviz potion
wait(2000)
else
UO.UseSkill('Hiding')
repeat
wait(50)
until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
endif
UO.WarMode('flip')
wait(100)
UO.Warmode(0)
wend
end sub
;==============================================
sub main_vib()
var my, mx,i,j
;if uo.weight>50 then
mx = UO.GetX("self")
my = UO.GetY("self")
for i = mx-3 to mx+3
for j = my-3 to my+3
dig_vib(i,j)
next
next
; end if
end sub

sub dig_vib(i,j)
VAR Pic="0x0f39"
var MMM
DIM ruda[18] ;ìàññèâ ñ öâåòàìè ðóäû êîòîðóþ âûêèáûâàòü
ruda[0]='0x0000' ; iron
ruda[1]='0x0750' ; rusty
ruda[2]='0x0590' ; old
ruda[3]='0x060A' ; dull
ruda[4]='0x0088' ; copper
ruda[5]='0x0488' ; bronze
ruda[6]='0x0482' ; silver
ruda[7]='0x0032' ; gold
ruda[8]='0x096B' ; shadow
ruda[9]='0x19B9' ; rose
ruda[10]='0x0032' ; bloodrock
ruda[11]='0x0032' ; ro
ruda[12]='0x19b8'
ruda[13]='0x19B9'
ruda[14]='0x19B9'
ruda[15]='0x19B9'
ruda[16]='0x19B9'
ruda[17]='0x19ba'
uo.deletejournal()
wait(100)
uo.deletejournal()
for MMM=1 to 17
uo.findtype(ruda[MMM],'backpack')
if uo.getquantity('finditem')>1 then
uo.moveitem('finditem','0','lastcontainer')
wait(100)
endif
wait(200)
uo.findtype('0x19BA',ruda[MMM],'backpack')
if uo.weight<50 then
Regi1()
Regi2()
Regi3()
main()
endif
if uo.getquantity('finditem')>1 then
uo.moveitem('finditem','0','lastcontainer')
wait(100)
endif
next
wait(200)
end sub
;==============================================
sub Regi1()
UO.FindType('0x0f7b')
if uo.getquantity('finditem')<9 then
UO.FindType('0x0f7b', '-1', 'lastcontainer' )
wait(100)
UO.MoveItem( 'finditem','10' )
wait(100)
uo.print('VZAL 10 BM !!!!')
wait(500)
UO.DeleteJournal()
end if
endsub
;==============================================
sub Regi2()
UO.FindType('0x0f7a')
if uo.getquantity('finditem')<9 then
UO.FindType('0x0f7a', '-1', 'lastcontainer' )
wait(100)
UO.MoveItem( 'finditem','10' )
wait(100)
uo.print('VZAL 10 BP !!!!')
wait(500)
UO.DeleteJournal()
end if
endsub
;==============================================
sub Regi3()
UO.FindType('0x0f86')
if uo.getquantity('finditem')<9 then
UO.FindType('0x0f86', '-1', 'lastcontainer' )
wait(100)
UO.MoveItem( 'finditem','10' )
wait(100)
uo.print('VZAL 10 MR !!!!')
wait(500)
UO.DeleteJournal()
end if
endsub
Author:  Leo [ 2005-08-12 16:56:36 ]
Post subject: 
Code:
...
if UO.InJournal("attacking you") then 
UO.UseType("0x0F0E","0x0631") ;пьём инвиз
wait(100)
UO.DeleteJournal()
UO.WaitTargetType('0x1F14') 
UO.Cast("Recall") 
endif
wait(30000) 
recal1() 
...
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/