Psaní svitků
Napsal: pát bře 23, 2018 3:18 am
Na začátku skriptu je třeba nastavit kouzlo, zapsat jeho kruh, pohlídat si regy, tmr a dostatek blanků.
Kód: Vybrat vše
#---------------------------------------------------------------
sub napissvitky()
#---------------------------------------------------------------
#uo.exec('exec afkalarm')
#na inskripci je mit treba krome blank svitku i kad s manarefy
#a nejake manarefy odlite - staci i jeden, skript si sam doplnuje
var mr,tmr
var count=0
var kruh=4
var kouzlo='Recall'
var minmana=kruh*8
var pauza=1000+kruh*1200
#sekce psani svitku
UO.Print('Psani svitku '+kouzlo+', Spell Circle: '+STR(kruh))
while UO.Count('0x0E34,0x0000') >0
UO.DeleteJournal()
UO.waitmenu ('Spell Circles', 'Spell Circle '+STR(kruh), 'Spell Circle '+STR(kruh), kouzlo)
UO.UseType('0x0E34')
wait(pauza)
if uo.injournal('You put') then
count=count+1
uo.print(str(count))
uo.deleteJournal()
endif
if UO.Injournal('Worldsave') then
wait(30000)
UO.DeleteJournal()
endif
# doplneni many
while uo.Mana <= minmana
#zjisti kolik mas ManaRef
UO.findtype('0x0F09','0x0005')
mr = UO.findcount()
#zjisti kolik mas TMR
UO.findtype('0x0F09','0x0003')
tmr = UO.findcount()
#mas-li nejake ManaRefy nebo TMR vypij a dopln z kade
if mr>0 or tmr> 0 then
repeat
UO.DeleteJournal()
if mr>0 then
mr()
endif
if tmr > 0 then
tmr()
endif
if mr == 0 AND tmr == 0 then
UO.Print('Dosla mana')
return
endif
wait(5000)
until NOT uo.InJournal('drink another potion yet')
UO.DeleteJournal()
if uo.injournal('Vypils total mana refresh|Vypils mana refresh') then
repeat
wait(500)
until uo.injournal('muzes chlastat dal ...')
endif
else
if UO.Count('0x1843','0x0003') > 0 then
dolejtmr()
else
if UO.Count('0x1843','0x0005') > 0 then
dolejmr()
endif
else
meditace()
endif
endif
if uo.Mana <= minmana then
wait(20000)
endif
wend
wend
tmr()
UO.PlayWav('C:\Windows\Media\Windows - cink.wav')
#uo.exec('terminate afkalarm')
end sub