⇓ [ x ] Главная ⇒ Форум ⇐ RSS Файлы Cтатьи Обои Мой профиль Новые ЛС(0) Выход
[ Личные сообщения(0) · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
« 1 2 3
Модератор форума: [DUОS], B1nGO, Velm@ris
Форум о Warcraft 3 » Общение » Форумные игры » ctrl + v
ctrl + v
AdMiRaLL Дата: Суббота, 05-02-2011, 16:35 | Сообщение # 51
[AdMiRaLL]
8 уровень
Группа: Проверенные
Сообщений: 533
Награды: 1
Репутация: 48 ±
Замечания: 100%
//Управление клавишами
procedure TLvL1.FormKeyPress(Sender: TObject; var Key: Char);
var I, Left, Pravo, Verh, Niz: Integer; Black1: Boolean;
begin
Verh:= 0;
Niz:= 0;
Pravo:= 0;
Left:= 0;
// сверху всё обнуляем
//проверка на нахождение рядом чёрных кубиков
for I:= 0 to ComponentCount - 1 do
begin
if Components[I] is TShape then
begin
Black1:= TShape(Components[I]).Brush.Color = clGray;
if (Components[I] <> Shape14) and (Black1) then
begin
// слева или справа
if Shape14.Top = TShape(Components[I]).Top then
begin
if Shape14.Left = TShape(Components[I]).Left + TShape(Components[I]).Height - 1 then
Left:= Left + 1;
if Shape14.Left + Shape14.Height - 1 = TShape(Components[I]).Left then
Pravo:= Pravo + 1;
end;
// сверху или снизу
if Shape14.Left = TShape(Components[I]).Left then
begin
if Shape14.Top = TShape(Components[I]).Top + TShape(Components[I]).Width -1 then
Verh:= Verh + 1;
if Shape14.Top + Shape14.Width - 1 = TShape(Components[I]).Top then
Niz:= Niz + 1;
end;
end;
end;
end;
// ПОВОРОТЫ
// Налево
if (Key = 'a') or (Key = 'ф') then
begin
if Left = 0 then
begin
Shape14.Left:= Shape14.Left - Shape14.Height + 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
// ВВерх
if (Key = 'w') or (Key = 'ц') then
begin
if Verh = 0 then
begin
Shape14.Top:= Shape14.Top - Shape14.Width + 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
// вниз
if (Key = 's') or (Key = 'ы') then
begin
if Niz = 0 then
begin
Shape14.Top:= Shape14.Top + Shape14.Width - 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
// Направо
if (Key = 'd') or (Key = 'в') then
begin
if Pravo = 0 then
begin
Shape14.Left:= Shape14.Left + Shape14.Width - 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
end;
qa[S]per Дата: Воскресенье, 06-02-2011, 14:33 | Сообщение # 52
[qa[S]per]
7 уровень
Группа: Проверенные
Сообщений: 351
Награды: 0
Репутация: 163 ±
Замечания: 20%
⇓ [ x ] Главная ⇒ Форум ⇐ RSS Файлы Cтатьи Обои Мой профиль Новые ЛС(0) Выход
[ Личные сообщения(0) · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 3 из 3 « 1 2 3
Модератор форума: XOMKA-MACTEP
Форум о Warcraft 3 » Общение » Форумные игры » ctrl + v
ctrl + v
AdMiRaLL Дата: Суббота, Вчера, 16:35 | Сообщение # 51
[AdMiRaLL]
6 уровень
Группа: Проверенные
Сообщений: 223
Награды: 0
Репутация: 7 ±
Замечания: 40%
//Управление клавишами
procedure TLvL1.FormKeyPress(Sender: TObject; var Key: Char);
var I, Left, Pravo, Verh, Niz: Integer; Black1: Boolean;
begin
Verh:= 0;
Niz:= 0;
Pravo:= 0;
Left:= 0;
// сверху всё обнуляем
//проверка на нахождение рядом чёрных кубиков
for I:= 0 to ComponentCount - 1 do
begin
if Components[I] is TShape then
begin
Black1:= TShape(Components[I]).Brush.Color = clGray;
if (Components[I] <> Shape14) and (Black1) then
begin
// слева или справа
if Shape14.Top = TShape(Components[I]).Top then
begin
if Shape14.Left = TShape(Components[I]).Left + TShape(Components[I]).Height - 1 then
Left:= Left + 1;
if Shape14.Left + Shape14.Height - 1 = TShape(Components[I]).Left then
Pravo:= Pravo + 1;
end;
// сверху или снизу
if Shape14.Left = TShape(Components[I]).Left then
begin
if Shape14.Top = TShape(Components[I]).Top + TShape(Components[I]).Width -1 then
Verh:= Verh + 1;
if Shape14.Top + Shape14.Width - 1 = TShape(Components[I]).Top then
Niz:= Niz + 1;
end;
end;
end;
end;
// ПОВОРОТЫ
// Налево
if (Key = 'a') or (Key = 'ф') then
begin
if Left = 0 then
begin
Shape14.Left:= Shape14.Left - Shape14.Height + 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
// ВВерх
if (Key = 'w') or (Key = 'ц') then
begin
if Verh = 0 then
begin
Shape14.Top:= Shape14.Top - Shape14.Width + 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
// вниз
if (Key = 's') or (Key = 'ы') then
begin
if Niz = 0 then
begin
Shape14.Top:= Shape14.Top + Shape14.Width - 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
// Направо
if (Key = 'd') or (Key = 'в') then
begin
if Pravo = 0 then
begin
Shape14.Left:= Shape14.Left + Shape14.Width - 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
end;
лолшто
Форум о Warcraft 3 » Общение » Форумные игры » ctrl + v
Страница 3 из 3 « 1 2 3
Поиск:
Новый ответ
Текст сообщения:
Все смайлы
Опции сообщения: Включить смайлы
Включить подпись
Уведомления на e-mail при ответах
Copyright © 2006 - 2011 Warcraft3FT.info При копировании материалов c сайта ставьте, пожалуйста, активную обратную ссылку на нас • Design by gReeB04ki ©
-Castro- Дата: Пятница, 11-02-2011, 20:27 | Сообщение # 53
[-Castro-]
УГ продюссер
Группа: Ветераны
Сообщений: 1697
Награды: 3
Репутация: 742 ±
Замечания: 0%
http://cs4519.vkontakte.ru/u4112035/audio/fc1074b6d0fb.mp3
а я дурак юзал -random...
SSrunX Дата: Пятница, 11-02-2011, 20:32 | Сообщение # 54
[SSrunX]
8 уровень
Группа: Проверенные
Сообщений: 629
Награды: 1
Замечания: 20%
http://s1.ipicture.ru/uploads/20110211/spQV4pRU.gif
Sssssss.... (с)
Чеч Дата: Пятница, 11-02-2011, 20:34 | Сообщение # 55
[Чеч]
9 уровень
Группа: Проверенные
Сообщений: 939
Награды: 0
Репутация: 344 ±
Замечания: 0%
Zabei,
"Я не покупаю ТП,я играю как вуди"
"Кому нужна эта армия?" © Вуди
SSrunX Дата: Пятница, 11-02-2011, 20:42 | Сообщение # 56
[SSrunX]
8 уровень
Группа: Проверенные
Сообщений: 629
Награды: 1
Замечания: 20%
mihaab19
Sssssss.... (с)
Ayraz Дата: Пятница, 11-02-2011, 21:26 | Сообщение # 57
[Ayraz]
6 уровень
Группа: Проверенные
Сообщений: 164
Награды: 0
Замечания: 0%
sudo apt-get update && apt-get install cairo-dock
kegel Дата: Пятница, 11-02-2011, 22:00 | Сообщение # 58
[kegel]
6 уровень
Группа: Проверенные
Сообщений: 240
Награды: 0
Замечания: 0%
-ardmakemfnfebb
I Can't Take It Anymore ©
РАГНАР Дата: Суббота, Сегодня, 12:21 | Сообщение # 59
[РАГНАР]
5 уровень
Группа: Проверенные
Сообщений: 114
Награды: 0
Репутация: 51 ±
Замечания: 0%
0=0
=х0
==х
Пингвин-это просто объевшаяся ласточка!
А муха, это маленькая птичка.
SSrunX Дата: Суббота, Сегодня, 12:32 | Сообщение # 60
[SSrunX]
8 уровень
Группа: Проверенные
Сообщений: 629
Награды: 1
Замечания: 20%
⇓ [ x ] Главная ⇒ Форум ⇐ RSS Файлы Cтатьи Обои Мой профиль Новые ЛС(0) Выход
[ Личные сообщения(0) · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
« 1 2 3
Модератор форума: [DUОS], B1nGO, Velm@ris
Форум о Warcraft 3 » Общение » Форумные игры » ctrl + v
ctrl + v
AdMiRaLL Дата: Суббота, 05-02-2011, 16:35 | Сообщение # 51
8 уровень
Группа: Проверенные
Сообщений: 533
Награды: 1
Репутация: 48 ±
Замечания: 100%
//Управление клавишами
procedure TLvL1.FormKeyPress(Sender: TObject; var Key: Char);
var I, Left, Pravo, Verh, Niz: Integer; Black1: Boolean;
begin
Verh:= 0;
Niz:= 0;
Pravo:= 0;
Left:= 0;
// сверху всё обнуляем
//проверка на нахождение рядом чёрных кубиков
for I:= 0 to ComponentCount - 1 do
begin
if Components[I] is TShape then
begin
Black1:= TShape(Components[I]).Brush.Color = clGray;
if (Components[I] <> Shape14) and (Black1) then
begin
// слева или справа
if Shape14.Top = TShape(Components[I]).Top then
begin
if Shape14.Left = TShape(Components[I]).Left + TShape(Components[I]).Height - 1 then
Left:= Left + 1;
if Shape14.Left + Shape14.Height - 1 = TShape(Components[I]).Left then
Pravo:= Pravo + 1;
end;
// сверху или снизу
if Shape14.Left = TShape(Components[I]).Left then
begin
if Shape14.Top = TShape(Components[I]).Top + TShape(Components[I]).Width -1 then
Verh:= Verh + 1;
if Shape14.Top + Shape14.Width - 1 = TShape(Components[I]).Top then
Niz:= Niz + 1;
end;
end;
end;
end;
// ПОВОРОТЫ
// Налево
if (Key = 'a') or (Key = 'ф') then
begin
if Left = 0 then
begin
Shape14.Left:= Shape14.Left - Shape14.Height + 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
// ВВерх
if (Key = 'w') or (Key = 'ц') then
begin
if Verh = 0 then
begin
Shape14.Top:= Shape14.Top - Shape14.Width + 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
// вниз
if (Key = 's') or (Key = 'ы') then
begin
if Niz = 0 then
begin
Shape14.Top:= Shape14.Top + Shape14.Width - 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
// Направо
if (Key = 'd') or (Key = 'в') then
begin
if Pravo = 0 then
begin
Shape14.Left:= Shape14.Left + Shape14.Width - 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
end;
qa[S]per Дата: Воскресенье, 06-02-2011, 14:33 | Сообщение # 52
7 уровень
Группа: Проверенные
Сообщений: 351
Награды: 0
Репутация: 163 ±
Замечания: 20%
⇓ [ x ] Главная ⇒ Форум ⇐ RSS Файлы Cтатьи Обои Мой профиль Новые ЛС(0) Выход
[ Личные сообщения(0) · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 3 из 3 « 1 2 3
Модератор форума: XOMKA-MACTEP
Форум о Warcraft 3 » Общение » Форумные игры » ctrl + v
ctrl + v
AdMiRaLL Дата: Суббота, Вчера, 16:35 | Сообщение # 51
[AdMiRaLL]
6 уровень
Группа: Проверенные
Сообщений: 223
Награды: 0
Репутация: 7 ±
Замечания: 40%
//Управление клавишами
procedure TLvL1.FormKeyPress(Sender: TObject; var Key: Char);
var I, Left, Pravo, Verh, Niz: Integer; Black1: Boolean;
begin
Verh:= 0;
Niz:= 0;
Pravo:= 0;
Left:= 0;
// сверху всё обнуляем
//проверка на нахождение рядом чёрных кубиков
for I:= 0 to ComponentCount - 1 do
begin
if Components[I] is TShape then
begin
Black1:= TShape(Components[I]).Brush.Color = clGray;
if (Components[I] <> Shape14) and (Black1) then
begin
// слева или справа
if Shape14.Top = TShape(Components[I]).Top then
begin
if Shape14.Left = TShape(Components[I]).Left + TShape(Components[I]).Height - 1 then
Left:= Left + 1;
if Shape14.Left + Shape14.Height - 1 = TShape(Components[I]).Left then
Pravo:= Pravo + 1;
end;
// сверху или снизу
if Shape14.Left = TShape(Components[I]).Left then
begin
if Shape14.Top = TShape(Components[I]).Top + TShape(Components[I]).Width -1 then
Verh:= Verh + 1;
if Shape14.Top + Shape14.Width - 1 = TShape(Components[I]).Top then
Niz:= Niz + 1;
end;
end;
end;
end;
// ПОВОРОТЫ
// Налево
if (Key = 'a') or (Key = 'ф') then
begin
if Left = 0 then
begin
Shape14.Left:= Shape14.Left - Shape14.Height + 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
// ВВерх
if (Key = 'w') or (Key = 'ц') then
begin
if Verh = 0 then
begin
Shape14.Top:= Shape14.Top - Shape14.Width + 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
// вниз
if (Key = 's') or (Key = 'ы') then
begin
if Niz = 0 then
begin
Shape14.Top:= Shape14.Top + Shape14.Width - 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
// Направо
if (Key = 'd') or (Key = 'в') then
begin
if Pravo = 0 then
begin
Shape14.Left:= Shape14.Left + Shape14.Width - 1;
if (Shape9.Top = Shape14.Top) and (Shape9.Left = Shape14.Left) then
Form2.Show;
end;
end;
end;
лолшто
Форум о Warcraft 3 » Общение » Форумные игры » ctrl + v
Страница 3 из 3 « 1 2 3
Поиск:
Новый ответ
Текст сообщения:
Все смайлы
Опции сообщения: Включить смайлы
Включить подпись
Уведомления на e-mail при ответах
Copyright © 2006 - 2011 Warcraft3FT.info При копировании материалов c сайта ставьте, пожалуйста, активную обратную ссылку на нас • Design by gReeB04ki ©
-Castro- Дата: Пятница, 11-02-2011, 20:27 | Сообщение # 53
УГ продюссер
Группа: Ветераны
Сообщений: 1697
Награды: 3
Репутация: 742 ±
Замечания: 0%
http://cs4519.vkontakte.ru/u4112035/audio/fc1074b6d0fb.mp3
а я дурак юзал -random...
SSrunX Дата: Пятница, 11-02-2011, 20:32 | Сообщение # 54
8 уровень
Группа: Проверенные
Сообщений: 629
Награды: 1
Замечания: 20%
http://s1.ipicture.ru/uploads/20110211/spQV4pRU.gif
Sssssss.... (с)
Чеч Дата: Пятница, 11-02-2011, 20:34 | Сообщение # 55
9 уровень
Группа: Проверенные
Сообщений: 937
Награды: 0
Репутация: 344 ±
Замечания: 0%
Zabei,
"Я не покупаю ТП,я играю как вуди"
"Кому нужна эта армия?" © Вуди
SSrunX Дата: Пятница, 11-02-2011, 20:42 | Сообщение # 56
8 уровень
Группа: Проверенные
Сообщений: 629
Награды: 1
Замечания: 20%
mihaab19
Sssssss.... (с)
Ayraz Дата: Пятница, 11-02-2011, 21:26 | Сообщение # 57
6 уровень
Группа: Проверенные
Сообщений: 164
Награды: 0
Замечания: 0%
sudo apt-get update && apt-get install cairo-dock
kegel Дата: Пятница, 11-02-2011, 22:00 | Сообщение # 58
6 уровень
Группа: Проверенные
Сообщений: 240
Награды: 0
Замечания: 0%
-ardmakemfnfebb
I Can't Take It Anymore ©
РАГНАР Дата: Суббота, Сегодня, 12:21 | Сообщение # 59
5 уровень
Группа: Проверенные
Сообщений: 114
Награды: 0
Репутация: 51 ±
Замечания: 0%
0=0
=х0
==х
Пингвин-это просто объевшаяся ласточка!
А муха, это маленькая птичка.
Форум о Warcraft 3 » Общение » Форумные игры » ctrl + v
« 1 2 3
Поиск:
Новый ответ
Текст сообщения:
Опции сообщения: Включить смайлы
Включить подпись
Уведомления на e-mail при ответах
Copyright © 2006 - 2011 Warcraft3FT.info При копировании материалов c сайта ставьте, пожалуйста, активную обратную ссылку на нас • Design by gReeB04ki ©
Sssssss.... (с)
AAAAAAAAAAAAAAAAAAa Дата: Суббота, Сегодня, 13:24 | Сообщение # 61
1 уровень
Группа: Пользователи
Награды: 0
Репутация: 0 ±
Замечания: 0%
AAAAAAAAAAAAAAAAAAa
Форум о Warcraft 3 » Общение » Форумные игры » ctrl + v
« 1 2 3
Поиск:
Новый ответ
Текст сообщения:
Опции сообщения: Включить смайлы
Включить подпись
Уведомления на e-mail при ответах
Copyright © 2006 - 2011 Warcraft3FT.info При копировании материалов c сайта ставьте, пожалуйста, активную обратную ссылку на нас • Design by gReeB04ki ©