Как сделать?

USEHTML = 1
'
    <center>Название таблицы
    <table width="300" bgcolor="plum" border="1" 
	   align="center" cellspacing="5" cellpadding="10" 
	   rules="rows" frame="void"> 
	   <tr><th>1</th><th>2</th><th>3</th></tr> 
	   <tr><td>11</td><td>12</td><td>13</td></tr> 
	   <tr><td>21</td><td>22</td><td>23</td></tr> 
	   <tr><td>31</td><td>32</td><td>33</td></tr> 
	   
   </table> </center>
'

USEHTML = 1
   *nl'<center>Название таблицы'
   *p'<table width="300" bgcolor="plum" border="1"' 
	   *p'align="center" cellspacing="5" cellpadding="10">' 
	   *p'<tr><th>1</th><th>2</th><th>3</th></tr>' 
	   *p'<tr><td>11</td><td>12</td><td>13</td></tr>' 
	   *p'<tr><td>21</td><td>22</td><td>23</td></tr>' 
	   *p'<tr><td>31</td><td>32</td><td>33</td></tr> '
   *p'</table> </center>'

!локация 'стол'
if раунд > 6:
	раунд = 0
	gt $curloc
end
раунд = раунд + 1
if ставка = 0:
	act 'Сделать ставку':
		a = input 'Делайте ставку!'
			if a > благосостояние:
				'У вас нет столько денег!'
			else
				благосостояние = благосостояние - a
				ставка = 1
				gt $curloc
			end
			end
	end
end
if ставка = 1:
	act 'Бросить кубики':
		gt 'лживые кости'
	end
end

!локация 'лживые кости'
if раунд = 1 or раунд = 3 or раунд = 5:
	gs 'лживые кости0'
end
if раунд = 2 or раунд = 4 or раунд = 6:
	gs 'лживые кости1'
end

!служебная локация '!бросок'
кость1 = rand (1,6)
кость2 = rand (1,6)
ответ = кость1 + кость2
кость3 = rand (1,6)
кость4 = rand (1,6)
ответ2 = кость3 + кость4

!локация 'лживые кости0'
*p 'Раунд <<раунд>>
'
gs '!бросок'
'Вы бросаете кубики...'
wait 2000
'Вы выкинули число <<ответ>>'
wait 1000
'Противник бросает кубики...'
	act 'Солгать о выкинутом числе':
		ложь = 1
		правда = 0
		gt $curloc
		'Вы решили сблефовать.'
	end
	act 'Сказать правду':
		правда = 1
		ложь = 0
		gt $curloc
		'Вы решили не блефовать.'
	end
end
if ложь = 1 or правда = 1:
	wait 1000
	*p 'Противник думает...'
	думает = rnd
	if думает > 500 or думает = 500:
		блеф = 1
		неблеф = 0
		gt $curloc
		*p 'Противник думает, что вы блефуете!'
	else
		блеф = 0
		неблеф = 1
		gt $curloc
		*p 'Противник думает, что вы говорите правду!'
		wait 1000
	end
end
if ложь = блеф and ложь = 1:
	*p 'Вы проиграли. Противник раскусил вас!'
	delact 'Бросить кубики'
	act 'Еще разок!':
		gt 'стол'
	end
end
if ложь = неблеф and ложь = 1:
	*p 'Вы открываете свои кубики ошарашенному противнику. Вы выиграли!'
	благосостояние = благосостояние + a + a
	delact 'Бросить кубики'
	act 'Еще разок!':
		gt 'стол'
	end
end
if правда = блеф and правда = 1:
	*p 'Вы открываете свои кубики ошарашенному противнику. Вы выиграли!'
	благосостояние = благосостояние + a + a
	delact 'Бросить кубики'
	ставка = 0
	act 'Еще разок!':
		gt 'стол'
	end
end
if правда = неблеф and правда = 1:
	*p 'Вы проиграли. Противник раскусил вас!'
	delact 'Бросить кубики'
	ставка = 0
	act 'Еще разок!':
		gt 'стол'
	end
end

!служебная локация '!противник'
if блеф = 1:
	лицо = rand (1,3)
	if лицо = 1:
		$лицо = 'Противник цепко следит за вами немигающим взглядом. Вы замечаете, как по лбу у него стекает капля пота.'
	end
	if лицо = 1:
		$лицо = 'Противник утирает пот с верхней губы. Вы замечаете, что у него непроизвольно дернулся уголок рта.'
	end
	if лицо = 1:
		$лицо = 'Противник чешет затылок. Вы замечаете, как он рефлкторно кусает губу.'
	end
end
if неблеф = 1:
	лицо = rand (1,3)
	if лицо = 1:
		$лицо = 'Противник смотрит на вас холодными глазами. Он не делает никаких лишних телодвижений.'
	end
	if лицо = 1:
		$лицо = 'Противник отвел взгляд в сторону. Он сидит очень уверенно, словно не замечая вас.'
	end
	if лицо = 1:
		$лицо = 'Противник задумчиво смотрит на свои кости. Лоб его гладок.'
	end
end

!локация 'лживые кости1'
*p 'Раунд <<раунд>>
'
gs '!бросок'
'Вы бросаете кубики...'
wait 2000
'Вы выкинули число <<ответ>>'
wait 1000
'Противник бросает кубики...'
грань1 = rand (1,6)
грань2 = rand (1,6)
врет = грань1 + грань2
говорит = rnd
if говорит > 500 or говорит = 500:
	блеф = 1
	неблеф = 0
	gt $curloc
	*p 'Противник говорит число <<врет>>.'
else
	блеф = 0
	неблеф = 1
	gt $curloc
	*p 'Противник говорит число <<ответ2>>.'
	wait 1000
end
gs '!противник'
act 'Рассмотреть противника':
	*p '<<$лицо>>'
	delact 'Рассмотреть противника'
end
act 'Вы решаете, что противник блефует'
	блеф1 = 1
	неблеф1 = 0
	delact 'Вы решаете, что противник блефует'
	gt $curloc
	wait 1000
end
act 'Вы решаете, что противник говорит правду':
	блеф1 = 0
	неблеф1 = 1
	delact 'Вы решаете, что противник говорит правду'
	gt $curloc
	wait 1000
end
if блеф1 = блеф and блеф1 = 1:
	*p 'Противник меняется в лице. Вы выиграли!'
	благосостояние = благосостояние + a + a
	delact 'Бросить кубики'
	ставка = 0
	act 'Еще разок!':
		gt 'стол'
	end
end
if блеф1 = неблеф and блеф1 = 1:
	*p 'Противник злорадно улыбается. Вы ошиблись, и этот раунд не за вами.'
	delact 'Бросить кубики'
	ставка = 0
	act 'Еще разок!':
		gt 'стол'
	end
end
if неблеф1 = неблеф and неблеф1 = 1:
	*p 'Противник меняется в лице. Вы выиграли!'
	благосостояние = благосостояние + a + a
	delact 'Бросить кубики'
	ставка = 0
	act 'Еще разок!':
		gt 'стол'
	end
end
if неблеф1 = блеф and неблеф1 = 1:
	*p 'Противник злорадно улыбается. Вы ошиблись, и этот раунд не за вами.'
	delact 'Бросить кубики'
	ставка = 0
	act 'Еще разок!':
		gt 'стол'
	end
end

!служебная локация "!бросок". К ней идет обращение, когда нужно перекидывание "кубиков".
кость1 = rand (1,6)
кость2 = rand (1,6)
ответ = кость1 + кость2
кость3 = rand (1,6)
кость4 = rand (1,6)
ответ2 = кость3 + кость4

!локация "стол"
!здесь все так, как вы показали.
if раунд > 6:
	раунд = 0
	gt $curloc
end
раунд = раунд + 1
if ставка = 0:
	act 'Сделать ставку':
		a = input 'Делайте ставку!'
		if a > благосостояние:
			'У вас нет столько денег!'
		else
			благосостояние = благосостояние - a
			ставка = 1
			cla
			act 'Бросить кубики': gt 'лживые кости'
        end 
    end 
end

!локация "лживые кости"
!тут все тоже без изменений
if раунд = 1 or раунд = 3 or раунд = 5:
	gs 'лживые кости0'
end
if раунд = 2 or раунд = 4 or раунд = 6:
	gs 'лживые кости1'
end

!локация "лживые кости0
!тут выполняется код, если это нечетный раунд.
!спасибо, что сказали, я разобралась и вынесла часть кода в отдельную локацию
*p 'Раунд <<раунд>>
'
gs '!бросок'
'Вы бросаете кубики...'
wait 2000
'Вы выкинули число <<ответ>>'
wait 1000
act 'Солгать о выкинутом числе':
	ложь = 1
	правда = 0
	gs 'лживые кости0_1'
end
act 'Сказать правду':
	правда = 1
	ложь = 0
	gs 'лживые кости0_1'
end

!локация "лживые кости0_1
!тут выполняется вторая часть кода, если раунд нечетный. В нечетном раунде нпс угадывает, врет игрок или нет с помощью рандома
if ложь = 1:
	'Вы решили сблефовать.'
else
	'Вы решили не блефовать.'
end
cla
wait 1000
*p 'Противник думает...'
думает = rnd
if думает > 500 or думает = 500:
	блеф = 1
	неблеф = 0
	*p '
Противник думает, что вы блефуете!'
else
	блеф = 0
	неблеф = 1
	*p '
Противник думает, что вы говорите правду!'
	wait 1000
end
if ложь = блеф and ложь = 1:
	*p '
Вы проиграли. Противник раскусил вас!'
	ставка = 0
	правда = 0
	ложь = 0
	неблеф = 0
	блеф = 0
	act 'Еще разок!':
		gt 'стол'
	end
end
if ложь = неблеф and ложь = 1:
	*p '
Вы открываете свои кубики ошарашенному противнику. Вы выиграли!'
	благосостояние = благосостояние + a + a
	ставка = 0
	правда = 0
	ложь = 0
	неблеф = 0
	блеф = 0
	act 'Еще разок!':
		gt 'стол'
	end
end
if правда = блеф and правда = 1:
	*p 'Вы открываете свои кубики ошарашенному противнику. Вы выиграли!'
	благосостояние = благосостояние + a + a
	ставка = 0
	правда = 0
	ложь = 0
	неблеф = 0
	блеф = 0
	act 'Еще разок!':
		gt 'стол'
	end
end
if правда = неблеф and правда = 1:
	*p 'Вы проиграли. Противник раскусил вас!'
	правда = 0
	ложь = 0
	неблеф = 0
	блеф = 0
	ставка = 0
	act 'Еще разок!':
		gt 'стол'
	end
end

!теперь четные раунды. Тут уже игрок должен угадать, врет противник или нет. Для этого была создана служебная локация "!противник", в которой рандомом задаются его описания, когда он врет или не врет.
!локация "!противник"
if блеф = 1:
	лицо = rand (1,3)
	if лицо = 1:
		$лицо = 'Противник цепко следит за вами немигающим взглядом. Вы замечаете, как по лбу у него стекает капля пота.'
	end
	if лицо = 2:
		$лицо = 'Противник утирает пот с верхней губы. Вы замечаете, что у него непроизвольно дернулся уголок рта.'
	end
	if лицо = 3:
		$лицо = 'Противник чешет затылок. Вы замечаете, как он рефлкторно кусает губу.'
	end
end
if неблеф = 1:
	лицо = rand (1,3)
	if лицо = 1:
		$лицо = 'Противник смотрит на вас холодными глазами. Он не делает никаких лишних телодвижений.'
	end
	if лицо = 2:
		$лицо = 'Противник отвел взгляд в сторону. Он сидит очень уверенно, словно не замечая вас.'
	end
	if лицо = 3:
		$лицо = 'Противник задумчиво смотрит на свои кости. Лоб его гладок.'
	end
end

!локация "лживые кости1". Ее я тоже разбила. Тут снова бросаются кости в служебной локе "!бросок", после чего определяется, будет нпс блефовать или нет.
*p 'Раунд <<раунд>>
'
gs '!бросок'
'Противник бросает кубики...'
грань1 = rand (1,6)
грань2 = rand (1,6)
врет = грань1 + грань2
говорит = rnd
if говорит > 500 or говорит = 500:
	блеф = 1
	неблеф = 0
	gs 'лживые кости1_1'
else
	блеф = 0
	неблеф = 1
	gs 'лживые кости1_1'
end

!локация "лживые кости1_1". Вторая часть.
if блеф = 1 and блеф1 = 0 and неблеф1 = 0:
	*p '
Противник говорит число <<врет>>.'
end
if неблеф = 1 and блеф1 = 0 and неблеф1 = 0:
	*p '
Противник говорит число <<ответ2>>.'
end
gs '!противник'
wait 1000
act 'Рассмотреть противника':
	*p '
<<$лицо>>'
	delact 'Рассмотреть противника'
end
act 'Вы решаете, что противник блефует':
	блеф1 = 1
	неблеф1 = 0
	cla
	gs 'лживые кости1_1'
	wait 1000
end
act 'Вы решаете, что противник говорит правду':
	блеф1 = 0
	неблеф1 = 1
	cla
	gs 'лживые кости1_1'
	wait 1000
end
if блеф1 = блеф and блеф1 = 1:
	*p '
Противник меняется в лице. Вы выиграли!'
	благосостояние = благосостояние + a + a
	ставка = 0
	неблеф1 = 0
	блеф = 0
	блеф1 = 0
	неблеф = 0
	cla
	act 'Еще разок!':
		gt 'стол'
	end
end
if блеф1 = неблеф and блеф1 = 1:
	*p '
Противник злорадно улыбается. Вы ошиблись, и этот раунд не за вами.'
	ставка = 0
	неблеф1 = 0
	блеф = 0
	блеф1 = 0
	неблеф = 0
	cla
	act 'Еще разок!':
		gt 'стол'
	end
end
if неблеф1 = неблеф and неблеф1 = 1:
	*p 'Противник меняется в лице. Вы выиграли!'
	благосостояние = благосостояние + a + a
	ставка = 0
	неблеф1 = 0
	блеф = 0
	блеф1 = 0
	неблеф = 0
	cla
	act 'Еще разок!':
		gt 'стол'
	end
end
if неблеф1 = блеф and неблеф1 = 1:
	*p 'Противник злорадно улыбается. Вы ошиблись, и этот раунд не за вами.'
	неблеф1 = 0
	блеф = 0
	блеф1 = 0
	неблеф = 0
	ставка = 0
	cla
	act 'Еще разок!':
		gt 'стол'
	end
end