procedure TSpiel.input(key:word);
begin
with feld do begin
// Spieler 1
if (key=ord('S')) and (Spieler[2].typ='Tastatur') then
Spieler[1].Aktion:='unten'
else if (key=ord('W')) and (Spieler[2].typ='Tastatur') then
Spieler[1].Aktion:='oben'
else if (key=ord('D')) and (Spieler[2].typ='Tastatur') then
Spieler[1].Aktion:='rechts'
else if (key=ord('A')) and (Spieler[2].typ='Tastatur') then
Spieler[1].Aktion:='links'
else if (key=ord('E')) and (Spieler[2].typ='Tastatur') then
Spieler[1].Aktion:='Bombe'
// Spieler 2
else if (key=VK_DOWN) and (Spieler[1].typ='Tastatur') then
Spieler[2].Aktion:='unten'
else if (key=VK_UP) and (Spieler[1].typ='Tastatur') then
Spieler[2].Aktion:='oben'
else if (key=VK_RIGHT) and (Spieler[1].typ='Tastatur') then
Spieler[2].Aktion:='rechts'
else if (key=VK_LEFT) and (Spieler[1].typ='Tastatur') then
Spieler[2].Aktion:='links'
else if (key=VK_Return) and (Spieler[1].typ='Tastatur') then
Spieler[2].Aktion:='Bombe'
// Spieler 3
else if (key=ord('K')) and (Spieler[3].typ='Tastatur') then
Spieler[3].Aktion:='unten'
else if (key=ord('I')) and (Spieler[3].typ='Tastatur') then
Spieler[3].Aktion:='oben'
else if (key=ord('L')) and (Spieler[3].typ='Tastatur') then
Spieler[3].Aktion:='rechts'
else if (key=ord('J')) and (Spieler[3].typ='Tastatur') then
Spieler[3].Aktion:='links'
else if (key=ord('O')) and (Spieler[3].typ='Tastatur') then
Spieler[3].Aktion:='Bombe'
// Spieler 4
else if (key=VK_NUMPAD2) and (Spieler[4].typ='Tastatur') then
Spieler[4].Aktion:='unten'
else if (key=VK_NUMPAD5) and (Spieler[4].typ='Tastatur') then
Spieler[4].Aktion:='oben'
else if (key=VK_NUMPAD3) and (Spieler[4].typ='Tastatur') then
Spieler[4].Aktion:='rechts'
else if (key=VK_NUMPAD1) and (Spieler[4].typ='Tastatur') then
Spieler[4].Aktion:='links'
else if (key=VK_NUMPAD6) and (Spieler[4].typ='Tastatur') then
Spieler[4].Aktion:='Bombe'
end;
end;