Undertale script viewer

← back to main script listing

gml_Object_obj_essaystuff_Step_0

(view raw script w/o annotations or w/e)
1 
if (!keyboard_present)
2 
    exit;
3 
if (cantype == 1)
4 
{
5 
    var newchar = "";
6 
    var backspace = 0;
7 
    if (keyboard_check_pressed(vk_anykey))
8 
    {
9 
        var exc = 0;
10 
        if (keyboard_check_pressed(vk_right))
11 
            exc = 1;
12 
        if (keyboard_check_pressed(vk_left))
13 
            exc = 1;
14 
        if (keyboard_check_pressed(vk_up))
15 
            exc = 1;
16 
        if (keyboard_check_pressed(vk_down))
17 
            exc = 1;
18 
        if (keyboard_check_pressed(vk_backspace))
19 
        {
20 
            exc = 1;
21 
            backspace = 1;
22 
        }
23 
        if (control_check_pressed(1))
24 
            exc = 1;
25 
        if (control_check_pressed(0))
26 
            exc = 1;
27 
        if (keyboard_check_pressed(vk_escape))
28 
            exc = 1;
29 
        if (exc == 0)
30 
        {
31 
            newchar = keyboard_lastchar;
32 
            if (keyboard_check_pressed(ord("Z")) && !control_check_pressed(0))
33 
                newchar = "z";
34 
            if (keyboard_check_pressed(ord("X")) && !control_check_pressed(1))
35 
                newchar = "x";
36 
        }
37 
    }
38 
    if (newchar != "")
39 
    {
40 
        if (endbuffer < 30)
41 
            endbuffer = 30;
42 
        if (global.language == "ja")
43 
            mystring = scr_kanatype_append
scr_kanatype_append

var oldstring = argument0;
var newchar = argument1;
var len = strlen(oldstring);
if (!(newchar >= "a" && newchar <= "z"))
{
    if (oldstring != "" && string_char_at(oldstring, len) == "n")
        oldstring = substr(oldstring, 1, len - 1) + "ん";
    if (newchar == "-")
        newchar = "ー";
    if (newchar == "/")
        newchar = "・";
    if (newchar == "[")
        newchar = "「";
    if (newchar == "]")
        newchar = "」";
    return oldstring + newchar;
}
if (oldstring == "")
    return newchar;
var lastchar = string_char_at(oldstring, len);
if (!(lastchar >= "a" && lastchar <= "z"))
{
    if (newchar == "a")
        newchar = "あ";
    if (newchar == "i")
        newchar = "い";
    if (newchar == "u")
        newchar = "う";
    if (newchar == "e")
        newchar = "え";
    if (newchar == "o")
        newchar = "お";
    return oldstring + newchar;
}
if (!(newchar == "a" || newchar == "i" || newchar == "u" || newchar == "e" || newchar == "o"))
{
    if (lastchar == "n")
    {
        oldstring = substr(oldstring, 1, len - 1) + "ん";
        lastchar = "ん";
    }
    else if (newchar == lastchar)
    {
        oldstring = substr(oldstring, 1, len - 1) + "っ";
        lastchar = "っ";
    }
}
if (len >= 3)
{
    var compose4 = ds_map_find_value(global.kanatype_lookup_4ch, substr(oldstring, len - 3) + newchar);
    if (!is_undefined(compose4))
        return substr(oldstring, 1, len - 3) + compose4;
}
if (len >= 2)
{
    var compose3 = ds_map_find_value(global.kanatype_lookup_3ch, substr(oldstring, len - 1) + newchar);
    if (!is_undefined(compose3))
        return substr(oldstring, 1, len - 2) + compose3;
}
var compose2 = ds_map_find_value(global.kanatype_lookup_2ch, lastchar + newchar);
if (!is_undefined(compose2))
    return substr(oldstring, 1, len - 1) + compose2;
if (newchar == "a")
    newchar = "あ";
if (newchar == "i")
    newchar = "い";
if (newchar == "u")
    newchar = "う";
if (newchar == "e")
    newchar = "え";
if (newchar == "o")
    newchar = "お";
return oldstring + newchar;
(mystring, newchar);
44 
        else
45 
            mystring += newchar;
46 
    }
47 
    else if (backspace)
48 
    {
49 
        if (string_length(mystring) > 1)
50 
            mystring = string_delete(mystring, string_length(mystring), 1);
51 
    }
52 
}
53 
endbuffer -= 1;
54 
if (endbuffer < 0 && alarm[0] > 10)
gml_Object_obj_essaystuff_Alarm_0.gml

cantype = 0;
con = 1;
55 
    alarm[0] = 10;
gml_Object_obj_essaystuff_Alarm_0.gml

cantype = 0;
con = 1;