0 / 0 / 0
Регистрация: 30.01.2015
Сообщений: 5
|
|
1 | |
Не выходит запустить игру01.03.2015, 15:59. Показов 1024. Ответов 8
Метки нет (Все метки)
Нашел игру, старую игру программу переписал код а запустить не получилось 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
0
|
01.03.2015, 15:59 | |
Ответы с готовыми решениями:
8
Запустить игру из архива Запустить игру на java Как запустить игру? Не могу запустить игру |
0 / 0 / 0
Регистрация: 30.01.2015
Сообщений: 5
|
|
02.03.2015, 09:48 [ТС] | 4 |
Спасибо конечно, но после запуска на QBASIC выдает следующую ошибку
Нажимаю пропустить выдает ту же ошибку После этого еще раз пропустить, уже следующая ошибка Чем я тут косячу?
0
|
02.03.2015, 12:20 | 6 |
У вас слишком хороший компьютер для этой игры Он не поддерживает такие режимы работы.
Полностью согласен с locm, используйте Dosbox и как сказал Quiet Snow для поддержки кириллицы Keyrus. Ещё можно виртуальную машину, можно даже с WinXP. Этот код будет работать под WinXP на полный экран, правда без поддержки кириллицы.
0
|
0 / 0 / 0
Регистрация: 30.01.2015
Сообщений: 5
|
|
02.03.2015, 21:03 [ТС] | 7 |
Спасибо, теперь понятно, но я так и не смог запустить пока игру. Dosbox я установил а прогу пытался открыть путем перемещения файла на ярлык Dosbox(а) но она не запустилась выходит командная строка либо когда прогу переместил в корень диска С: выходит выбор Y/N, так при выборе любых из вариантов программа все равно не отрабатывается. Что делать? Из вышеописанного возник такой вопрос, нужна ли виртуальная оболочка или можно запустить после установки Dosbox на "Семерку" имею ввиду мод XP для Windows 7? Есть ли альтернативный способ запуска? Становится все интересней и интересней, хочется посмотреть на этого зверя
0
|
02.03.2015, 22:23 | 8 |
Нет, всё не так.
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 | |
03.03.2015, 15:49 | |
Помогаю со студенческими работами здесь
9
Как из приложения запустить игру? директХ на дает запустить игру Как запустить игру Steam? Запустить игру в формате PHP Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |