|
Вопросы по созданию квеста в 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. в программировании я нуб, так что если вопросы нубовские извиняюсь. Извиняем.
"Do you think we can fly?
Well, I do."
|
|
|
| |
| 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 |
|
постоянный участник
Сейчас нет на сайте
| Народ, всем спасибо, пойду пробовать 
CUBE 2: Sauerbraten FOREVER!
|
|
|
| | |
| Necro | Дата: Среда, 16 Декабря 2009, 19:44 | Сообщение # 11 |
|
постоянный участник
Сейчас нет на сайте
| Nimphomaniak,
Ок! Добавлено (16.12.2009, 19:44)
---------------------------------------------
Как сделать:
1.Зашёл в помещение, вышел.(сам пробовал сделать, не получилось  )
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 |
|
постоянный участник
Сейчас нет на сайте
| Я про развлетвление спрашивал! А не про пойди туда(а прога закрывается )
CUBE 2: Sauerbraten FOREVER!
|
|
|
| | |
| Necro | Дата: Четверг, 17 Декабря 2009, 20:04 | Сообщение # 15 |
|
постоянный участник
Сейчас нет на сайте
| Понял
CUBE 2: Sauerbraten FOREVER!
|
|
|
| |
|
