![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
А не устраивать ли нам небольшие конкурсы по кодингу? (ч.4)
OSokin © (2005-05-06 19:09:00)
Страницы: < 1 2 ... 5 6 7 8 9 10 11 ... 31 32 >
Будут ли еще конкурсы?
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 Кб