align="justify"> {();
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: Timer1Timer (TObject * Sender)
{(); gt; ProcessMessages ();
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: FormKeyDown (TObject * Sender, WORD amp; Key, Shift)
{(Key == VK_LEFT) direction=3; (Key == VK_RIGHT) direction=1; (Key == VK_UP) direction=0; (Key == VK_DOWN) direction=2;
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N7Click (TObject * Sender)
{( Created by DimonsTools n dimonstools@googlemailraquo; n +2014 БЧКІ 1-13 n @ Всі права захищені конгломератом вагітних бегемотів );
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N5Click (TObject * Sender)
{- gt; Timer1- gt; Enabled=false;
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N6Click (TObject * Sender)
{- gt; Timer1- gt; Enabled=true;
}
//---------------------------------------------------------------------------__ fastcall TForm1 :: N2Click (TObject * Sender)
{( F: Labs My Game start. wav raquo ;, NULL, SND_ASYNC); (); - gt; Enabled =! Timer1- gt; Enabled; (); (); (); (); ();
}
//---------------------------------------------------------------------------
Додаток Б - блок-схемі
Блок схема Функції step.
Блок схема Функції render
Блок схема Функції makeRandomSnake
