скучно фос вымирает

[K!LLER]

ребят , вот обьясните мне идиоту , как создают новый плагины AMx , ведь есть какая-нить прога ?

[Dimanok]

ребят , вот обьясните мне идиоту , как создают новый плагины AMx , ведь есть какая-нить прога ?

НЕТ ! Читай книжки по языку PAWN. И смотри в разделе к-с , там есть темы.

[-=GIG=-]

Где можно в фосе скачать венду XP ENG ?

[Deviljin]

Где можно в фосе скачать венду XP ENG ?

Зачем тебе?

[ds-jan]

Интересно однако получилось.Кому интересно - язык паскаль

Код: Выделить всё • Развернуть

uses GraphABC,FieldBall,Timers,Events,Utils;

var
  F: FieldWithBalls;
  t: integer;
  
procedure MouseDown(x,y,mb: integer);
var fx,fy,dx,dy: integer;
begin
  if (x<F.x0) or (y<F.y0) then exit;
  fx:=(x-F.x0) div F.sz + 1;
  fy:=(y-F.y0) div F.sz + 1;
  if (fx>F.DimX) or (fy>F.DimY) then exit;
  repeat
    dx:=Random(3)-1;
    dy:=Random(3)-1;
  until (dx<>0) or (dy<>0);
  if F.CellIsFree(fx,fy) then
    F.AddBall(Ball.Create(dx,dy,RGB(Random(256),Random(256),Random(256)),F),fx,fy)
  else
    F.DeleteObject(fx,fy);
end;
  
procedure OnTimer;
begin
  F.Go;
end;

  
begin
  cls;
  SetWindowCaption('Шарики');
  OnMouseDown:=MouseDown;
  F:=FieldWithBalls.Create(30,20,22,20,20);
  SetWindowSize(F.DimX*F.sz+2*F.x0,F.DimY*F.sz+2*F.y0);
  F.Draw;
  F.AddBall(BrownBall.Create(RGB(Random(256),Random(256),Random(256)),F),15,5);
  F.AddBall(BrownEatingBall.Create(RGB(Random(256),Random(256),Random(256)),F),12,12);
  F.AddBall(Pulya.Create(1,0,clBlack,F),7,3);
  F.AddBall(ShootingBall.Create(clGreen,F),10,8);
  t:=CreateTimer(70,OnTimer);
end.

[sidius]

Ктонить макинтош ставил?

[Deviljin]

Ктонить макинтош ставил?

Я собирался,но незная какой точно по полным характеристикам процессор так и не поставил

[ds-jan]

Адрес: http://rutube.vfose.ru
IP адрес: fostube.ru
Название ресурса: RuTube Vfose
Описание: Ru Tube Vfose предназначен для хранения видео и просмотра через ФОС
Категория в каталоге: тематический сайт
Текущий статус: доступен
Последняя проверка: сегодня в 16:01
Процент доступности: 85% от общего времени
Дата регистрации: 6 ноября 2008 года
Дней в каталоге: 450
Владелец: Nikopol
Баллы ресурса: 761

Ток шас обратил внимание

[ds-jan]

http://vfose.ru/info/marks-torrents.vfose.ru/

Не ну норм да?

Зарегистрировано: 79481
Подключено: 41683
Торрентов: 7777
Живых торрентов: 0
Регистрация: открыта
Свободных мест: -71704
Аплоадеров: 7777
Пиров: 62474
Сидов: 6372
Личеров: 6257
Коэф.: 1863%

[-=GIG=-]

Где можно в фосе скачать венду XP ENG ?

Зачем тебе?

Надо вася , надо .