set #lpc 1000
set *atack 0
set *automat 1
set %moblist FG
ignoreitem reset
ignoreitem #charid
set %procent 50 * #maxhits / 100
repeat
{
      if #enemyid <> N/A && #hITS > %procent
         finditem #enemyid G_20
      else
          finditem FG_OH_JD_RB_LB_UE_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_ , %moblist G_20
      if #findindex < #findcnt
      {
         for #findindex 1 #findcnt
            {
                if #findrep <> 3 && #findrep <> 6
                {
                   ignoreitem #findid
                   break
                }
                if #findrep = 3 || #findrep = 6
                {
                   set *atack 1
                   if *atack = 0
                   {
                          repeat
                                set *atack 1
                          until *atack = 1
                   }
                   set #ltargetid #findid
                   event macro 27 0
                   set %mob #enemyid
                   set %czas #scnt + 2
                       if #enemyid <> %mob
                       {
                          repeat
                                set %mob #enemyid
                          until %mob = #enemyid || %czas < #scnt
                       }
                   if N/A in #enemyid
                   {
                      repeat
                      {
                            finditem %mob G_10
                            set #ltargetid #findid
                            event macro 27 0
                            if #findkind = -1
                                   break
                      }
                      until %mob <> #enemyid
                   }
                   set %czekaj #scnt + 120
                   repeat
                   {
                         if #enemyid = N/A
                            break
                            wait 5
                   }
                   until %mob in #enemyid || %czekaj < #scnt || *atack = 0
                    if %czekaj < #scnt
                       {
                              event macro 6 0
                              event macro 6 0
                              ignoreitem #findid
                              set *atack 0
                              set #enemyid N/A
                              set #enemyhits 0
                       }
                }
            }
      }
      else
      {
          finditem * G_20
          if #findindex < #findcnt
          {
              for #findindex 1 #findcnt
                {
                    if #findrep <> 3 && #findrep <> 6
                    {
                       ignoreitem #findid
                       continue
                    }
                    if #findrep = 3 || #findrep = 6
                    {
                       set *atack 1
                       if *atack = 0
                       {
                              repeat
                                    set *atack 1
                              until *atack = 1
                       }
                       set #ltargetid #findid
                       if #findtype notin %moblist
                       {
                           set %moblist %moblist , _ , #findtype
                           event sysmessage Dodalem moba %moblist
                       }
                       event macro 27
                       set %mob #enemyid
                       set %czas #scnt + 2
                       if #enemyid <> %mob
                       {
                          repeat
                                set %mob #enemyid
                          until %mob = #enemyid || %czas < #scnt
                       }
                       if N/A in #enemyid
                       {
                          repeat
                          {
                                finditem %mob G_10
                                set #ltargetid #findid
                                event macro 27 0
                                if #findkind = -1
                                   break
                          }
                          until %mob <> #enemyid
                       }
                       set %czekaj #scnt + 120
                       repeat
                       {
                             if #enemyid = N/A
                                break
                                wait 5
                       }
                       until %mob in #enemyid || %czekaj < #scnt || *atack = 0
                       if %czekaj < #scnt
                       {
                              event macro 6 0
                              event macro 6 0
                              ignoreitem #findid
                              set *atack 0
                              set #enemyid N/A
                              set #enemyhits 0
                       }
                       set *atack 0
                       if *atack = 1
                           {
                              repeat
                                    set *atack 0
                              until *atack = 0
                           }
                    }
                }
          }
          else
          {
              set *atack 0
              if *atack = 1
              {
                  repeat
                        set *atack 0
                  until *atack = 0
              }
          }
      }
}
until #false