/ 
Acme-Hospital-Bed-0.06
River stage zero No dependents
/ Acme::Hospital::Bed

NAME

Acme::Hospital::Bed - The great new Acme::Hospital::Bed!

VERSION

Version 0.06

SYNOPSIS

Quick summary of what the module does.

Perhaps a little code snippet.

use Acme::Hospital::Bed;

Acme::Hospital::Bed->start;

...

Acme::Hospital::Bed->new(
	total_num_of_beds => 30,
	lifes => 5,
	names => [qw/tom richard joy/],
	phrases => [
		[
			"Hello, I am fine.",
			"I still have my mind.",
		],
		[
			"Hello, I am still fine.",
			"I still have my mind."
		],
		[
			"Hello, I am also fine.",
			"I still have my mind."
		],
		[
			"Hello, I think I'm still fine.",
			"I still have my mind."
		],
		[
			"Hello, I think you think I'm fine.",
			"I still have my mind."
		],
		[
			"Hello, am I still fine.",
			"I still have my mind",
		],
		[
			"Hello, do you still think I'm fine.",
			"I still have my mind",
		],
		[
			"Hello, I don't feel so fine.",
			"I still have my mind",
		],
		[
			"Hello, This is not fine.",
			"I still have my mind",
		],
		[
			"Hello, I'm not fine.",
			"Waiting every 5 minutes...?",
		]
	]
)->start;

DESCRIPTION

Acme::Hospital::Bed is a simple command line Q/A game.

The basic gameplay is the following:

A patient is generated with a random 'illness' level of 1 to 10 and a phrase that is associated to this level.

The player then decides y(yes) or n(no) to check the patient into a hospital bed.

If they guess correctly then the patient will be allocated a bed for the specified time, else the player will lose a life.

A correct guess is when the player decides yes and the patients level is greater than 5.

An incorrect guess is when the player decides yes and the patients level is lower than 5 or when the player decides no and the patients level is greater than 5.

During each turn, all rooms are deducted 1 nights stay. If a room reaches 0 then the patient is checked out and that room becomes available again.

METHODS

new

To instantiate a new Acme::Hospital::Bed object.

Acme::Hospital::Bed->new(
	total_num_of_beds => 30,
	lifes => 5,
	names => [qw/tom richard harry/],
	phrases => [
		[
			'Level 1 phrase'
		],
		[...],
		[...],
		[...],
		[...],
		[...],
		[...],
		[...],
		[...],
		[
			'Level 10 phrase'
		]
	]	
)

total_num_of_beds

Configure the total number of beds needed to win the game. The default is 20.

lifes

Configure the total number of lifes the player is allowed. The default is 3.

names

Configure the list of names used to generate patients. This is expected as an ArrayRef.

phrases

Configure the list of phrases for each 'health' level. This is expected as an ArrayRefs of ArraysRefs(aoa);

start

This method can be used to Start the game. You can either call this directly or after new.

Acme::Hospital::Bed->start;

Acme::Hospital::Bed->new(%options)->start;

next_patient

This method can also be used to start the game. If passed a true param it will return after the first itteration else it will loop untill the game is finished.

Acme::Hospital::Bed->new(%options)->next_patient();	
...
Acme::Hospital::Bed->new(%options)->next_patient(1);

available_rooms

This method will return the number of available rooms left for the current game.

$ahb->available_rooms;

check_patients_out

This method will itterate the current rooms arrayref, deducting the length of stay by 1 day and will remove (check out) any patients that have reached 0.

$ahb->check_patients_out

AUTHOR

LNATION, <email at lnation.org>

BUGS

Please report any bugs or feature requests to bug-acme-hospital-bed at rt.cpan.org, or through the web interface at https://rt.cpan.org/NoAuth/ReportBug.html?Queue=Acme-Hospital-Bed. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Acme::Hospital::Bed

You can also look for information at:

ACKNOWLEDGEMENTS

LICENSE AND COPYRIGHT

This software is Copyright (c) 2020->2025 by LNATION.

This is free software, licensed under:

The Artistic License 2.0 (GPL Compatible)