Что можно добавить в игру?

https://i.ibb.co/Tgts5yJ/2022-04-15-19-31-11.png, а в исходном коде всё ок при этом, ну в смысле текст в коде не корявый.

Аналогичная фигня. Никто не знает как поправить? Хочется заценить игруху.

А что это делает?

use open qw( :encoding(cp866) :std )

Очевидно под DOS автор игру пишет

Ага, убрал заработало. Автор суров :D

Шурик вон уже указал на причину. Удали use open qw( :encoding(cp866) :std ) или поменяй на use open qw( :encoding(utf8) :std ) надеюсь так правильно.

Сделал. Теперь у меня через строчку появляется строка:

Wide character in print at rpg.pl line 53, line 2.

Только номера этих line всегда разные.

Я в перле нибумбум ждём автора,Шурика или ещё кого =)

А тоже не шарю)

Я даже не за компьютером, чтобы попроьовать

Что можно добавить в игру?

Возможность грабить корованы.

Капец, там >1к строк.

С добавлением квестов и графики код до 1М строк может вырасти)

Автор, заводи Git, делай инклуды и установи уже WSL 2 себе, потому что тут мало кто игру в cmd.exe будет запускать

Корованы же!

Wide character in print at rpg.pl line 53, line 2.

Ругается на "\n", а именно на то, что автор конкатенирует инпуты $key/$wasd со строкой, в которой символ перевода строки.

тут можно почитать

Уже можно грабить корованы? Я джва года ждал…

Сплошной хардкод. Тут же ничего не поправить.

Если поменять то у меня тоже кракозябры

Конечности. Вообще поиграй в дфарф фортресс, оттуда можно много чего утянуть.

Делема

🦄

Что можно добавить в игру?
на perl

Суть токова: пользователь может запиливать регулярочки, обмазываться скобками и писать однострочники. И если пользователь пишет однострочник то там cкобки весёлые, косые чёрточки в разные стороны наклонены, регулярочки непонятные и файлы удоляются. Можно грабить корованы…

можно просто в начале проверять ос если винда то

use open qw( :encoding(cp866) :std );

, если линукс то

use open qw( :encoding(utf8) :std );

Ну вот, вставь это в игру =) Я выше говорил что я в перле непукпук не в курсе даже как там условия выглядят. =)

Например в переменной $^O содержится имя ос.нужно просто с помощью регулярного выражения проверить есть ли там win или нет

всё, вроде бы исправил

Хорошо, вечером пройду

только в игре ещё даже сюжета нет)

там только можно ходить, драться, покупать заклинания, оружия, ещё небольшие диалоги есть

Текстовая rpg на перле. На перле, ёшкин крот!

Автор молодец. Изобретательный.

ВНЕЗАПНО, как if-else. Или как cond ? a : b. Или как a unless cond. Или как cond && a. Или…

сейчас добавляю одежду она будет давать + к защите

я потом хочу перенести все хэши в отдельный файл, чтобы удобнее было и код был лучше

Твой код говно, пишешь на мёртвом языке, сути нет. Казалосб бы, где проблема, где поссать….

пишешь на мёртвом языке

Который у тебя в избранных тэгах.

ну ты и шиз. сам же писал:

Сегодня исполнилось 26 лет языку Perl. Язык повлиял на многие современные языки программирования, имеет огромное количество как поклонников, так и идеологических врагов.

Perl всё ещё активно используется для разработки программ, CPAN (хранилище модулей) растёт, а язык развивается.

Long Live Perl!

Всех перлистов с праздником!

лучше объясни, что не так с кодом

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

Добавьте наконец ТРИ-ДЭ.

Ещё CDDA, там некоторые штуки круче сделаны, чем в DF, да и вообще нет ни одной игры, где были бы более крутые автомобили. Я серьёзно.

Друг, ну чего опять крякозябры? Чего поломалося?

У меня уже патч готов

+ print "ДДД";

Ограбление караванов?

Можно нарратив добавить, хотя можно и не заморачиваться.

я не знаю как это исправить

добавил разные данжы, теперь в игре есть 2 города, между ними можно передвигатся с помощью быстрого путешествия,теперь можно задонатить в церковь это принесёт + 1 к репутации. Ещё если зайти в дом в нём может оказатся стражник который отправит вас в тюрьму(-1 репутации, магии и силы). Ещё добавил немного диалогов, также теперь у монстров разное количесво здоровья. И пока игрок ходит ему может рандомно + к мане или золоту.

всё я понял как это убрать, я включил отображение ошибок

use warnings;

Наверное вот так:

$os = $^O;
if($os eq "MSWin32" or $os eq "MSWin64"){
	print "Windows\n";
	use open qw( :encoding(cp866) :std );
} else {
	print "Other OS\n";
	use open qw( :encoding(utf8) :std );
}

У меня на винде выводится «Windows», а на этом сайте выводится «Other OS»

Не работает у меня на antiX. В итоге делаю так: удаляю к херам твои эти проверки и оставляю только строчку

use open qw( :encoding(utf8) :std );

Тогда всё работает корректно.

Апдейт. Погорячился я со словом «корректно», конечно. :-) Что делать в игре - не понятно. Постоянно появляется торговец, у которого ничего нельзя купить, так как нет денег. Встретил замок, зашел. Написали вы в замке. Круто, чо. Толку-то от этого. Также побывал в шахте. Увлекательно до жути.

Вердикт: Пока не играбильно.

введи чит код на золото

пока в игре можно только ходить и 1 квест выполнить. В шахте заработать золото, потом можно купить магию и ману и драться с монстрами

добавил города

А где пощупать-то эти твои города?