Покупка недостающих регов ХЕЛП !!!
Posted: 2005-05-01 18:11:57
чёт пашет но както странно 
помогите плиз
можно зделать такую штуку
вобщем нужно 50 штук каждого
чтоб он отнимал от 50 остаток на момент проверки и покупал разницу
ото я зделал какуето глупость
)
Code: Select all
sub SR()
UO.Print("SELECT VENDOR")
UO.Exec('addobject Vendor')
While UO.Targeting()
wait(500)
Wend
var name='Vendor'
UO.Click('Vendor')
wait(1500)
name=UO.GetName('Vendor')
wait(1000)
if UO.Bm<50 then
UO.buy('bm','name')
wait(1000)
UO.Say(name + " buy")
UO.DeleteJournal()
end if
if UO.Bp<50 then
UO.buy('bp','name')
wait(1000)
UO.Say("buy")
UO.DeleteJournal()
end if
if UO.Mr<50 then
UO.buy('mr','name')
wait(1000)
UO.Say("buy")
UO.DeleteJournal()
end if
if UO.Ga<50 then
UO.buy('ga','name')
wait(1000)
UO.Say("buy")
UO.DeleteJournal()
end if
if UO.Ns<50 then
UO.buy('ns','name')
wait(1000)
UO.Say("buy")
UO.DeleteJournal()
end if
if UO.Sa<50 then
UO.buy('sa','name')
wait(1000)
UO.Say("buy")
UO.DeleteJournal()
end if
if UO.Ss<50 then
UO.buy('ss','name')
wait(1000)
UO.Say("buy")
UO.DeleteJournal()
end if
if UO.Gs<50 then
UO.buy('gi','name')
wait(1000)
UO.Say("buy")
UO.DeleteJournal()
end if
End sub
плиз хелп
