Уроки создание игры на Pascal ABC.net #2

uses ABCobjects , graphABC; var object1 : PictureABC; spPlayer : integer; procedure KeyDown(Key: integer); begin case Key of VK_D: begin object1.Left:=object1.Left + spPlayer; object1.Move(); end; VK_A: begin object1.Left:=object1.Left - spPlayer; object1.Move(); end; VK_W: begin object1.Top:=object1.Top - spPlayer; object1.Move(); end; VK_S: begin object1.Top:=object1.Top + spPlayer; object1.Move(); end; end; end; procedure Player(sprite : PictureABC ; speed , hp: integer); begin sprite:= PictureABC.Create(100 , 100 , 'player.png'); object1:=sprite; spPlayer:=speed; end; begin window.Fill('fon.jpg'); Player(object1 , 10 , 100); OnKeyDown := KeyDown; end.