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

помогите плз фишинг
http://forum.yoko.com.ua/viewtopic.php?f=17&t=15606		 Page 1 of 1
Author:  Ara [ 2010-02-23 01:16:08 ]
Post subject:  помогите плз фишинг
собственно надо сделать цикл на макрос ми если можно увеличить количесво обловки) плиз)
sub main()

var TryToHide=1 ## 0 - Включить хаид перед рыбалкои , 0 - Отключить.
var TakeFish=1 ## 1 - Собирать рыбку, 0 - Не нужна она нам.
var FishPole='0x0DBF' # Тип удочки

var mX, mY, mZ, i, j
var f
var a=0
###################
### Массив рыбы ###
###################
dim Fish[6]
Fish[0]=0x09CC
Fish[1]=0x09CD
Fish[2]=0x09CE
Fish[3]=0x09CF
Fish[4]=0x14EB
Fish[5]=0x0DD6
Fish[6]=0x0DD6

Beginning:
uo.Set('finddistance','5')
mX = uo.getX("self")
mY = uo.getY("self")
mZ = uo.getZ("self")
uo.DeleteJournal()
for i = mX-5 to mX+5
for j = mY-5 to mY+5

if uo.Dead() then
return
end if

if TryToHide==1 then
ToHide()
end if

uo.Print("Сейчас ловим: "+str(mx-i)+" "+str(my-j))

while not uo.InJournal("Вы что-то выловили.") and not uo.InJournal("Попробуйте порыбачить в другом месте.") and not uo.InJournal("Здесь нет рыбы.") and not uo.InJournal("Слишком далеко.")and not uo.InJournal("Слишкoм близкo.")
uo.DeleteJournal()
uo.Waittargettile("1341", str(i), str(j), str(mZ))
uo.Usetype(FishPole)

while not uo.InJournal("Вы что-то выловили.") and not uo.InJournal("Вы не можете ловить рыбу здесь.") and not uo.InJournal("Здесь нет рыбы.") and not uo.InJournal("but fail") and not uo.InJournal("Слишком далеко.")and not uo.InJournal("Слишкoм близкo.") and not uo.InJournal("Попробуйте порыбачить в другом месте.")
wait (100)
if uo.InJournal("Вы что-то выловили.") then

if a>0 then
uo.print(STR(a))
end if

if UO.InJournal("Вы что-то выловили.") then
if TakeFish==1 then
uo.Print('Собираем рыбу.')
for f=0 to 3
uo.FindType(Fish[f],"-1","ground")
if uo.Count(Fish[2])> 0 then
a= a+1
end if
uo.MoveItem("finditem","1","Fishs")
wait(200)
next
end if
endif

end if
wend
wend
uo.DeleteJournal()
next
next
end sub

sub ToHide()
while not uo.Hidden()
uo.Print('Пытаемся уйти в хайд...')
uo.DeleteJournal()
uo.UseSkill('Stealth')
wait(4500)
wend
wait(100)
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/