[Release] PHP Game Engine

[DENFER]

2 дня назад я начал писать PHP Game Engine ( PGE )
Маленький и простой движок для создания игр в DS.
Сразу написал маленький пример по использованию.

Изменения 0.2
[ Fixed ] Wall Stack
[ Added ] Direction->xCurrent, Direction->xPrev

Скачать:
PGEngine v0.2 - Движок
PGE_Demo - Демонстрация движка
PGE_Source - Демонстрация движка (Исходники)

Как создать игру?
Требования php_gd2.dll (для нарезки спрайтов)


1. Нужно создать сцену
Нам нужна любая форма или компонент в котором мы будет выводить сцену
Создаем например форму:

Global $Form; # Сделаем форму глобальной
$Form = New TForm; # Создаем форму
$Form->w = 640; # Ширина
$Form->h = 480; # Высота
$Form->show(); # Покажем форму 

Теперь можно создать сцену

Global $Scene; # Сделаем сцену глобальной
$Scene = New PGE_Scene( $Form ); # Создаем сцену 

Теперь можно загрузить текстуры
Нам нужна текстура игрока, пола, и стен

Закинем их в sprites/ папку с игрой

Немного раскажу о классе PGE_Sprite

PGE_Sprite( $SpritePath, $Scene, $Tile, $TileCrop, $TileW, $TileH, $Transparant, $TX, $TY, $StartTileY, $StartTileX )

$SpritePath = Путь к спрайту в папке sprites/
$Scene = Сцена (False)
$Tile = Мозайка (False)
$TileCrop = Нарезать тайл-сеты на тайлы (False)
$TileW = Ширина тайла (32)
$TileH = Высота тайла (48)
$Transparant = Прозрачность по первому пикселю иначе будет сохранять альфа прозрачность (False)
$TX = Количество тайлов по ширине (Auto)
$TY = Количество тайлов по высоте (Auto)
$StartTileY = Стартовый id тайла по высоте (0)
$StartTileX = Стартовый id тайла по ширине (0)


Загрузим их, настроим, и поставим на сцену:

/** Создаем пол */

# Загрузим текстуру и покажем на сцене $Scene
$Floor = New PGE_Sprite( "floor.png", $Scene, True ); 
$Floor->Handle->w = $Scene->Width;
$Floor->Handle->h = $Scene->Height;

/** Создаем стены вокруг сцены */

# Загружаем тестуру и создаем спрайт
$Wall = New PGE_Sprite( "wall.png", $Scene, True ); 
# Меняем ширину стенки
$Wall->Handle->w = 32; 
# Меняем высоту стенки
$Wall->Handle->h = $Scene->Height+32; 
# Объект сталкивается с другими Solid-объектами
$Wall->Solid = True; 

$Wall = New PGE_Sprite( "wall.png", $Scene, True );
$Wall->Handle->x = 32;
$Wall->Handle->w = $Scene->Width+32;
$Wall->Handle->h = 32;
$Wall->Solid = True;

$Wall = New PGE_Sprite( "wall.png", $Scene, True );
$Wall->Handle->x = 32;
$Wall->Handle->y = $Scene->Height-32;
$Wall->Handle->w = $Scene->Width+32;
$Wall->Handle->h = 32;
$Wall->Solid = True;

$Wall = New PGE_Sprite( "wall.png", $Scene, True );
$Wall->Handle->w = 32;
$Wall->Handle->x = $Scene->Width-32;
$Wall->Handle->h = $Scene->Height+32;
$Wall->Solid = True;

$Wall = New PGE_Sprite( "wall.png", $Scene, True );
$Wall->Handle->x = ($Scene->Width/2)-($Wall->Handle->Width/2)-(32*2);
$Wall->Handle->y = ($Scene->Height/2)-($Wall->Handle->Height/2)-(32*2);
$Wall->Handle->autoSize = True;
$Wall->Solid = True;

/** Создаем игрока */

# Сделаем игрока глобальным
Global $Player;

# Загружаем тестуру и создаем спрайт
$Player = New PGE_Sprite( "player.png", $Scene, False, True, 32, 48, False );
# Центрируем ширину
$Player->Handle->x = ($Scene->Width/2)-($Player->Handle->Width/2); 
 # Центрируем высоту
$Player->Handle->y = ($Scene->Height/2)-($Player->Handle->Height/2);
# Объект сталкивается с другими Solid-объектами
$Player->Solid = True; 

Теперь нам нужно настроить поведение игрока
Пока в движке есть 1 стандартное поведение (8 direction movement)

Создаем функцию KeyHandle и unKeyHandle
с параметрами $obj, $key
и подключим функцию в событие "Нажатие кнопки" в ссылке на форму (в главный код игры)

Function KeyHandle( $obj, $key )
{
  Global $Player;
  IF( $key == VK_UP )
    $Player->Behavior_edMove_Update( PGE_DIRECTION_UP, True );
  ELSE IF( $key == VK_DOWN )
    $Player->Behavior_edMove_Update( PGE_DIRECTION_DOWN, True );
  ELSE IF( $key == VK_LEFT )
    $Player->Behavior_edMove_Update( PGE_DIRECTION_LEFT, True );
  ELSE IF( $key == VK_RIGHT )
    $Player->Behavior_edMove_Update( PGE_DIRECTION_RIGHT, True );
}

Function unKeyHandle( $obj, $key )
{
  Global $Player;
  $Player->Behavior_edMove_Stop();
}

$Form->onKeyDown = "KeyHandle";
$Form->onKeyUp = "unKeyHandle"; 

Игра готова!
покажем сцену

Global $Scene;
$Scene->show(); 

Полный код игры:

Global $Scene, $Player, $Form;
$Form = New TForm;
$Form->w = 640;
$Form->h = 480;
$Form->show();

$Scene = New PGE_Scene( $Form );

$Floor = New PGE_Sprite( "floor.png", $Scene, True );
$Floor->Handle->w = $Scene->Width;
$Floor->Handle->h = $Scene->Height;

$Wall = New PGE_Sprite( "wall.png", $Scene, True );
$Wall->Handle->w = 32;
$Wall->Handle->h = $Scene->Height+32;
$Wall->Solid = True;

$Wall = New PGE_Sprite( "wall.png", $Scene, True );
$Wall->Handle->x = 32;
$Wall->Handle->w = $Scene->Width+32;
$Wall->Handle->h = 32;
$Wall->Solid = True;

$Wall = New PGE_Sprite( "wall.png", $Scene, True );
$Wall->Handle->x = 32;
$Wall->Handle->y = $Scene->Height-32;
$Wall->Handle->w = $Scene->Width+32;
$Wall->Handle->h = 32;
$Wall->Solid = True;

$Wall = New PGE_Sprite( "wall.png", $Scene, True );
$Wall->Handle->w = 32;
$Wall->Handle->x = $Scene->Width-32;
$Wall->Handle->h = $Scene->Height+32;
$Wall->Solid = True;

$Wall = New PGE_Sprite( "wall.png", $Scene, True );
$Wall->Handle->x = ($Scene->Width/2)-($Wall->Handle->Width/2)-(32*2);
$Wall->Handle->y = ($Scene->Height/2)-($Wall->Handle->Height/2)-(32*2);
$Wall->Handle->autoSize = True;
$Wall->Solid = True;

$Player = New PGE_Sprite( "player.png", $Scene, False, True, 32, 48, False );
$Player->Handle->x = ($Scene->Width/2)-($Player->Handle->Width/2);
$Player->Handle->y = ($Scene->Height/2)-($Player->Handle->Height/2);
$Player->Solid = True;

Function KeyHandle( $obj, $key )
{
  Global $Player;
  IF( $key == VK_UP )
    $Player->Behavior_edMove_Update( PGE_DIRECTION_UP, True );
  ELSE IF( $key == VK_DOWN )
    $Player->Behavior_edMove_Update( PGE_DIRECTION_DOWN, True );
  ELSE IF( $key == VK_LEFT )
    $Player->Behavior_edMove_Update( PGE_DIRECTION_LEFT, True );
  ELSE IF( $key == VK_RIGHT )
    $Player->Behavior_edMove_Update( PGE_DIRECTION_RIGHT, True );
}

Function unKeyHandle( $obj, $key )
{
  Global $Player;
  $Player->Behavior_edMove_Stop();
}

$Form->onKeyDown = "KeyHandle";
$Form->onKeyUp = "unKeyHandle";

Global $Scene;
$Scene->show(); 

[pilip]

Попробовал маленько, молоток, только есть пару глюков, при встречи со стеной, иногда прилипает к ней, повертевшись отлипает. И еще есть небольшая задержка при смене направления

[DENFER]

при встречи со стеной, иногда прилипает к ней, повертевшись отлипает

ну тут нужно играться с оффсетами

$Sprite->Moving->Offset->cX = 0;
$Sprite->Moving->Offset->cY = 0;
$Sprite->Moving->Offset->cA = 0;
$Sprite->Moving->Offset->dY = 0;
$Sprite->Moving->Offset->dX = 0;
$Sprite->Moving->Offset->dA = 0; 

у меня вроде не залипает с оффсетами:

$Sprite->Moving->Offset->dY = 1;
$Sprite->Moving->Offset->dX = 1; 

вроде не залипает, вот только 1 минус: его откидывает на 1 пиксель
т.е. спрайт прыгает в противоположную сторону от направления

И еще есть небольшая задержка при смене направления

$Sprite->Animation->Speed = 900; # 0-1000 (чем больше тем быстрее реагирует) 

[kazer_xxx]

Времени пробовать нет, но всё равно круто) Потом проверю)

[Acid-UA]

Очень неплохо учитывая то что написано за 2 дня!

[Ruslord1]

Денфер красавец!

[ily2811]

Гром меня разрази! Гениально!) Денфер не перестаёт удивлятьне только меня, как я думаю)
Надо будет Нобелевскую дать)

что скажешь) крут крут)

[Ass]

Перезайлете пожалуйста "Движок".

[devillom]

denfer
молодца огромный респект

[max95]

Перезалейте

[Рома]

Да кстати, перезалейте пожалуйста!

[forumrulez]

Перезалейте