;macro na cast czarow by molt 2,0v
set #lpc 150
gosub oczyscimie
start:
set %_jindex #jindex
scanloop:
   if #jindex >= %_jindex
   {
      scanjournal %_jindex
;corp
      if %imie in #journal && Corp_Por in #journal
      {
      set %czekaj 55
      gosub czekaj
      }
if %imie in #journal && Artan_Braile in #journal
      {
      set %czekaj 55
      gosub czekaj
      }
;blysk
      if %imie in #journal && Por_Ort_Grav in #journal
      {
      set %czekaj 27
      gosub czekaj
      }
;mind
      if %imie in #journal && Por_Corp_Wis in #journal
      {
      set %czekaj 51
      gosub czekaj
      }
;paraliz
      if %imie in #journal && An_Ex_Por in #journal
      {
      set %czekaj 20
      gosub czekaj
      }
;an mani
      if %imie in #journal && An_Mani in #journal
      {
      set %czekaj 12
      gosub czekaj
      }
;-------
      set %_jindex %_jindex + 1
   }
wait 0
goto scanloop
goto start

sub czekaj
{
wait %czekaj
set #sysmsgcol 3880
event ExMsg #charID 3 1152 !! BIEGNIJ !!
return
}
;ponizej tego nie ruszamy nic
sub oczyscimie
{
set %imie #charname
str Len %imie
set %liczdl #strres
str Pos %imie #spc
set %liczma #strres
str Del %imie %liczma %liczdl
set %imie #strres
return
}