Страница 2 из 2 ПерваяПервая 12
Показано с 16 по 27 из 27

Тема: Предложение написать свою игру на Бейсике - Объединяемся!

  1. #16
    Asgard
    Гость
    Думаю, что ты не найдешь единомышленников. Потому что после обьектно-ориентированного программирования под Win, скриптовый QBasic кажется очень грубым.

    Цитата Сообщение от Bl@ckOr@nge Посмотреть сообщение
    J Да, в Вижуале можно делать более продвинутые программы, компилировать в .ехе,
    А кто тебе сказал, что в QBasic нельзя компилировать в ехе или DLL?

  2. #17
    Участник
      Народный модератор раздела "Человек и Общество" 2008, Лучший модератор раздела "Человек и Общество" 2009
    Аватар для Jaratar
    Регистрация
    14.08.2006
    Адрес
    Россия
    Сообщений
    485
    Спасибо
    я - 49; мне - 55
    Народ, взываю... У кого есть Билдер С++? Скиньте,плиз... Учить буду...
    Мм... Сложно это, наверное. Borland C++ Builder весит несколько сотен Мб. Да и Visual С++ тоже. Но ты можешь купить диски с ними. Кстати, Visual C++, что тебе Asgard советует - хорошая вещь. С ним, вероятно, тебе будет удобно работать в начале, потому что у него приятная и довольно удобная среда разработки...

    Могу дать тебе ссылочку на простенький и свободнораспространяемый компилятор для создания консольных приложений по типу тех, что в QBasic.

    http://www.piter.com/bugs/5-318-00097-5/gcc.exe (2.7 Мб)

    Не знаю, понравится ли он тебе, будет ли удобным. Но, учитывая малый размер, для начала может вполне подойти.

    Если трафик позволяет, можешь скачать Open Watcom C/C++, тоже свободнораспространяемый, только он весит 62 Мб. Там есть редактор диалоговых окон, редактор изображений для программ и много разного. Довольно известная вещь.

    http://openwatcom.mirrors.skynet.be/...win32-1.7a.exe (62 Мб)

    Этого может вполне хватить для начала, да и не только.

  3. #18
    Asgard
    Гость
    Кстати...мне кажется автор не совсем ясно излагает, то чего он хочет...QBasic - это усеченный вариант коммерческого пакета QuickBasic 4.5.
    QBasic поставлялся в составе операционных систем MS-DOS, а QuickBasic поставляется отдельно. Отличие QuickBasic от QBasic:
    Наличие компилятора и возможность создания EXE-модулей, возможность обращения к функциям и прерываниям MS-DOS, возможность подключения библиотек.

  4. #19
    Поколение NEXT Аватар для Мертвый анархист
    Регистрация
    13.09.2006
    Адрес
    Приморский край... *СССР*
    Сообщений
    162
    Спасибо
    я - 4; мне - 0
    Цитата Сообщение от Jaratar Посмотреть сообщение

    Могу дать тебе ссылочку на простенький и свободнораспространяемый компилятор для создания консольных приложений по типу тех, что в QBasic.

    http://www.piter.com/bugs/5-318-00097-5/gcc.exe (2.7 Мб)

    Спасибо! Попробую компилировать... Если че на мыло потом игруху скину... Текстовый квест...
    Только у меня один вопрос, как в нем компилировать... Можешь алгоритм описать?
    Здесь мой сайт...
    На нем NOcd к игрушкам...
    И кнопка... И артмания...

  5. #20
    Участник
      Народный модератор раздела "Человек и Общество" 2008, Лучший модератор раздела "Человек и Общество" 2009
    Аватар для Jaratar
    Регистрация
    14.08.2006
    Адрес
    Россия
    Сообщений
    485
    Спасибо
    я - 49; мне - 55
    Только у меня один вопрос, как в нем компилировать... Можешь алгоритм описать?
    Конечно, могу. Почему бы нет... Например, решил ты сделать такую программу:

    Код:
    #include <iostream>
    using namespace std;
    int main()
    {
    	cout << "Something" << endl;
    	return 0;
    }
    - Сначала ты запускаешь программу компилятора. Для этого открываешь файл по адресу gcc\bin\jfe .
    - Потом пишешь текст программы. Для этого выбираешь File->New (или просто нажисаешь Ctrl+N).
    - Затем сохраняешь его. Это File->Save. Выбираешь файлу имя (расширение .cpp можешь не указывать).
    - А потом компилируешь его, нажав либо F9, либо Compiler->Compile.
    - Если в тексте не будет ошибок, и всё скомпилируется, тогда запускаешь программу через команду Run или Ctrl+F9.

    Только при запуске окно с чёрным экраном не закрывай вручную, пусть будет открытым до следующего запуска.

    А игрушку, наверное, можно здесь выкладывать в теге [Code]. Чтобы народ посмотрел, может, кто какие советы даст. Если модераторы будут не против.

  6. #21
    Поколение NEXT Аватар для Мертвый анархист
    Регистрация
    13.09.2006
    Адрес
    Приморский край... *СССР*
    Сообщений
    162
    Спасибо
    я - 4; мне - 0
    СПС!!! Попробую...
    Здесь мой сайт...
    На нем NOcd к игрушкам...
    И кнопка... И артмания...

  7. #22
    Поколение NEXT Аватар для Мертвый анархист
    Регистрация
    13.09.2006
    Адрес
    Приморский край... *СССР*
    Сообщений
    162
    Спасибо
    я - 4; мне - 0
    Смортрите, какую я игру наваял! Конечно, неполная, по городу еще перемещаться нельзя...
    Суть изначальная - выбраться в город, отгадав загадки во всех пяти домах, зайти в шестой и ввести полученный пароль... И опа на!!! Только жаль, что версия Бэйсика у мну не графическая...

    DECLARE SUB parol ()
    DECLARE SUB gorod ()
    DECLARE SUB gost ()
    DECLARE SUB home ()
    DECLARE SUB ibm ()
    DECLARE SUB dom5 ()
    DECLARE SUB start ()
    DECLARE SUB konec ()
    DECLARE SUB dom1 ()
    DECLARE SUB dom2 ()
    DECLARE SUB dom3 ()
    DECLARE SUB dom4 ()
    DECLARE SUB dom6 ()
    10 CLS
    a$ = INKEY$
    LOCATE 2, 20
    INPUT "1. Ќ®ў*п ЁЈа*, 2. ‚л室"; a$
    IF ASC(RIGHT$(a$, 1)) = 49 THEN
    CALL start
    END IF
    IF ASC(RIGHT$(a$, 1)) = 50 THEN
    CALL konec
    END IF

    SUB dom1
    30 CLS
    LOCATE 1, 8
    PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм ЇҐаўго ЎгЄўг Є®¤*."
    PRINT "Ћ¤*® ге®, ®¤Ё* Ј«*§, Ї®« Їпв®зЄ* -"
    PRINT "1 - Џ®«бўЁ*мЁ."
    PRINT "2 - ‘ўЁ*мп Ё§-§* гЈ«* ўлЈ«п*г«*."
    INPUT "’*Є зв® ¦Ґ нв®? ;-)"; a
    IF a = 1 THEN
    PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
    GOTO 30
    END IF
    IF a = 2 THEN
    PRINT "ЏҐаў*п ЎгЄў* - Q. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
    a$ = INKEY$
    INPUT a
    IF a = 0 THEN
    CALL start
    END IF
    END IF
    END SUB

    SUB dom2
    40 CLS
    LOCATE 1, 8
    PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм ўв®аго ЎгЄўг Є®¤*."
    PRINT "ЉҐ¬ ®Ўлз*® пў«пҐвбп ?ў**гиЄ* ў ђ.- Ќ. бЄ*§Є*е?"
    PRINT "1 - „га*зЄ®¬."
    PRINT "2 - Ља*б*ўжҐ¬."
    INPUT "’*Є ЄҐ¬ ¦Ґ ;-)"; a
    IF a = 2 THEN
    PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
    GOTO 40
    END IF
    IF a = 1 THEN
    PRINT "‚в®а*п ЎгЄў* - U. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
    a$ = INKEY$
    INPUT a
    IF a = 0 THEN
    CALL start
    END IF
    END IF
    END SUB

    SUB dom3
    50 CLS
    LOCATE 1, 8
    PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм ваҐвмо ЎгЄўг Є®¤*."
    PRINT "џ ¦ ў*¬ *Ґ ... ЌҐ Єв® ®* Ќ*¤Ґ ?ҐўҐ«Ґў®©, Є®Ј¤* ®** Ї®«Ёў*«* ҐЈ® Ё§ з*©*ЁЄ* ў Є\д ?а®*Ёп бг¤мЎл Ё«Ё б «ҐЈЄЁ¬ Ї*஬."
    PRINT "1 - Љ«г¬Ў*."
    PRINT "2 - ђҐ¤ЁбЄ*."
    INPUT "ЌҐ Єв® ®* Ќ*¤Ґ ;-)"; a
    IF a = 2 THEN
    PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
    GOTO 50
    END IF
    IF a = 1 THEN
    PRINT "’аҐвмп ЎгЄў* - E. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
    a$ = INKEY$
    INPUT a
    IF a = 0 THEN
    CALL start
    END IF
    END IF
    END SUB

    SUB dom4
    60 CLS
    LOCATE 1, 8
    PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм зҐвўҐавго ЎгЄўг Є®¤*."
    PRINT "‘Є®«мЄ® 䨫쬮ў б*пв® ® Ља®Є®¤Ё«Ґ „**¤Ё?"
    PRINT "1 - 2."
    PRINT "2 - 3."
    INPUT "„лЄ бЄ®«мЄ® ;-)"; a
    IF a = 1 THEN
    PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
    GOTO 60
    END IF
    IF a = 2 THEN
    PRINT "—ҐвўҐав*п ЎгЄў* - S. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
    a$ = INKEY$
    INPUT a
    IF a = 0 THEN
    CALL start
    END IF
    END IF
    END SUB

    SUB dom5
    70 CLS
    LOCATE 1, 8
    PRINT "…б«Ё вл ᬮ¦Ґим гЈ*¤*вм §*Ј*¤Єг, ⮠ᬮ¦Ґим г§**вм ўв®аго ЎгЄўг Є®¤*."
    PRINT "Љ*Є **§лў*Ґвбп Є®аЇ®а*жЁп, Ё§ Є®в®а®© ‹Ґ®*Ё¤ гЄа*« «ҐЄ*абвў® ®в **ᬮаЄ*?"
    PRINT "1 - Ђ«м-Љ*Ў*а."
    PRINT "2 - IBM."
    INPUT "’*Є ®вЄг¤* ;-)"; a
    IF a = 2 THEN
    PRINT "ЌҐв, Ї®Їа®Ўг© ҐйҐ а*§"
    GOTO 70
    END IF
    IF a = 1 THEN
    PRINT "Џпв*п ЎгЄў* - T. ?¤Ё ў иҐбв®© ¤®¬ Ё Їа®Ўг© Є®¤. —в®Ўл ўл©вЁ ** г«Ёжг **¦¬Ё 0"
    a$ = INKEY$
    INPUT a
    IF a = 0 THEN
    CALL start
    END IF
    END IF
    END SUB

    SUB dom6
    END SUB

    SUB gorod
    CLS
    PRINT "|-----------------|"
    PRINT "| 0 0 0 0 0 0 0 0 | __ "
    PRINT "| | _( )_ "
    PRINT "| 0 0 0 0 0 0 0 0 | \|/ _( )_"
    PRINT "| | -( )- ( ‚®§¤ге )"
    PRINT "| 0 0 0 0 0 0 0 0 | /|\ (_ 2 _) "
    PRINT "| | } (_ _)"
    PRINT "| 0 0 0 0 0 0 0 0 | } (__)"
    PRINT "| | } ||"
    PRINT "| 0 0 0 0 0 0 0 0 | ||"
    PRINT "| | |--| _||_"
    PRINT "| 0 0 0 0 0 0 0 0 | |0 | |AIR |"
    PRINT "| | |0 | |____|"
    PRINT "| 0 0 0 0 0 0 0 0 | |0 |"
    PRINT "| | |----------|"
    PRINT "| 0 0 0 0 0 0 0 0 | | 0 0 0 0 0|"
    PRINT "| | | 0 0 0 0 0|"
    PRINT "| 0 0 0 0 0 0 0 0 | | 0 0 0 0 0|"
    PRINT "| | | 0 0 0 0 0|"
    PRINT "| 0 0 0 0 0 0 0 0 | O | 0 0 0 0 0|"
    PRINT "| | | | 0 0 0 0 0|"
    PRINT "| 0 0 0 0 0 0 0 0 | | | 0 0 0 0 0|"
    PRINT "| |/---------\ | 0 0 0 0 0|"
    PRINT "| 0 0 0 0 0 0 0 0 || 0 0 0 0 | | 0 0 0 0 0|"
    PRINT "| || | | 0 0 0 0 0|"
    PRINT "| 0 0 0 0 0 0 0 0 || 0 0 0 0 | | 0 0 0 0 0| 000"
    PRINT "| || | | 0 0 0 0 0| ^ 00|00 /\ "
    PRINT "| 0 ______ 0 0 0 || 0 0 0 0 | | 0 0 0 0 0| (|) 00|00 /\ "
    PRINT "| _|__ | || | | 0 0 0 0 0| (|) 0|0 //\\ "
    PRINT "| |______| |-| || 0___0 0 | | 0 0 0 0 0| (|) | /||\ "
    PRINT "| 0 0 | | ||__|2|____| | |-| | | | / || \ "
    PRINT "------------|1|----=-- ------------|3|------------------------------"
    PRINT "_________________________________________________ _____________________"
    LOCATE 37, 20
    INPUT "Љг¤* вл е®зҐим ў®©вЁ? 1 - ѓ®бвЁ*Ёж*, 2 - ’ў®© ¤®¬, 3 - IBM"; a
    IF a = 1 THEN
    CALL gost
    END IF
    IF a = 2 THEN
    CALL home
    END IF
    IF a = 3 THEN
    CALL ibm
    END IF
    END SUB

    SUB gost
    END SUB

    SUB home
    END SUB

    SUB ibm
    END SUB

    SUB konec
    END
    END SUB

    SUB parol
    72 CLS
    LOCATE 1, 20
    INPUT "?в*Є, вл Ј®в®ў ўўҐбвЁ Ї*а®«м? 1 - ¤*, 2 - *Ґв."; b
    IF b = 1 THEN
    75 INPUT "Џ*а®«м -"; b$
    IF b$ = "QUEST" THEN
    PRINT "’л ўлЁЈа*«! ’ҐЇҐам г вҐЎп Ґбвм ў®§¬®¦*®бвм ўл©вЁ ў Ј®а®¤."
    INPUT "‚л©вЁ ў Ј®а®¤? 1 - ¤*, 2 - *Ґв."; c
    IF c = 1 THEN
    CALL gorod
    ELSE
    END
    END IF
    ELSE
    GOTO 72
    END IF
    ELSE
    CALL start
    END IF
    END SUB

    SUB start
    CLS
    LOCATE 2, 10
    PRINT "/\"
    LOCATE 3, 9
    PRINT "/ \"
    LOCATE 4, 8
    PRINT "/ 1 \"
    LOCATE 5, 8
    PRINT "------"
    LOCATE 6, 8
    PRINT "| __ |"
    LOCATE 7, 8
    PRINT "| || |"
    LOCATE 8, 8
    PRINT "| -- |"
    LOCATE 9, 8
    PRINT "------"
    LOCATE 2, 20
    PRINT "/\"
    LOCATE 3, 19
    PRINT "/ \"
    LOCATE 4, 18
    PRINT "/ 2 \"
    LOCATE 5, 18
    PRINT "------"
    LOCATE 6, 18
    PRINT "| __ |"
    LOCATE 7, 18
    PRINT "| || |"
    LOCATE 8, 18
    PRINT "| -- |"
    LOCATE 9, 18
    PRINT "------"
    LOCATE 2, 30
    PRINT "/\"
    LOCATE 3, 29
    PRINT "/ \"
    LOCATE 4, 28
    PRINT "/ 3 \"
    LOCATE 5, 28
    PRINT "------"
    LOCATE 6, 28
    PRINT "| __ |"
    LOCATE 7, 28
    PRINT "| || |"
    LOCATE 8, 28
    PRINT "| -- |"
    LOCATE 9, 28
    PRINT "------"
    LOCATE 2, 40
    PRINT "/\"
    LOCATE 3, 39
    PRINT "/ \"
    LOCATE 4, 38
    PRINT "/ 4 \"
    LOCATE 5, 38
    PRINT "------"
    LOCATE 6, 38
    PRINT "| __ |"
    LOCATE 7, 38
    PRINT "| || |"
    LOCATE 8, 38
    PRINT "| -- |"
    LOCATE 9, 38
    PRINT "------"
    LOCATE 2, 50
    PRINT "/\"
    LOCATE 3, 49
    PRINT "/ \"
    LOCATE 4, 48
    PRINT "/ 5 \"
    LOCATE 5, 48
    PRINT "------"
    LOCATE 6, 48
    PRINT "| __ |"
    LOCATE 7, 48
    PRINT "| || |"
    LOCATE 8, 48
    PRINT "| -- |"
    LOCATE 9, 48
    PRINT "------"
    LOCATE 2, 60
    PRINT "/\"
    LOCATE 3, 59
    PRINT "/ \"
    LOCATE 4, 58
    PRINT "/ 6 \"
    LOCATE 5, 58
    PRINT "------"
    LOCATE 6, 58
    PRINT "| __ |"
    LOCATE 7, 58
    PRINT "| || |"
    LOCATE 8, 58
    PRINT "| -- |"
    LOCATE 9, 58
    PRINT "------"
    LOCATE 10, 10
    PRINT "\\_______________________________________________ _//"
    LOCATE 11, 11
    PRINT "\____________________________________________ ____/"
    LOCATE 14, 20
    20 b$ = INKEY$
    25 PRINT "‚л ¤®«¦*л **©вЁ Ї*а®«м ¤«п ўе®¤* ў иҐбв®© ¤®¬."
    INPUT "‚ Є*Є®© ¤®¬ ўл §*©¤ҐвҐ б**з*«*, Єа®¬Ґ иҐбв®Ј®. „«п ўл室* **¦¬Ё 0"; b
    IF b = 1 THEN
    CALL dom1
    END IF
    IF b = 2 THEN
    CALL dom2
    END IF
    IF b = 3 THEN
    CALL dom3
    END IF
    IF b = 4 THEN
    CALL dom4
    END IF
    IF b = 6 THEN
    CALL parol
    END IF
    IF b = 5 THEN
    CALL dom5
    END IF
    IF b = 0 THEN
    END
    END IF
    END SUB
    Здесь мой сайт...
    На нем NOcd к игрушкам...
    И кнопка... И артмания...

  8. #23
    Администратор, Консультант по математике
      За вклад в развитие форума 2006, Лучший знаток физики 2007, Самый активный автор месяца. Август 2007, Лучший консультант 2007, Лучший супермодератор 2007, Народный модератор раздела "Наука и Образование" 2008, Лучший супермодератор 2008, Лучший консультант 2008
    Аватар для Trotil
    Регистрация
    15.12.2005
    Адрес
    град Москва
    Сообщений
    5,890
    Записей в блоге
    26
    Спасибо
    я - 57; мне - 380
    Bl@ckOr@nge
    Не подскажешь, каким компилятором ты пользовался? Qbasic?
    Ленивый дурак - это полбеды; деятельный дурак - это для всех головная боль, но нет ничего хуже, чем дурак с инициативой, да ещё и при должности.

  9. #24
    Поколение NEXT Аватар для Мертвый анархист
    Регистрация
    13.09.2006
    Адрес
    Приморский край... *СССР*
    Сообщений
    162
    Спасибо
    я - 4; мне - 0

    Идея Моя игра, написанная в VB 6.0

    Попробуйте мою игру, написанную в VB 6.0. Суть - победить врага, оставшись при своих жизнях...
    Покупайте оружие, латы, поножи и шлемы! Атакуйте врага, как только ваша атака больше, чем у противника! Не забывайте о защите! Копите деньги!!! Без них никак...
    Здесь мой сайт...
    На нем NOcd к игрушкам...
    И кнопка... И артмания...

  10. #25
    Администратор
      "Юбилейный реальщик"
    Аватар для miXei
    Регистрация
    20.10.2000
    Адрес
    Россия, Москва
    Сообщений
    1,947
    Спасибо
    я - 586; мне - 539
    Покупал-покупал, потом покупать нечего стало. Так и не понял почему проиграл.
    Сам бой не видно и непонятно как и что на него влияет. )))

  11. #26
    Поколение NEXT Аватар для Мертвый анархист
    Регистрация
    13.09.2006
    Адрес
    Приморский край... *СССР*
    Сообщений
    162
    Спасибо
    я - 4; мне - 0
    Мixei, на бой влияют следующие факторы: твоя атака и атака противника.
    Количество жизней, вычитаемых у потивника в случае вашей победы равно ваша атака минус его защита. Я во время тестирования я обнаружил самый быстрый способ победы: покупаешь первые наборы оружия, лат и шлемов. Затем наносишь врагу 6 (7) ударов, зарабатываешь деньги и покупаешь второй набор оружия, лат и первый набор шлема... Дальше развиваешься в зависимости от обстоятельств... Желательно, купи третий набор лат... Третья версия игры с возможностью выбора склонности. Главное - правильно сделать покупки!
    Здесь мой сайт...
    На нем NOcd к игрушкам...
    И кнопка... И артмания...

  12. #27
    Поколение NEXT Аватар для Мертвый анархист
    Регистрация
    13.09.2006
    Адрес
    Приморский край... *СССР*
    Сообщений
    162
    Спасибо
    я - 4; мне - 0
    А теперь вопрос: Что МОжно Интересного Добавить? Желательно писать на мыло...
    Здесь мой сайт...
    На нем NOcd к игрушкам...
    И кнопка... И артмания...

Страница 2 из 2 ПерваяПервая 12

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •