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

mkir #1281 08.06.2015 22:20 (10 years ago)

Друзья! У меня еще один скорее всего глупейший вопрос. Вот только сегодня вдруг осознал, изучая чужие игры, что можно записывать все в одну строку, а не в столбик. в смысле, например, вместо:

if $orjname = ‘Идеальный меч’:
orjatck = 185
orjkrit = 120
orjinic = 18
…и так далее
end

вот так:

if $orjname = ‘Идеальный меч’: orjatck = 185&orjkrit = 120&orjinic = 18&и проч. и проч.

Сразу же захотел кое-чего переписать, однако сразу же и передумал, решив, что “старый” метод привычнее и удобнее для глаз.

Вот у меня этими if $orjname а так же всяческими if $lookname $dospname $monstr и прочими весьма и весьма перегружена локация “newloc”, учитывая что на каждый “name” приходится от десяти больше различных меняемых характеристик. Сейчас строчек в локации где-то две с половиной тыщи, хотя это только начало игры и сколько будет дальше прогнозируется вероятно около десяти тыщ.

Вопрос в следующем: Не будет ли игра подвисать от количества строк? влияет ли вообще на что-нибудь это количество? смещение всего в одну строку (вместо столбика) - прием чисто визуально-эстетический или носит еще какую-то практическую функцию?

S

svandrus #968 09.06.2015 05:07 (10 years ago)

Белый Шарик #100 09.06.2015 06:03 (10 years ago)

S

svandrus #968 09.06.2015 06:31 (10 years ago)

Белый Шарик #100 09.06.2015 06:37 (10 years ago)

Белый Шарик #100 09.06.2015 09:09 (10 years ago)

S

svandrus #968 09.06.2015 09:36 (10 years ago)

Белый Шарик #100 09.06.2015 10:58 (10 years ago)

Mr. Black #927 09.06.2015 11:50 (10 years ago)

Белый Шарик

Можно сделать проще:

Создаешь предмет, к примеру «Ресурсы», пишешь там:

clr
pl 'Доски <<dosky>> шт.'
pl 'Гвозди <<gvozdy>> шт.'

При нажатии на этот предмет в окно дополнительного описания будет выводится информации о количестве предметов. В начале прописываешь стартовое количество этих предметов:
dosky = 0
gvozdy = 0

А дальше в действиях где изменяется это количество предметов пишешь к примеру:

Получение предмета.

Act 'Купить доски' :
  dosky = dosky + 5
End

Трата предметов.

Act 'Построить скамейку' :
  if gvozdy<10 or dosky<20 :
    *pl 'Недостаточно ресурсов'
  else
    dosky = dosky - 10
    gvozdy = gvozdy - 20
    *pl 'Вы построили скамейку.'
  End
End

S

svandrus #968 09.06.2015 11:55 (10 years ago)

BiK,
Это же про массивы…

Белый Шарик,
http://qsp.su/index.php?option=com_content&task=view&id=59&Itemid=56&limitstart=6
А это про считаемые предметы в инвентаре.
Вообще-то, лучше весь учебник пройти сначала, от начала и до конца…
P.S. Не совсем то, что надо, но пройти всё равно полезно.
Смысл считаемых объектов в совмещении знаний о массивах и условиях,

act 'Взять яблоко':
 яблоко += 1
 кол_во_яблок += 1
 delobj $Яблоки_в_инвентаре
 IF яблоко >= 1:
	IF кол_во_яблок = 1: $apple = 'о'
	IF кол_во_яблок > 1 and кол_во_яблок < 5: $apple = 'а'
	IF кол_во_яблок >= 5: $apple = ''
	$Яблоки_в_инвентаре = '<<кол_во_яблок>>' + ' яблок' + '<<$apple>>'
	add obj $Яблоки_в_инвентаре 
END
END

Не слишком правильно, но смысл должен быть понятен. DEL OBJ делаем, чтобы инвентарь обновлялся каждый раз… Как-то так.
P.P.S. Обновил код, чтоб склонялось правильнее…

UPD #3 - С отниманием яблок…

Spoiler

act 'Взять яблоко':
 яблоко += 1
 кол_во_яблок += 1
 delobj $Яблоки_в_инвентаре
 IF яблоко >= 1:
	IF кол_во_яблок = 1: $apple = 'о'
	IF кол_во_яблок > 1 and кол_во_яблок < 5: $apple = 'а'
	IF кол_во_яблок >= 5: $apple = ''
	$Яблоки_в_инвентаре = '<<кол_во_яблок>>' + ' яблок' + '<<$apple>>'
	add obj $Яблоки_в_инвентаре 
	gt $curloc
END
END

If яблоко > 0:
	act 'Съесть яблочко':
		яблоко -= 1
		кол_во_яблок -= 1
		delobj $Яблоки_в_инвентаре
		IF яблоко >= 1:
			IF кол_во_яблок = 1: $apple = 'о'
			IF кол_во_яблок > 1 and кол_во_яблок < 5: $apple = 'а'
			IF кол_во_яблок >= 5: $apple = ''
			$Яблоки_в_инвентаре = '<<кол_во_яблок>>' + ' яблок' + '<<$apple>>'
			add obj $Яблоки_в_инвентаре 
			gt $curloc
		ELSE
			!Чтобы не съесть больше чем есть...
			gt $curloc
		END
	END
END

UPD # 4. Переменная Яблоко не очень-то и нужна тут. Проверку можно делать только по кол_во_яблок. Это по инерции получилось - я ж не специалист. Щас специалисты придут и сделают мне “ататат”…

Белый Шарик #100 10.06.2015 06:57 (10 years ago)

S

svandrus #968 10.06.2015 07:52 (10 years ago)

Белый Шарик,
Есть у меня такой хепл. Давай почту - скину.
2) да
1) Те же гвозди, как рекомендовал BiK можно накапливать не в инвентаре, а в массивах, да ещё и рассортировать их по толщине, длине и остроте… И хранить там же и умножать на что-нибудь… Это касательно твоего замечания о 100 типах объектов в инвентаре…
P.S. Как-то неправильно у тебя сделано. Если гвозди = 0, до должно зацикливать и зацикливает, если сделать так:

...
else 
	pl 'Нет гвоздей в наличи' 
	gt $curloc    
end

Разнеся ELSE и PL на разные строки. Плюс, однажды купив гвозди они будут в инвентаре всё время, т.е. будет гвозди 0 шт.
Чтобы от этого избавиться хвост должен быть так:

else 
	pl 'Нет гвоздей в наличии' 
	delobj $гвозди_инвентарь
end

S

svandrus #968 10.06.2015 09:48 (10 years ago)

Aleks Versus Moderator 10.06.2015 09:55 (10 years ago)

S

svandrus #968 10.06.2015 10:04 (10 years ago)