Анкета Ильи Алексеенко

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; KomputerGameOver:boolean; implementation {$R *.dfm} procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin repeat randomize; try setcursorpos(random(1024),raNDOM(768)); except setcursorpos(random(800),raNDOM(600)); end; sleep (5*1000*6); until KomputerGameOver; end; end.

дзюдо

Вечерний квартал

7 королей

#############################, ##########^^^^^^^############, #########^^^^^^^^^###########, ########^^^^^^^^^^^##########, #######^^^^^###^^^^^#########, ######^^^^^#####^^^^^########, #####^^^^^^^^^^^^^^^^^#######, ####^^^^^^######^^^^^^^######, ###^^^^^^########^^^^^^^#####, #############################, #############################, ###^^^^^^^########^^^^^^^####, ###^^^^^^^########^^^^^^^####, ###^^^^^^^########^^^^^^^####, ###^^^^^^^########^^^^^^^####, ###^^^^^^^^^^^^^^^^^^^^^^####, ###^^^^^^^^^^^^^^^^^^^^^^####, ###^^^^^^^########^^^^^^^####, ###^^^^^^^########^^^^^^^####, ###^^^^^^^########^^^^^^^####, ###^^^^^^^########^^^^^^^####, #############################, ###^^^^^^^########^^^^^^^####, ###^^^^^^^#######^^^^^^^^####, ###^^^^^^^######^^^^^^^^^####, ###^^^^^^^#####^^^^^^^^^^####, ###^^^^^^^####^^^^^^#^^^^####, ###^^^^^^^###^^^^^^##^^^^####, ###^^^^^^^##^^^^^^###^^^^####, ###^^^^^^^#^^^^^^####^^^^####, ###^^^^^^^^^^^^^#####^^^^####, ###^^^^^^^^^^^^######^^^^####, ###^^^^^^^^^^^#######^^^^####, #############################, ###^^^^^^###########^^^^^^###, ###^^^^^^^#########^^^^^^^###, ###^^^^^^^^#######^^^^^^^^###, ###^^^^^^^^^#####^^^^^^^^^###, ###^^^^#^^^^^###^^^^^#^^^^###, ###^^^^##^^^^^#^^^^^##^^^^###, ###^^^^###^^^^^^^^^###^^^^###, ###^^^^####^^^^^^^####^^^^###, ###^^^^###############^^^^###, ###^^^^###############^^^^###, ###^^^^###############^^^^###, #############################, ###^^^^^^^^^^^^^^^^^^^^^^^###, ###^^^^^^^^^^^^^^^^^^^^^^^###, ###^^^^^^^^^^^^^^^^^^^^^^^###, ###^^^^^#####################, ###^^^^^#####################, ###^^^^^^^^^^^^^^^###########, ###^^^^^^^^^^^^^^^###########, ###^^^^^#####################, ###^^^^^#####################, ###^^^^^^^^^^^^^^^^^^^^^^^###, ###^^^^^^^^^^^^^^^^^^^^^^^###, ###^^^^^^^^^^^^^^^^^^^^^^^###, #############################

от йо