ScreenSettings

local t = Def.ActorFrame {
    LoadActor(THEME:GetPathG("","Config/Config"))..{
        InitCommand=cmd(x,SCREEN_CENTER_X-198;y,SCREEN_CENTER_Y-192);
    };
    LoadFont("frutiger 24px") .. {
        Name="penis";
        InitCommand=cmd(y,SCREEN_CENTER_Y;x,SCREEN_CENTER_X);
    };
    LoadFont("_aldine721 bt 20px") .. {
        Text="1 2 3 4 5 6 7 8 Justice";
        InitCommand=cmd(zoomx,0.84;y,SCREEN_CENTER_Y-103;x,SCREEN_CENTER_X-7;diffuse,0.5,0.5,0.5,1;shadowlength,2);
    };
    LoadFont("_aldine721 bt 20px") .. {
        Name="Pantsu";
        InitCommand=cmd(zoomx,0.84;y,SCREEN_CENTER_Y-103;x,SCREEN_CENTER_X-7);
    };
    LoadFont("_aldine721 bt 20px") .. {
        Text="1 2 3 4 5 6 7";
        InitCommand=cmd(zoomx,0.84;y,SCREEN_CENTER_Y-103+32;x,SCREEN_CENTER_X-40;diffuse,0.5,0.5,0.5,1;shadowlength,2);
    };
    LoadFont("_aldine721 bt 20px") .. {
        Name="Pantsu2";
        InitCommand=cmd(zoomx,0.84;y,SCREEN_CENTER_Y-103+32;x,SCREEN_CENTER_X-7);
    };
    LoadActor(THEME:GetPathG("","Config/MaterBlack"))..{
        InitCommand=cmd(y,SCREEN_CENTER_Y-103+32*2;x,SCREEN_CENTER_X+60);
    };
    LoadActor(THEME:GetPathG("","Config/MaterWhite"))..{
        Name="Pantsu3";
        InitCommand=cmd(y,SCREEN_CENTER_Y-103+32*2;x,SCREEN_CENTER_X+60);
    };
    LoadFont("_aldine721 bt 20px") .. {
        Text="FullScreen Windowed";
        InitCommand=cmd(zoomx,0.84;y,SCREEN_CENTER_Y-103+32*3;x,SCREEN_CENTER_X+1;diffuse,0.5,0.5,0.5,1;shadowlength,2);
    };
    LoadFont("_aldine721 bt 20px") .. {
        Name="Pantsu4";
        InitCommand=cmd(zoomx,0.84;y,SCREEN_CENTER_Y-103+32*3;x,SCREEN_CENTER_X+1);
    };
    LoadFont("_aldine721 bt 20px") .. {
        Text="Default 60 70 72 75 80 85 90 100 120 150";
        InitCommand=cmd(zoomx,0.84;y,SCREEN_CENTER_Y-103+32*4;x,SCREEN_CENTER_X+64;diffuse,0.5,0.5,0.5,1;shadowlength,2);
    };
    LoadFont("_aldine721 bt 20px") .. {
        Name="Pantsu5";
        InitCommand=cmd(zoomx,0.84;y,SCREEN_CENTER_Y-103+32*4;x,SCREEN_CENTER_X+1);
    };
    LoadFont("_aldine721 bt 20px") .. {
        Text="0% 10% 20% 30% 40% 50% 60% 70% 80% 90% 100%";
        InitCommand=cmd(zoomx,0.84;y,SCREEN_CENTER_Y-103+32*5;x,SCREEN_CENTER_X+74;diffuse,0.5,0.5,0.5,1;shadowlength,2;zoomx,0.7);
    };
    LoadFont("_aldine721 bt 20px") .. {
        Name="Pantsu6";
        InitCommand=cmd(zoomx,0.84;y,SCREEN_CENTER_Y-103+32*5;x,SCREEN_CENTER_X+1;zoomx,0.7);
    };
};
firstload = true;

local function Update(self)
    OptionRowItem = SCREENMAN:GetTopScreen():GetOptionRow(SCREENMAN:GetTopScreen():GetCurrentRowIndex(PLAYER_1)):GetChoiceInRowWithFocus(PLAYER_1);
    OptionRowTitle = SCREENMAN:GetTopScreen():GetCurrentRowIndex(PLAYER_1);
    --self:GetChild("penis"):settext(OptionRowTitle.."X"..OptionRowItem);
    pantsu = self:GetChild("Pantsu");
    pantsu2 = self:GetChild("Pantsu2");
    pantsu3 = self:GetChild("Pantsu3");
    pantsu4 = self:GetChild("Pantsu4");
    pantsu5 = self:GetChild("Pantsu5");
    pantsu6 = self:GetChild("Pantsu6");

    --Load System
    if OptionRowTitle == 0 or firstload then
        if ReadPrefFromFile("Pantsu") ~= nil then
            if GetUserPref("Pantsu") ~= "9" then
                pantsu:settext(GetUserPref("Pantsu"));
                pantsu:x(SCREEN_CENTER_X-77+(12.5*(GetUserPref("Pantsu")-1)));
            else
                pantsu:settext("Justice");
                pantsu:x(SCREEN_CENTER_X+43);
            end;
        end;
    end;

    if OptionRowTitle == 1 or firstload then
        if ReadPrefFromFile("Pantsu2") ~= nil then
            pantsu2:settext(GetUserPref("Pantsu2"));
            pantsu2:x(SCREEN_CENTER_X-77+(12.5*(GetUserPref("Pantsu2")-1)));
        end;
    end;

    if OptionRowTitle == 2 or firstload then
        if ReadPrefFromFile("Pantsu3") ~= nil then
            pantsu3:cropright(1-(GetUserPref("Pantsu3")/10));
        end;
    end;

    if OptionRowTitle == 3 or firstload then
        if ReadPrefFromFile("Pantsu4") ~= nil then
            if GetUserPref("Pantsu4") == "0" then
                pantsu4:settext("FullScreen");
                pantsu4:x(SCREEN_CENTER_X-40);
            else
                pantsu4:settext("Windowed");
                pantsu4:x(SCREEN_CENTER_X+42);
            end;
        end;
    end;

    if OptionRowTitle == 4 or firstload then
        if ReadPrefFromFile("Pantsu5") ~= nil then
            if GetUserPref("Pantsu5") == "0" then pantsu5:settext("Default");pantsu5:x(SCREEN_CENTER_X-53.5);
            elseif GetUserPref("Pantsu5") == "1" then pantsu5:settext("60");pantsu5:x(SCREEN_CENTER_X-14);
            elseif GetUserPref("Pantsu5") == "2" then pantsu5:settext("70");pantsu5:x(SCREEN_CENTER_X+7);
            elseif GetUserPref("Pantsu5") == "3" then pantsu5:settext("72");pantsu5:x(SCREEN_CENTER_X+28);
            elseif GetUserPref("Pantsu5") == "4" then pantsu5:settext("75");pantsu5:x(SCREEN_CENTER_X+49);
            elseif GetUserPref("Pantsu5") == "5" then pantsu5:settext("80");pantsu5:x(SCREEN_CENTER_X+70);
            elseif GetUserPref("Pantsu5") == "6" then pantsu5:settext("85");pantsu5:x(SCREEN_CENTER_X+91);
            elseif GetUserPref("Pantsu5") == "7" then pantsu5:settext("90");pantsu5:x(SCREEN_CENTER_X+112);
            elseif GetUserPref("Pantsu5") == "8" then pantsu5:settext("100");pantsu5:x(SCREEN_CENTER_X+137);
            elseif GetUserPref("Pantsu5") == "9" then pantsu5:settext("120");pantsu5:x(SCREEN_CENTER_X+166.5);
            else pantsu5:settext("150");pantsu5:x(SCREEN_CENTER_X+196);
            end;
        end;
    end;

    if OptionRowTitle == 5 or firstload then
        if ReadPrefFromFile("Pantsu6") ~= nil then
            pantsu6:settext(GetUserPref("Pantsu6")*10 .."%");
            if GetUserPref("Pantsu6") == "0" then pantsu6:x(SCREEN_CENTER_X-70);
            elseif GetUserPref("Pantsu6") == "10" then pantsu6:x(SCREEN_CENTER_X+210);
            else pantsu6:x(SCREEN_CENTER_X-73+(28*GetUserPref("Pantsu6")));
            end;
        end;
    end;


    --Save System
    if OptionRowTitle == 0 then
        if pwrite ~= OptionRowItem then
            WritePrefToFile("Pantsu",OptionRowItem+1);
            pwrite = OptionRowItem;
        end;
    end;

    if OptionRowTitle == 1 then
        if pwrite ~= OptionRowItem then
            WritePrefToFile("Pantsu2",OptionRowItem+1);
            pwrite = OptionRowItem;
        end;
    end;

    if OptionRowTitle == 2 then
        if pwrite ~= OptionRowItem then
            WritePrefToFile("Pantsu3",OptionRowItem);
            pwrite = OptionRowItem;
        end;
    end;

    if OptionRowTitle == 3 then
        if pwrite ~= OptionRowItem then
            WritePrefToFile("Pantsu4",OptionRowItem);
            pwrite = OptionRowItem;
        end;
    end;

    if OptionRowTitle == 4 then
        if pwrite ~= OptionRowItem then
            WritePrefToFile("Pantsu5",OptionRowItem);
            pwrite = OptionRowItem;
        end;
    end;

    if OptionRowTitle == 5 then
        if pwrite ~= OptionRowItem then
            WritePrefToFile("Pantsu6",OptionRowItem);
            pwrite = OptionRowItem;
        end;
    end;
    firstload = false;
end;

t.InitCommand=cmd(SetUpdateFunction,Update);
return t--]]