Swieza Dawka Tlenu

;
;            **********************************
;            * CzaroWspomBiegacz    ver 0,69  *
;            *<<>><<>><<>><<>><<>><<>><<>><<>>*
;            *               Romek_z_Jawora   *
;            **********************************
;
set %kolor 88
set %ji #jindex
set %text0 Giniesz , #spc , kurwo!
set %text1 Lecim!
set %text2 Do , #spc , boju!
set %text3 Mam , #spc , juz , #spc , czar!
set %text4 Aha!
set %text5 I , #spc , co , #spc , ty , #spc , na , #spc , to!
set %text6 Mam , #spc , cie!
set %text 7
repeat
{
      if %imieprim <> #charname
         gosub imie
      if %ji < #jindex
      {
         set %ji %ji + 1
         scanjournal %ji
         if %imie in #journal
         {
              gosub czar
         }
      }
}
until #false

sub imie
     set %imieprim #charname
     str pos #charname #spc
     if #strres <> 0
     {
         set %zm #strres - 1
         str left #charname %zm
         set %imie #strres
     }
     else
          set %imie #charname
return

sub czar
        set %x #charposx
        set %y #charposy
        if An_Ex_Por in #journal
        {
            set %czas #scnt2 + 13
            goto mierz
        }
        if Corp_Por in #journal
        {
            set %czas #scnt2 + 20
            goto mierz
        }
        if Kal_Vas_Flam in #journal
        {
            set %czas #scnt2 + 30
            goto mierz
        }
        if Rel_Wis in #journal
        {
            set %czas #scnt2 + 11
            goto mierz
        }
        if In_Vas_Por in #journal
        {
            set %czas #scnt2 + 60
            goto mierz
        }
        if Vas_Flam in #journal
        {
            set %czas #scnt2 + 12
            goto mierz
        }
        if Por_Corp_Wis in #journal
        {
            set %czas #scnt2 + 20
            goto mierz
        }
        if Sdhbhal_Roiseal in #journal
        {
            set %czas #scnt2 + 31
            goto mierz
        }
        if In_Vas_Mani in #journal
        {
            set %czas #scnt2 + 20
            goto mierz
        }
        if In_Mani in #journal
        {
            set %czas #scnt2 + 9
            goto mierz
        }
        if An_Nox in #journal
        {
            set %czas #scnt2 + 9
            goto mierz
        }
        return
mierz:
        repeat
           if %x <> #charposx || %y <> #charposy
              return
           if %ji < #jindex
           {
           set %ji %ji + 1
           scanjournal %ji
           if Many in #journal || Koncentr in #journal || Anulowano in #journal
              return
           }
           set %pom ( %czas - #scnt2 ) / 4 + 1
           if %pompom <> %pom
           {
                      if %pom < 4
                           event exmsg #charid 3 %kolor -=[ %pom ]=-
                      set %pompom %pom
           }
        until %czas < #scnt2
        set %rand #random % %text
        event exmsg #charid 3 %kolor %text . %rand
return