/prog/ - RPG

Lets program a roleplaying game together. Each post must contain either a new function or an edited version of an old function in psudocode. I will start:

int dealDamage(int hp, int damage){
    return hp - damage;
}

use v6;

sub MAIN() {
    my @resp = <Ok. Cool. Rad. Neato. Hella. Spankin'.>;
    my $input = prompt "What's happening?";
    while $input !~~ "The End." {
        $input = prompt "{@resp.pick} What happens next?";
    }
}