// Evol scripts.
// Author:
//    4144
// Description:
//    script tests

function	script	test1function	{
    .var = .walkmask;
    if (.var != 3)
        mes "Error: testing test1 npc variables from function.";
    .var = getvariableofnpc(.walkmask, "test1");
    if (.var != 3)
        mes "Error: testing test1 npc variables from function.";
    .var = getvariableofnpc(.walkmask, "test2");
    if (.var != 4)
        mes "Error: testing test2 npc variables from function.";

    return;
}

test,10,5,0	script	test1	NPC_HAT_BOX,{
    mes "Npc vars testing...";
    .var = .walkmask;
    if (.var != 3)
        mes "Error: testing test1 npc variables.";
    .var = getvariableofnpc(.walkmask, "test1");
    if (.var != 3)
        mes "Error: testing test1 npc variables from function.";
    .var = getvariableofnpc(.walkmask, "test2");
    if (.var != 4)
        mes "Error: testing test2 npc variables.";
    test1function;
    mes "Formatting testing for sex: " + str(Sex);
    if (l("test @@", "") != "test ")
        mes "Error: format string 'l(\"test @@\", \"\")': " + l("test @@", "");
    if (l("test @@", "1") != "test 1")
        mes "Error: format string 'l(\"test @@\", \"1\")': " + l("test @@", "1");
    if (l("@@", "") != "")
        mes "Error: format string 'l(\"@@\", \"\")': " + l("@@", "");
    if (l("@@") != "@@")
        mes "Error: format string 'l(\"@@\")': " + l("@@");
    if (l("@@ @@ @@", "this", "is", "test") != "this is test")
        mes "Error: format string 'l(\"@@ @@ @@\", \"this\", \"is\", \"test\") != \"this is test\"': " + l("@@ @@ @@", "this", "is", "test");
    if (l("data @@ @@ @@ data", "this", "is", "test") != "data this is test data")
        mes "Error: format string 'l(\"data @@ @@ @@ data\", \"this\", \"is\", \"test\")': " + l("data @@ @@ @@ data", "this", "is", "test");
    if (l("test") != "test")
        mes "Error: l(\"test\"): " + l("test");
    if (Sex == 1)
    {
        if (lg("test") != "test#1")
            mes "Error: lg(\"test\"): " + lg("test");
        if (lg("test1", "test2") != "test2#1")
            mes "Error: lg(\"test1\", \"test2\"): " + lg("test1", "test2");
        if (lg("test1 @@", "test2 @@", "line") != "test2 line#1")
            mes "Error: lg(\"test1 @@\", \"test2 @@\", \"line\"): " + lg("test1 @@", "test2 @@", "line");
    }
    else if (Sex == 0)
    {
        if (lg("test") != "test#0")
            mes "Error: lg(\"test\"): " + lg("test");
        if (lg("test1", "test2") != "test1#0")
            mes "Error: lg(\"test1\", \"test2\"): " + lg("test1", "test2");
        if (lg("test1 @@", "test2 @@", "line") != "test1 line#0")
            mes "Error: lg(\"test1 @@\", \"test2 @@\", \"line\"): " + lg("test1 @@", "test2 @@", "line");
    }
    mes "Quest vars testing...";
    .@time = 1000;
    setq Test_testing1, 1, 2, 3, .@time;
    if (getq(Test_testing1) != 1)
        mes "Error: quest variable 1 error. Must be 1, but get " + str(getq(Test_testing1));
    if (getq2(Test_testing1) != 2)
        mes "Error: quest variable 2 error. Must be 2, but get " + str(getq(Test_testing1));
    if (getq3(Test_testing1) != 3)
        mes "Error: quest variable 3 error. Must be 3, but get " + str(getq(Test_testing1));
    if (getqtime(Test_testing1) != .@time)
        mes "Error: quest variable 3 error. Must be 3, but get " + str(getqtime(Test_testing1));
    next;
    .@time = 2000;
    setq Test_testing1, 2, 3, 4, .@time;
    if (getq(Test_testing1) != 2)
        mes "Error: quest variable 1 error. Must be 2, but get " + str(getq(Test_testing1));
    if (getq2(Test_testing1) != 3)
        mes "Error: quest variable 2 error. Must be 3, but get " + str(getq(Test_testing1));
    if (getq3(Test_testing1) != 4)
        mes "Error: quest variable 3 error. Must be 4, but get " + str(getq(Test_testing1));
    if (getqtime(Test_testing1) != .@time)
        mes "Error: quest variable 3 error. Must be 3, but get " + str(getqtime(Test_testing1));
    next;
    setq Test_testing1, 0;
    mes "Tests complete.";
    close;

OnInit:
    .walkmask = 3;
    end;
}