InitEvents
set %czekaj 7s
Event SysMessage Prosty Hiding(z lazeniem) ...Badziolowy
loop:
     gosub hide_me
     gosub laz
     wait %czekaj
goto loop
;-------------------------------------------------
sub hide_me
 Event Macro 13 21
 wait 10
return
;-------------------------------------------------
sub laz
    set %los #random % 5
    set %kierunek #random % 4
    set %kroki #random % 4
    set %sk %kroki + 2
    Event SysMessage l : %los k: %kierunek kr: %kroki sk: %sk
    if %los = 0
       {
         Event SysMessage lazic...
         ; idz na north
         if %kierunek = 0
            {
               for %i 1 %sk
               {
                 Event Macro 5 1
                 wait 5
               }
            }

         ; idz na south
         if %kierunek = 1
            {
               for %i 1 %sk
               {
                 Event Macro 5 5
                 wait 5
               }
            }

        ; idz na west
         if %kierunek = 2
            {
               for %i 1 %sk
               {
                 Event Macro 5 7
                 wait 5
               }
            }

        ; idz na east
         if %kierunek = 3
            {