Кемпинг.
Posted: 2005-08-26 21:29:45
Выложите пожалуйста скрипт на кемпинг кроме того, что лежит в "Scripts!" и скрипта от Askaneli.
Спасибо.
Спасибо.
Да я задал уже...но русско язычного форума то нет по Изе. А буржуи там гонят в туториал типо им в падлу писать макросы.flake wrote:Не лучше ли этот вопрос задать на форуме ИзиУо?
Code: Select all
sub camping()
VAR Exit=0
uo.print('Сундук c хворостом')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
UO.UseObject('Bag')
uo.print('Помойка')
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend
UO.UseObject('Bag2')
while NOT UO.Dead() OR Exit<>1
UO.FindType('0x0DE1','0x0000','Bag')
If UO.GetQuantity('finditem')>0 Then
UO.Grab('1','finditem')
wait(1000)
UO.DropHere('finditem')
wait(1000)
UO.UseObject('finditem')
wait(1000)
UO.SetReceivingContainer('Bag2')
wait(1000)
UO.Grab('1','finditem')
UO.UnSetReceivingContainer()
Else
Exit=1
Endif
wend
end sub