forum.boolean.name - Прошу помощи

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)

- - Прошу помощи (http://forum.boolean.name/showthread.php?t=3425)

Прошу помощи

:SOS:Я совсем отчаялся. Руки мои опустились. и 3 месяца работы ушли фтопку:(
Поэтому я пересилив себя прошу у вас помощи.
Дело вот в чём. Я на свою голову на экзамен по информатике подписался делать простенькую игру. Нафиг я это сделал я непонимаю. Захотелась. Думал успею всё выучу и сделаю. (Надо было выбирать делать сайт как все, но уже поздно об этом.) Но В процессе работы я понял что програмист из меня как из кита птица.
Экзамен уже через пару недель, а у меня даже половины не гатова, поэтому я очень прошу мне помочь, а я, естественно, потом помогу вам чем смогу.
Может кто сжалится и допишет. Я не прошу сделать мега игру, главное чтоб не стыдно было показать камисии.
Вот весь код со всеми картинками и немного звуков для выстрелов и взрывов. и предварительная картинка как задумывал.
Зарание спасиба.
p.s. Если всётаки кто решится мне помочь, то можете сделать код максимально понятным и закоментироанный. Мне это потом всё рассказывать и понимать.

Re: Прошу помощи

мдя...вот и пусть magpro посмотрит как получается.
Не думаю что это реально, щас кому-нить написать игру, ведь как никак у самих сессия.

Re: Прошу помощи

Но всёже может ктото сжалится на до мной....

Re: Прошу помощи

Блин помог бы, но счас слишком муного дел. Изыни :(

Re: Прошу помощи

хм. опиши детально что надо сделать..
у меня есть пара относительно "свободных" дней.

Re: Прошу помощи

Цитата:

Я совсем отчаялся. Руки мои опустились. и 3 месяца работы ушли фтопку:(
Поэтому я пересилив себя прошу у вас помощи.

Тоже было такое. Ты просто обязан сделать сам, ибо так ты сможешь, как бы, "сломать себя", то есть доказать себе, что ты можешь. Честное слово, ты сможешь, только попытайся.

Re: Прошу помощи

Да, хороший психологический щаг, НО НЕ ЗА 2 НЕДЕЛИ ДО ЭКЗАМЕНОВ. Еслиб месяц там или 2 может быть успел...
. Вобщем Star Trash это наипростейшая аркада.
-Авианосец (На борту 3 вида оружия: 3 Пушки двухствольные, 3 ракетницы и одна установка активной защиты от прямого попадания в корпус.)-В примере показана и пушки и защита
-Враги (3 типа врагов. От их размера зависит сколько они выдержат прямых поподаний, и , соответственно, какое оружие на борту (2 типа оружия у врагов. Однаствольная пушка и ракетница.))- Картинак оружия нет, так как они распологаются под корпусом. Минус немного работы..
-Прочее (В самом началя, как обучение, корабль залетает в поле астероидов и сколько успеет уничтожает их. Кароче, просто в разном порядке летит на корабль шиук по 20 астероидов, и при их уничтожении у тебя увеличивается фраги и запас минералов, которые можно пустить или на ремонт коробля (Для этого надо будет нажать кнопку какую нить) или на ракеты. Зажимаеш кнопку и тебе наштамповывается ракет скока надо.)
-Меню (Меню очень простое. На рисунке в первом топике оно полнастью показано)
-Сама игра (Вобщем начну попорядку. Ты летиш на своём авианосце вперйд, и на тебя начинают сыпаться астероиды. Ты их побырику сколько успеваеш уничтожаеш. Всё первый уровень пройден. Втарой уровень - также летиш, и сверху разных размеров на тебя всякие враги летят, при наборе N-ого количества фрагов ты попадаеш на 3-й уровень в катором всё тоже самое что и во втором, только на фоне земли, врагов раза в 2 больше. И всё.)

Re: Прошу помощи

смотрим. (ето не окончательный вариант)
http://likosoft.ucoz.ru/atomic.rar.

Re: Прошу помощи

Я тож хотел тебе помочь, но у меня игра вообще не пошла (не хватает некоторых рисунков)

Re: Прошу помощи

Удали там вот эти строчки. Астероиды правда лететь не будут..

Код:

If frs>15 Then frs=0

frs=frs+0.2

fr=frs

  For aster_1.aster_1 = Each aster_1



        If ImagesCollide (asteroid1, aster_1\x, aster_1\y, aster_1\frame, av_s\image,av_s\xs, av_s\ys,av_s\frames)    

            aster_1\trueplama=1

        DrawImage(boomimage,aster_1\x,aster_1\y,fr)

;        d=d-10

        If fr> 14

        Delete aster_1

        EndIf

            

Else  If ImagesCollide (asteroid1, aster_1\x, aster_1\y, aster_1\frame, av_s\vertix, av_s\xs, av_s\ys-75,0)

            If vrf=2    

            aster_1\trueplama=1

        DrawImage(boomimage,aster_1\x,aster_1\y,fr)

        If fr> 14

        Delete aster_1

        EndIf

        EndIf

        

;    Else If ImagesCollide (asteroid1, aster_1\x, aster_1\y, aster_1\frame, pulaimage, pula\xp, pula\yp,pula\frame) 

;            aster_1\trueplama=1

;            If ImagesCollide (asteroid1, aster_1\x, aster_1\y, aster_1\frame, pulaimage, pula\xp, pula\yp,pula\frame) 

;        DrawImage(boomimage,aster_1\x,aster_1\y,fr)

;        If fr> 14

;        Delete aster_1

;        EndIf

;        EndIf

                

    Else If aster_1\y>=500

        Delete aster_1        

    Else 

        If aster_1\trueplama=0

        aster_1\y=aster_1\y+aster_1\yv

        aster_1\x=aster_1\x+aster_1\xv

          DrawImage (asteroid1,aster_1\x,aster_1\y,fr)

        EndIf

        

        If aster_1\trueplama=1    

        DrawImage(boomimage,aster_1\x,aster_1\y,fr)

        If fr> 14

        Delete aster_1

        EndIf

        EndIf

    EndIf



  Next

Re: Прошу помощи

Повторяюсь, ну ладно. пусть тож другие почитают:
В цклом поосто превосходно, но всёже есть пару лагов. Ну во первых зелёный индикатор горит не тогда, когда активная защита включена, а только тогда когда минералов больше 200. Во вторых, все зелёные самолётики надо убрать. По идее это должны были быть союзные самолёты, но они там ненужны. и так прикольно. ну и втретьих, земля должна быть раза в 2 с половиной меньше и в углу экрана, а голактика позади неё синяя, как в меню. шрифт я уже сам подпра
влю, музыку тож сам поставлю ну и вобщем всё..
Я вечный твой должник теперь. пасиб..