Поиск
Вход на сайт
Наш опрос
Оцените мой сайт
Всего ответов: 81
Статистика
[ Обновленные темы · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Fishing
MaG1StR_YodaДата: Пятница, 26.06.2020, 19:46 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1026
Статус: Оффлайн
Ловля с лодки вокруг себя
-----------------------------------------
sub main()
UO.DeleteJournal()
var c, z, x, y, i, tmp, inside
c=0
start:
#while uo.getx()>2232
#uo.say("left")
#wait(5000)
#wend
#uo.say("stop")
#uo.say("stop")
for y=-6 to 6
for x=-6 to 6
z=0
try:
UO.Exec ("waittargettile "+" 0000 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
UO.exec ("usetype 0x0DBF")
UO.Print ("X Coordinate: "+STR(x))
UO.Print ("Y Coordinate: "+STR(y))
i=0
while i< 10
#uo.press(121)
if UO.InJournal("You can't reach") then
i=200
UO.DeleteJournal()
endif
if z>3 then
i=200
UO.DeleteJournal()
endif
if UO.InJournal("There dosn't seem to be any fish here") then
z=z+1
i=200
UO.DeleteJournal()
goto try
endif
if UO.InJournal("You drop") then
i=200
z=0
UO.DeleteJournal()
UO.Exec ("setreceivingcontainer 0x40E764F2")
if uo.countground("0x1E1E")>0 then
UO.Exec("findtype 0x1E1E -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x09cf")>0 then
UO.Exec("findtype 0x09cf -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x09cc")>0 then
UO.Exec("findtype 0x09cc -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x09CE")>0 then
UO.Exec("findtype 0x09CE -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x09CD")>0 then
UO.Exec("findtype 0x09CD -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
UO.Exec ("unsetreceivingcontainer")
goto try
endif
if UO.InJournal("There dosn't seem to be any fish here") then
i=200
UO.DeleteJournal()
endif
wait (500)
i=i+1
wend
next
next
#while uo.getx()<2215
#uo.say("right")
#wait(5000)
#wend
#uo.say("stop")
#uo.say("stop")
for y=-6 to 6
for x=-6 to 6
z=0
try1:
UO.Exec ("waittargettile "+" 0000 "+STR(UO.GEtX()+x)+" "+STR(UO.GetY()+y)+" 0")
UO.exec ("usetype 0x0DBF")
UO.Print ("X Coordinate: "+STR(x))
UO.Print ("Y Coordinate: "+STR(y))
i=0
while i< 10
#uo.press(121)
if UO.InJournal("You can't reach") then
i=200
UO.DeleteJournal()
endif
if z>3 then
i=200
UO.DeleteJournal()
endif
if UO.InJournal("You fish a while, but fail to catch anything") then
z=z+1
i=200
UO.DeleteJournal()
goto try1
endif
if UO.InJournal("You pull out") then
i=200
z=0
UO.DeleteJournal()
UO.Exec ("setreceivingcontainer 0x513180E8"); 
if uo.countground("0x09ce")>0 then
UO.Exec("findtype 0x09ce -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x09cf")>0 then
UO.Exec("findtype 0x09cf -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x09cc")>0 then
UO.Exec("findtype 0x09cc -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x09cd")>0 then
UO.Exec("findtype 0x09cd -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
if uo.countground("0x0F7A")>0 then
UO.Exec("findtype 0x0F7A -1 1")
UO.Exec ("grab 1000 finditem")
#wait (1500)
endif
UO.Exec ("unsetreceivingcontainer")
goto try1
endif
if UO.InJournal("There dosn't seem to be any fish here") then
i=200
UO.DeleteJournal()
endif
wait (500)
i=i+1
wend
next
next
goto start
end sub
 
ИбрагимДата: Пятница, 12.03.2021, 13:18 | Сообщение # 2
Группа: Гости





Периодически останавливается и стоит с фразой "You have to equip that to mine" Удочка в руках и запасная в сумке. Что надо поправить ?
 
MaG1StR_YodaДата: Суббота, 13.03.2021, 10:59 | Сообщение # 3
Генералиссимус
Группа: Администраторы
Сообщений: 1026
Статус: Оффлайн
Цитата Ибрагим ()
Периодически останавливается и стоит с фразой "You have to equip that to mine" Удочка в руках и запасная в сумке. Что надо поправить ?

Отплыть подальше от берега и лучше встать на носовой части , потому что скрипт сделан вокруг себя ловит
ь
 
ИбрагимДата: Среда, 17.03.2021, 10:16 | Сообщение # 4
Группа: Гости





Оказалось, из-за запасной удочки появлялась эта ошибка. Оставляешь только одну в руках и всё работает. Подсказали в дискорде, когда написал текст ошибки.
 
  • Страница 1 из 1
  • 1
Поиск: