QSP - Как сделать?

ejikplains #2161 18.05.2019 04:58 (6 years ago)

7

7even11even #2215 18.05.2019 04:58 (6 years ago)

Всем привет! Подскажите пожалуйста в чем ошибка.
Идея следующая: создать два аэропорта + самолет(процедуры полета).

Соответственно таким образом приобретается билет ( проблем вроде нет, все работает):

Spoiler

if tiket=0:
act’Спросить про билеты’:
cla
‘- Здравствуйте девушка я бы хотел преобрести билет.’
‘- Здравствуйте, да конечно куда летим?’
act ‘Спросить про билеты на Москву’:
cla
‘- Да конечно есть самолеты на москву на 07:00, 11:00, 17:00, и 22:00.’
‘- Сколько стоит?’
‘- До обеда 6 500 рублей после 8 000 эконом. Если бизнес класс, то 10 000 рублей’
act ‘Беру билет эконом.’:
cla
act ‘Беру на Москву на 07:00’:
cla
set tiket_msk_07 = 1
set money=money-6500
act ‘Идти к стойке с билетами’:gt’aeroport_tiket’,’start’
end

act ‘Беру на Москву на 11:00’:
cla
tiket_msk_011 = 1
set money=money-6500
act ‘Идти к стойке с билетами’:gt’aeroport_tiket’,’start’
end

act ‘Беру на Москву на 17:00’:
cla
tiket_msk_017 = 1
set money=money-8000
act ‘Идти к стойке с билетами’:gt’aeroport_tiket’,’start’
end

act ‘Беру на Москву на 22:00’:
cla
tiket_msk_022 = 1
set money=money-8000
act ‘Идти к стойке с билетами’:gt’aeroport_tiket’,’start’
end
act ‘Нет спасибо.’:gt’aeroport_tiket’,’start’
end
end
end
end
end
end

И собственно процесс после покупки нужно билета:

if hour >=6 and hour <=7 and tiket_msk_07 = 1:
act ’Подойти к стойке регистрации на посадку (рейс 07:00)’:
cla
’ - Здравствуйте, у меня рейс на 7:00.

Ваш билет пожалуйста.’ act ‘Идти на посадку’:
cla
tiket_msk_07 = 0
act ‘Идти в самолет’:gt ‘avia_tvr_swo’,’start’
end
act ‘Отойти от стойки’:gt ‘aeroport_hol’,’1’
end
end
if hour >=10 and hour <=11 and tiket_msk_11 = 1:
act ’Подойти к стойке регистрации на посадку (рейс 11:00)’:
cla
’ - Здравствуйте, у меня рейс на 11:00.
Ваш билет пожалуйста.’ act ‘Подойти к стойке регистрации на посадку’:
cla
tiket_msk_11 = 0
act ‘Идти в самолет’:gt ‘avia_tvr_swo’,’start’
end
act ‘Отойди от стойки регистрации’:gt ‘aeroport_hol’,’1’
end
end
if hour >=16 and hour <=17 and tiket_msk_17 = 1:
act ’Подойти к стойке регистрации на посадку (рейс 17:00)’:
cla
’ - Здравствуйте, у меня рейс на 17:00.
Ваш билет пожалуйста.’ act ‘Подойти к стойке регистрации на посадку’:
cla
tiket_msk_17 = 0
act ‘Идти в самолет’:gt ‘avia_tvr_swo’,’start’
end
act ‘Отойди от стойки’:gt ‘aeroport_hol’,’1’
end
end
if hour >=21 and hour <=22 and tiket_msk_22 = 1:
act ’Подойти к стойке регистрации на посадку (рейс 22:00)’:
cla
’ - Здравствуйте, у меня рейс на 22:00.
Ваш билет пожалуйста.’ act ‘Подойти к стойке регистрации на посадку’:
cla
tiket_msk_22 = 0
act ‘Идти в самолет’:gt ‘avia_tvr_swo’,’start’
end
act ‘Отойди от стойки’:gt ‘aeroport_hol’,’1’
end
end
end

Первая связка if-end полностью работает, действие “act ’Подойти к стойке регистрации на посадку (рейс 07:00)’:” выполняется и тд. Аналогичные if-end 2,3,4 не выполняются, не видит их. Заранее спасибо за помощь!

Aleks Versus Moderator 18.05.2019 04:58 (6 years ago)

Насчитал два лишних enda в первом куске, и один лишний во втором. Но это мелочь.

Не работает по одной простой причине:
В первом куске:

tiket_msk_011 = 1

Во втором куске:

... and tiket_msk_11 = 1:

Разные переменные.

Большая просьба, помещайте код в блок CODE.

7

7even11even #2215 18.05.2019 04:58 (6 years ago)

RyGurd #2125 18.05.2019 05:00 (6 years ago)

Aleks Versus Moderator 18.05.2019 05:00 (6 years ago)

playerqsp,
что ты имеешь ввиду под реальным временем?
типа того? :

# start
$counter='counter'
--- start ---------------------------------

# counter
halfsec+=1
if halfsec=2:
	halfsec=0
	sec+=1
end
if sec=60:
	sec=0
	minute+=1
end
if minute=60:
	minute=0
	hour+=1
end
clr
pl "<<hour>>:<<minute>>:<<sec>>"
--- counter ---------------------------------

RyGurd #2125 18.05.2019 05:00 (6 years ago)

Aleks Versus Moderator 18.05.2019 05:00 (6 years ago)

Если воспользуешься поиском по форуму, можешь найти варианты. Я делал такой календарь ###calenda2.qsp###. Заметь, время игры не привязано к реальному времени, а отсчитывается исходя из времени “затраченного” на действия.

Модифицировать его до привязки к реалтайму весьма просто.
Создаём локацию-счётчик с таким кодом:

halfsec+=1
if halfsec=2:
	halfsec=0
	time['secunde.add']=1
	gosub 'recount_time'
	! очистка экрана
	*clr
	! вывод времени
	gosub 'print_time'
end

на локации recount_time меняем в строках 14 и 16 число 100 на 60. Ну и думаю в остальном разберёшься. Там прокомментировано.

P.S.: Правда будет небольшое отставание в любом случае от реального времени, особенно если в игре большие вычисления и циклы. Неплохо бы использовать для вычисления секунд функцию msecscount. Это, если я не забуду, потом как-нибудь покажу.

RyGurd #2125 18.05.2019 05:00 (6 years ago)

Aleks Versus Moderator 18.05.2019 05:00 (6 years ago)

T

TEMP_USER #2167 18.05.2019 05:06 (6 years ago)

Edited at 07.02.2018 08:05 (8 years ago)

Aleks Versus Moderator 18.05.2019 05:06 (6 years ago)

Spoiler

Почему же никто не пользуется поиском?

Десять минут чтения выдачи расширенного поиска по запросу “ARGS” (по сообщениям):

Spoiler

Форум: Обсуждение и разработка игр 03.Ноя.16 13:29:00 — тема “Как сделать?”

args[] - это переменные, которым можно передавать значения “на один раз”. Делал ты это так:
gosub 'Скретч диалог',2
Двойка после запятой, как раз и указывает, что когда плеер обратится к локации “Скретч диалог”, значение args[0] - должно быть равно 2. Это называется передача аргументов. Можно передавать девять значений, т.е. задавать на начало локации значения переменным от args[0] до args[8]. В общем виде это выглядит так:
gosub 'имя_локации',args[0],args[1],args[2],args[3],args[4],args[5],args[6],args[7],args[8]

Форум: Обсуждение и разработка игр 28.Фев.16 23:34:46 — тема “Как сделать?”

массив args[] можно использовать в качестве локальных переменных на определённой локации. Помимо этого в массив args[] передаются аргументы, если вызываешь локацию разными командами. Например:
!#гостинная
act 'Воспользоваться камнем телепортации': goto 'кухня', 7
Число семь будет передано в локацию кухня. Получить его в этой локации можно из нулевого элемента массива args[]
!#кухня
if args[0]=7: *pl "Вы воспользовались камнем телепортации и очутились в кухне."
Для каждой локации значения args[] своё. Т.е. если на локации “гостинная” у тебя args[0] равнялось 10, то это никак не скажется на значении args[0] в локации “кухня”. Пример:
#начало
args[0] = 9
args[1] = 12
gosub 'конец',14,15
*pl args[0]
*pl args[1]
-

#конец
*pl args[0]
*pl args[1]
-

Справка — Пользовательские функции и процедуры

Полезная тема: вложенные вызовы подпрограмм

Форум: Обсуждение и разработка игр 10.Апр.16 22:57:53 — тема “Как сделать?”

args - это локальные переменные. Они работают только на определённой локации и только во время так сказать сессии на этой локации. Так же они используются для получения каких-то данных во время обращения к локации. Например:
goto 'Лес','Заяц',23
, при выполнении этой команды будет осуществлён переход на локацию “Лес”, при этом переменной $args[0] на локации “Лес” присвоится значение Заяц, а переменной args[1] - значение 23.

Если ты делаешь по этому примеру, можешь видеть, что переключение между ветками там задаётся как раз таки значением, которое получает args[0] при обращении к локации:
gs 'Диалог_А',1
....
if args[0]=1:
	act 'Как реализован твой диалог?':
		'<font color=blue>(Вы) — <<$selact>></font>'
		cla
		wait 500
		........

Стакающиеся предметы — это считаемые, как я понимаю. Деньги, патроны, одинаковые мечи и прочее. Тема довольно интересная и сложная. Но новичкам обычно предлагают начать с этого:

~~убрал тут цитату сообщения, почему-то ведёт всё на библиотечку~~
~~В старой справке был такой вопрос “Как сделать в игре деньги?”. Но сейчас я не могу его найти.~~

Всё на самом деле просто. Допустим, есть у нас предмет “меч”.

Когда добавляем его в инвентарь, например, по действию, то ведём подсчёт числа мечей в отдельной переменной.

act "Поднять меч":
   ! проверяем есть ли мечи
   if меч_количество = 0:
      ! если мечей нет, добавляем меч в инвентарь
      addobj "Меч"
   end
   ! увеличиваем количество мечей на 1
   меч_количество = меч_количество+1
end

Чтобы проверять число мечей при щелчке в окне инвентаря, заводим локацию с названием onObjSel, а на самой первой локации в игре пишем:

$onobjsel="onObjSel"

Если воспользоваться поиском по форуму с запросом “onobjsel”, можно узнать, что таким образом мы создали локацию-обработчик выбора предмета с именем onObjSel, а с помощью строчки кода в самой первой локации игры показали плееру, какую именно локацию он должен использовать в этом качестве.
Теперь на локации onObjSel для меча пишем такой код:

if $selobj = "Меч":
! если вы выбрали объект меч
   ! выводим информацию в окно доп.описаний
   pl "Обычный одноручный меч. В рюкзаке <<меч_количество>> шт."
end

в конце onObjSel обязательно ставим

unsel

T

TEMP_USER #2167 18.05.2019 05:06 (6 years ago)

П

Последний из Гаяр Moderator 18.05.2019 05:06 (6 years ago)