;Skrypt bY SabiK
;zakradanie-liczenie.txt
;Wersja 1.4
;Skrypt liczy wykonane kroki, po uzyciu zakradania

;U W A G A !!! USTAW PONIZSZE ZMIENNE PRZED WLACZENIEM SKRYPTU !!!
set %kroki 11        ;Tutaj ustaw liczbe krokow, ktora mozesz zrobic
;------------------------------------------------------------------------------------------------------------

set #sysmsgcol 63
event sysmessage Skrypt [zakradanie-liczenie] odpalony (bY SabiK)
wait 1

start:
set %jrnl #jindex - 1
repeat
if H notin #charstatus
   goto start
if #jindex > %jrnl
{
   set %jrnl %jrnl + 1
   scanjournal %jrnl
}
until Teraz_poruszasz_sie_po_kryjomu in #journal
reset:
set %krok %kroki
stealth:
set %x #charposx
set %y #charposy
set %jrnl #jindex
repeat
if H notin #charstatus
   goto start
if #jindex > %jrnl
{
   set %jrnl %jrnl + 1
   scanjournal %jrnl
   if Teraz_poruszasz_sie_po_kryjomu in #journal
      goto reset
}
until %x <> #charposx || %y <> #charposy
set %krok %krok - 1
set #sysmsgcol 88
if %krok = 0
{
   event sysmessage Wykonano ostatni krok!
   deletejournal
   goto start
}
else
event sysmessage Kroki: %krok
if H notin #charstatus
   goto start
goto stealth