view release on metacpan or  search on metacpan

lib/BalanceOfPower/Commands.pm  view on Meta::CPAN

        elsif($result->{status} == -1)
        {
            say "No influence on requested nation";
            return 1;
        }
        elsif($result->{status} == -2)
        {
            say "No control during war";
        }
        elsif($result->{status} == -3)
        {
            say "No control during civil war";
        }

        else
        {
            return 0;
        }
    }
    elsif($type eq 'orders')
    {
        if($result->{status} == -1)
        {
            say "Command not allowed";
            return 1;
        }
        elsif($result->{status} == -2)
        {
            say "No options available";
            return 1;
        }
        elsif($result->{status} == -3)
        {
            say "Command aborted";
            return 1;
        }
        elsif($result->{status} == -4)
        {
            say "Not enough influence";
            return 1;
        }
        elsif($result->{status} == 1)
        {
            say "Order selected for " .
                $self->executive->actor .  
                ": " . $result->{command};
            my $player = $self->get_active_player();
            #$player->add_influence(-1 * INFLUENCE_COST, $self->executive->actor);
            $player->add_control_order($self->executive->actor, $result->{command});
            return 1;
        } 
        else
        {
            return 0;
        }
    }
    elsif($type eq 'travel')
    {
        if($result->{status} == -1)
        {
            say "Route blocked";
            return 1;
        }
        elsif($result->{status} == -2)
        {
            say "Not enough movements";
            return 1;
        }
        elsif($result->{status} == -3)
        {
            say "Destination unreachable";
            return 1;
        }
        elsif($result->{status} == 1)
        {
            say "Moved to " . $result->{travel}->{destination} . " via " . $result->{travel}->{way};
            say $result->{travel}->{cost} . " movements payed";
            say "Movements available are now " . $self->get_active_player->movements;
            print "\n";
        } 
        elsif($result->{status} == 2)
        {
            return 1;
        }
        else
        {
            return 0;
        }
    }
    elsif($type eq 'shop')
    {
        if($result->{status} == 1)
        {
            return 1;
        }
        elsif($result->{status} == 20)
        {
            say "Transaction completed. Payed: " . $result->{cost};
            return 1;
        }
        elsif($result->{status} == 30)
        {
            say "Transaction completed. Earned: " . $result->{cost};
            return 1;
        }
        elsif($result->{status} == -1)
        {
            say "Bad nation";
            return 1;
        }
        elsif($result->{status} == -10)
        {
            say "Bad type of trade";
            return 1;
        }
        elsif($result->{status} == -11)
        {
            say "Not enough money";
            return 1;
        }
        elsif($result->{status} == -12)