Сейчас 22:08:18 Четверг, 21 ноября, 2024 год
[ x ] Главная ⇒ Форум ⇐ RSS Файлы Cтатьи Картинки В о й т и   или   з а р е г и с т р и р о в а т ь с я


[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Модератор форума: BinGO, vladyka  
ctrl + v
AdMiRaLLДата: Суббота, 05 Февраля 2011, 16:35:38 | Сообщение # 51
8 уровень
Группа: Проверенные
Сообщений: 743
Награды: 1
Репутация: 61
Блокировки:
//Управление клавишами

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 Февраля 2011, 14:33:40 | Сообщение # 52
7 уровень
Группа: Проверенные
Сообщений: 468
Награды: 0
Репутация: 271
Блокировки:
⇓ [ 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 Февраля 2011, 20:27:46 | Сообщение # 53
УГ продюсер
Группа: Ветераны
Сообщений: 2099
Награды: 3
Репутация: 1213
Блокировки:
http://cs4519.vkontakte.ru/u4112035/audio/fc1074b6d0fb.mp3
 

SSrunXДата: Пятница, 11 Февраля 2011, 20:32:48 | Сообщение # 54
Пуэрывыи уровэн вуася
Группа: Ветераны
Сообщений: 1604
Награды: 3
Репутация: 1281
Блокировки:
http://s1.ipicture.ru/uploads/20110211/spQV4pRU.gif

https://vk.com/musicforubaby

Просто подрочи - само решится © BinGO
С феклой играй - себя не уважай © Рандом
Безвозмездности не существует, все люди эгоисты. © BARMAGLOT
Вот краны :gays: © Privitalik
Я бы помесил глину на твоем заднем дворе. © MrHate
 

ЧечДата: Пятница, 11 Февраля 2011, 20:34:39 | Сообщение # 55
10 уровень
Группа: Проверенные
Сообщений: 1868
Награды: 0
Репутация: 1236
Блокировки:
Zabei,
 

SSrunXДата: Пятница, 11 Февраля 2011, 20:42:25 | Сообщение # 56
Пуэрывыи уровэн вуася
Группа: Ветераны
Сообщений: 1604
Награды: 3
Репутация: 1281
Блокировки:
mihaab19

https://vk.com/musicforubaby

Просто подрочи - само решится © BinGO
С феклой играй - себя не уважай © Рандом
Безвозмездности не существует, все люди эгоисты. © BARMAGLOT
Вот краны :gays: © Privitalik
Я бы помесил глину на твоем заднем дворе. © MrHate
 

AyrazДата: Пятница, 11 Февраля 2011, 21:26:16 | Сообщение # 57
6 уровень
Группа: Проверенные
Сообщений: 304
Награды: 0
Репутация: 333
Блокировки:
sudo apt-get update && apt-get install cairo-dock
 

kegelДата: Пятница, 11 Февраля 2011, 22:00:51 | Сообщение # 58
7 уровень
Группа: Проверенные
Сообщений: 252
Награды: 0
Репутация: 251
Блокировки:
-ardmakemfnfebb

 

РАГНАРДата: Суббота, 09 Апреля 2011, 12:21:01 | Сообщение # 59
5 уровень
Группа: Проверенные
Сообщений: 114
Награды: 0
Репутация: 72
Блокировки:
0=0
=х0
==х
 

SSrunXДата: Суббота, 09 Апреля 2011, 12:32:04 | Сообщение # 60
Пуэрывыи уровэн вуася
Группа: Ветераны
Сообщений: 1604
Награды: 3
Репутация: 1281
Блокировки:
⇓ [ 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 ©


https://vk.com/musicforubaby

Просто подрочи - само решится © BinGO
С феклой играй - себя не уважай © Рандом
Безвозмездности не существует, все люди эгоисты. © BARMAGLOT
Вот краны :gays: © Privitalik
Я бы помесил глину на твоем заднем дворе. © MrHate
 

ZabeiДата: Суббота, 09 Апреля 2011, 14:56:59 | Сообщение # 61
7 уровень
Группа: Проверенные
Сообщений: 479
Награды: 0
Репутация: 125
Блокировки:
⇓ [ 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 ©

 

AutobotДата: Суббота, 09 Апреля 2011, 15:19:29 | Сообщение # 62
1 уровень
Группа: Пользователи
Сообщений: 3
Награды: 0
Репутация: -21
Блокировки:
АВТОР НУБ И ОПОЗОРИЛСЯ!!!!!!!!!!!
 

Brut@lusДата: Суббота, 09 Апреля 2011, 15:40:42 | Сообщение # 63
Группа: Заблокированные
Сообщений: 2496
Награды: 1
Репутация: 924
Блокировки:
Сейчас 15:39 Суббота, 9 апреля, 2011 год

⇓ [ x ] Главная ⇒ Форум ⇐ RSS Файлы Cтатьи Обои Мой профиль Новые ЛС(0) Выход


[ Личные сообщения(0) · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Административный форум
Форум Темы Ответы Обновления
Информация и услуги (просматривают: 2)
Правила форума, понижение замечаний, FAQ...
Модератор форума: БАМ 421 9886 Суббота, 09-04-2011, 13:32
Тема: [ВАЖНО] Понижение замечаний
Сообщение от: Loire
Предложения по улучшению сайта
Предложения по сайту, замечания, создание новых разделов и прочее.
Модератор форума: БАМ 323 11738 Суббота, 09-04-2011, 14:40
Тема: Титулы
Сообщение от: Шторм

Warcraft 3 Frozen Throne
Форум Темы Ответы Обновления
Турниры | Конкурсы | Дуэли (просматривают: 1)
Регистрация, правила и обсуждение.
Модератор форума: [DUОS], BARMAGLOT, B1nGO 177 9763 Суббота, 09-04-2011, 14:53
Тема: Гран при азерота
Сообщение от: egor521
Обсуждение карт (просматривают: 3)
Обсуждаем карты для Warcraft 3.
Модератор форума: БАМ 500 16868 Суббота, 09-04-2011, 15:36
Тема: Обсуждение карт
Сообщение от: -DuMyHb-
Тактика за Нежить
Гнев Нежити.
Модератор форума: woodpecker 21 5038 Среда, 06-04-2011, 13:40
Тема: Застройка за Нежить.
Сообщение от: Sense
Тактика за Ночных эльфов
Ловкость Ночных эльфов.
Модератор форума: woodpecker 21 3640 Четверг, 07-04-2011, 13:11
Тема: Ночные эльфы против Нежити
Сообщение от: Чеч
Тактика за Орду
Сила Орды.
Модератор форума: woodpecker 20 4101 Пятница, 08-04-2011, 14:42
Тема: Ищу учителя.
Сообщение от: _Shadow
Тактика за Альянс
Отвага Альянса.
Модератор форума: woodpecker 21 3627 Вторник, 05-04-2011, 19:50
Тема: Застройка
Сообщение от: Sense
Тактика Warcraft 3
Тактика не за расу.
Модератор форума: woodpecker 46 3806 Суббота, 09-04-2011, 10:24
Тема: кто ваш любимый герой в WarC...
Сообщение от: Ценитель_рус_яз

Defense of The Ancients
Форум Темы Ответы Обновления
Общий раздел (просматривают: 1)
Все, что имеет отношение к DotA.
Модератор форума: BARMAGLOT, B1nGO 25 1293 Суббота, 09-04-2011, 14:36
Тема: Они научат вас доте
Сообщение от: romaN-1998
Вопросы по DotA
Любые вопросы по героям, артефактам, механике.
Модератор форума: BARMAGLOT, B1nGO 26 10588 Суббота, 09-04-2011, 14:38
Тема: Вопросы по механике DotA
Сообщение от: [Simf]Porcha
Теория игры (просматривают: 2)
Гайды, статьи и прочее.
Модератор форума: BARMAGLOT, B1nGO 61 4913 Четверг, 07-04-2011, 22:45
Тема: SSILKA NA MH
Сообщение от: BARMAGLOT

Раздел для картостроителей
Форум Темы Ответы Обновления
Вопросы по картостроению (просматривают: 3)
Учимся создавать карты.
Модератор форума: PUVer, [DUОS] 5387 67483 Суббота, 09-04-2011, 15:16
Тема: Вопрос про порталы!?
Сообщение от: Autobot
Раздел картостроителя (просматривают: 5)
Библиотека картостроителей.
Модератор форума: PUVer, [DUОS] 365 19045 Суббота, 09-04-2011, 14:34
Тема: Опрос: Хорошая ли программа ...
Сообщение от: Ахил
Моделинг (просматривают: 4)
Всё о моделях.
Модератор форума: БАМ, PUVer 784 7690 Суббота, 09-04-2011, 15:34
Тема: Модели Naruto
Сообщение от: nikikin
Ландшафтинг (просматривают: 2)
Модератор форума: PUVer 204 7380 Суббота, 09-04-2011, 14:40
Тема: Тайлсеты
Сообщение от: nikikin
GUI / Jass (просматривают: 1)
Модератор форума: PUVer, [DUОS] 42 691 Суббота, 09-04-2011, 15:22
Тема: Вопрос
Сообщение от: Murador

Проекты
Форум Темы Ответы Обновления
Ваши проекты (просматривают: 2)
Обсуждаем ваши карты.
Модератор форума: PUVer 903 58394 Суббота, 09-04-2011, 15:39
Тема: Art of Battle - Triple Confl...
Сообщение от: Ыварг
Штурм и оборона 12 364 Четверг, 07-04-2011, 13:08
Тема: Удалять раздел?
Сообщение от: Keeper_of_the_Life
Dark Time ORPG
Модератор форума: PUVer 9 1300 Суббота, 09-04-2011, 14:27
Тема: Ваши вопросы
Сообщение от: МОРПЕХ
God's Word: The True Way (просматривают: 2)
RPG с элементами симулятора.
Модератор форума: PUVer 18 4143 Понедельник, 14-03-2011, 22:08
Тема: Идеи
Сообщение от: PUVer
УГ Продакшин
Пародийный юмористический сериал о приключениях Главного Героя и его друзей в мире УГ.
Модератор форума: PUVer 12 1783 Суббота, 09-04-2011, 14:49
Тема: [КОНКУРС] УГогер
Сообщение от: Blood_Elf
OaD: Reborn (просматривают: 1)
AoS нового поколения, совмещающая в себе черты стратегии и противостояния.
Модератор форума: [DUОS] 5 54 Суббота, 09-04-2011, 08:57
Тема: О новой системе предметов Oa...
Сообщение от: MrHate

Другие игры
Форум Темы Ответы Обновления
Видеоигры
Прочие игры, консольные и компьютерные.
Модератор форума: Хамяг 300 13297 Суббота, 09-04-2011, 00:36
Тема: HOMM III
Сообщение от: Ыварг
World of Warcraft (просматривают: 1)
WoW, онлайн RPG (MMORPG).
Модератор форума: БАМ, Хамяг 161 20215 Суббота, 09-04-2011, 14:00
Тема: Ваши герои в WoW
Сообщение от: БАМ
Starcraft 2
Вторая часть культовой стратегии.
Модератор форума: woodpecker 24 249 Четверг, 07-04-2011, 22:50
Тема: В какой вы лиге?
Сообщение от: ololomsk

Общение
Форум Темы Ответы Обновления
Просто общение (просматривают: 3)
Здесь пользователи нашего сайта могут общаться между собой.
Модератор форума: БАМ, woodpecker, Velm@ris 227 29167 Суббота, 09-04-2011, 15:38
Тема: Общалко
Сообщение от: -DuMyHb-
Знай Наших (просматривают: 1)
Пользователи warcraft3ft.info
Модератор форума: БАМ, Хамяг, Velm@ris 279 19783 Суббота, 09-04-2011, 15:35
Тема: gr. BeRsErK
Сообщение от: nikikin
Кино и анимация
Важнейшее из искусств.
Модератор форума: Хамяг, Velm@ris 187 11768 Среда, 06-04-2011, 19:35
Тема: Вельзевул\Beelzebub
Сообщение от: Ayraz
Музыка
Все стили и направления.
Модератор форума: Хамяг, Velm@ris 169 9433 Пятница, 08-04-2011, 15:04
Тема: Deathstars
Сообщение от: SnowLeopard
Чтиво
Художественно-литературный раздел.
Модератор форума: Velm@ris, BARMAGLOT 125 3338 Суббота, 09-04-2011, 07:22
Тема: Книги Warcraft
Сообщение от: -DuMyHb-
Форумные игры
Игра в слова, ассоциации и прочее...
Модератор форума: [DUОS], B1nGO, Velm@ris 197 28063 Суббота, 09-04-2011, 15:19
Тема: ctrl + v
Сообщение от: Autobot

Школа Warcraft3FT.info
Форум Темы Ответы Обновления
Администрация школы
Модератор форума: БАМ 15 963 Суббота, 09-04-2011, 15:17
Тема: Набор учеников на курс модел...
Сообщение от: nikikin
Класс А
Модератор форума: БАМ 26 633 Понедельник, 15-02-2010, 20:00
Тема: Общение Учеников и Учителей
Сообщение от: Kartoha
Класс Б (просматривают: 5)
Модератор форума: БАМ 5 226 Суббота, 09-04-2011, 15:31
Тема: Общение учеников и учителей
Сообщение от: Dreii
Класс В
Модератор форума: БАМ 37 598 Суббота, 09-04-2011, 15:32
Тема: Общение Учеников и Учителей
Сообщение от: Brut@lus

Прочее
Форум Темы Ответы Обновления
Отвал (просматривают: 4)
Повторяющиеся темы, темы созданные с нарушением правил и т.д. Чьи темы попали сюда, делайте выводы! 4306 346980 Пятница, 08-04-2011, 14:27
Тема: Общение Учеников и Учителей
Сообщение от: Brut@lus

[ Отметить все сообщения прочитанными ]

Дополнительная информация
Посетители: 128 (участников - 41, гостей - 87)
Рекорд посещаемости форума 686 зафиксирован Воскресенье, 20:46, 09-08-2009.
Brut@lus, Серига, Dark_Zarich, Setplus, Murador, lawson, Blood_Elf, Metanol, AlexONE, sAiness, breakmans, Dreii, G@HI6@L, Dinmukhamed, PriZr@k13, -DuMyHb-, Velm@ris, Sense, FatalBlade, mef1sto1234, MrReverse, Unvoker, hybrida, HichiG0, B1nGO, Хамяг, Syzaky, Rassomaxa, shift2501, PUVer, Infernalishe, MegaYura, indigo48, Ыварг, gamer2012, FkoFF, [Simf]Porcha, GraF251996, nikikin, Unetco
Статистика форума
Всего создано 15907 тем, в которые добавлено 750980 ответов.
Зарегистрировано 49638 участников. Приветствуем нового участника Autobot.
Поздравляем с Днем Рождения!
Vasia911(24), kenniya(17), FenixXFire(22), сергей0904(28), Pocomaxa(25), m@$ter(15), Mozilka(15), dorian999(16), Devil(19), ProWarStar(8), vadya-123(15), Gretam(20), КАЗАХ(15), дурАццкая_сотона(12), DJa(23), fhjrt(16), РуssKий(18), MASETR5(15), linorr(15), 24ab38cd(19), РомZEZ(18), Thorn(21), HUS(18), fuckyou_HoSu(20), dima_fiodorov(14), mirzoali(29), Na1jeL(17), R@YMAN(17), sergic-07(20), egGS1Zoe(18), IpCrizq(18), РомZEZ{TFT}(18), planer(16), Pwent(23), wulypipy(40), akk0(17), Leoncheg-Egorcheg(24), Furianec(24), fLip(20), Tommy_Tom(24), Sh1P0k(21), DARK97(14), Gre[K](25), BANDERAS_RUS(15), Liker(15), Гномон(20), WARLORD_666(18), banda32(21), dain666(23), 1235(15), [Полный список]


Copyright © 2006 - 2011 Warcraft3FT.info При копировании материалов c сайта ставьте, пожалуйста, активную обратную ссылку на нас • Design by gReeB04ki ©


 

PrivitalikДата: Суббота, 09 Апреля 2011, 16:20:30 | Сообщение # 64
Ванильный Мститель
Группа: Библиотекари
Сообщений: 1022
Награды: 10
Репутация: 1918
Блокировки:
http://dota.by/files/arts/sbor/BladeMail.gif

СТУДЕНТ
 

MuradorДата: Суббота, 09 Апреля 2011, 16:20:35 | Сообщение # 65
Группа: Проверенные
Сообщений: 1221
Награды: 1
Репутация: 446
Блокировки:
then
 

romaN-1998Дата: Суббота, 09 Апреля 2011, 16:31:16 | Сообщение # 66
10 уровень
Группа: Проверенные
Сообщений: 1368
Награды: 0
Репутация: 10
Блокировки:
http://prodota.ru/forum2/index.php
 

РАГНАРДата: Суббота, 09 Апреля 2011, 19:33:38 | Сообщение # 67
5 уровень
Группа: Проверенные
Сообщений: 114
Награды: 0
Репутация: 72
Блокировки:
Последнее изменение
[родительский каталог]
angle.png 2819 B 09.04.11 17:30:18
background_serch_bottom.gif 200 B 28.03.11 17:35:04
background_serch_top.gif 140 B 28.03.11 17:37:14
background_top_main.gif 13.2 kB 30.03.11 23:13:36
banner.gif 36.6 kB 23.03.11 16:29:11
banner.png 65.2 kB 23.03.11 16:43:28
favicon.ico 894 B 07.04.11 21:15:08
FIL110.jpg 8.4 kB 07.04.11 21:13:29
go.gif 2400 B 28.03.11 18:48:42
logo.gif 2441 B 30.03.11 22:43:25
 

UnetcoДата: Суббота, 09 Апреля 2011, 20:18:36 | Сообщение # 68
10 уровень
Группа: Проверенные
Сообщений: 2307
Награды: 2
Репутация: 648
Блокировки:
Количество опасных объектов: 1
 

DallaseДата: Суббота, 09 Апреля 2011, 21:09:25 | Сообщение # 69
10 уровень
Группа: Проверенные
Сообщений: 1501
Награды: 0
Репутация: 583
Блокировки:
http://mychar.ru/img/warcraft/icon133.gif
 

MrHateДата: Суббота, 09 Апреля 2011, 21:34:10 | Сообщение # 70
Хейт
Группа: Проверенные
Сообщений: 335
Награды: 0
Репутация: 613
Блокировки:
а мне матч очень понравился
Тарханов: а мне матч очень понравился

После поединка в Самаре наставник победителей Александр Тарханов расточал комплименты в адрес соперника, а Юрий Красножан сетовал на единственную ошибку и вступился за Гильерме.

9 апреля 2011 года в 18:30 5
И снова непобедимый "Краснодар"
И снова непобедимый "Краснодар"

"Краснодар" продлил свою беспроигрышную серию в Премьер-Лиге до четырёх матчей, обыграв на своём поле пермский "Амкар". Победный мяч на счету защитника Тубича.

9 апреля 2011 года в 18:10 9
Надо, Ненад, надо!
Надо, Ненад, надо!

"Крылья" и "Локомотив" впервые в этом году выступили на натуральном газоне – и порадовали самарских болельщиков достаточно содержательной игрой. А преуспели в ней хозяева.

9 апреля 2011 года в 15:57 69
Бруну Алвеш: наши матчи с ЦСКА сродни дерби
Бруну Алвеш: наши матчи с ЦСКА сродни дерби

Португальский центральный защитник "Зенита" поделился ожиданиями от матча с ЦСКА и впечатлениями от игры "Порту" с московским "Спартаком".

9 апреля 2011 года в 12:31 68
Не ждите подарков от Краснодара!
Не ждите подарков от Краснодара!

В субботу оба краснодарских клуба попытаются развить свои стартовые успехи, а "Крылья Советов" проведут первый домашний матч в 2011 году.

9 апреля 2011 года в 11:00 33
Слуцкий: очень надеемся на Хонду
Слуцкий: очень надеемся на Хонду

Главный тренер ЦСКА Леонид Слуцкий заявил, что стартом сезона не доволен никто в армейском клубе, но выразил надежду на то, что в ближайшее время дела пойдут на лад.

8 апреля 2011 года в 23:30 35
Игра в игре. 4-й тур
Игра в игре. 4-й тур

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

8 апреля 2011 года в 21:05 127
Армейский часовой
Армейский часовой

Сегодня 25-летний юбилей празднует Игорь Акинфеев – вратарь ЦСКА и сборной России. Голкипер, чьё место в составе обеих этих команд уже долгие годы выглядит абсолютно незыблемым.

8 апреля 2011 года в 18:11 137
Спаллетти: ошибки – следствие чрезмерного давления
Спаллетти: ошибки – следствие чрезмерного давления

В пятницу, накануне очередного тура чемпионата ПЛ, главный тренер "Зенита" Лучано Спаллетти провёл традиционную пресс-конференцию на базе клуба в Удельной.

8 апреля 2011 года в 17:40 44
Популярность клубов РФПЛ-2011. Часть 2
Популярность клубов РФПЛ-2011. Часть 2

Среди реальных болельщиков лидерство по популярности сохраняет "Спартак", но на пятки ему наступает "Зенит". Тройку замыкает ЦСКА, и эти клубы заметно оторвались от всех остальных.

8 апреля 2011 года в 14:30 166
Футбол на ТВ. Зима-2011
Футбол на ТВ. Зима-2011

Телевизионная аудитория самого популярного футбольного матча почти в два раза превысила аналогичный показатель для Матча звёзд КХЛ, но более чем в два с половиной раза уступила юмористам с канала "Россия 1".

7 апреля 2011 года в 22:00 31
Дзагоев: "Порту" выиграет Лигу Европы
Дзагоев: "Порту" выиграет Лигу Европы

Полузащитник ЦСКА Алан Дзагоев заявил, что у "Спартака" очень мало шансов пройти португальцев в Лиге Европы, и порассуждал о предстоящей встрече армейцев с "Зенитом".

7 апреля 2011 года в 18:59 105
"В воскресенье будет битва титанов!"
"В воскресенье будет битва титанов!"

ЦСКА начал подготовку к матчу с "Зенитом" на своей базе в Ватутинках. На сегодняшней тренировке армейцев побывали журналисты "Чемпионат.ру".

6 апреля 2011 года в 20:30 106
Слуцкий: проблем с физикой у ЦСКА нет
Слуцкий: проблем с физикой у ЦСКА нет

Главный тренер ЦСКА Леонид Слуцкий рассказал, как команда будет готовиться к важнейшему матчу с "Зенитом", и поразмышлял на тему того, почему армейцы играют вторые таймы хуже, чем первые.

6 апреля 2011 года в 19:00 58
Краса футбольная
Краса футбольная

С 4-го тура чемпионата России будет дан старт первому всероссийскому конкурсу красоты футбольных болельщиц "Мисс Премьер-Лига 2011".

6 апреля 2011 года в 18:30 43
Вот буря налетела – и ага
Вот буря налетела – и ага

После очередного тура чемпионата Премьер-Лиги мы по традиции публикуем самые яркие высказывания игроков, тренеров и руководителей клубов Премьер-Лиги.

6 апреля 2011 года в 12:30 49

RSS Все статьи
Турнирная таблица
Команда И О
1 Краснодар 4 8
2 Зенит 3 7
3 Волга НН 3 6
4 Рубин 3 6
5 Кубань 4 6
6 Динамо М 4 6
7 Ростов 3 4
8 ЦСКА 2 4
9 Крылья Советов 3 4
10 Локомотив 4 4
11 Спартак-Нальчик 3 4
12 Анжи 3 4
13 Амкар 4 4
14 Терек 3 3
15 Спартак М 3 3
16 Томь 3 0

Полная таблица
Последние матчи
09 апреля 2011, 4 тур
Динамо М
Кубань 1:0
Краснодар
Амкар 1:0
Крылья Советов
Локомотив 1:0

Все результаты
Ближайшие матчи
10 апреля 2011, 4 тур
Ростов
Волга НН 14:00
Рубин
Спартак-Нальчик 16:15
Зенит
ЦСКА 18:30
Спартак М
Терек 20:45
11 апреля 2011, 4 тур
Томь
Анжи 15:00

Полный календарь
Бомбардиры
Данко Лазович Зенит 3
Роман Адамов Ростов 2
Игорь Пикущак Краснодар 2
Сергей Давыдов Кубань 2
Сергей Игнашевич ЦСКА 2 (1)

Подробная статистика
Ассистенты
Мигель Данни Зенит 2
Роман Адамов Ростов 2
Кевин Кураньи Динамо М 2
Евгений Макеев Спартак М 1
Сальваторе Боккетти Рубин 1

Подробная статистика
Гол+пас
Роман Адамов Ростов 4
(2+2)
Данко Лазович Зенит 3
(3+0)
Кевин Кураньи Динамо М 3
(1+2)
Сергей Игнашевич ЦСКА 2
(2+0)
Кристиан Нобоа Рубин 2
(2+0)

Подробная статистика
Лучшие игроки
Владислав Кулик Кубань 6.75
Данко Лазович Зенит 6.50
Кристиан Нобоа Рубин 6.17
Ласина Траоре Кубань 6.17
Мигель Данни Зенит 6.17

Подробная статистика

Все новости футбола Чемпионат.ру в Twitter
.

Лента новостей

* Отправить

*
*

9 апреля 2011 года, суббота
* 19:48 Пикущак: в "Краснодаре" таким стартом никто не обольщается 28
* 19:36 Каряка: "Кубань" плотно защищается, поэтому тяжело пока 19
* 19:21 Видеообзор матча "Крылья Советов" — "Локомотив" 17
* 19:09 Губочан: надеюсь, после игры с ЦСКА всё пойдёт как надо 35
* 18:50 Цаллагов: эмоции просто непередаваемые. Это не описать! 31
* 18:45 Абдулфаттах: поддержка самарских фанатов похожа на питерскую 38
* 18:39 Таранов: футбольный бог был на стороне "Крыльев Советов" 22
* 18:36 Самсонов: "Крылья" выглядели предпочтительнее "Локомотива" 12
* 18:33 "Краснодар" повторил достижение "Амкара" 2004 года 15
* 18:30 Видеообзор матча "Краснодар" — "Амкар" 13
* 18:27 Красножан: в "Локомотиве" должны поддержать Гильерме 29
* 18:13 Рахимов: "Амкар" заслужил хотя бы ничью в матче с "Краснодаром" 26
* 18:11 Муслин: "Краснодар" играл получше. Победа заслуженная 26
* 18:06 "Краснодар" победил "Амкар" и вышел на первое место 142
* 17:56 Тарханов: "Крыльям Советов" бы такого дядьку, как Лоськов 33
* 17:36 Семак: возможно, вернусь к игре с "Крыльями Советов" 14
* 17:32 Видеотрансляция матча "Динамо" — "Кубань" 28
* 17:24 Семак: Слуцкий готов к варианту игры и без Вагнера в составе 20
* 17:07 Шукуров временно отказался от игр за сборную Азербайджана 37
* 16:30 Лебеденко: в "Рубине" серьёзная конкуренция. Это экзамен для меня 24
* 16:03 Видеотрансляция матча "Краснодар" — "Амкар" 19
* 16:01 Тарханов: поле не идеальное было, но игра хорошая 48
* 15:58 Красножан: говорить о справедливости результата сложно 110
* 15:55 "Крылья Советов" вырвали победу у "Локомотива" 424
* 14:57 Абдулфаттах: постараемся прибавить в нападении 21
* 14:10 Лебеденко: не считаю, что Рыжиков слабее Акинфеева 88
* 13:58 Вагнер Лав не полетит с ЦСКА в Санкт-Петербург 232
* 13:47 "Ростов" попросил болельщиков прийти на "Олимп-2" заблаговременно 26
* 13:24 Видеотрансляция матча "Крылья Советов" — "Локомотив" 29
* 13:09 Марсело: в 2006 году во мне был заинтересован ЦСКА 86
* 12:28 Маренич близок к возвращению в строй 36
* 12:12 Нэ: "Спартак" особого впечатления не произвёл 117
* 11:30 Миллер: особенно могу выделить игру "Волги" и "Кубани" 52
* 10:06 Пеньяилильо: моя цель — играть в основном составе "Зенита" 29
* 9:56 В РФПЛ обсудили подготовку к матчу "Анжи" — "Спартак" 187

Вся лента новостей
Архив материалов
< Апрель > < 2011 >
пн вт ср чт пт сб вс
1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30
ЯндексДирект

*
Болеешь за спартак москва?
Стань частью спартак москва, участвуй в турнире, стань звездой футбола!
www.ftbl.com
*
ФК Спартак Москва
Новости, обзоры, аналитика, интервью, фото - на портале "БОЛЬШОЙ СПОРТ"
www.bolshoisport.ru
*
Виртуальная Футбольная Лига
Бесплатная онлайн-игра: футбольный менеджер, играем вместе уже 10 лет
www.virtualsoccer.ru
*
FootSMS.ru - не пропусти гол!
Все голы футбольных матчей в прямом эфире на твой мобильник! Будь в курсе!
footsms.ru

Дать объявление

 

РАГНАРДата: Воскресенье, 10 Апреля 2011, 16:31:38 | Сообщение # 71
5 уровень
Группа: Проверенные
Сообщений: 114
Награды: 0
Репутация: 72
Блокировки:
Конкурсные вопросы

Кто написал Полонез Огинского?

Кто изобрел пароход?

В каком стиле писал свои полотна Диего Веласкес?

Где находился Фаросский маяк?

В какой стране возникло конфуцианство?

Кто был богом торговли и воровства в Древней Греции?

Кто был главным противником Александра Македонского?

Кто повелевал морем в Древней Греции?

Какой город был первой столицей Золотой Орды?

 

Velm@risДата: Понедельник, 11 Апреля 2011, 21:22:04 | Сообщение # 72
1 3 3 7 bot
Группа: Ветераны
Сообщений: 587
Награды: 0
Блокировки:
Enrique Iglesias Feat Nicole Scherzing... - Heartbeat

Рекорд 1377.75р
 

kegelДата: Вторник, 12 Апреля 2011, 20:45:18 | Сообщение # 73
7 уровень
Группа: Проверенные
Сообщений: 252
Награды: 0
Репутация: 251
Блокировки:
http://www.youtube.com/watch?v=YljHr0pv2As&feature=related

 

Velm@risДата: Среда, 13 Апреля 2011, 14:45:20 | Сообщение # 74
1 3 3 7 bot
Группа: Ветераны
Сообщений: 587
Награды: 0
Блокировки:
http://warcraft3ft.info/index/8-57386

Рекорд 1377.75р
 

SSrunXДата: Среда, 13 Апреля 2011, 14:56:33 | Сообщение # 75
Пуэрывыи уровэн вуася
Группа: Ветераны
Сообщений: 1604
Награды: 3
Репутация: 1281
Блокировки:
http://warcraft3ft.info/forum/3-4514-1

https://vk.com/musicforubaby

Просто подрочи - само решится © BinGO
С феклой играй - себя не уважай © Рандом
Безвозмездности не существует, все люди эгоисты. © BARMAGLOT
Вот краны :gays: © Privitalik
Я бы помесил глину на твоем заднем дворе. © MrHate
 

Поиск:

Copyright © 2006 - 2024 Warcraft3FT.info При копировании материалов c сайта ставьте, пожалуйста, активную обратную ссылку на нас • Design by gReeB04ki ©
Хостинг от uCoz