;Skrypt bY SabiK
;kartografia.txt
;Wersja 1.1
;Po wskazaniu pojemnika z postrzepionymi mapami, skrypt odczytuje wszystkie mapy
;Po odczytaniu wszystkich map skrypt sie wylacza i wyswietla komunikat

initevents
set #sysmsgcol 1281
event sysmessage Skrypt [kartografia] odpalony (by SabiK)
wait 1

pojemnik:
set #targcurs 1
set #sysmsgcol 1281
event sysmessage Wskaz pojemnik, w ktorym znajduja sie postrzepione mapy.
set %licz #scnt2 + 100
repeat
if %licz < #scnt2
   goto pojemnik
until #targcurs = 0
set %pojemnik #ltargetid

start:
if *STOP = 1
{
   repeat
   until *STOP = 0
}
finditem rvh C_ , %pojemnik
if #findkind = -1
{
   set #sysmsgcol 1080
   event sysmessage Odczytano wszystkie mapy. Skrypt wylaczono.
   halt
}
set #lobjectid #findid
event macro 17
set %licz #scnt2 + 16
repeat
if %licz <= #scnt2
   goto start
until #sysmsg = Probujesz_odczytac_mape...
ignoreitem #findid
set %licz #scnt2 + 60
repeat
scanjournal 1
until udalo_ci_sie in #journal || nie_udalo_ci_sie_zrozumiec in #journal || %licz <= #scnt2
goto start