initevents

chooseskill magery
set %czas #time
set %udane_ognia 0
set %udane_wody 0
set %udane_ziemi 0
set %udane_powietrza 0
set %udane 0
set %nieudane 0
set %skill #skill
set %gain 0
set %zywek 0
set %roznica_hour 0
set %roznica_min 0
set %roznica_sek 0
set %x 0
set %y 0
set %skill_przed 0
set %skill_po 0

start:
set #menubutton N/A
gosub showMENU
gosub setLabels
menu set EUOLabel5 Wskarz miejsce na żywiolaka...
set #targcurs 1
	loop:
	if #targcurs = 0
	{
	set %x #CURSORX
	set %y #CURSORY
	menu set EUOLabel5 Wskazano. %x %y
	gosub setLabels
	wait 10
 	goto czaruj
	}
	goto loop


czaruj:
if #mana <> #maxmana
	gosub medit
if %zywek = 2
	{
	menu set EUOLabel5 Uwalnianie stworzen...
	msg Jestescie wolne$
	set %zywek 0
	gosub setLabels
	}
gosub licz_czas
gosub licz_skill
gosub setLabels
wait 10
gosub losuj
czarowanie:
menu set EUOLabel5 Czarowanie zywiolaka...
set %jindex #JIndex
event macro 15 %czar
	jur_loop:
	if #targcurs = 1
		{
			meditpetla:
			if #mana <> #maxmana
				{
				set %udane %udane + 1
		   		set %zywek %zywek + 1
				gosub setLabels
				goto czaruj
				}
			if #targcurs = 1
				{
				click %x %y
				menu set EUOLabel5 Zywiolak wyczarowany...
				gosub licz_zywki
				gosub setLabels
				}
			goto meditpetla
		}
	if #maxmana <> #mana
		{
		menu set EUOLabel5 Twoja mana jest nie pelna...
		gosub medit
		menu set EUOLabel5 Ponawianie czarowania zywiolaka...
		goto czarowanie
		}
	if #JIndex > %jindex
		{
		set %jindex %jindex + 1
		scanjournal %jindex
		if Czar_sie_nie_udal. in #journal
			{
			wait 5
			set %nieudane %nieudane + 1
			menu set EUOLabel5 Czarowanie zywiolaka nieudane...
			gosub setLabels
			goto czarowanie
			}
		}
	goto jur_loop

goto czaruj

sub medit
if %skill < #skill
	{
	set %gain %gain + 1
	set %skill %skill + 1
	gosub setLabels
	}
if #mana <> #maxmana
	{
	menu set EUOLabel5 Medytacja...
	event macro 13 46
	wait 10s
	gosub medit
	}
if #mana = #maxmana
{
wait 10
goto czaruj
}

goto start

sub losuj
menu set EUOLabel5 Losowanie zywiolakow...
set %losowanie #random % 4 + 1
if %losowanie = 1
	{
	set %czar 59
	set %powietrze 1
	}
if %losowanie = 2
	{
	set %czar 61
	set %ziemia 1
	}
if %losowanie = 3
	{
	set %czar 62
	set %ogien 1
	}
if %losowanie = 4
	{
	set %czar 63
	set %woda 1
	}
return

sub licz_zywki
	if %woda = 1
		{
		set %udane_wody %udane_wody + 1
		set %woda 0
		}
	if %ogien = 1
		{
		set %udane_ognia %udane_ognia + 1
		set %ogien 0
		}
	if %powietrze = 1
		{
		set %udane_powietrza %udane_powietrza + 1
		set %powietrze 0
		}
	if %ziemia = 1
		{
		set %udane_ziemi %udane_ziemi + 1
		set %ziemia 0
		}
return


sub showMENU
	menu Clear
	menu Window Title Magery EUO script - random elementals
	menu Window Color BtnFace
	menu Window Size 355 143
	menu Font Transparent #true
	menu Font Align Right
	menu Font Name MS Sans Serif
	menu Font Size 8
	menu Font Style
	menu Font Color WindowText
	menu Font Transparent #false
	menu Font Align Left
	menu Text EUOLabel1 7 8 Pozycja X:
	menu Text EUOLabel2 7 24 Pozycja Y:
	menu Shape EUOShape1 59 4 28 36 3 7 1 Black 7 White
	menu Shape EUOShape2 -4 123 365 21 3 7 1 Black 7 White
	menu Text EUOLabel3 64 8 X
	menu Text EUOLabel4 64 24 Y
	menu Text EUOLabel5 4 128 Aktualnie robione...
	menu Text EUOLabel6 8 43 Ilo?ć gainów:
	menu Text EUOLabel7 8 57 Wyczarowane żywiołaki:
	menu Text EUOLabel8 8 71 Niewyczarowane żywiołaki:
	menu Text EUOLabel9 7 87 Ognia:
	menu Text EUOLabel10 77 87 Wody:
	menu Text EUOLabel11 147 87 Ziemi:
	menu Text EUOLabel12 217 87 Powietrza:
	menu Text EUOLabel13 7 100 0
	menu Text EUOLabel14 77 100 0
	menu Text EUOLabel15 147 100 0
	menu Text EUOLabel16 217 100 0
	menu Text EUOLabel17 180 43 0
	menu Text EUOLabel18 180 57 0
	menu Text EUOLabel19 180 71 0
	menu Text EUOLabel20 125 12 Ilosc żywiołaków:
	menu Text EUOLabel21 218 12 0 / 0
	menu Text EUOLabel22 217 43 Czas koksu:
	menu Text EUOLabel23 280 43 NIEZNANY!
	menu Text EUOLabel24 217 57 Aktualny skill:
	menu Text EUOLabel25 285 57 %skill_przed
	menu Text EUOLabel26 296 57 ,
	menu TExt EUOLabel27 300 57 %skill_po
	menu Button EUOButton1 275 4 75 25 Pause
	menu Show 421 270
return

sub setLabels
menu set EUOLabel17 %gain
menu set EUOLabel18 %udane
menu set EUOLabel19 %nieudane
menu set EUOLabel13 %udane_ognia
menu set EUOLabel14 %udane_wody
menu set EUOLabel15 %udane_ziemi
menu set EUOLabel16 %udane_powietrza
menu set EUOLabel3 %x
menu set EUOLabel4 %y
menu set EUOLabel21 %zywek / 2
menu set EUOLabel23 %roznica_hour h %roznica_min m %roznica_sek s.
menu set EUOLabel25 %skill_przed
menu set EUOLabel27 %skill_po
if #menubutton = EUOButton1
	{
	pause
	set #menubutton N/A
	}
return

sub licz_skill
set %skill_przed #skill / 10
set %skill_po #skill % 10
return

sub licz_czas
set %czas_hour %czas / 10000
set %time_hour #time / 10000
set %czas_m %czas % 10000
	set %czas_min %czas_m / 100
set %time_m #time % 10000
	set %time_min %time_m / 100
set %czas_sek %czas % 100
set %time_sek #time % 100
if %time_sek < %czas_sek
	{
	set %time_min %time_min - 1
	set %time_sek %time_sek + 60
	}
set %roznica_sek %time_sek - %czas_sek
if %time_min < %czas_min
	{
	set %time_hour %time_hour - 1
	set %time_min %time_min + 60
	}
set %roznica_min %time_min - %czas_min
if %time_hour < %czas_hour
	{
	display ok Makrujesz juz ponad dobe - przestan!
	halt
	}
else
	set %roznica_hour %time_hour - %czas_hour
return