Вопросы по созданию квеста в small basic

Дата: Вторник, 15 Декабря 2009, 21:20 | Сообщение # 1

постоянный участник

Сейчас нет на сайте

Решил опробовать свои силы в программировании,скачал small basic и вот решил сделать текстовый квест.
Вопросы:
1.Как очистить окно перед следующим действием(скиньте код начала и конца)
2.Как сделать выбор : Да/Нет
3.Как сделать выбор: 1.Пойти на кухню
2.Пойти в кузницу
И т.п.
4.Как делать задания, типо сходи туда, венись сюда с продолжением.
P.S. в программировании я нуб, так что если вопросы нубовские извиняюсь.

CUBE 2: Sauerbraten FOREVER!

BADCOIQ

Дата: Вторник, 15 Декабря 2009, 21:37 | Сообщение # 2

Сообщений: 387

Сейчас нет на сайте

Quote (Necro)

P.S. в программировании я нуб, так что если вопросы нубовские извиняюсь.

Извиняем.

"Do you think we can fly?
Well, I do."

simtiko

Дата: Вторник, 15 Декабря 2009, 23:27 | Сообщение # 3

почти ветеран

Сообщений: 959

Сейчас нет на сайте

Quote (Necro)

1.Как очистить окно перед следующим действием(скиньте код начала и конца)
2.Как сделать выбор : Да/Нет
3.Как сделать выбор: 1.Пойти на кухню
2.Пойти в кузницу
И т.п.
4.Как делать задания, типо сходи туда, венись сюда с продолжением.

Может попробуете почитать что то по бейсику?Это же можно реализовать базовыми знаниями бейсика, который изучается за 3 часа.

Добавлено (15.12.2009, 23:27)
---------------------------------------------

Code

TextWindow.Writeline("Приветствую тебя в мир магии бейсика, для начала игры нажми введи 1")
start = TextWindow.ReadNumber()
If start = 1 Then
   TextWindow.Writeline("Привет, я тот кто дает задания")
   TextWindow.WriteLine("Нажми 1 для того что бы пойти на кухню")
   TextWindow.WriteLine("Нажми 2 для того что бы пойти в спортзал")
   TextWindow.WriteLine("Нажми 3 для того что бы выйти из комнаты")
   a = TextWindow.ReadNumber()
   If a = 1 Then
     TextWindow.WriteLine("Дверь заперта")
     EndIf
     If a = 2 Then
       TextWindow.WriteLine("Дверь заперта")
       EndIf
       If a = 3 Then
         TextWindow.WriteLine("Дверь заперта")
       EndIf
     EndIf

Вот начиркал кое что.

Nimphomaniak

Дата: Вторник, 15 Декабря 2009, 23:51 | Сообщение # 4

Квадрат

Сообщений: 461

Сейчас нет на сайте

ну или так)))

Code

самая легкая книга по С++ тут

Сообщение отредактировал Nimphomaniak - Вторник, 15 Декабря 2009, 23:52

simtiko

Дата: Вторник, 15 Декабря 2009, 23:59 | Сообщение # 5

почти ветеран

Сообщений: 959

Сейчас нет на сайте

Nimphomaniak, Тоже можно.На самом деле я вообще не знаю Small Basic.

Nimphomaniak

Дата: Среда, 16 Декабря 2009, 00:14 | Сообщение # 6

Квадрат

Сообщений: 461

Сейчас нет на сайте

simtiko,

еще так можно сделать:

Code

TextWindow.Writeline("Приветствую тебя в мир магии бейсика, для начала игры представся")
name = TextWindow.Read()

TextWindow.Writeline("Привет " + name )
      TextWindow.WriteLine("я тот кто дает задания")
        TextWindow.WriteLine("Нажми 1 для того что бы посмотреть на рисунок")
        TextWindow.WriteLine("Нажми 2 для того что бы пойти в спортзал")
        TextWindow.WriteLine("Нажми 3 для того что бы выйти из комнаты")
        a = TextWindow.ReadNumber()
        If a = 1 Then
TextWindow.WriteLine("… … … … … … .$")
TextWindow.WriteLine("$ … … … … … $…$")
TextWindow.WriteLine("$$… … … … $… … $")
TextWindow.WriteLine("$$$… … … $ … … …$")
TextWindow.WriteLine("$$$$… … $ … … … …$")
TextWindow.WriteLine("$$$$$… $ … … … … …$")
TextWindow.WriteLine("$$$$$$$$$$$$$$$… … $…$…$…$…$")
TextWindow.WriteLine("$$$$$$$$$$$$$$… … … … … … … $")
TextWindow.WriteLine("$$$$$$$$$$$$$… … … … … … …$")
TextWindow.WriteLine("$$$$$$$$$$$$… Merry… … …$")
TextWindow.WriteLine("$$$$$$$$$$$… Christmas!…$")
TextWindow.WriteLine("$$$$$$$$$$… And a… … …$")
TextWindow.WriteLine("$$$$$$$$$$$… Happy… …… $")
TextWindow.WriteLine("$$$$$$$$$$$$… new Year! …$")
TextWindow.WriteLine("$$$$$$$$$$$$$… … … 2010 ……$")
TextWindow.WriteLine("$$$$$$$$$$$$$$ … … … … … … $")
TextWindow.WriteLine("$$$$$$$$$$$$$$$… … $…$…$…$… $")
TextWindow.WriteLine("$$$$$…$… … … … … $")
TextWindow.WriteLine("$$$$… …$… … … … $")
TextWindow.WriteLine("$$$… … …$… … … $")
TextWindow.WriteLine("$$… … … …$… … $")
TextWindow.WriteLine("$… … … … …$… $")

          EndIf
          If a = 2 Then
            TextWindow.WriteLine("Дверь заперта")
            EndIf
            If a = 3 Then
              TextWindow.WriteLine("Дверь заперта")
            EndIf

самая легкая книга по С++ тут

Сообщение отредактировал Nimphomaniak - Среда, 16 Декабря 2009, 00:25

Sharom

Дата: Среда, 16 Декабря 2009, 00:45 | Сообщение # 7

участник

Сообщений: 244

Сейчас нет на сайте

Язык как по мне очень примитивный, но я уже привык к командам дельфина . . . Вообщем замутить текстовый квест не составит труда был бы стимул и сценарий

Nimphomaniak

Дата: Среда, 16 Декабря 2009, 18:34 | Сообщение # 8

Квадрат

Сообщений: 461

Сейчас нет на сайте

Sharom,
для новичков в самый раз!!!

Добавлено (16.12.2009, 18:34)
---------------------------------------------
используя подпрограмму можно еще так( для уменьшение количества строк):

Code

Sub Picture
TextWindow.WriteLine("_________________8_______88888888888_______________")
TextWindow.WriteLine("_______________88________8888888  ___________________")
TextWindow.WriteLine("_____________888_________888_______________________")
TextWindow.WriteLine("___________88888__ _______888____________888________")
TextWindow.WriteLine("____________88888________888_________8888888_______")
TextWindow.WriteLine("____ ___________88888_____888______88888___888______")
TextWindow.WriteLine("______8___________88888__888___88888_________8_____")
TextWindow.W riteLine("______88_____________88888888888___________________")
TextWindow.WriteLine("______888_____________888888888____________________")
TextWindow.WriteLine("______88888888888888888888888888888888888888888____")
TextWindow.WriteLine("______8888888888888888888888888888888 8888888888____")
TextWindow.WriteLine("______________________888888888_____________888____")
TextWindow.WriteLine("_______8____________888 8888888888____________88____")
TextWindow.WriteLine("________888_____888888___888___88888__________8____")
TextWindow.WriteLine("_________ _88888888_______888______888888___________")
TextWindow.WriteLine("___________88888_________888_________888888________")
TextWindow.WriteL ine("_____________88__________888__________888__________")
TextWindow.WriteLine("_____________________8888888_________88____________")
Tex tW indow.WriteLine("_________________88888888888________8______________")
EndSub
TextWindow.Writeline("Приветствую тебя в мир магии бейсика, для начала игры представся")
name = TextWindow.Read()

TextWindow.Writeline("Привет " + name )
     TextWindow.WriteLine("я тот кто дает задания")
       TextWindow.WriteLine("Нажми 1 для того что бы пойти на кухню")
       TextWindow.WriteLine("Нажми 2 для того что бы пойти в спортзал")
       TextWindow.WriteLine("Нажми 3 для того что бы выйти из комнаты")
       a = TextWindow.ReadNumber()
       If a = 1 Then
         Picture()
         EndIf
         If a = 2 Then
           Picture()
           EndIf
           If a = 3 Then
             TextWindow.WriteLine("Дверь заперта")
           EndIf

самая легкая книга по С++ тут

Сообщение отредактировал Nimphomaniak - Среда, 16 Декабря 2009, 18:36

Necro

Дата: Среда, 16 Декабря 2009, 18:36 | Сообщение # 9

постоянный участник

Сообщений: 303

Сейчас нет на сайте

Народ, всем спасибо, пойду пробовать cool

CUBE 2: Sauerbraten FOREVER!

Nimphomaniak

Дата: Среда, 16 Декабря 2009, 18:39 | Сообщение # 10

Квадрат

Сообщений: 461

Сейчас нет на сайте

Necro,
если что, обращайся cool

самая легкая книга по С++ тут

Necro

Дата: Среда, 16 Декабря 2009, 19:44 | Сообщение # 11

постоянный участник

Сообщений: 303

Сейчас нет на сайте

Nimphomaniak,
Ок!

Добавлено (16.12.2009, 19:44)
---------------------------------------------
Как сделать:
1.Зашёл в помещение, вышел.(сам пробовал сделать, не получилось sad )
2.Развлетвление путей( Замок- Лес, Озеро, поле и т.д.)

CUBE 2: Sauerbraten FOREVER!

Сообщение отредактировал Necro - Среда, 16 Декабря 2009, 19:47

Nimphomaniak

Дата: Среда, 16 Декабря 2009, 20:44 | Сообщение # 12

Квадрат

Сообщений: 461

Сейчас нет на сайте

Necro,
можно так:

Code

Sub Picture_1
TextWindow.WriteLine("_________________8_______88888888888_______________")
TextWindow.WriteLine("_______________88________8888888  ___________________")
TextWindow.WriteLine("_____________888_________888_______________________")
TextWindow.WriteLine("___________88888__ _______888____________888________")
TextWindow.WriteLine("____________88888________888_________8888888_______")
TextWindow.WriteLine("____ ___________88888_____888______88888___888______")
TextWindow.WriteLine("______8___________88888__888___88888_________8_____")
TextWindow.WriteLine("______88_____________88888888888___________________")
TextWindow.WriteLine("______888_____________888888888____________________")
TextWindow.WriteLine("______88888888888888888888888888888888888888888____")
TextWindow.WriteLine("______8888888888888888888888888888888 8888888888____")
TextWindow.WriteLine("______________________888888888_____________888____")
TextWindow.WriteLine("_______8____________888 8888888888____________88____")
TextWindow.WriteLine("________888_____888888___888___88888__________8____")
TextWindow.WriteLine("_________ _88888888_______888______888888___________")
TextWindow.WriteLine("___________88888_________888_________888888________")
TextWindow.WriteLine("_____________88__________888__________888__________")
TextWindow.WriteLine("_____________________8888888_________88____________")
TextWindow.WriteLine("_________________88888888888________8______________")
EndSub
TextWindow.Writeline("Приветствую тебя в мир магии бейсика, для начала игры представся")
name = TextWindow.Read()
start:
TextWindow.Writeline("Привет " + name )
      TextWindow.WriteLine("я тот кто дает задания")
        TextWindow.WriteLine("Нажми 1 для того что бы пойти на кухню")
        TextWindow.WriteLine("Нажми 2 для того что бы пойти в спортзал")
        TextWindow.WriteLine("Нажми 3 для того что бы выйти из комнаты")
        a = TextWindow.ReadNumber()
        If a = 1 Then
          Picture_1()
     Goto start
          EndIf
          If a = 2 Then
            Picture_1()
            EndIf
            If a = 3 Then
              TextWindow.WriteLine("Дверь заперта")
            EndIf

самая легкая книга по С++ тут

Necro

Дата: Среда, 16 Декабря 2009, 21:11 | Сообщение # 13

постоянный участник

Сообщений: 303

Сейчас нет на сайте

Я про развлетвление спрашивал! А не про пойди туда(а прога закрывается sad