Code: Select all
sub BuyRegs( Vendor Name )
if UO.NS<200 then
UO.buy('bm','vendor')
wait(500)
UO.Say( Vendor Name + " buy")
UO.DeleteJournal()
end if
if UO.BP<200 then
UO.buy('bp','vendor')
wait(500)
UO.Say( Vendor Name + " buy")
UO.DeleteJournal()
end if
if UO.MR<200 then
UO.buy('mr','vendor')
wait(500)
UO.Say( Vendor Name + " buy")
UO.DeleteJournal()
end if
end sub
но не чег оне выходит 8(