You are not logged in.
Pages: 1
1. Для удобства покупки у НПС
# Запуск. Прицел на вендора.
sub BuyVendor()
UO.Print('Target Vendor')
UO.AddObject('Vendor')
While UO.Targeting()
Wait(100)
Wend
UO.Click(UO.GetSerial('Vendor'))
Wait (200)
UO.Say (UO.GetName(UO.GetSerial('Vendor'))+" buy")
end sub
2. Обтряска фруктовых деревьев.
# Подойти вплотную к дереву. Запуск.
sub Fruits()
Var i
Dim FruitTree[7]
FruitTree[1] = '0x0D9A'
FruitTree[2] = '0x0D96'
FruitTree[3] = '0x0DA6'
FruitTree[4] = '0x0DAA'
FruitTree[5] = '0x0D9E'
FruitTree[6] = '0x0DA2'
UO.Set ('finddistance', '1')
For i = 1 to 6
UO.FindType (FruitTree[i], -1, 1)
If UO.FindCount() > 0 Then
UO.DeleteJournal()
While not (UO.InJournal('No'))
UO.UseObject('finditem')
Wait(200)
WEnd
End If
Wait(100)
Next
UO.Set ('finddistance', '3')
endsub
Last edited by Buratino (2012-11-05 08:57:57)
Offline
Pages: 1