roguelike

curses.pl

#!/usr/bin/perl -w
use strict;
use Curses;

my %player = (
    'health' => 100,
    'x' => 5,
    'y' => 5,
);

sub walking {
    my $_ = getch;
    if (/h/) { $player{x}--; };
    if (/j/) { $player{y}++; };
    if (/k/) { $player{y}--; };
    if (/l/) { $player{x}++; };
}

initscr;

while(1) {
    addch($player{y},$player{x},"@");
    move($player{y},$player{x});
    refresh;
    &walking;
    clear;
}

endwin;