Code: Select all
sub main()
var x
var s
UO.addtype('bint','0x0E21')
UO.addtype('bintG','0x0E20')
UO.addobject('hors1','0x00A3E886')
UO.addobject('hors2','0x00A38B14')
start:
if UO.GetQuantity('^bint')<100 then
UO.moveitem('~bint','50')
wait(1500)
end if
if UO.GetQuantity('^bintG')>249 then
uo.drophere('^bintG')
wait(1500)
end if
UO.WaitTargetObject('hors1')
uo.sayu("all kill")
wait(3000)
s=0
UO.DeleteJournal()
wait(100)
while not UO.InJournal("mummy")
if s>1 then
uo.sayu("all stay")
wait(1500)
s=0
end if
UO.DeleteJournal()
wait(100)
UO.WaitTargetObject('hors1')
UO.Usetype('bint') ;aeiou
wait(2000)
x=0
while not UO.InJournal("apply") and not UO.InJournal("mummy") and x<10
wait(500)
x=x+1
s=s+0.5
wend
Wend
UO.WaitTargetObject('hors1')
uo.sayu("all kill")
wait(3000)
s=0
UO.DeleteJournal()
wait(100)
while not UO.InJournal("mummy")
if s>1 then
uo.sayu("all stay")
wait(1500)
s=0
end if
UO.DeleteJournal()
wait(100)
UO.WaitTargetObject('hors2')
UO.Usetype('bint') ;aeiou
wait(2000)
x=0
while not UO.InJournal("apply") and not UO.InJournal("mummy") and x<10
wait(500)
x=x+1
s=s+0.5
wend
Wend
goto start
end sub