Протестите :), пожалуйста.

[SeRRg]

Здрасте!
Я тут решил отослать мою первую программу. (напис. на VB)
Небольшая логическая игруха.
Сделана по типу Zeek...(игра такая...)
Вы уж извините, но карты я тоже брал оттуда, а ширина
поля там 17, а у меня спрайтов влезает на 16. Поэтому
если справа ничего нету - то это стена.
Есть небольшой глюк: надо каждый раз выключать программу
ПОЛНОСТЬЮ и включать заново, а иначе (не обязательно), могут
возникнуть злые глюки.
Обо всех глюках мыльте мне на мыло.(они в архиве),
а гневные отзывы пишите в форум.
Сейчас доступны уровни 1-5.
Кто пройдет все может считать себя гением и должен мне уровень.
Исправлено: смотри ниже

[Amed]

Тэээкс =)

Все 5 (пять) уровней я прошёл за 7 (семь) минут...

Глюков заметил 3 (три):
1) Иногда цветок, мимо которого прошёл, не открывается
2) Иногда открывается не тот цветок, или вообще цветок открывается в левом вехнем углу (тайл 0,0)
3) При нажатии escape в игре выхожу в "главное меню" , выбираю другой уровень, давлю "ОК" и вываливаюсь с ошибкой, с какой - не вижу за DirectDraw окном...

P.S. Уровень писать влом

[SeRRg]

Пожалйста, поподробнее...
(1),(2) появляются, когда ты запускал игру несколько раз
из "главного меню"? Если нет, то при каких условия.
(3) А я предупреждал... На самом деле у меня были
1 и 2, а 3 не было.

[Amed]

Да-да, 1 и 2 при неоднократном запуске из "ГМ"...

[SeRRg]

Ура! Тут кажись этот глюк исправил...
Вуаля:

[_NeoN_]

открываю секрет как смотреть ерроры за окном директ драва =) был обнаружен не скажу как ибо смеяться все будут...
короче когда ошибка просто жмите PrtScr, потом идите в paint и жмите shift+insert, там должно быть все видно =)

[FaKk2]

Вышеупомянутых глюков не заметил.
Только рефреш жуткий.
Ты делаешь по технологии? В смысле ждешь пока ЭЛТ закончит рисовать и только потом на буфер клепаешь спрайты, или как?

[SeRRg]

Если честно, то я не понял вопроса немного.
Давай я кусок кода скину, а ты посмотришь по технологии или нет.
И объясни, плз, что это такое: я как-никак первую прогу пишу.
P.S. У меня все работает идеально.
While mdlDirectDraw7.Running = True
DoEvents 'Будем жалостливы к системе
Call mdlDirectDraw7.ClearBuffer(ddsBack) 'Чистим полотно

If nagata = True Then
Dim shagov10 As Integer
For shagov10 = 0 To 9 'Это чтобы он ходил на 10 шагов.(чтобы в промежутки между клетками попадал)

Call mdlDirectDraw7.ClearBuffer(ddsBack) 'Чистим полотно
mdlBall.DrawMap 'Рисуем карту
mdlBall.DrawBet 1 ' Рисуем пипла
Call ddsPrimary.Flip(ddsBack, DDFLIP_WAIT) ' Переводим задний буфер на передний

Next shagov10
Else
mdlBall.DrawMap
mdlBall.DrawBet 1
'End If

Call ddsPrimary.Flip(ddsBack, DDFLIP_WAIT) ' Переводим задний буфер на передний
End If
Wend

Ну вот... Есть еще одна недоработка, но я ее убрал.

[Cyrax]

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

[Amed]

Игра вываливается случайно не тогда, когда около цветка открытого проходишь? Это он так тебя ест

[SeRRg]

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

[gaidar]

Посмотрел на этого монстра. И не стыдно было такую недоработку выкладывать, да еще и без source code .

[SeRRg]

1) Стыдно. Но больше некому было ее давать.
Знакомых с компами нету...

2) Недоработка, потому и без Source Code
Как доработаю, вам пришлю.

[FaKk2]

Ну так выложи...

К сожалению свой великий шедевр под именем Убей их всех!!
я потерял вместе с хардом, потому не помню как делается задержка, но точно помню что Antiloop её делал
Поищи

[gaidar]

Ладно, мы подождем.