Мм... Сложно это, наверное. 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 Мб)
Этого может вполне хватить для начала, да и не только.
Кстати...мне кажется автор не совсем ясно излагает, то чего он хочет...QBasic - это усеченный вариант коммерческого пакета QuickBasic 4.5.
QBasic поставлялся в составе операционных систем MS-DOS, а QuickBasic поставляется отдельно. Отличие QuickBasic от QBasic:
Наличие компилятора и возможность создания EXE-модулей, возможность обращения к функциям и прерываниям MS-DOS, возможность подключения библиотек.
Конечно, могу. Почему бы нет... Например, решил ты сделать такую программу:Только у меня один вопрос, как в нем компилировать... Можешь алгоритм описать?
- Сначала ты запускаешь программу компилятора. Для этого открываешь файл по адресу gcc\bin\jfe .Код:#include <iostream> using namespace std; int main() { cout << "Something" << endl; return 0; }
- Потом пишешь текст программы. Для этого выбираешь File->New (или просто нажисаешь Ctrl+N).
- Затем сохраняешь его. Это File->Save. Выбираешь файлу имя (расширение .cpp можешь не указывать).
- А потом компилируешь его, нажав либо F9, либо Compiler->Compile.
- Если в тексте не будет ошибок, и всё скомпилируется, тогда запускаешь программу через команду Run или Ctrl+F9.
Только при запуске окно с чёрным экраном не закрывай вручную, пусть будет открытым до следующего запуска.
А игрушку, наверное, можно здесь выкладывать в теге [Code]. Чтобы народ посмотрел, может, кто какие советы даст. Если модераторы будут не против.
СПС!!! Попробую...
Смортрите, какую я игру наваял! Конечно, неполная, по городу еще перемещаться нельзя...
Суть изначальная - выбраться в город, отгадав загадки во всех пяти домах, зайти в шестой и ввести полученный пароль... И опа на!!! Только жаль, что версия Бэйсика у мну не графическая...
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
Bl@ckOr@nge
Не подскажешь, каким компилятором ты пользовался? Qbasic?
Ленивый дурак - это полбеды; деятельный дурак - это для всех головная боль, но нет ничего хуже, чем дурак с инициативой, да ещё и при должности.
Попробуйте мою игру, написанную в VB 6.0. Суть - победить врага, оставшись при своих жизнях...
Покупайте оружие, латы, поножи и шлемы! Атакуйте врага, как только ваша атака больше, чем у противника! Не забывайте о защите! Копите деньги!!! Без них никак...
Покупал-покупал, потом покупать нечего стало. Так и не понял почему проиграл.
Сам бой не видно и непонятно как и что на него влияет. )))
Мixei, на бой влияют следующие факторы: твоя атака и атака противника.
Количество жизней, вычитаемых у потивника в случае вашей победы равно ваша атака минус его защита. Я во время тестирования я обнаружил самый быстрый способ победы: покупаешь первые наборы оружия, лат и шлемов. Затем наносишь врагу 6 (7) ударов, зарабатываешь деньги и покупаешь второй набор оружия, лат и первый набор шлема... Дальше развиваешься в зависимости от обстоятельств... Желательно, купи третий набор лат... Третья версия игры с возможностью выбора склонности. Главное - правильно сделать покупки!
А теперь вопрос: Что МОжно Интересного Добавить? Желательно писать на мыло...
Idea and creation: fuldon (aka miXei) © 2000-2015
Powered by vBulletin® Version 4.2.6 by vBS Copyright © 2024 vBulletin Solutions, Inc. All rights reserved. |