Outbreak - player.lib

////////////////////////////////////////////////////////////////////////////////
// Outbreak - PLAYER HANDLING                                                 //
// Version 0.1 - 10/13/2011                                                   //
// Created by: Julien 'Timscampi' Machiels                                    //
// Under GPL v3 licence                                                       //
////////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////////////////////
//// Determines player movement ////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure help;
begin
    clrscr;
    textcolor(15);
    frame(1,1,79,2,15);
    textcolor(2);
    gotoxy(34,2);
    write('OUBREAK - HELP');
    readln;
end;

procedure pMovements(key : byte);
begin
    case nKey of
                49 :    begin
                        if isPassable(nPlayerX-1,nPlayerY+1) then
                            begin
                                nPlayerY := nPlayerY + 1; // Down
                                nPlayerX := nPlayerX - 1; // Left
                            end;
                    end;
                50 :    begin
                        if isPassable(nPlayerX,nPlayerY+1) then
                            begin
                                nPlayerY := nPlayerY + 1; // Down
                            end;
                    end;
                51 :    begin
                        if isPassable(nPlayerX+1,nPlayerY+1) then
                            begin
                                nPlayerY := nPlayerY + 1; // Down
                                nPlayerX := nPlayerX + 1; // Right
                            end;
                    end;
                52 :    begin
                        if isPassable(nPlayerX-1,nPlayerY) then
                            begin
                                nPlayerX := nPlayerX - 1; // Left
                            end;
                    end;
                54 :    begin
                        if isPassable(nPlayerX+1,nPlayerY) then
                            begin
                                nPlayerX := nPlayerX + 1; // Right
                            end;
                    end;
                55 :    begin
                        if isPassable(nPlayerX-1,nPlayerY-1) then
                            begin
                                nPlayerY := nPlayerY - 1; // Up
                                nPlayerX := nPlayerX - 1; // Left
                            end;
                    end;
                56 :    begin
                        if isPassable(nPlayerX,nPlayerY-1) then
                            begin
                                nPlayerY := nPlayerY - 1; // Up
                            end;
                    end;
                57 :    begin
                        if isPassable(nPlayerX+1,nPlayerY-1) then
                            begin
                                nPlayerY := nPlayerY - 1; // Up
                                nPlayerX := nPlayerX + 1; // Right
                            end;
                    end;
                72,104 : help;
                27 :    begin
                        textbackground(0);
                        textcolor(15);
                        clrscr;
                        textcolor(15);
                        writeln('Thank you for playing Outbreak version ', version,' !');
                        halt(0); // Quit if ESC is pressed
                        end;
    end;
end;