begin cstm_briarscript

    short nolore
    short var
    short PC_win
    short NPC_agility
    short NPC_h2h
    short talk
    short once
    float temp
    float temp2
    float temp3
    short NPC_Disp
    short won

    if ( NPC_agility < 0 )
        set NPC_agility to 0
    elseif ( NPC_agility > 100 )
        set NPC_agility to 100
    endif

    set temp2 to ( GetAgility )
    set temp2 to ( NPC_agility - temp2 )
    ModAgility temp2

    if ( NPC_h2h < 0 )
        set NPC_h2h to 0
    elseif ( NPC_h2h > 100 )
        set NPC_h2h to 100
    endif

    set temp3 to ( GetHandToHand )
    set temp3 to ( NPC_h2h - temp3 )
    ModHandToHand temp3

    if ( MenuMode == 1 )
        if ( NPC_Disp < 0 )
            set NPC_Disp to 0
        elseif ( NPC_Disp > 100 )
            set NPC_Disp to 100
        endif
        endif

    set temp to ( GetDisposition )
    set temp to ( NPC_Disp - temp )
    ModDisposition temp

    if ( GetFight != 30 )
        setfight 30
    endif

    if ( MenuMode == 1 )
        return
    endif

    if once = 0
        set var to 0
        set NPC_Disp to ( NPC_Disp + 40 )
        set NPC_h2h to ( NPC_h2h + 60 )
        set NPC_agility to ( NPC_agility + 60 )
        set once to 1
    endif

    if var = 0
        return
    endif

    if ( player->GetFatigue <= 0 )
        stopcombat
        forcegreeting
    endif

    if ( GetHealth <= 199 )
        if ( GetFatigue < 10 )
            stopcombat
            setfatigue 500
            forcegreeting
        endif
    endif

    if ( GetHealth <= 199 )
        if ( GetFatigue >= 10 )
            set var to 2
            stopcombat
            forcegreeting
        endif
    endif

end