Воскресенье, 15 Декабря 2019, 18:26

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Basic » Вопросы по созданию квеста в small basic (Текстовый квест)
Вопросы по созданию квеста в small basic
NecroДата: Вторник, 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
Отец-основатель BADCOIQ Corporation © 2010
Сейчас нет на сайте
Quote (Necro)
P.S. в программировании я нуб, так что если вопросы нубовские извиняюсь.

Извиняем.

simtikoДата: Вторник, 15 Декабря 2009, 23:27 | Сообщение # 3
почти ветеран
Сейчас нет на сайте
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
Квадрат
Сейчас нет на сайте
ну или так)))
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("Дверь заперта")   
       EndIf
       If a = 2 Then    
         TextWindow.WriteLine("Дверь заперта")    
         EndIf   
         If a = 3 Then    
           TextWindow.WriteLine("Дверь заперта")    
         EndIf




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


Сообщение отредактировал Nimphomaniak - Вторник, 15 Декабря 2009, 23:52
simtikoДата: Вторник, 15 Декабря 2009, 23:59 | Сообщение # 5
почти ветеран
Сейчас нет на сайте
Nimphomaniak, Тоже можно.На самом деле я вообще не знаю Small Basic.
NimphomaniakДата: Среда, 16 Декабря 2009, 00:14 | Сообщение # 6
Квадрат
Сейчас нет на сайте
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
участник
Сейчас нет на сайте
Язык как по мне очень примитивный, но я уже привык к командам дельфина . . . Вообщем замутить текстовый квест не составит труда был бы стимул и сценарий
NimphomaniakДата: Среда, 16 Декабря 2009, 18:34 | Сообщение # 8
Квадрат
Сейчас нет на сайте
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
постоянный участник
Сейчас нет на сайте
Народ, всем спасибо, пойду пробовать cool

CUBE 2: Sauerbraten FOREVER!
NimphomaniakДата: Среда, 16 Декабря 2009, 18:39 | Сообщение # 10
Квадрат
Сейчас нет на сайте
Necro,
если что, обращайся cool




самая легкая книга по С++ тут
NecroДата: Среда, 16 Декабря 2009, 19:44 | Сообщение # 11
постоянный участник
Сейчас нет на сайте
Nimphomaniak,
Ок!

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


CUBE 2: Sauerbraten FOREVER!

Сообщение отредактировал Necro - Среда, 16 Декабря 2009, 19:47
NimphomaniakДата: Среда, 16 Декабря 2009, 20:44 | Сообщение # 12
Квадрат
Сейчас нет на сайте
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
постоянный участник
Сейчас нет на сайте
Я про развлетвление спрашивал! А не про пойди туда(а прога закрывается sad )

CUBE 2: Sauerbraten FOREVER!
NimphomaniakДата: Среда, 16 Декабря 2009, 22:02 | Сообщение # 14
Квадрат
Сейчас нет на сайте
ты последнний листинг внимательно почитай!!!!!!
сначало идеш на кухню и видиш выбор локацый снизу!!!!!!




самая легкая книга по С++ тут
NecroДата: Четверг, 17 Декабря 2009, 20:04 | Сообщение # 15
постоянный участник
Сейчас нет на сайте
Понял

CUBE 2: Sauerbraten FOREVER!
Форум игроделов » Программирование » Basic » Вопросы по созданию квеста в small basic (Текстовый квест)
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2019 Рейтинг