#1 2012-10-23 14:10:09

Buratino

Journeyman

Registered: 2011-10-29

Posts: 89

Инжект. Бесполезные скрипты.

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)