Сайт Антареса Сайт Антареса Форум Антарес
> >

Здравствуйте, гость ( Вход | Регистрация )


> > помогите со скриптом плз =) >
Intrepid
сообщение 22.5.2010, 10:52
Сообщение #1


Прохожий
Group Icon

Группа: Пользователи
Сообщений: 14
Регистрация: 16.5.2010
Пользователь №: 7 270
Спасибо сказали: 0 раз(а)
Класс: Человек



ловит, режет, все норм... удочки хватает на ~1800-2000 стейков дальше она ломается и чар тупо стоит, нужно чтобы он брал из пака вторую удочку и ловил дальше, потом третью и еще ловил...

Заранее спасибо большое...

var MaxFailure=8
sub FishingAround()
var iX,iY
for var iStep=0 to 1000
for iX=-6 to 6
for iY=-6 to 6
GetAllFish(UO.GetX()+iX,UO.GetY()+iY)
next
next
next
end sub

Sub GetAllFish(iX,iY)
var counter=0
repeat
counter=counter+1
UO.DeleteJournal()
UO.WaitTargetTile(0,iX,iY,0)
UO.UseType('0x0DBF')
while not UO.InJournal('You pull out a fish!') and not UO.InJournal('You fish a while, but fail to catch anything') and not UO.InJournal('There are no fish here.') and not UO.InJournal('Try fishing elsewhere') and not UO.InJournal('That is too far away')
wait(100)
wend
if UO.InJournal('There are no fish here.') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') then
return
end if
if UO.InJournal('You pull out a fish!') then
counter=0
GetFish()
end if
until UO.Injournal('There are no fish here.') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') OR counter>MaxFailure
end sub

Sub GetFish()
UO.set('finddistance',0)
UO.IgnoreReset()
UO.Ignore('self')
UO.FindType('0x352D',-1,'ground')
UO.Ignore('finditem')
UO.FindType(-1,-1,'ground')
while UO.FindCount()>0
UO.WaitTargetObject('finditem')
UO.UseType('0x0F51')
UO.Ignore('finditem')
wait(500)
UO.FindType(-1,-1,'ground')
wend
UO.Ignorereset()
UO.Ignore('self')
UO.FindType('0x352D',-1,'ground')
UO.Ignore('finditem')
UO.FindType(-1,-1,'ground')
while UO.FindCount()>0
UO.Grab(0,'finditem')
wait(100)
UO.FindType(-1,-1,'ground')
wend
UO.Ignorereset()
end sub
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
 
Ответить в эту темуОткрыть новую тему
> > Ответов(1 - 6) >
CxC
сообщение 22.5.2010, 11:09
Сообщение #2


Местный трепач
Group Icon

Группа: Пользователи
Сообщений: 1 732
Регистрация: 14.1.2009
Из: Краснодар
Пользователь №: 6 081
Спасибо сказали: 223 раз(а)
Класс: Рейнджер



на антаресе удочки не ломаются
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Intrepid
сообщение 22.5.2010, 11:11
Сообщение #3


Прохожий
Group Icon

Группа: Пользователи
Сообщений: 14
Регистрация: 16.5.2010
Пользователь №: 7 270
Спасибо сказали: 0 раз(а)
Класс: Человек



Цитата(CxC @ 22.5.2010, 11:09) *

на антаресе удочки не ломаются


а у Хосаныча все ломается laught.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
CxC
сообщение 22.5.2010, 11:16
Сообщение #4


Местный трепач
Group Icon

Группа: Пользователи
Сообщений: 1 732
Регистрация: 14.1.2009
Из: Краснодар
Пользователь №: 6 081
Спасибо сказали: 223 раз(а)
Класс: Рейнджер



ну и п...уй к нему и там спрашивай
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Intrepid
сообщение 22.5.2010, 11:29
Сообщение #5


Прохожий
Group Icon

Группа: Пользователи
Сообщений: 14
Регистрация: 16.5.2010
Пользователь №: 7 270
Спасибо сказали: 0 раз(а)
Класс: Человек



не нужно быть таким агресивным beer.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Alucard
сообщение 22.5.2010, 17:54
Сообщение #6


ДМ НТ
Group Icon

Группа: Пользователи
Сообщений: 4 801
Регистрация: 13.7.2006
Из: г. Иваново
Пользователь №: 3 276
Спасибо сказали: 351 раз(а)
Класс: Человек



тут не любят ренегатов ;)
скрипты для беста есть на yoko/ Или адаптировать туташные. Но самостоятельно.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Intrepid
сообщение 22.5.2010, 18:53
Сообщение #7


Прохожий
Group Icon

Группа: Пользователи
Сообщений: 14
Регистрация: 16.5.2010
Пользователь №: 7 270
Спасибо сказали: 0 раз(а)
Класс: Человек



Ок, пасиб поищу beer.gif

ренегат значит laught.gif ЫыЫ laught.gif
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 

Ответить в эту темуОткрыть новую тему
> >
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия Сейчас: 16.7.2018, 4:52
Design: Fisana  © 2005-2006 IBR Team