Форум программистов, компьютерный форум, киберфорум
Наши страницы

QBasic

Войти
Регистрация
Восстановить пароль
 
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.64
streltsov
0 / 0 / 0
Регистрация: 03.04.2011
Сообщений: 9
#1

Игра - QBasic

03.04.2011, 18:10. Просмотров 1506. Ответов 18
Метки нет (Все метки)

Добрый день,мне нужна помощь в написании игры. Суть проблемы в том ,что сам как таковой,я не изучал программирование,а чтобы попасть на консультацию нужно написать половину программы,поэтому обращаюсь к вам:
Сам текст : Снизу по экрану ездит(управляется с клавы) лицо с открытым ртом ( пэкмэн перевёртнутый),сверху падают снежинки ( рандомно) ,нужно ловить ртом снежинки так,чтобы когда они попадают в рот, он закрывался, затем снова открывается и игра продолжается в том же темпе.
Зарание спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.04.2011, 18:10
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Игра (QBasic):

Игра - QBasic
Создать простую игру на языке QBasic.

игра - QBasic
я пишу игру, задали по программированию: подскажите, как в basic записать в файл имя игрока(если их несколько), а потом можно было выбрать...

Игра Фишки - QBasic
ФИШКИ

Игра в числа - QBasic
Здравствуйте! Может, хоть с этой задачей кто-нибудь поможет? Играют двое. До начала игры они выбирают натуральные числа k и N,...

Игра на QBasic - QBasic
Подскажите, что нужно почитать, просмотреть, чтобы написать игру в бейсбол.

Игра Мышь в лабиринте - QBasic
Нужна помощь в написание части программы, в которой будет написано само передвижение мыши с управлением с клавиатуры стрелками и...

18
Quiet Snow
03.04.2011, 18:34
  #2

Не по теме:

Блин, вы(все кто просят игры) загрызли уже

0
streltsov
0 / 0 / 0
Регистрация: 03.04.2011
Сообщений: 9
03.04.2011, 18:37  [ТС] #3
Хочется на консультацию попасть)
0
кот Бегемот
Платежеспособный зверь
8219 / 3791 / 699
Регистрация: 28.10.2009
Сообщений: 9,703
03.04.2011, 20:33 #4
А что мешает изучить 5 графических операторов, один оператор цикла и RND? Два дня трудов - и можно писать игры и идти на консультацию с чистой совестью.
0
streltsov
0 / 0 / 0
Регистрация: 03.04.2011
Сообщений: 9
03.04.2011, 20:50  [ТС] #5
Даже не знаю,если нас за 6 месяцев не научили,то как уж тут про самому...
0
кот Бегемот
03.04.2011, 20:51
  #6

Не по теме:

А сам пробовать что-то сделать не пробовал?

0
streltsov
0 / 0 / 0
Регистрация: 03.04.2011
Сообщений: 9
03.04.2011, 21:12  [ТС] #7
Пробовал учится,но делать игру ... Для меня это ново
0
кот Бегемот
Платежеспособный зверь
8219 / 3791 / 699
Регистрация: 28.10.2009
Сообщений: 9,703
03.04.2011, 21:53 #8
Надо математику знать. Снежинка имеет фиксированную координату х и переменную координату у, которая изменяется в цикле. Рожица наоборот, имеет фиксированную координату у и переменную х, которая меняется с помощью клавиш и функции inkey$: нажатие клавиши -> прибавляет координату х, клавиша <- отнимает координату х, это происходит пока координаты снежинки и рожицы не совпадут, то есть, если выполняется условие, рисуется другая рожа. А остальное - дело несложной техники.
0
MOHCTP
291 / 203 / 2
Регистрация: 20.02.2011
Сообщений: 551
03.04.2011, 22:25 #9
Всех желающих получить помощи в гамезостроении следует, по-видимому, отсылать сюда. Там такого хватает! Например, игра Ambush At South Range - в исходнике, и описаньице:
A very poor and stupid action game. You play some guy who barges into a school with a goal to kill everyone. Very poor code, insulting design, horrible controls (INKEY$) and very poor graphics. The game runs too fast on modern PCs.
Ужасное управление (через INKEY$) - как раз к месту, плохая графика тоже прокатит, осталось только доработать (точне, сильно-сильно даунгрейдить...)

А вот и почти в тему: Blobble, тоже в исходнике:
A quite poor ASCII pacman game with weird level design (lots of dead ends). Still, with the exception of usage of the INKEY$ statement, Blobble is a well designed ASCII game.
А на счет механизма запуска падающих объектов вроде снежинок можно подсмотреть здесь - Break Up - Final Round 1:
Some bizarre game featuring Arkanoid concept, but with somewhat different gameplay. Warning! This game is on German. Your objective in this game is to catch the falling powerups and to use them to destroy the wall above you since your ball doesn't destroy the wall but only spawns powerups. The graphics are rather simple featuring a black background and small number of different colors. This package also comes with another game which is nothing but a boring connect four game. Both games feature Sound Blaster sound effects.
0
streltsov
0 / 0 / 0
Регистрация: 03.04.2011
Сообщений: 9
04.04.2011, 01:15  [ТС] #10
А можн о вкратце хотя бы написать текст, т.е. ,например,строчки в которых выполнятеся управление головой,рисунок головы я нашёл в литературе сделать смогу, просто как управлять ей,и условие при котором она меняется на другое,потому что я нашёл как сделать чтобы падали снежинки
0
Quiet Snow
4378 / 1258 / 208
Регистрация: 25.04.2010
Сообщений: 3,064
04.04.2011, 01:49 #11
строчки в которых выполнятеся управление
PureBasic
1
2
3
4
5
 k$ = INKEY$  ' Берём значение из буфера клавиатуры
   IF k$ = CHR$(0) + CHR$(72) THEN ... тут ваши операции на кнопку вверх ...
   IF k$ = CHR$(0) + CHR$(80) THEN ... тут ваши операции на кнопку вниз ...
   IF k$ = CHR$(0) + CHR$(75) THEN ... тут ваши операции на кнопку влево ...
   IF k$ = CHR$(0) + CHR$(77) THEN ... тут ваши операции на кнопку вправо ...
1
streltsov
0 / 0 / 0
Регистрация: 03.04.2011
Сообщений: 9
04.04.2011, 13:21  [ТС] #12
PureBasic
1
2
3
4
5
LINE (230, 223)-(274, 256), 0, BF
CIRCLE (270, 242), 4, 14: PAINT (270, 242), 14, 14
CIRCLE (250, 242), 19, 14: PAINT (250, 242), 14, 14
CIRCLE (260, 237), 3, 1: PAINT (260, 237), 1, 1
LINE (267, 247)-(260, 249), 12, BF
Вот рисунок головы,но как заставить его двигать я не нашёл,не пойму как использовать то что вы написали с этими строками

Добавлено через 1 час 19 минут
Голова разделена на 3 окружности,сама голова,глаз и нос, я могу сделать чтобы управлять ими по отдельности , т.е.
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CLS
SCREEN 9
x = 150: y = 292: p = 14
CIRCLE (x, y), 4, p
 
DO
 
k$ = INKEY$
IF k$ = "d" THEN CIRCLE (x, y), 4, 0: x = x + 2: GOSUB redraw
IF k$ = "l" THEN END
LOOP
 
redraw:
CIRCLE (x, y), 4, p
RETURN
А как сделать чтобы все 3 окружности ехали вместе при нажатии кнопки, если их записать
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
CLS
SCREEN 9
 
x = 150: y = 292
z = 130: f = 292
c = 140: g = 287
 
CIRCLE (x, y), 4, 14
CIRCLE (z, f), 19, 14
CIRCLE (c, g), 3, 1
 
DO
 
k$ = INKEY$
IF k$ = "d" THEN CIRCLE (x, y), 4, 14: x = x + 2: GOSUB redraw
                 CIRCLE (z, f), 19, 14: z = z + 2: GOSUB redraw
                 CIRCLE (c, g), 3, 1: c = c + 2: GOSUB redraw
If k$="l" then end
LOOP 
 
redraw:
CIRCLE (x, y), 4, 14
CIRCLE (z, f), 19, 14
CIRCLE (c, g), 3, 1
RETURN
То они поедут сразу как анимация без нажатии кнопки.
0
Quiet Snow
4378 / 1258 / 208
Регистрация: 25.04.2010
Сообщений: 3,064
04.04.2011, 14:59 #13
streltsov, вы пишете всё подряд?
Прочитайте про переменные, оператор присваивания, про условные операторы и циклы, это простые темы, поняв их, вы поймёте большинство кода. GOSUB вам пока не нужен, вы элементарное сделайте.
Перед тем как перерисовать круг, вам нужно стереть прошлое изображение, т.е. стираете, добавляете к координатам значения, рисуете. Эту последовательность делаете по условиям нажатия на клавиши в бесконечном цикле, условия я вам уже написал.

,а чтобы попасть на консультацию
Вас не допускают до экзамена?
0
streltsov
0 / 0 / 0
Регистрация: 03.04.2011
Сообщений: 9
04.04.2011, 16:25  [ТС] #14
Нужно вместо GOSUB использовать GOTO? Просто у нас в задании обязательное условие использовать подфункцию.

Чтобы на экзамен попасть нужно 2 раза на консультацию прийти) А что бы на неё попасть нужно пол программы(
0
Quiet Snow
4378 / 1258 / 208
Регистрация: 25.04.2010
Сообщений: 3,064
04.04.2011, 16:34 #15
Потому что я перечитал задание,нужно обязательно рисовать им.
С каждым вашим сообщением всё веселее и веселее, я уже не помню, когда здесь на форуме поднималась тема про DRAW. Могу сказать лишь одно, этим оператором мало кто пользуется, я с самого начала изучения данного диалекта, ознакомившись со справкой, решил им не пользовался никогда, потому что он не предоставит больших возможнстей, чем отрисовка стандартными графическими элементами, он выступает в роли "чертёжной машины", писать команды для которой ужаснейший геморрой.

но он только рисует прямые линии
Рисует он всё то же самое, что можно нарисовать обычными операторами.
Например заглянув в справку, я накидал код, для рисовки окружности. А рисуется она банально, задаём угол + перемещение. Если вы посмотрите, то там повторяется одно и то же действие.
PureBasic
1
2
3
4
5
6
7
8
SCREEN 9
DRAW "B M320,175 C14 TA0 R10 TA10 R10 TA20 R10"
DRAW "TA30 R10 TA40 R10 TA50 R10 TA60 R10 TA70 R10 TA80 R10"
DRAW "TA90 R10 TA100 R10 TA110 R10 TA120 R10 TA130 R10 TA140 R10"
DRAW "TA150 R10 TA160 R10 TA170 R10 TA180 R10 TA190 R10 TA200 R10"
DRAW "TA210 R10 TA220 R10 TA230 R10 TA240 R10 TA250 R10 TA260 R10"
DRAW "TA270 R10 TA280 R10 TA290 R10 TA300 R10 TA310 R10 TA320 R10"
DRAW "TA330 R10 TA340 R10 TA350 R10"
0
04.04.2011, 16:34
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.04.2011, 16:34
Привет! Вот еще темы с ответами:

Игра на QBasic (пушка стреляет в мешень) - QBasic
Народ, помогите, пожалуйста, с написанием игры для курсовой. Сама не особо шарю в программировании, так что очень нужна ваша помощь :) ...

Action игра на basic - Basic
Здравствуйте! Интересует такой вопрос, на каком и вообще возможно ли на basic написать action игру типа call of duty, gta или mafia, без...

Бюджет 4500 гр. Конфигурация работа в Office, AutoCAD, игра Assassin, онлайн игра World of Tanks - Игровой компьютер
Собираю компьютер для сестры. Основные требования: работа в Microsoft Office, AutoCAD, игра Assassin, онлайн игра World of Tanks ...

Игра в «Одиннадцать предметов», игра Баше. - Turbo Pascal
прошу помощи в создании программы! Разработать программную модель следующей игры двух игроков(пользователь-компьютер),реализовав...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.