Psaní svitků

[Lara Craft]

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