Как сделать?

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

# 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 ---------------------------------

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

Как поменять цвет шрифта в AQSP

?

Как и в классике fcolor = RGB(120,120,120)

Если нужно поменять у отдельного слова или предложения, то через тег <font> опять же так же как и в классике.

Спасибо, но до самого дошло)

А как сделать чтобы музыка шла все время. ну то есть без остановки. … закончилась - началась заново?

Нужен плейлист. Попробуй вот этот: Гибкий плейлист [1.0]

доброго времени суток всем.
вот собственно и вопрос:
есть переменные, например: qwerty1, qwerty2…qwerty6
есть рандом от 1 до 6
как сделать чтобы изменилась переменная по выпавшему рандому? Например, рандом=4 то qwerty4=1 или рандом=2 то qwerty2=1

Заранее спасибо.

AlexMal,
расскажи подробней, какую задачу пытаешься так решить.

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

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

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'

Не подскажите, как сделать языком по умолчанию плеера английский? Что бы не нужно было alt+l прожимать каждый раз. Заранее спасибо.

В настройках выставляешь язык на english. Теперь при перезапуске плеера он должен работать на инглише. Если этого не происходит, значит qspgui.cfg скорее всего имеет атрибут “только для чтения”.