File Coverage

lib/BalanceOfPower/Relations/Friendship.pm

Criterion	Covered	Total	%
statement	48	127	37.8
branch	17	62	27.4
condition	0	5	0.0
subroutine	14	26	53.8
pod	0	19	0.0
total	79	239	33.0

package BalanceOfPower::Relations::Friendship;
$BalanceOfPower::Relations::Friendship::VERSION = '0.400105';
use strict;
use v5.10;

use Moo;
use BalanceOfPower::Constants ':all';
use BalanceOfPower::Utils qw( as_html_dangerous );

use Term::ANSIColor;
use HTML::Entities;

has factor => (
    is => 'rw'
);
has crisis_level => (
    is => 'rw',
    default => 0
);
with 'BalanceOfPower::Relations::Role::Relation';

sub get_crisis_level
{
    my $self = shift;
    if($self->factor > PERMANENT_CRISIS_HATE_LIMIT)
    {
        return $self->crisis_level;
    }
    else
    {
        if($self->crisis_level < CRISIS_MAX_FACTOR)
        {
            return $self->crisis_level + 1;
        }
        else
        {
            return $self->crisis_level;
        }
    }
}
sub status
{
    my $self = shift;
    if($self->factor == ALLIANCE_FRIENDSHIP_FACTOR)
    {
        return 'ALLIANCE';
    }
    elsif($self->factor == DOMINION_DIPLOMACY)
    {
        return 'INFLUENCE PRESENT';
    }
    if($self->factor <= HATE_LIMIT)
    {
        return 'HATE';
    }
    elsif($self->factor >= LOVE_LIMIT)
    {
        return 'FRIENDSHIP';
    }
    else
    {
        return 'NEUTRAL';
    }
}
sub status_html_class
{
    my $self = shift;
    if($self->factor == ALLIANCE_FRIENDSHIP_FACTOR)
    {
        return 'rel-alliance';
    }
    elsif($self->factor == DOMINION_DIPLOMACY)
    {
        return 'rel-influence';
    }
    if($self->factor <= HATE_LIMIT)
    {
        return 'rel-hate';
    }
    elsif($self->factor >= LOVE_LIMIT)
    {
        return 'rel-friendship';
    }
    else
    {
        return 'rel-neutral';
    }
}


sub colored_status
{
    my $self = shift;
    return $self->status_color . $self->status . color("reset");
}

sub status_color
{
    my $self = shift;
    if($self->status eq 'ALLIANCE' || $self->status eq 'INFLUENCE PRESENT')
    {
        return color("cyan bold");
    }
    if($self->status eq 'HATE')
    {
        return color("red bold");
    }
    elsif($self->status eq 'FRIENDSHIP')
    {
        return color("green bold");
    }
    else
    {
        return "";
    }
}


sub html
{
    my $self = shift;
    my $from = shift;
    my $link = encode_entities($self->print($from, 0));
    if($self->status eq 'HATE')
    {
        $link = as_html_dangerous($link);
    }
    return $link;
}

sub print
{
    my $self = shift;
    my $from = shift;
    my $color = shift;
    $color = 1 if(! defined $color);
    my $second_node;
    my $out;
    if($from)
    {
        if($from eq $self->node1)
        {
            $second_node = $self->node2;
        }
        elsif($from eq $self->node2)
        {
            $second_node = $self->node1;
        }
    }
    else
    {
        $from = $self->node1;
        $second_node = $self->node2;
    }
    $out = $self->status_color if $color;
    $out .=  $from . " <--> " . $second_node . " [" . $self->factor . " " . $self->status . "]";
    if($self->get_crisis_level > 0)
    {
        if($color)
        {
            $out .= " " . $self->print_crisis_bar();
        }
        else
        {
            $out .= " " . $self->print_grey_crisis_bar();
        }
    }
    $out .= color("reset") if $color;
    return $out;
}
sub print_status
{
    my $self = shift;
    return $self->status_color . $self->status . color("reset");
}
sub print_crisis
{
    my $self = shift;
    my $color = shift;
    $color = 1 if(! defined $color);
    if($self->get_crisis_level > 0)
    {
        my $out = $self->node1 . " <-> " . $self->node2;
        if($color)
        {
            return $out . " " . $self->print_crisis_bar();
        }
        else
        {
            return $out . " " . $self->print_grey_crisis_bar();
        }
    }
    else
    {
        return "";
    }
}
sub html_crisis
{
    my $self = shift;
    return encode_entities($self->print_crisis(0));
}
sub print_grey_crisis_bar
{
    my $self = shift;
    my $out = "";
    if($self->get_crisis_level > 0)
    {
        $out .= "[";
        for(my $i = 0; $i < CRISIS_MAX_FACTOR; $i++)
        {
            if($i < $self->get_crisis_level)
            {
                $out .= "*";
            }
            else
            {
                $out .= " ";
            }
        }
        $out .= "]";
    }
    return $out;
}
sub print_crisis_bar
{
    my $self = shift;
    return $self->status_color . $self->print_grey_crisis_bar . color("reset");
}

sub change_factor
{
    my $self = shift;
    my $delta = shift;
    my $new_factor = $self->factor + $delta;
    $new_factor = $new_factor < 0 ? 0 : $new_factor > 100 ? 100 : $new_factor;
    $self->factor($new_factor);
}

sub escalate_crisis
{
    my $self = shift;
    if($self->crisis_level < CRISIS_MAX_FACTOR)
    {
        $self->crisis_level($self->crisis_level() + 1);
    }
}
sub cooldown_crisis
{
    my $self = shift;
    if($self->crisis_level > 0)
    {
        $self->crisis_level($self->crisis_level() - 1);
    }
}
sub is_crisis
{
    my $self = shift;
    return $self->get_crisis_level() > 0;
}
sub is_max_crisis
{
    my $self = shift;
    return $self->get_crisis_level() == CRISIS_MAX_FACTOR;
}
sub dump
{
    my $self = shift;
    my $io = shift;
    my $indent = shift || "";
    print {$io} $indent . join(";", $self->node1, $self->node2, $self->factor, $self->crisis_level) . "\n";
}
sub load
{
    my $self = shift;
    my $data = shift;
    $data =~ s/^\s+//;
    chomp $data;
    my ($node1, $node2, $factor, $crisis_level) = split ";", $data;
    return $self->new(node1 => $node1, node2 => $node2, factor => $factor, crisis_level => $crisis_level);
}


1;