Как высчитать опыт?

[[Smarik]]

Делаю текстовую игру, сейчас попытаюсь максимально понятно обрисовать ситуацию =)
не могу продумать как автоматизировать процесс прибавления опыта требуемого для повышения следующего уровня =)
тоесть примерно так человек 1-ый уровень для 2-го уровня требуется 100 опыта, когда он получит 2-ой уровень ему для 3-го уровня потребуется 220 опыта (тобишь +120%) но как етот процесс автоматизировать?

[B_N]

Чтобы не плодить множество условий можно, например, воспользоваться логарифмом (или, наоборот, какой-нибудь показательной функцией), смотря по конкретной задаче. Ну, или просто, держать для каждого объекта свою переменную "НадоДляПереходаНаСледующийУров ень" и при увеличении уровня умножать ее на Ваши 120%, т.е. на 1.2

[[Smarik]]

я так и сделал последним способом, но там куча других ошибок, наверное лучше посмотрите исходники

uses crt,graph;
var
name,surname,rassa,status:string;
level,exp,nextlvl,nextexp:integer;
GrDr,GrMd,Error:integer;
{name - имя героя, surname - фамилия, rassa - рассовая принадлежность,
status - статус зависящий от действий в игре, level - уровень героя, exp - опыт героя,
nextexp - когда следующий уровень, nextlvl - содержит данные сколько опыта требует следующий уровень}
begin
GrDr:=Detect;
InitGraph(GrDr,GrMd,'c:\bp\bin');
Error:=GraphResult;
if Error<>grOk then
begin
writeln(GraphErrorMSG(error));
Halt;
end;
SetTextStyle(4,0,7);
OutTextXY(50,130,'DUNE');
SetTextStyle(4,0,4);
OutTextXY(130,200,'Восстание');
readkey;
closegraph;
clrscr;
textcolor(red);
writeln('[menu]');
textcolor(green);
write('Введите имя: ');
readln(name);
write('Введите фамилию: ');
readln(surname);
clrscr;
textcolor(red);
writeln('[menu]');
textcolor(green);
rassa:='Человек';
status:='Нейтральный';
level:=0;
exp:=0;
nextlvl:=100;
if exp>=nextlvl then level:=level+1;
if exp>=nextlvl then nextlvl:=nextlvl+200;
writeln('Имя: ',name);
writeln('Фамилия: ',surname);
writeln('Расса: ',rassa);
writeln('Статус: ',status);
writeln('Уровень: ',level);
writeln('Опыт: ',exp);
writeln('До: ',level+1,' уровня ',nextlvl-exp, ' опыта');
readkey;
end.

если изначально exp присвоить 101 например...он нормально напишет вы 1 уровень и до 2 уровня осталось 199 опыта... но если написать например 10000 он ответит вы 2 уровень до 3 уровня осталось -7462 (ет к примеру) сейчас понять не могу как исправить.

[B_N]

Честно говоря, не совсем понял, откуда всплывает 1000, но пишет оно, как Вы и просите: "level+1", "nextlvl-exp", чему тут удивляться? Предлагаю рассмотреть вот такой вариант:

type HeroRec = record
	Name					: string;
	SurName					: string;
	Race					: integer;
	Status					: string;		{ ????? }
	CurrentLevel			: cardinal;
	PromoteLevelMultiplier	: real;
	NextLevelExperience		: cardinal;
	CurrentExperience		: cardinal;
end;

procedure InitHero(var Hero : HeroRec);
begin
	Hero.Name					:= '???????';
	Hero.SurName				:= '???????';
	Hero.Race					:= 0;			{ ????? }
	Hero.Status					:= '???????';	{ ????? }

	Hero.PromoteLevelMultiplier	:= 1;
	Hero.NextLevelExperience	:= 100;
	Hero.CurrentExperience		:= 0;
	Hero.CurrentLevel			:= 1;
end;

procedure AddExperience(ExpToAdd : cardinal; var Hero : HeroRec);
begin
	while ExpToAdd > 0 do begin
		if ExpToAdd  + Hero.CurrentExperience > Hero.NextLevelExperience then begin
			ExpToAdd := ExpToAdd - (Hero.NextLevelExperience - Hero.CurrentExperience);
			Hero.CurrentExperience := Hero.NextLevelExperience;
			Hero.CurrentLevel := Hero.CurrentLevel + 1;
			PromoteLevelMultiplier := PromoteLevelMultiplier * 1.2;
			Hero.NextLevelExperience := Hero.NextLevelExperience + Hero.NextLevelExperience * PromoteLevelMultiplier;
{Здесь может быть какая-то другая формула нужна}
		end
		else begin
			Hero.CurrentExperience := Hero.CurrentExperience + ExpToAdd;
			ExpToAdd := 0;
		end;
	end;
end;

Проверьте, не напутал ли я чего, писал на ходу. Зато теперь, чтобы добавить опыта и автоматически провести все остальные действия достаточно вызвать AddExperience, а чтобы узнать, сколько до следующего уровня надо просто вычесть

Hero.NextLevelExperience - Hero.CurrentExperience

. Или я неправильно понял проблему?

[[Smarik]]

B_N ну у тебя пол задачи на делфи написано =) ладно вобщем, там возник ряд других проблем более сложных, буду пока ими заниматься.

[nikleb]

Возможно проблема в том что тип переменных integer, поставь лучше real. А выводи так writeln(round(a));
Хотя нет, сам посчитай:
level:=0;
exp:=10000;
nextlvl:=100;
if exp>=nextlvl then level:=level+1; {10000>100 ==> level:=0+1 }
if exp>=nextlvl then nextlvl:=nextlvl+200; {10000>100 ==> nextlvl:=100+200=300}

writeln('Уровень: ',level); {Выводит 1}
writeln('Опыт: ',exp); {выводит 10000}
writeln('До: ',level+1,' уровня ',nextlvl-exp, ' опыта'); {выводит До: 2 уровня {300-10000} -9700 опыта}

И кстати пример выше от B_N написан на паскале , это записи называеться