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

Bumbr #465 05.08.2013 11:13 (12 years ago)

Aleks Versus Moderator 05.08.2013 13:27 (12 years ago)

Aleks Versus Moderator 05.08.2013 13:39 (12 years ago)

Собственно я его уже накидал:

Spoiler

# 1
usehtml=1
! список действий. Метки и форма записи важны, поскольку от этого зависит правильность поиска регулярным выражением.
$actions[0]={act '<metka0>действие 0</metka0>':
	$args['название действия']=$strfind($selact,'<metka'+str(0)+'>[\s\S]*</metka'+str(0)+'>')
	$actions[0] = $replace($actions[0],$args['название действия'],'<metka1>новое название действия 0</metka1>')
	flag_eg=0
	gs 'reset.acts'
end}
$actions[1]={act '<metka0>действие 1</metka0>':
	$args['название действия']=$strfind($selact,'<metka'+str(0)+'>[\s\S]*</metka'+str(0)+'>')
	$actions[1] = $replace($actions[1],$args['название действия'],'<metka1>новое название действия 1</metka1>')
	flag_eg=1
	gs 'reset.acts'
end}
$actions[2]={act '<metka0>действие 2</metka0>':
	$args['название действия']=$strfind($selact,'<metka'+str(0)+'>[\s\S]*</metka'+str(0)+'>')
	$actions[2] = $replace($actions[2],$args['название действия'],'<metka1>новое название действия 2</metka1>')
	flag_eg=2
	gs 'reset.acts'
end}
$actions[3]={act '<metka0>действие 3</metka0>':
	$args['название действия']=$strfind($selact,'<metka'+str(0)+'>[\s\S]*</metka'+str(0)+'>')
	$actions[3] = $replace($actions[3],$args['название действия'],'<metka1>новое название действия 3</metka1>')
	flag_eg=3
	gs 'reset.acts'
end}
gs  'reset.acts'
--- 1 ---------------------------------

# reset.acts
! вывод действий
cla
args['i']=flag_eg
args['u']=0
:for
if args['u']<arrsize('$actions'):
	dynamic $actions[args['i']]
	args['u']+=1
	args['i']+=1
	if args['i']=arrsize('$actions'): args['i']=0
	jump 'for'
end
--- reset.acts ---------------------------------

Nex Moderator 05.08.2013 19:08 (12 years ago)

IF switch = 1:
    ACT 'Выключить':
        switch = 0
        PL 'Вы выключили что-то.'
        GOTO $CURLOC
    END
END
... Другие действия ...
IF switch = 0:
    ACT 'Включить':
        switch = 1
        PL 'Вы включили что-то.'
        GOTO $CURLOC
    END
END

A

Alladan #864 07.08.2013 19:39 (12 years ago)

A

Alladan #864 08.08.2013 08:58 (12 years ago)

Ajenta Moderator 08.08.2013 09:18 (12 years ago)

Ajenta Moderator 08.08.2013 09:20 (12 years ago)

A

Alladan #864 08.08.2013 13:49 (12 years ago)

A

Alladan #864 09.08.2013 10:00 (12 years ago)

Kraev.Aleks #221 09.08.2013 11:52 (12 years ago)

A

AlexMal #936 11.08.2013 05:56 (12 years ago)

Nex Moderator 11.08.2013 06:34 (12 years ago)

A

AlexMal #936 11.08.2013 11:33 (12 years ago)

цитата из оригинала:
УДАЧА
Перед началом игры напишите на ЛИСТКЕ ПУТЕШЕСТВЕННИКА (в графе УДАЧА)
цифры от 1 до 6. Затем дважды бросьте кубик. Вычеркните в своем списке цифры,
которые выпадут на кубике. Впредь эти цифры будут означать неудачу. Если на кубике
оба раза выпала одна и та же цифра, вычеркните только ее.
Встретив в тексте слова ПРОВЕРЬТЕ СВОЮ УДАЧУ, БРОСЬТЕ КУБИК. Если
выпадет одна из цифр, вычеркнутых в вашем списке, то вам не повезло. Увы, вас ждут
неприятности или даже гибель. Если же выпавшая цифра в вашем списке не вычеркнута,
то удача сопутствует вам. Но выпавшую «счастливую» цифру придется в списке
вычеркнуть, и при следующих проверках УДАЧИ она оказывается уже «несчастливой».
Раз за разом проверка становится все более рискованным делом. Но некоторые
приключения дадут право увеличить шансы на счастливый случай. Встретив в тексте
фразу УДАЧА: ВОССТАНОВИТЕ 1 ЦИФРУ, впишите в ЛИСТОК ПУТЕШЕСТВЕННИКА
любую из вычеркнутых цифр, она еще раз сможет принести удачу.

я хочу реализовать бросок кубика (рандом от 1 до 6) и соответственно менять параметры УДАЧИ.

Nex Moderator 11.08.2013 17:03 (12 years ago)

AlexMal,
в игре “Подземелья Чёрного Замка”, которую я портировал на QSP, была такая же схема.

Вот так реализовано:

! локация try_luck
! вызываем, чтобы испытать удачу.
lucky=0
test=rand(1,6)
if test=1:
 if luck1=1:lucky=1
 luck1=0
end
if test=2:
 if luck2=1:lucky=1
 luck2=0
end
if test=3:
 if luck3=1:lucky=1
 luck3=0
end
if test=4:
 if luck4=1:lucky=1
 luck4=0
end
if test=5:
 if luck5=1:lucky=1
 luck5=0
end
if test=6:
 if luck6=1:lucky=1
 luck6=0
end
lucks=luck1+luck2+luck3+luck4+luck5+luck6


! локация clear_luck
! вызываем, чтобы восстановить удачу.
test=rand(1,6)
if test=1:luck1=1
if test=2:luck2=1
if test=3:luck3=1
if test=4:luck4=1
if test=5:luck5=1
if test=6:luck6=1
lucks=luck1+luck2+luck3+luck4+luck5+luck6

! начальная точка путешествия.
! сбрасываем два очка удачи.
luck1=1
luck2=1
luck3=1
luck4=1
luck5=1
luck6=1
gosub 'try_luck'
gosub 'try_luck'


! пример проверки удачи в игре.
gosub 'try_luck'
if lucky=1:
*pl 'Вам повезло.'
act 'Далее':goto '558'
end
if lucky=0:
*pl 'Вам не повезло.'
act 'Далее':goto '618'
end

! пример восстановления удачи в игре.
gosub 'clear_luck'