Ultima Online программы,советы,скрипты. Среда, 15.05.2024, 02:28
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
Меню сайта

Категории каталога
Скрипты [22]
Интересное Чтиво. (советы) [3]
Публикации пользователей [2]
Проверенные статьи переношу в основные разделы.

Главная » Статьи » Скрипты

Арчери №2
Ставим 2х чаров рядомю, на пол рядом с ними кидаем всё необходимое (стрелы,реги,луки), и запускаем у обоих скрипты. Они будут кастовать вортекса на заданный тайл и стрелять по нему. Потом добирать всё что нада с полу и продолжать. Скрипт довольно простой, но я на нём прокачал чсебе арчери. Неуверен, что он будет работать -)


sub archerA()
var Vortex
UO.Set("finddistance","3")
While not uo.Dead()
uo.DeleteJournal()
uo.exec("warmode 1")
While not uo.InJournal('GH88')
uo.FindType('0x000D','0x000D','ground')
if uo.FindCount()>0 then
Vortex=uo.getserial('finditem')
repeat
UO.attack('finditem')
wait(10000)
uo.FindType('0x000D','0x000D','ground')
until uo.Count('finditem')==0
endif
uo.FindType('0x0F3F','0x0000', 'ground')
if uo.findCount()>0 then
uo.grab('0','finditem')
wait(200)
endif
uo.FindType('0x0E76','0x0000', 'ground')
if uo.findCount()>0 then
uo.grab('0','finditem')
endif
uo.FindType('0x000D','0x000D','ground')
if uo.FindCount()==0 then
uo.say('Net32')
wait(5000)
uo.say('Net32')
wait(6000)
endif
wend
repeat
uo.deletejournal()
uo.waittargettile('13',1100,2830,-5) ; куда катать ворта
uo.cast('Energy Vortex')
wait(10000)
until not uo.InJournal('fizzles') or uo.InJournal('sufficient mana')
wend
endsub

sub archerB()
var Vortex
UO.Set("finddistance","4")
While not uo.Dead()
uo.DeleteJournal()
uo.exec("warmode 1")
While not uo.InJournal('Net32')
uo.FindType('0x000D','0x000D','ground')
if uo.FindCount()>0 then
Vortex=uo.getserial('finditem')
repeat
UO.attack('finditem')
wait(10000)
uo.FindType('0x000D','0x000D','ground')
until uo.Count('finditem')==0
endif
uo.FindType('0x0F3F','0x0000', 'ground')
if uo.findCount()>0 then
uo.grab('0','finditem')
wait(200)
endif
uo.FindType('0x0E76','0x0000', 'ground')
if uo.findCount()>0 then
uo.grab('0','finditem')
endif
uo.FindType('0x000D','0x000D','ground')
if uo.FindCount()==0 then
uo.say('GH88')
wait(5000)
uo.say('GH88')
wait(5000)
endif
wend
repeat
uo.deletejournal()
uo.waittargettile('13',1099,2834,-5) ; куда кастать ворта
uo.cast('Energy Vortex')
wait(10000)
until not uo.InJournal('fizzles') or uo.InJournal('sufficient mana')
wend
endsub


Категория: Скрипты | Добавил: cornor (25.03.2008)
Просмотров: 1386 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Форма входа

Поиск

Друзья сайта

Статистика

Copyright MyCorp © 2024 Сделать бесплатный сайт с uCoz