Mini Conan II by Fabrizio Caruso

ПЕРЕМЕННЫЕ

электронная энергия

сила игрока f

v скорость игрока

b уровень ботинок

уровень улучшения брони z

г деньги

w(i) количество i-го элемента

m$(i) строка i-го элемента

p(i) цена i-го товара

e$(i) i-й врагстрока

v(i) i-я сила врага и (i-1)-я скорость врага

h расчетная сила атаки противника в бою

m рассчитана эффективная скорость противника при попытке побега

ОБЪЯСНЕНИЕ КОДА

0

// Инициализируем переменные: 1 начальная броня, начальная энергия = 100, начальная скорость = 1

z=1:e=100:color0,7:r$="return":v=1:

// Читаем настройки игры (название i-го квеста или торговца, количество i-х предметов, название i-го предмета, цена i-го предмета, имя i-го врага, < /p>

fori=1to5:w(i)=5:readj$(i),m$(i),p(i),e$(i):

// коэффициент силы i-го противника

v(i)=2+i+4*(ianand1):

// Некоторые настройки игры

данные"{светло-зеленые}равнины","{голубые}зелья{желтые}":далее

1

// функция силы/скорости силы

deffnf(x)=int(n*n*x*x/(9+rnd(1)*45)):

// энергия и золото = 100, 5 начальных сапог, 1 начальная сила

g=e:b=2:f=1:

// Некоторые настройки игры

data50,"{светло-зеленые}тролли","{зеленые}леса","{светло-зеленые}сапоги{желтые}",100,"{оранжевые}кобольды","{оранжевые}пустыни","{серые }броня{желтая}", 300

2

// Установить голубой цвет. Показать гостиницу и статистику. Показать список квестов. Дождитесь нажатия клавиши.

color4,7:scnclr:gosub9:fori=1to4:print"{white}"i;j$(i):next:getkeyj$:j=val(j$)

// Если выбор 1,2 или 3, то перейти к 4

на-(j<4andj>.)goto4:

// Иначе выводим статистику и меню продавца

gosub9:printj$(4):fori=1to3:print"{белый}"i"{темно-серый}"w(i)m$(i)p(i):следующий

3

// Отобразить "торговец"

print" {white}4"m$(4):

// Ждем ввода. Если ввод неверный или выйти, то вернуться к 2

getkeyj$:j=val(j$):on-(j=4org

// Увеличение выбранной характеристики (энергия с зельем, сапогами, доспехами). Уменьшить количество доступных предметов. Вычтите потраченное золото. Вернуться к 2

e=e-(j=1)*20:b=b-(j=2)*8:z=z-(j=3):g=g-p(j):w(j)=w (j)-1: перейти к2

4

// Инициализация

y$="{orange}потеряно":

// Цикл квеста (j*3 дня туда и обратно)

вилка=.to1:fori=1toj*3:

// Отображаем количество дней в пути

print"{clear}":printj$(j):print"{down}{white}day{светло-серый}"i;q$:

// Выбираем тип врага

r=1+rnd(1)*(j+1):

// Выбираем количество врагов

n=2+int(rnd(1)*(2*j+t)):

// Отображаем количество и тип врагов, которые вас атакуют

printn;e$(r)" {белые}нападают на вас!"

5

// Отображение статистики

gosub9:

// Если все еще жив, отобразить выбор бой против бегства

ife>.thenprint"{светло-серый}1.fight":print"2.runaway{down}":

// Ожидаем ввода

getkeyj$:a=val(j$):a=aand1:

// Вычисляем h, силу/скорость врагов

h=fnf(v(r+1)/(1+z/2)):h=a*h-f:

// Если в бою, если h больше, чем f, то вы теряете h энергии. Раздается звук щелчка

ifh>.thenprinty$;h:e=e-h:vol15:vol.

6

// если энергии не осталось, подождите 4 секунды, покажите статистику, дождитесь ключа, перезапустите игру, иначе если в бою, то выведите "1 дies", подождите 1 секунду, увеличьте свою силу, уменьшите количество врагов, если врагов не осталось, отобразите небольшую награду и отобразите ее, увеличьте золото, отобразите его, подождите 1 секунду и вернитесь к 8, в противном случае перейдите к 5.< /p>

ife<1thenprintz$:sleep4:gosub9:getkeyk$:run:elseifathenprint"{white}{down}{X} {голубой}1 dies":sleep1:f=f+1:n=n-1:ifn <1thenp%=1+r:print"{yellow}${white}"p%:g=g+p%:sleep1:goto8:elseif-agoto5

7

// Вычисляем скорость противника m

м=fnf(v(r)):

// если убегает и враг быстрее игрока и игрок не в волшебных сапогах, то игрок теряет x% врага, раздается звук щелчка, ждите 1 секунду и возвращаемся к 5

// если убегает и враг медленнее игрока, то выводим "вы сбежали!", ждем 2 секунды, увеличиваем скорость игрока, уменьшаем сапоги, если были доступны.

ifa=0andm>vandb<1thenx%=1+m/9/z:printy$;x%;e$:e=e-x%:vol9:vol.:sleep1:goto5:elseifa=0thenprint"вы сбежали! ":sleep2:v=v+1:b=b+(b>.)

8

// Инициализация

z$="{orange}{down}end":

далее:

// Вычисление награды за основной квест

p%=j*j*7+rnd(1)*9:

// Увеличиваем t (что влияет на количество врагов, встречающихся во время квестов)

ifk=.thent=t+.2-(t>2)*.2:

// Вычислить строку q$ ("назад" или пустую)

q$=r$:

// Отображение награды и звук колокольчика. Увеличение золота. Подождите 2 секунды.

print"reward {yellow}${white}{007}"p%:g=g+p%:sleep2:next:elseq$="":next:w(1)=w(1)+1 :goto2

9

// [Процедура отображения статистики]

// Отображение статистики: энергия, мощность, сила, скорость, ботинки, броня, золото, счет

print"{down*2}{orange}S{pink}"e" {orange}po{white}"f"{голубой}sp{white}"v"{светло-зеленый}bo{green}"b "{gray}ar{светло-серый}"z"{yellow}${white}"g:print"{down}{gray}score{white}";v+f-2:print:return:

// Дополнительные данные

data"{green}elves", "{cyan}{reverse on}merchant{reverse off}{down}","{grey}