Полезные скрипты

[Goo]

мелкие скипты, возможно у многих уже есть такие, но если нет таких, то вот тут их оставлю,
банальные конвертеры температуры

из Цельсия в Кельвин, и наоборот

Код:

/// conv_Celsius_to_Kelvin(val, mode)
// * return real * //

var v = argument0;
var m = argument1;

if (m) return max(v, -273.15) + 273.15;           
return max(v, 0) - 273.15;

Цельсий -> Фаренгейт

Код:

/// conv_Celsius_to_Fahrenheit(Val, mode)
// * return: real * //

var v = argument0;
var m = argument1;

if (m) return max(v, -273.15) * 1.8 + 32;               
return (max(v, 459.67) - 32) / 1.8;

Цельсий -> Делиш

Код:

/// conv_Celsius_to_Delisle(val, mode)
// * return: real * //

var v = argument0;
var m = argument1;

if (m) return 150 - max(v, -273.15) * 1.5;
return 100 - max(v, 559.725) / 1.5;

Цельсий -> Ньютон

Код:

/// conv_Celsius_to_Newton(val, mode)
// * return: real * //

var v = argument0;
var m = argument1;

if (m)  return 0.33 * max(v, -273.15);
return max(v, -90.1395) / 0.33;

Цельсий -> Ромер

Код:

/// conv_Celsius_to_Romer(val, mode)
// * return: real * //

var v = argument0;
var m = argument1;

if (m) return 0.525 * v = max(v, -273.15) + 7.5;
return (max(v, -135.904) - 7.5) / 0.525;

Банальное сложение времени, авось кому пригодиться, в качестве аргументов вводятся как строки, так и числа

Код:

/// time_sum(hore1, min1, hore2, min2)
// *  return: array * //

var h0 = argument0;
var m0 = argument1;
var h1 = argument2;
var m1 = argument3;

h0 = real(min(h0, 24));
h1 = real(min(h1, 24));
m0 = real(min(m0, 60));
m1 = real(min(m1, 60));
var a = 0;
m0 = m0 + m1;
a = m0 div 60;
m0 -= a * 60;
h1 = h0 + h1 + a;
if (h1>24){h1 = h1-24} 
a[0] = h1;
a[1] = m0;
return a;

[Anto96WS]

Поиск значений списка, содержащих указанные через пробел слова.
(Если перед словом поставить минус, то значения, содержащие это слово, будут исключены из результата)

Возвращает список со значениями удовлетворяющими запросу.


Зависимости: get_part(), find_char() из этой темы.

Работоспособность: GM8, GM:S.

Код:

/// list_scan(id, query)

var i, j, l, p, v, a, f;
l =ds_list_create();
p =0;

while(true) if get_part(argument1, p +1, ' ') ='' break else p+=1;
if !p return l;

for(i =0; i <ds_list_size(argument0); i+=1){
 v =ds_list_find_value(argument0, i);
 a =1;
 for(j =1; j <=p; j+=1){
  f =get_part(argument1, p, ' ');
  if string_char_at(f, 1) ='-' a&=!(string_pos(string_delete(f, 1, 1), v)) else a&=(string_pos(f, v));
 }
 if a ds_list_add(l, v);
}

return l;

Добавлено: Июнь 28, 2017, 00:22:12
Возвращает false, если точка(x, y, z) вне сферы с центром(x0, y0, z0) и радиусом r.

Код:

/// inSphere(x, y, z, x0, y0, z0, r)

return ((sqr(argument0 -argument3) +sqr(argument1 -argument4) +sqr(argument2 -argument5)) <=sqr(argument6))

[ABSOSAK]

Скрипт изменения слоев при передвижении персонажа между обьектами 2.5D . Сортировка Z - порядок наложения.

//Это НЕ родитель всех предметов
//Вызываемый скрипт либо код в событии "шаг"
//Назначить всем обьектам очередность слоев (номер слоя не должен повторяться)
//Центр обьекта - нижний край
//Центр персонажа - нижний край
if y > obj_player.y {
   if depth>obj_player.depth {
     var z;
     z = depth;
     depth = obj_player.depth;
     obj_player.depth = z;
   }
} else {
  if depth<obj_player.depth {
     var z;
     z = depth;
     depth = obj_player.depth;
     obj_player.depth = z;
  }
}

[Fur]

Скрипт изменения слоев при передвижении персонажа между обьектами 2.5D . Сортировка Z - порядок наложения.

//Это НЕ родитель всех предметов
//Вызываемый скрипт либо код в событии "шаг"
//Назначить всем обьектам очередность слоев (номер слоя не должен повторяться)
//Центр обьекта - нижний край
//Центр персонажа - нижний край
if y > obj_player.y {
   if depth>obj_player.depth {
     var z;
     z = depth;
     depth = obj_player.depth;
     obj_player.depth = z;
   }
} else {
  if depth<obj_player.depth {
     var z;
     z = depth;
     depth = obj_player.depth;
     obj_player.depth = z;
  }
}

Что это за мусор и зачем он нужен, если есть намного более простой, быстрый и функциональный depth=-y?

[Neo]

Исправил из рекомендации
Скрипт для замены символа в указанной позиции:

Код:

///string_replace_char_at(string, char, pos)
var s, c, p;
    s = argument0;
    c = string_copy(argument1, 1, 1); //Возьмет только первый символ.
    p = argument2;

    s = string_delete(s, p, 1);
    s = string_insert(c, s, p);

return s;

Скрипт для автоматической вставки символов "#" для переноса строки при указании максимальной допустимой длины в пикселях.

Код:

///string_linebreak(string, width);
var str, width;
    str   = argument0;
    width = argument1;

var ws, lb, sl;
    ws = 0;                  // Записывает позицию нового слова
    lb = 0;                  // Записывает сколько было переносов строк
    sl = string_length(str); // Записывает сколько букв в строке

for (var i = 0; i < sl; i ++){
    // Конвертирует указанную область строки в длину в пикселях
    var sw = string_width( string_copy(str, 0, i) );
    
    // Обновляем позицию нового слова, если найдено
    if string_char_at(str, i) == " " ws = i;
    
    // Процесс переноса строки
    if sw - lb mod width >= width{
        lb ++;
        str = string_delete(str, ws, 1);
        str = string_insert("#", str, ws);
        }}

return str;

[SilentPhil]

Скрипт для автоматической вставки символов "#" для переноса строки при указании максимальной допустимой длины в пикселях.

draw_text_ext?
Не могу придумать юзкейс хранения текста с переносами.

[Neo]

Скрипт для автоматической вставки символов "#" для переноса строки при указании максимальной допустимой длины в пикселях.

draw_text_ext?
Не могу придумать юзкейс хранения текста с переносами.

?
Знаю. Мне не понравилось как эта функция работает в паре с string_copy, когда мне нужно было создать анимацию, где текст выводится постепенно: при выводе части слова оно остается на первой строке, но при полном выводе уже переносится на новую.

[Dmi7ry]

А зачем string_replace_at? Есть же string_insert

[Neo]

А зачем string_replace_at? Есть же string_insert

string_replace_at я делал только для замены одного символа на другой. Название для скрипта не подходящее. Проблема возникает для string_linebreak: при вставке в позицию без удаления предыдущего символа длина строки увеличится, что не будет соответствовать размеру для цикла for, что может привести к потере конечной части строки (не будет обрабатываться?)
Да, можно переписать его на основе string_insert. Так даже, может, проще получится.

[Dmi7ry]

Да, можно переписать его на основе string_insert.

Я как раз про это.

Код:

str = string_delete(str, ws, 1);
str = string_insert("#", str, ws);

[Fur]

string_replace_at я делал только для замены одного символа на другой.

Уже собирался пафосно написать

Код:

str[i]='#'

но внезапно вспомнил, что в гмл такого нет.
Какого чёрта, ЁЁ? :\

[Dmi7ry]

но внезапно вспомнил, что в гмл такого нет.

Ну, если ограничиться ASCII, то можно string_set_byte_at использовать.

[DmitryDS]

Поскольку сам провозился дольше, чем следовало бы, делюсь скриптом на отражение (лучше как-то не формулируется). Вкратце: скрипт принимает направление отражающей линии и отражаемого направления и возвращает отраженное направление. Код с мини-документацией:

Код: (direction_reflect())

///direction_reflect(mirror, dir)
/*------------------------------/
Используются градусы

mirror - линия, от которой будет отражен dir
возвращает направление отраженной линии

!!!ВСЕ НАПРАВЛЕНИЯ ВЕДУТ _ОТ_ mirror, А НЕ К!!!
Чтобы получить направление к mirror, нужно добавить 180
/------------------------------*/

var mir = argument0,
    dir = argument1,
    cross = dsin(dir)*dcos(mir) - dsin(mir)*dcos(dir);

//С какой стороны mir находится dir; это нужно для корректного определения нормали
if sign(cross) == 1
{
    var n = mir + 90;
}
else
{
    var n = mir - 90;
}

var ref = 2*n - dir;
return ref;

[Dmi7ry]

Как уже говорил, угол отражения вычисляется одной строкой:

Код:

var reflection = mirror + angle_difference(mirror, dir);

[DmitryDS]

Как уже говорил, угол отражения вычисляется одной строкой:

Код:

var reflection = mirror + angle_difference(mirror, dir);

Это не то, что мне нужно. Ваш код создает угол, симметричный заданному, а мой - отраженный. Ось выступает в качестве поверхности отражения, а не симметрии.