Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

А не устраивать ли нам небольшие конкурсы по кодингу? (ч.4)


Страницы:   1 2 ... 5 6 7 8 9 10 11 ... 31 32

OSokin ©   (2005-05-06 19:09:00) 

Будут ли еще конкурсы?


Zer0   (2005-08-21 04:33:00) [141]

еще один серьезный проект
RARS is the Robot Auto Racing Simulation, in which the drivers are robot programs. It is intended as a competition among programmers. It consists of a simulation of the physics of cars, a graphic display of the race, and a robot driver for each car.
http://sourceforge.net/projects/rars


Zer0   (2005-08-21 04:18:00) [142]

[495] XProger
лазаю по инету.

выглядит это так - в гугле набирается пара ключевых слов. ессно находятся платные гов(*&ные библеотеки для абсолютно-всего кроме нужного и крайне старые ссылки на форумах. методом перебора различных комбинаций ключевых слов удается таки попасть на сообщение в каком-нибуть дремучем форуме с кучей беcценных ссылок.
полученные зацепки и новые ключевые слова крайне глубоко изучаются и по ним проводится следующая итерация.

во время поисков наткнулся на проекты за которыми следил лет 5 назад, но потом ссылки потерялись или умерли вместе с винтом. большинство из них стало open source за что аффтарам спасибо.

за*&^*&лся страшно, но надыбал термоядерный материал. смотрел и плакал. потом долго и очень странно хихикал.
могу подкинуть очередное заподло - http://www.racer.nlкрайне реалистичная 3d ездлика с открытым исходным кодом.

в результате проделанной работы хочу сделать следующее заявление:
Господа Девелоперы, если вы придумали крайне гениальную или архиполезную библеотеку/дему/прогу и решили выложить в сеть вместе с исходниками, не поленитесь оформить небольшой стайт на sourceforge.net и залейте все свои исходники туда.
со временем ваши труды не растворятся в ошибках 404/403 :долго и злобно материт дешевые хостинги, убившые кучу полезной инфы:, да найти их будет гораздо проще. рекомендуется также добавлять краткое описание своих проектов и наборключевых слов.


зы. sourceforge.net - это надежный, стабильный, крайне функциональный и в то же время бесплатный портал для проэктов с отркытым исходным кодом.
ззы. интересно скока прогеров уже попало на мое заподло и забыв про конкурс изучает исходики ку-трики... ^__^


XProger   (2005-08-21 02:44:00) [143]

Zer0, интересно узнать, что ты делаешь по этому поводу... :)

У меня пока больше на катание по льду смахивает.

P.S.
Неделю или две над проектом работать не буду, т.к. изучаю ку3 сурсы и над своим проектиком маюсь...


Zer0   (2005-08-21 02:33:00) [144]

есть подозрения что аркада должна обладать некоторой реалистичностью, чтобы представлять хоть какой-то интерес для играющего.
я просканировал сеть на счет физики и нашел интересный результат - практически все игры-гонки это полное буэ, если говорить без матов.
начиная с возможности разворота на месте (как танк йоптотыть!) и кончая отлетанием от стенок в совершенно произвольном направлении.

для меня например игра где машину вообще не заносит (да еще и разварачивает) - никакого интереса не представляет.

возможно у меня черезмерно завышенные требования =) интересно узнать ваше мнение по этому поводу.


grouzd[E]v   (2005-08-21 01:08:00) [145]

Не знаю, не знаю. Имхо физика должна быть
1) работающей
2) играбельной
лично я пока никаких наворотов, типа "проскальзывание колес на третьей передаче, лихие заносы и проч" пока не планирую

---
... we are walking on a thin line and you better avoid the risk ...


Кефир87   (2005-08-21 00:43:00) [146]


> шизофрения

А ведь по праилам физика должна быть максимально приближенной к реальной...

> шлифовать не физику, а AI

Это ваще отдельный вопрос... ИМХО не проще физики 8(


grouzd[E]v   (2005-08-20 23:56:00) [147]

А кто сказал "реалистичный сиулятор"? Знаете что такое "аркадный симулятор"? Правильно, шизофрения =) Имхо, лучше шлифовать не физику, а AI

---
... we are walking on a thin line and you better avoid the risk ...


Zer0   (2005-08-20 23:36:00) [148]

мне интересно как народ физикой машинки занимается.насколько я уже понял сделать что-то достойное (нормальная коробка, проскальзывание колес на третьей передаче, лихие заносы и проч.) не очень-то просто. серьезная физическая симуляция в такой небольшой игре не покатит, отсюда возникает желание сделать какой нибуть хитрый хак, который бы выглядел достаточно реалистично...
у кого какие мысли по этому поводу?

[488] Кефир87
помойму в данном случае надо особую константу вводить, типа NORVEGIAN_TRUE_BLACK


grouzd[E]v   (2005-08-20 22:26:00) [149]

Да нет, просто настроение хорошее =)))

---
... we are walking on a thin line and you better avoid the risk ...


Кефир87   (2005-08-20 21:44:00) [150]

BOOL OSokin()
{
 return TRUE;
}


OSokin   (2005-08-20 21:24:00) [151]

А что тут такого?


grouzd[E]v   (2005-08-20 20:29:00) [152]

Вай! ОСокин return! Наконец-то!

---
... we are walking on a thin line and you better avoid the risk ...


OSokin   (2005-08-20 20:08:00) [153]

Привет всем! Вышел из почти месячного дауна, и смотрю: вах, тут уже один конкурс закончили и другой начали!
Короче, комментирую посты:
Zak3D[@Tm] ©   (30.06.05 21:47) [148]
Прикольный конкурс. Щас скачаю и посмотрю.
XProger ©   (01.07.05 14:35) [155]
Сэнкс...
Zak3D[@Tm] ©   (14.07.05 0:59) [228]
Крутой сайт
Darth   (18.07.05 16:34) [274]
Использовал, и не в одном. Все версии бэтла с ним написаны. Только здесь одна маленькая ошибка у тебя - я ведь правил DL-FX2 под свои нужды, а если он будет запихнут в DLL - то не смогу
[последние посты]
Эт чего, уже в форуме кодим? Так скоро дело дойдет и до InterDelphi ;-).

Короче, может и поучаствую. Но типа MicroMashines написать смогу точно.
to Darth: а модуль DLTextures.pas ты так и не исправил... (где ошибка с поворотом)


Sphinx   (2005-08-20 12:33:00) [154]

ну и для разнообразия немного извращений :)

 while boolAppRun do
   begin
     // получаем очередное сообщение
     if PeekMessage(recRenderWin.WindowMessage, 0, 0, 0, PM_REMOVE) then
       // если сообщение есть и получено
       begin
         // если сообщение об уничтожении окна - прервать выполнение цикла
         if recRenderWin.WindowMessage.message = WM_QUIT then boolAppRun := False;
         // обработать сообщение
         TranslateMessage(recRenderWin.WindowMessage);
         DispatchMessage(recRenderWin.WindowMessage);
       end
     else // if PeekMessage - если сообщение отсутствует
       begin
         // вычисляем промежуток времени с прошлого выполнения цикла
         if boolQPSupport then
           begin
             QueryPerformanceCounter(QPCountCurrent);
             if QPCountCurrent < QPCountLast then
               dblTick := (High(Int64) - QPCountLast + QPCountCurrent) / QPFrequency
             else
               dblTick := (QPCountCurrent - QPCountLast) / QPFrequency;
             QPCountLast := QPCountCurrent;
           end;
         // если провалена функция приложения - прервать выполнение цикла
         if Failed(ExecuteFunctionEXE(dblTick)) then boolAppRun := False;
         // если окно вывода активно
         if recRenderWin.WindowActive then
           begin
             // если провалена отрисовка сцены - прервать выполнение цикла
             if Failed(DrawSceneDll) then boolAppRun := False;
           end
         else // if recRenderWin.WindowActive - если окно вывода неактивно
           begin
           end;
       end;
   end;


NewWonder   (2005-08-20 11:54:00) [155]


> Кефир87 ©

Сложного наверное ничего. Никогда просто не работал без VCL. Сейчас пытаюсь вникнуть в это дело.


Darthman   (2005-08-20 00:42:00) [156]

while not finished do
 if (PeekMessage(msg, 0, 0, 0, PM_REMOVE)) then
 begin
   if (msg.message = WM_QUIT) then finished:= True
   else begin
    TranslateMessage(msg);
     DispatchMessage(msg);
   end;
 end;

Мои три копейки :)


Кефир87   (2005-08-20 00:15:00) [157]

А хрен его знает... Я как-то что-то писал на VC... пришлось париться с WinAPI. И вот там я так написал. А сйчас чтоб не периться копипейстил от тудава и {} заменил на begin end; 8) Хотя скорее всего там я тоже копипейстил откуда-то 8)


XProger   (2005-08-20 00:06:00) [158]


 if(PeekMessage(msg, 0, 0, 0, PM_NOREMOVE)) then
  begin
    if(GetMessage(msg, 0, 0, 0))then
    begin
      TranslateMessage(msg);
      DispatchMessage(msg);
    end;
  end;

СУПЕР! Но всё же почему не:

if PeekMessage(msg, 0, 0, 0, PM_REMOVE) then
begin
TranslateMessage(msg);
DispatchMessage(msg);
end;


Кефир87   (2005-08-19 23:19:00) [159]


> NewWonder ©   (19.08.05 22:48) [478]


> А я вот пробую на API сделать окно.

А что сложного?

function CreateWnd(w,h:Integer):HWND;
var
 wc:TWndClass;
begin
 with wc do
 begin
   style := 0;
   lpfnWndProc := @WindowProc;
   cbClsExtra := 0;
   cbWndExtra := 0;
   hInstance := 0;
   hIcon := 0;
   hCursor := 0;
   hbrBackground := COLOR_BTNFACE + 1;
   lpszMenuName := Class_name;
   lpszClassName := Class_name;
 end;

 RegisterClass(wc);
 Result := CreateWindow(Class_name,
                        WND_TITLE,
                        WS_OVERLAPPEDWINDOW or WS_CLIPSIBLINGS or WS_CLIPCHILDREN,
                        (GetSystemMetrics(SM_CXSCREEN)-w) div 2,
                        (GetSystemMetrics(SM_CYSCREEN)-h) div 2,
                        w,
                        h,
                        0,
                        0,
                        0,
                        nil);

 ShowCursor(False);

 if Result<>0 then
 begin
   ShowWindow(Result, SW_NORMAL);
   UpdateWindow(Result);
 end;

end;


function WindowProc(hwnd, msg, wparam, lparam: longint): longint; stdcall; //обработчик сообщений
begin
 Result := DefWindowProc(hwnd, msg, wparam, lparam);
   case Msg of

   WM_DESTROY:begin
                PostQuitMessage(0);
              end;
   WM_KEYDOWN:;
   WM_KEYUP  :;
   WM_TIMER  :;
 end;
end;


Вот. А главный цикл я так делаю 8)

 while msg.message<>WM_QUIT do
 begin
   if(PeekMessage(msg, 0, 0, 0, PM_NOREMOVE)) then
   begin
     if(GetMessage(msg, 0, 0, 0))then
     begin
       TranslateMessage(msg);
       DispatchMessage(msg);
     end;
   end;
 end;


8) Вот какой я крутой кодер 8)


NewWonder   (2005-08-19 22:48:00) [160]

А я вот пробую на API сделать окно. Медленно но верно подхожу к написанию самого главного. exe уменьшился до 17 Кб


Страницы:   1 2 ... 5 6 7 8 9 10 11 ... 31 32

Наверх

Титульная страница Поиск, карта сайта Написать письмо