Alchemy shadr Darkuo
Posted: 2006-04-04 19:53:23
Napisal svoi pervij skript, no on cherez nekototoroe vremja zavisajet.
chto v nem dopisatj ili ispravitj?
sub Alchemy()
;VAR Cont='0x40015F54'
Var Type='0x0F0B'
Var Color='0x0000'
Var Type2='0x0F7A'
Var Type3='0x0F0E'
repeat
UO.Exec("usetype 0x0E9B")
cheklag()
wait (1000)
UO.LClick(486,454)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("You fail") or UO.InJournal("Maybe you lack"))
wait(300)
wend
wait(200)
if UO.Count(Type,Color)>10 then
cheklag()
prodaza()
endif
if UO.Count(Type2)<20 then
cheklag()
regi()
endif
if UO.Count(Type3)<20 then
cheklag()
bottle()
endif
until UO.Dead()
end sub
sub prodaza()
uo.Sell('refresh')
wait(1000)
uo.Say('bye')
wait(1000)
end sub
sub regi()
uo.buy('regsrefresh')
wait(1000)
uo.Say('bye')
wait(1000)
end sub
sub bottle()
uo.buy('bottle')
wait(1000)
uo.Say('bye')
wait(1000)
end sub
sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub
zareneje spasibo.
chto v nem dopisatj ili ispravitj?
sub Alchemy()
;VAR Cont='0x40015F54'
Var Type='0x0F0B'
Var Color='0x0000'
Var Type2='0x0F7A'
Var Type3='0x0F0E'
repeat
UO.Exec("usetype 0x0E9B")
cheklag()
wait (1000)
UO.LClick(486,454)
UO.DeleteJournal()
while not (UO.InJournal("You put") or UO.InJournal("You fail") or UO.InJournal("Maybe you lack"))
wait(300)
wend
wait(200)
if UO.Count(Type,Color)>10 then
cheklag()
prodaza()
endif
if UO.Count(Type2)<20 then
cheklag()
regi()
endif
if UO.Count(Type3)<20 then
cheklag()
bottle()
endif
until UO.Dead()
end sub
sub prodaza()
uo.Sell('refresh')
wait(1000)
uo.Say('bye')
wait(1000)
end sub
sub regi()
uo.buy('regsrefresh')
wait(1000)
uo.Say('bye')
wait(1000)
end sub
sub bottle()
uo.buy('bottle')
wait(1000)
uo.Say('bye')
wait(1000)
end sub
sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub
zareneje spasibo.