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

N

newsash #948 16.07.2014 17:05 (11 years ago)

V

Vladimir #1181 17.07.2014 05:12 (11 years ago)

Вопрос1: как описывать процедуру?
Написал код как вычислять время в игре и отображать на экране - часы, день, месяц, день недели. Сейчас этот алгоритм в каждую локацию вставляю. Как его описать один раз, а потом в других локациях просто ссылаться на эту процедуру?
Вот код…

Spoiler

! Блок для времени (начало)
месяц = время/720
день = (время - месяц*720)/24
час = время - месяц*720 - день*24
!Задаем месяц
if месяц > 12 : месяц = месяц - 12
if месяц = 1 : $месяц = ‘сентября.’
if месяц = 2 : $месяц = ‘октября.’
if месяц = 3 : $месяц = ‘ноября.’
if месяц = 4 : $месяц = ‘декабря.’
if месяц = 5 : $месяц = ‘января.’
if месяц = 6 : $месяц = ‘февраля.’
if месяц = 7 : $месяц = ‘марта.’
if месяц = 8 : $месяц = ‘апреля.’
if месяц = 9 : $месяц = ‘мая.’
if месяц = 10 : $месяц = ‘июня.’
if месяц = 11 : $месяц = ‘июля.’
if месяц = 12 : $месяц = ‘августа.’
!Задали месяц
!Высчитываем день недели (168 - число часов в неделе)
nedel1 = время/168
Днедели = (время - nedel1*168)/24+5
!+5 - это я подгонял что бы был первый день - понедельник.
!Задаем день недели
if Днедели > 7 : Днедели = Днедели - 7
if Днедели = 1 : $Днедели = ‘Понедельник’
if Днедели = 2 : $Днедели = ‘Вторник’
if Днедели = 3 : $Днедели = ‘Среда’
if Днедели = 4 : $Днедели = ‘Четверг’
if Днедели = 5 : $Днедели = ‘Пятница’
if Днедели = 6 : $Днедели = ‘Суббота’
if Днедели = 7 : $Днедели = ‘Воскресенье’
!Задали день недели
clear
PL ‘Время: <<час>> часов, <<день>> <<$месяц>> <<$Днедели>>’
! Блок для времени (окончен)

Вопрос 2: На форуме можно по поиску найти в каком конкретно месте обсуждалось то что я ищу? У меня куча вопросов и на каждый запрос поиск выдает, что в этой теме это обсуждалось. И че? 200 страниц форума листать?

N

newsash #948 17.07.2014 05:58 (11 years ago)

Abrukt #991 19.07.2014 17:44 (11 years ago)

Nex Moderator 20.07.2014 05:31 (11 years ago)

RomaDova,
пробел забыл.

DELACT $SELACT

Если требуется удалить действие насовсем, то следует делать не через DELACT, а способом “Действие по условию”.

Mr. Black #927 29.07.2014 10:06 (11 years ago)

Nex,

Spoiler

Nex:

BiK,
делаешь отдельную локацию с заполнением массива меню.
Не забудь обнулить массив перед заполнением.
KILLVAR '$menu'
Заполняя массив, используешь условие:
IF фонарик_включен = 1:
    $menu[] = 'Выключить:выключить_фонарик'
ELSE
    $menu[] = 'Включить:включить_фонарик'
END
В конце локации запускаешь заполненное меню:
MENU $menu
При нажатии на предмет вызываешь эту локацию через GOSUB.
Заполняешь локации для переключения статуса фонарика.
Локация “включить_фонарик”:
фонарик_включен = 1
Локация “выключить_фонарик”:
фонарик_включен = 0

Не получилось у меня сделать. Выдает ошибки или не хочет работать как надо, вот как у меня код выглядет, где я ошибся?

Локация $onobjsel

if selobj = 'фонарик' :
unsel
gosub 'фонарик_меню'
end

Локация фонарик_меню

killvar '$menu'

if фонарик_включен = 1 :
    $menu [0] = 'Выключить : фонарик_выкл'
    $menu [1] = 'Осмотреть : фонарик'
else
if фонарик_включен = 0 :
    $menu [0] = 'Включить : фонарик_вкл'
    $menu [1] = 'Осмотреть : фонарик'
end
end

menu $menu

Вот тут выскакивает ошибка 114 (недопустимое название переменной).

Извеняюсь если я где-то опечатался, пишу с телефона по этому печатал все в ручную.

Nex Moderator 29.07.2014 19:57 (11 years ago)

BiK,
в моём коде была ошибка.

Написано

MENU $menu

а нужно писать

MENU '$menu'

Я исправил свой код. Исправь так же свой.

SneakBug8 #1170 29.07.2014 20:15 (11 years ago)

SneakBug8 #1170 29.07.2014 20:18 (11 years ago)

SneakBug8 #1170 29.07.2014 20:20 (11 years ago)

Nex Moderator 29.07.2014 20:29 (11 years ago)

SneakBug8 #1170 29.07.2014 20:37 (11 years ago)

Nex Moderator 29.07.2014 21:30 (11 years ago)

Mr. Black #927 30.07.2014 02:09 (11 years ago)

Это не та ошибка, я опечатался когда писал код (в игре у меня стоят кавычки), я зарание предупредил что писал сообщение с телефона в ручную.

Все равно ошибку выдает, я удалил этот предмет и все его локации, но теперь эта ошибка выскакивает у других предметов сделанных по принципу:

$onobjsel

if selobj = 'Item'
 $menu [0] = 'Use : Item'
 $menu [1] = 'Look : Item'
menu '$menu'
unsel
end

Создал твой пример в новой игре там все заработало, перенес код назад в свою там все крошится… Я так понял эти два варианта в месте конфликтуют?

N

newsash #948 30.07.2014 06:52 (11 years ago)