Ultima Online Antares

Давайте инструкцию по найтройке спидхака еще выложите с картинками.

sub testshop()
uo.msg('bye')
wait(500)
uo.msg('buy')
wait(500)

var BuyItemsCount = 8 #Сколько предметов проверяем для докупки
var BuyDelay = 300 #Задержка для покупки одного итема

dim BuyType[20], BuyColor[20], BuyCount[20]

#Описание предмета 1:
BuyType[0] = 'bm' #Тип предмета
BuyColor[0] = 0 #Цвет предмета
BuyCount[0] = 50 #До какого количества докупаем

#Описание предмета 2:
BuyType[1] = 'bp'
BuyColor[1] = 0
BuyCount[1] = 50

#Описание предмета 3:
BuyType[2] = 'ga'
BuyColor[2] = 0
BuyCount[2] = 50

BuyType[3] = 'gs'
BuyColor[3] = 0
BuyCount[3] = 50

BuyType[4] = 'mr'
BuyColor[4] = 0
BuyCount[4] = 50

BuyType[5] = 'ns'
BuyColor[5] = 0
BuyCount[5] = 50

BuyType[6] = 'sa'
BuyColor[6] = 0
BuyCount[6] = 50

BuyType[7] = 'ss'
BuyColor[7] = 0
BuyCount[7] = 50

if BuyItemsCount < 1 then
uo.print('Не указано количество предметов для докупки.')
return
endif

var list = uo.GetShopList() #получим доступный лист из инжекта

if not list.IsBuyList() then
uo.print('Это не байлист.')
return
endif

if not list.InClient() then
uo.print('Этот байлист уже обработан инжектом/клиентом.')
return
endif

var i = 0, j = 0, ReplyCount = 0, want = 0, count = list.Count()

if count then
count = count - 1

var reply = VendorReply(list.Serial(), BuyItemsCount) #создадим ответ для указанного вендора

BuyItemsCount = BuyItemsCount - 1

for i = 0 to count
for j = 0 to BuyItemsCount

want = BuyCount[j] - uo.Count(BuyType[j], BuyColor[j])

if want > 0 && list.ItemGraphic(i) == uo.GetGraphic(BuyType[j]) then
if BuyColor[j] == -1 || list.ItemColor(i) == uo.GetGraphic(BuyColor[j]) then

if want > list.ItemCount(i) then
want = list.ItemCount(i)
endif

if want > 0 then #На всякий случай
reply.ItemSerial(ReplyCount, list.ItemSerial(i))
reply.ItemCount(ReplyCount, want)

ReplyCount = ReplyCount + 1
endif
endif
endif
next
next

if ReplyCount then
uo.print('ReplyCount = ' + str(ReplyCount) + ' waiting ' + str(BuyDelay * ReplyCount) + ' ms')
wait(BuyDelay * ReplyCount)

reply.Count(ReplyCount) #Реальное количество предетов в ответе, если известно заранее - можно указатьв самом начале
uo.SendShopReply(reply) #отправка запроса на сервер
else
uo.print('На вендоре нет доступных предметов для докупки')
endif
else
uo.print('Это пустой байлист')
endif
end sub

Sub Buy()

UO.Set('buydelay', 5000)
UO.Buy('regi')
Wait(500)
UO.SendGumpSelect(3)

end sub