set %ji #jindex
set %key f5
repeat
{
      if %ji < #jindex
      {
         set %ji %ji + 1
         scanjournal %ji
         if Zapisywanie in #journal
            gosub czekaj
      }
      if #hits <= 40
         gosub lecz
      onhotkey %key
               gosub prowokacja
}
until #false

sub czekaj
repeat
{
      if %ji < #jindex
      {
         set %ji %ji + 1
         scanjournal %ji
         if Koniec_zapisywania in #journal
            return
      }
}
until #false
return

sub lecz
event macro 15 28
repeat
{
      if %ji < #jindex
      {
         set %ji %ji + 1
         scanjournal %ji
         if Zapisywanie in #journal
            gosub czekaj
      }
until #targcurs = 1
event macro 23
return

sub prowokacja
event macro 1 0 .um prowokacja
repeat
{
      if %ji < #jindex
      {
         set %ji %ji + 1
         scanjournal %ji
         if Zapisywanie in #journal
            gosub czekaj
      }
}
until #targcurs = 1
finditem BK_VF_GE_OB_M_WF_YF_KG_SD_XG_VD_BG_OF_RD_TG_sF_JG_MG_NF_TF_CO_AH_WG_AG_YG_EG_RF_NG_HG_PF_ZF_WC_PGB_TN_TC_BG_PG_AD_QD_IS_HS_QF_LD_XE_MB_SI_BD_TH_CJ_NI_GD_ID_YE_PD_ED_XH_I_UC_UD_RB_BJ_W_CB_JD_WD_XC_DB_Y_DI_AB_ND_AI_BI_RI_KI_DJ_N_TI_OD_OJ_EF_AF_UF_WB_BB_JB_XF_FD_QE_GB_QD_IB_KD_TD_AE_DE_BE_IE_CD_WE_VE_PE_ZC_YD_IS_HS_WZA_TN_IS_XU_HS_LJ_SG G_3
if #findkind = -1
{
   set #sysmsgcol 45
   event symessage Nie znalazlem celu
   return
}
set #lobjectid #findid
set %mob #findid
event macro 22
ignoreitem #findid
wait 3
repeat
{
      if %ji < #jindex
      {
         set %ji %ji + 1
         scanjournal %ji
         if Zapisywanie in #journal
            gosub czekaj
      }
}
until #targcurs = 1
finditem BK_VF_GE_OB_M_WF_YF_KG_SD_XG_VD_BG_OF_RD_TG_sF_JG_MG_NF_TF_CO_AH_WG_AG_YG_EG_RF_NG_HG_PF_ZF_WC_PGB_TN_TC_BG_PG_AD_QD_IS_HS_QF_LD_XE_MB_SI_BD_TH_CJ_NI_GD_ID_YE_PD_ED_XH_I_UC_UD_RB_BJ_W_CB_JD_WD_XC_DB_Y_DI_AB_ND_AI_BI_RI_KI_DJ_N_TI_OD_OJ_EF_AF_UF_WB_BB_JB_XF_FD_QE_GB_QD_IB_KD_TD_AE_DE_BE_IE_CD_WE_VE_PE_ZC_YD_IS_HS_WZA_TN_IS_XU_HS_LJ_SG G_3
if #findkind = -1
{
   set #sysmsgcol 45
   event symessage Nie znalazlem celu, wskazuje na siebie
   event macro 23
}
if #findkind <> -1
{
set #Lobjectid #findid
event macro 22
}
gosub skanuj
return

sub skanuj
repeat
{
      if %ji < #jindex
      {
         set %ji %ji + 1
         scanjournal %ji
         if Sprowokowales_stworzenie_ in #journal
            return
         if Nie_udalo in #journal
            return
         if Zapisywanie in #journal
            gosub czekaj
      }
}
until #false
return