(Создание мода для DST) В общем я создал своего персонажа для Don't Starve Together (игра из STEAM И я хочу добавить ему прыжок , чтобы в игре при нажатии на R он прыгал , примерно как персонаж - Wharang ... Я пытался "позаимствовать" прыжок из данного мода , но при запуске мира была фатальная ошибка И так Я не знаю Луа (язык программирования) и хочу добавить прыжок персонажу ... Поэтому мне нужна инструкция с подготовленными файлами (где нужно будет только заменять имя) и желательно хорошее обьяснение всего... На крайняк можно сделать инструкцию : как "позаимствовать" эту функцию из мода Wharang ... {Надеюсь найдётся хоть кто-то знающий как это сделать}
Ответы
Var a,b:longint;
function sum (n:integer):integer;
var s:integer;
begin
s:=0;
while (n<>0) do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
begin
write ('A = ');
readln (a);
write ('B = ');
readln (b);
if sum(a) > sum(b) then
writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b))
else if sum(b) > sum (a) then
writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a))
else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа');
readln;
end.
function sum (n:integer):integer;
var s:integer;
begin
s:=0;
while (n<>0) do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
begin
write ('A = ');
readln (a);
write ('B = ');
readln (b);
if sum(a) > sum(b) then
writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b))
else if sum(b) > sum (a) then
writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a))
else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа');
readln;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Шартты форматтау деген не
Автор: timsch12
если не знаете ответа не пишите а то будет бан)
Автор: mereninka7008
Переведите число 111001 из двличного кода в десятичную систе у счисления
Автор: Abdulganieva1367
Какая наименьшая единица хранения данных е бд
Автор: SERGEI124
function sum (n:integer):integer;
var s:integer;
begin
s:=0;
while (n<>0) do
begin
s:=s+n mod 10;
n:=n div 10;
end;
sum:=s;
end;
begin
write ('A = ');
readln (a);
write ('B = ');
readln (b);
if sum(a) > sum(b) then
writeln ('Сумма цифр 1ого числа больше на ',sum(a)-sum(b))
else if sum(b) > sum (a) then
writeln ('Cумма цифр 2ого числа больше на ',sum(b)-sum(a))
else writeln ('Сумма цифр 1ого числа равна сумме цифр 2ого числа');
readln;
end.