sub magerypg()
VAR maxmana
VAR minmana
VAR temp
VAR i
#EINSTELLUNGEN
#--Bis wieviel Mana Meditieren ?
maxmana = 100
#--Ab wieviel Mana Meditieren ?
minmana = 5
Repeat
Repeat
UO.Exec ("cast 'Heal' self")
Wait(1500)
UO.Exec ("cast 'Heal' self")
Wait(1500)
UO.Exec ("cast 'Heal' self")
Wait(1500)
i = 0
#Warten
While (i < 50)
Wait(20)
i = i+1
Wend
Wait(200)
Until UO.mana < minmana
Repeat
UO.useskill('Meditation')
Wait(8000)
Until UO.mana > maxmana
UO.press(9) # press TAB
Wait(200)
Until False
end sub
 |
