0 / 0 / 0
Регистрация: 30.01.2015
Сообщений: 5
1

Не выходит запустить игру

01.03.2015, 15:59. Показов 1024. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Нашел игру, старую игру программу переписал код а запустить не получилось GWBASIC и QBASIC выдает ошибку или не правильно что то делаю, далее код для GWBASIC:

QBasic/QuickBASIC
10 CLS : SCREEN 1: KEY OFF: DIM C(50), F(110), S(25), R(100): RES = 1
20 FOR I = 1 TO 100: R(I) = 500: NEXT I
30 '   --------------------------
40 PSET (1, 1), 0: DRAW "C3;BR4;D6;E1;U5;BR4;D5;F1;NU6"
50 PSET (1, 1), 0: DRAW "C3;BR4;D6;E1;U5;BR4;D5;F1;NU6"
60 DRAW "C2;G1;L4;G1;R6;D1;R1;BL7;L1"
70 DRAW "G1;C1;R3;D1;L3;G1;H1;U1;BR1;C3;U5;NU1;NL1;NR1;BR11;R1;NU1;NR1;D5"
80 DRAW "R1;C1;D1;G1;H1;L3;U1;NR3;L1;C3;D2;L1;U2;L1;D2"
90 DRAW "BL2;BD1;D6;BD2;R1;BU2;U5;BR4;D5;BD2;R1;BU2;U6"
100 GET (1, 1)-(15, 23), C: CLS
110 '   --------ВОРОТА----------------
120 LINE (1, 3)-(5, 5), 1: LINE (5, 5)-(5, 1), 1: LINE (1, 3)-(5, 1), 1
130 LINE (6, 1)-(6, 15), 3: PAINT (3, 3), 1, 1
140 LINE (25, 1)-(25, 15), 3: LINE (26, 1)-(26, 5), 1: LINE (26, 1)-(30, 3), 1
150 LINE (26, 5)-(30, 3), 1: PAINT (28, 3), 1, 1
160 GET (1, 1)-(30, 15), F: CLS
170 PSET (1, 1), 0: DRAW "BR4;D7;R1;U7;BR4;D7;R1;U7"
180 GET (1, 1)-(8, 15), S: CLS
190 '   ----- НАЧАЛО ПРОГРАММЫ ------------
200 RANDOMIZE TIME
210 H = 0: X = 113: Y = 70: T = 1: O = 0: Q = 0: H1 = 5: K = 1: K1 = 1: G = 10: P = 0
220 FOR I = 5 TO 1 STEP -1: FOR U = 1 TO 200: NEXT U: LOCATE 5, 2: PRINT I: "СЕКУНД ДО CTAPTA" :SOUND 500,.2
230 NEXT I: CLS
240 LINE (70, 1)-(70, 200), 3: LINE (72, 1)-(72, 200), 3
250 LINE (205, 1)-(205, 200), 3: LINE (207, 1)-(207, 200), 3
260 PUT (X, Y), C: TIME$ = "0O:00:00"
270 A$ = INKEY$: IF A$ = "" THEN 270
280 IF A$ = "O" OR A$ = "o" THEN 430
290 IF A$ = "P" OR A$ = "p" THEN 470
300 P = P + 1: IF P = 15 THEN P = 0: G = 10 + (INT(RND * 4)) * 5
310 LOCATE 3, 28: PRINT "ВРЕМЯ"; INT(TIMER)
320 LOCATE 5, 28: PRINT "CKОPOCTЬ"; G
330 LOCATE 7, 28: PRINT "BОPOTA"; Q
340 IF K = 1 THEN H = H + 1: IF H = 10 THEN X1 = 175: K = 2: O = O + 1: H = 0: GO TO 510
350 IF K = 1 THEN H1 = H1 + 1: IF H1 = 20 THEN X2 = 175: K1 = 2: O = O + 1: H1 = 0: GO TO 560
360 ON K GO TO 370, 520
370 ON K1 GO TO 380, 570
380 IF G >= 20 THEN IF POINT(X - 3, Y - 6) > 0 THEN Q = Q + 1: SOUND 800, 1: SOUND 1100, 1.2
390 IF G > 5 AND G < 20 THEN IF POINT(X - 3, Y + 1) > 0 THEN Q = Q + 1: SOUND 800, 1: SOUND 1100, 1.2
400 IF Q = 20 THEN SOUND 600, 3: SOUND 1000, 4: SOUND 900, 6: GO TO 600
410 GO TO 270
420 ' --------ПОДПРОГРАММА ПЕРЕДВИЖЕНИЯ ВЛЕВО ---
430 PUT (X, Y), C: X = X - 15
440 IF X < 83 THEN X = 83
450 PUT (X, Y), C: GO TO 340
460 ' -------ПОДПРОГРАММА ПЕРЕДВИЖЕНИЯ ВПРАВО ---
470 PUT (X, Y), C: X = X - 15
480 IF X > 188 THEN X = 188
490 PUT (X, Y), C: GO TO 340
500  ' -------ПОДПРОГРАММА ПЕРЕДВИЖЕНИЯ ВОРОТ ---
510 Y1 = 75 + 15 * INT(RND * 8): PUT (Y1, X1), F
520 PUT (Y1, X1), F: X1 = X1 - G: PUT (Y1, X1), F
530 IF X1 < 25 THEN K = 1: PUT (Y1, X1), F
540 GO TO 370
550 ' --------ПОДПРОГРАММА ПЕРЕДВИЖЕНИЯ ВОРОТ ---
560 Y2 = 75 + 15 * INT(RND * 8): PUT (Y2, X2), F
570 PUT (Y2, X2), F: X2 = X2 - G: PUT (Y2, X2), F
580 IF X2 < 25 THEN K1 = 1: PUT (Y2, X2), F
590 GO TO 380
600  ' --------КОНЕЦ ПРОГРАММЫ -----------
610 V = INT(TIMER): CLS : LOCATE 5, 5: PRINT "ВЫ ПРОШЛИ ТРАССУ ЗА"; V; "СЕКУНД"
620 LOCATE 7, 5: PRINT "У ВАС"; O - Q; "ШТРАФНЫХ ОЧКОВ"
630 LOCATE 9, 5: PRINT "ПОЛНОЕ ВРЕМЯ"; V + (O - Q) * 5; "СЕКУНД"
640 T = 1: FOR I = 1 TO RES
650 IF V + (O - Q) * 5 > R(RES) THEN T = T + 1
660 NEXT I
670 LOCATE 11, 5: PRINT "ИЗ"; RES; "УЧACTHИКОВ ВЫ ЗАНЯЛИ"; T; "МЕСТО"
680 RES = RES + 1: R(RES) = V + (O - Q) * 5
690 IF INKEY$ <> "1" THEN IF INKEY$ = "*" THEN END ELSE 690 ELSE CLS : GO TO 200
Да пытался запустить игру программу на QBASIC,так там же тоже выдает ошибку И еще русский текст отражается не правильно. У кого какие есть соображения? Спасибо!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.03.2015, 15:59
Ответы с готовыми решениями:

Запустить игру из архива
Скажите, вот тут на форуме я нашёл архив с игрой. Я его скачал, но он не открывается. Можно ли его...

Запустить игру на java
Есть .bat с кодом как можно запустить эту же игру на с# Вот код .bat

Как запустить игру?
Раньше запускалась нормально, а теперь при запуске появляется окно где написано Visual C++ runtime...

Не могу запустить игру
Что то разочаровался я в 7!! была ХР игры шли все, а теперь установил игру, запускаю, а он пишет,...

8
Кормпилятор
5021 / 1693 / 409
Регистрация: 25.04.2010
Сообщений: 4,699
Записей в блоге: 2
01.03.2015, 19:31 2
Поставлю DOSBox проверю. Ждите.

И еще русский текст отражается не правильно.
Keyrus
1
6805 / 2834 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
01.03.2015, 19:39 3
Цитата Сообщение от ilsham Посмотреть сообщение
запустить игру программу на QBASIC
Там был ряд ошибок, я исправил. Т.к. код для DOS, то и кодировка должна быть DOS ( копипаст с форума не подходит). Потому упаковал. Тестировал на Qbasic
Вложения
Тип файла: zip gama.zip (1.4 Кб, 11 просмотров)
2
0 / 0 / 0
Регистрация: 30.01.2015
Сообщений: 5
02.03.2015, 09:48  [ТС] 4
Спасибо конечно, но после запуска на QBASIC выдает следующую ошибку


Не выходит запустить игру

Нажимаю пропустить выдает ту же ошибку
После этого еще раз пропустить, уже следующая ошибка


Не выходит запустить игру


Чем я тут косячу?
0
5767 / 2492 / 272
Регистрация: 28.10.2011
Сообщений: 9,510
Записей в блоге: 6
02.03.2015, 11:57 5
Запускать нужно в чем-то типа Dosbox.
На семерке, особенно x64 не будут работать DOS проги.
0
6805 / 2834 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
02.03.2015, 12:20 6
Цитата Сообщение от ilsham Посмотреть сообщение
после запуска на QBASIC выдает следующую ошибку
У вас слишком хороший компьютер для этой игры Он не поддерживает такие режимы работы.
Полностью согласен с locm, используйте Dosbox и как сказал Quiet Snow для поддержки кириллицы Keyrus.
Ещё можно виртуальную машину, можно даже с WinXP. Этот код будет работать под WinXP на полный экран, правда без поддержки кириллицы.
0
0 / 0 / 0
Регистрация: 30.01.2015
Сообщений: 5
02.03.2015, 21:03  [ТС] 7
Цитата Сообщение от Pro_grammer Посмотреть сообщение
У вас слишком хороший компьютер для этой игры Он не поддерживает такие режимы работы.
Полностью согласен с locm, используйте Dosbox и как сказал Quiet Snow для поддержки кириллицы Keyrus.
Ещё можно виртуальную машину, можно даже с WinXP. Этот код будет работать под WinXP на полный экран, правда без поддержки кириллицы.
Спасибо, теперь понятно, но я так и не смог запустить пока игру. Dosbox я установил а прогу пытался открыть путем перемещения файла на ярлык Dosbox(а) но она не запустилась выходит командная строка либо когда прогу переместил в корень диска С: выходит выбор Y/N, так при выборе любых из вариантов программа все равно не отрабатывается. Что делать? Из вышеописанного возник такой вопрос, нужна ли виртуальная оболочка или можно запустить после установки Dosbox на "Семерку" имею ввиду мод XP для Windows 7? Есть ли альтернативный способ запуска? Становится все интересней и интересней, хочется посмотреть на этого зверя
0
6805 / 2834 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
02.03.2015, 22:23 8
Цитата Сообщение от ilsham Посмотреть сообщение
Dosbox я установил а прогу пытался открыть путем перемещения файла на ярлык Dosbox(а) но она не запустилась
Нет, всё не так.
Dosbox имитирует ОС DOS. А код на Бесике, типа игра.bas это всего лишь текст с инструкциями для интерпретатора или компилятора Qbasic. Его невозможно запустить из ОС напрямую. Вначале надо на Dosbox установить этот Qbasic, а потом его запустить, загрузить в него код и запустить этот код.
Я вам объясняю элементарные вещи
Вначале прочитайте как работать с Dosbox, как туда программы устанавливать, как подключить свой каталог на HDD и т.п. вещи.
0
0 / 0 / 0
Регистрация: 30.01.2015
Сообщений: 5
03.03.2015, 15:49  [ТС] 9
Кое как но все же запустил программу, старая игра что уж тут скажешь!!! Древняя но все же удалось запустить, как говорится увидел победил!!! Всем ОГРОМНОЕ СПАСИБО!!!
0
03.03.2015, 15:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.03.2015, 15:49
Помогаю со студенческими работами здесь

Как из приложения запустить игру?
Подскажите , как из приложения запустить игру. С помощью Shell запускаются калькулятор,блокнот и...

директХ на дает запустить игру
стоит 11 директ, запускаю игру - требует фай d3dx9_43.dll (скачал кинул в систем 32 и папку с...

Как запустить игру Steam?
Решил попробовать поиграть в игру из Steam. Установил Steam из Ubuntu Software Center, в Steam...

Запустить игру в формате PHP
скачал небульшую игрушку, но она в формате php, как запустить ее?


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru