Привет всем форумчанам! прошу вас помочь с кодировкой а точнее не могли бы вы ее описать? Блогадарю вас.
(1.2.3.4 повороты - лево, право, вверх, вниз; objMake - загрузка файла; bullet - пуля; player- это я сам) а что я делаю дальше про комментируйте пожалуйста , спасибо большое!
Код:
1 2 3 4 5 6 7 | if key=vk_space then begin
case Player . ObjectData . Direction of
4 : Bullet:=ObjMake( 'Objects\Bullet.obj' ,Player . Left+Player . Width+ 5 ,Player . Top+(Player . Height div 2 ), 4 );
3 : Bullet:=ObjMake( 'Objects\Bullet.obj' ,Player . Left- 5 ,Player . Top+(Player . Height div 2 ), 3 );
1 : Bullet:=ObjMake( 'Objects\Bullet.obj' ,Player . Left+(Player . Width div 2 ),Player . Top- 5 , 1 );
2 : Bullet:=ObjMake( 'Objects\Bullet.obj' ,Player . Left+(Player . Width div 2 ),Player . Top+Player . Height+ 5 , 2 );
end ;
|