М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
рол140
рол140
26.01.2020 19:47 •  Информатика

(Создание мода для DST)
В общем я создал своего персонажа для Don't Starve Together (игра из STEAM).
И я хочу добавить ему прыжок , чтобы в игре при нажатии на R он прыгал , примерно как персонаж - Wharang ...
Я пытался "позаимствовать" прыжок из данного мода , но при запуске мира была фатальная ошибка

И так

Я не знаю Луа (язык программирования) и хочу добавить прыжок персонажу ...
Поэтому мне нужна инструкция с подготовленными файлами (где нужно будет только заменять имя) и желательно хорошее обьяснение всего...
На крайняк можно сделать инструкцию : как "позаимствовать" эту функцию из мода Wharang ...
{Надеюсь найдётся хоть кто-то знающий как это сделать}

👇
Открыть все ответы
Ответ:
Russ1357900
Russ1357900
26.01.2020
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.
4,5(21 оценок)
Ответ:
korolovk
korolovk
26.01.2020
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.
4,5(35 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ