/::
Laikas:=A_TickCount

Ats11_1=Nera
Ats11_2=Nėra
Ats11_3=buitis
Ats11_4=Sildymas
Ats11_5=-
Ats11_6=viskas
Ats11_7=Nesupratau
Ats11_8=?
Ats11_9=??
Ats11_10=???
Ats11_11=Apsvietimas
Ats11_12=Patalpu sildymas
Ats11_13=Buitiniai prietaisai
Ats11_14=elektra
Ats11_15=El. prietaisai
Ats11_16=Fenas
Ats11_17=Indaplove
Ats11_18=saldytuvas
Ats11_19=nieko
Ats11_20=--
Ats11_21=---
Ats11_22=Tokiu nebutu
Ats11_23=masina
Ats11_24=Masina
Ats11_25=auto
Loop, 100
{
    Progress, B1 W200 H30 ZH0 X0 Y600 CTFF0000, %A_Index%
    Scrolls=10
    Gosub, ScrollDown
    Sleep, 1000
    MouseClick, Left, 683, 770 ; Fizinis asmuo
    Sleep, 1000
    MouseClick, Left, 718, 862 ; Next
    Sleep, 1500
    Random, Random, 0.0, 1.0
    if (Random>0.4)
    {
        MouseClick, Left, 683, 530 ; Viena laiko zona
    }
    else
    {
        MouseClick, Left, 683, 575 ; Dvi laiko zonos
    }
    Sleep, 1000
    MouseClick, Left, 683, 882 ; Nera is nepriklausomu
    Sleep, 1000
    MouseClick, Left, 823, 1009 ; Next
    Sleep, 1500
    MouseClick, Left, 693, 565 ; Yra generatoriai
    Sleep, 1000
    MouseClick, Left, 826, 696 ; Next
    Sleep, 1500
    MouseClick, Left, 693, 565 ; Galios laukelis
    SetFormat, float, 0.2
    SetFormat, float, 0.1
    Random, Random, 0.0, 1.0
    if (Random>0.6)
    {
        Random, Random, 1.0, 20.0
    }
    else
    {
        Random, Random, 1, 20
    }
    Send, %Random%
    Sleep, 1000
    MouseClick, Left, 834, 663 ; Next
    Sleep, 1500
    Random, Random, 0.0, 1.0
    if (Random>0.5)
    {
        MouseClick, Left, 683, 729 ; Ne
    }
    else
    {
        Random, Random, 1, 3
        if (Random=1)
        {
            MouseClick, Left, 683, 612 ; Is rytinio
        }
        else if (Random=2)
        {
            MouseClick, Left, 683, 659 ; Is vakarinio
        }
        else
        {
            MouseClick, Left, 683, 689 ; Is abieju
        }
    }
    Sleep, 1000
    Random, Random, 0.0, 1.0
    if (Random>0.4)
    {
        MouseClick, Left, 683, 920 ; Taip
    }
    else
    {
        MouseClick, Left, 683, 960 ; Ne
    }
    Sleep, 1000
    MouseClick, Left, 42, 104 ; Nuo checkbox
    Scrolls=22
    Gosub, ScrollDown
    Sleep, 1000
    Random, Random, 1, 4
    if (Random=1)
    {
        MouseClick, Left, 683, 223 ; Taip sildymui
    }
    else if (Random=2)
    {
        MouseClick, Left, 683, 273 ; Taip vesinimui
    }
    else if (Random=3)
    {
        MouseClick, Left, 683, 313 ; Taip abiem
    }
    else
    {
        MouseClick, Left, 683, 353 ; Taip abiem
    }
    Sleep, 1000


    MouseClick, Left, 722, 537 ; 11 klaus laukelis
    Random, Random, 1, 25
    SendInput, % Ats11_%Random%
    Sleep, 1000
    Random, Random, 1, 3
    if (Random=1)
    {
        MouseClick, Left, 683, 683 ; Kainu skirtumai laiko zonuose
    }
    else if (Random=2)
    {
        MouseClick, Left, 683, 727 ; Zymus elektros islaidu mazinimas
    }
    else
    {
        MouseClick, Left, 683, 774 ; Niekas
    }
    Random, Random, 0.0, 1.0
    if (Random>0.7)
    {
        MouseClick, Left, 683, 985 ; Taip
    }
    else
    {
        MouseClick, Left, 683, 1024 ; Ne
    }
    Sleep, 1000
    MouseClick, Left, 42, 104 ; Nuo checkbox
    Scrolls=22
    Gosub, ScrollDown
    Sleep, 1000
    Pasirinkta=0
    Pasirinktas1=0
    Loop, 5
    {
        Random, Random, 0, 1
        if (Random=1)
        {
            if (A_Index=1)
            {
                MouseClick, Left, 683, 296 ; Tiekiama pagalba
                Pasirinktas1=1
            }
            if (A_Index=2)
            {
                MouseClick, Left, 683, 385 ; Investicijos
            }
            if (A_Index=3)
            {
                MouseClick, Left, 683, 450 ; Paprastas administravimas
            }
            if (A_Index=4)
            {
                MouseClick, Left, 683, 494 ; Aiski tvarka
            }
            if (A_Index=5)
            {
                MouseClick, Left, 683, 540 ; Aplinkosauga ir socialine nauda
            }
            EnvAdd, Pasirinkta, 1
        }
        if (A_Index=5) and (Pasirinkta=0)
        {
            MouseClick, Left, 683, 494 ; Aiski tvarka
        }
    }
    Sleep, 1000
    Random, Random, 0.0, 1.0
    if (Random>0.4)
    {
        MouseClick, Left, 683, 1007 ; Ne
    }
    else
    {
        Random, Random, 1, 3
        if (Random=1)
        {
            MouseClick, Left, 683, 868 ; Taip
        }
        else if (Random=2)
        {
            MouseClick, Left, 683, 909 ; Bus uz 5m
        }
        else
        {
            MouseClick, Left, 683, 948 ; Taip ir bus uz 5m
        }
    }
    Sleep, 1000
    MouseClick, Left, 42, 104 ; Nuo checkbox
    Scrolls=22
    Gosub, ScrollDown
    Sleep, 1000
    Random, Random, 0.0, 1.0
    if (Pasirinktas1=1) and (Random>0.2)
    {
        MouseClick, Left, 683, 700 ; Taip
    }
    else if (Random>0.5)
    {
        MouseClick, Left, 683, 700 ; Taip
    }
    else
    {
        MouseClick, Left, 683, 740 ; Ne
    }
    Sleep, 1000
    MouseClick, Left, 818, 830 ; Submit
    Sleep, 1500
    MouseClick, Left, 755, 447 ; Submit another response
}

Laikas:=(A_TickCount-Laikas)/1000
Clipboard:=Laikas
return