oneKeyMakeSubAcc

c = GetPixelColor(591, 357)

WHILE c <> "230DC3"
    Delay 1000
    c = GetPixelColor(591, 357)
WEND

Delay 1000

MoveTo 444, 376
Delay 1000
LeftClick 1
Delay 2000

MoveTo 1470, 397
Delay 1000
LeftClick 1
Delay 1000

MoveTo 939, 555
LeftDown 1
Delay 200
MoveTo 939, 503
Delay 200
MoveTo 939, 451
Delay 200
MoveTo 939, 399
Delay 200
MoveTo 939, 347
Delay 200
MoveTo 939, 295
Delay 200
LeftUp 1

Delay 1000

MoveTo 542, 795
Delay 1000
LeftClick 1
Delay 2000

MoveTo 445, 407
Delay 1000
LeftClick 1
Delay 2000

MoveTo 949, 602
MoveTo 944, 362

MoveTo 939, 602
LeftDown 1
Delay 200
MoveTo 939, 554
Delay 200
MoveTo 939, 506
Delay 200
MoveTo 939, 458
Delay 200
MoveTo 939, 410
Delay 200
MoveTo 939, 362
Delay 200
LeftUp 1

Delay 4000

MoveTo 1230, 793
Delay 1000
LeftClick 1
Delay 2000

MoveTo 1134, 684
Delay 1000
LeftClick 1
Delay 2000

MoveTo 336, 237
Delay 1000
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000

MoveTo 370, 901
Delay 1000
LeftClick 1
Delay 2000

MoveTo 1473, 782
Delay 1000
LeftClick 1
Delay 2000

MoveTo 976, 395
Delay 1000
LeftClick 1

c = GetPixelColor(794, 618)

WHILE c <> "4F6FE2"
    Delay 1000
    c = GetPixelColor(794, 618)
WEND

MoveTo 794, 618
Delay 1000
LeftClick 1



c = GetPixelColor(607, 517)

WHILE c <> "556063"
    Delay 1000
    c = GetPixelColor(607, 517)
WEND

MoveTo 607, 517
Delay 1000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000
LeftClick 1
Delay 3000

MoveTo 1429, 306
Delay 1000
LeftClick 1

MoveTo 802, 395
Delay 1000
LeftClick 1
Delay 1000

CALL randomInput()
Delay 1000
KeyPress "Enter", 1
Delay 1000

MoveTo 875, 540
Delay 1000
LeftClick 1
Delay 1000
MoveTo 951, 719
Delay 1000
LeftClick 1
Delay 1000

MoveTo 1151, 639
Delay 1000
LeftClick 1
Delay 1000

c = GetPixelColor(1151, 639)

WHILE c = "4D6DE4"
    Delay 1000
    MoveTo 802, 395
    Delay 1000
    LeftClick 1
    Delay 1000

    CALL randomInput()
    Delay 1000
    KeyPress "Enter", 1
    Delay 1000
    c = GetPixelColor(1151, 639)
WEND

Delay 5000

CALL waitColor(1106,488,"8484EC")
CALL waitColor(570,464,"091DBD")
CALL waitColor(471, 782, "506FE4")
Delay 5000
LeftClick 1
Delay 500
CALL waitColor(635, 371, "5127AA")
CALL waitColor(587, 234, "4F6EE4")
CALL waitColor(1393, 305, "FFFFFF")
CALL waitColor(440, 743, "5127AA")
CALL waitColor(1244, 417, "534BB5")
CALL waitColor(1198, 311, "3325E4")
CALL waitColor(900, 566, "5070E4")
CALL waitColor(1246, 417, "522CB0")
CALL waitColor(1534, 191, "6A7E92")
CALL waitColor(950, 361, "8484EC")
CALL waitColor(469, 777, "5271E4")
Delay 10000
MoveTo 946, 473
LeftClick 1
Delay 1000
CALL waitColor(1283, 715, "3427DD")
CALL waitColor(901, 579, "4E6EE4")
CALL waitColor(949, 370, "0D20BE")
CALL waitColor(1000, 346, "B5BBD5")
CALL waitColor(450, 348, "47DBFF")
CALL waitColor(485, 785, "5070E4")
Delay 3000
CALL waitColor(1561, 755, "704AD2")
CALL waitColor(1045, 749, "5C78CE")
// SS Action
CALL waitColor(1000, 729, "4C6CE4")
CALL waitColor(790, 685, "5271E4")
CALL waitColor(1111, 709, "409FE8")
CALL waitColor(519, 248, "75899D")
CALL waitColor(560, 787, "4A6AE4")
CALL waitColor(833, 730, "4F6FE4")
CALL waitColor(826, 780, "4D6DE4")
CALL waitColor(582, 741, "5574E4")
CALL waitColor(1534, 192, "6A7E92")
CALL waitColor(960, 517, "82C2EC")

FindPic 449,153,1509,862,"C:\Users\User\Desktop\new_box.bmp",0.7,intX,intY
IF intX > 0 AND intY > 0 THEN
    MoveTo intX, intY
    Delay 200
    LeftClick 1
    Delay 15000
END IF

CALL waitColor(811, 475, "1F3182")

//CALL waitColor(1599, 753, "754ED8")
CALL waitColor(1534, 787, "F194C1")
CALL waitColor(1318, 755, "754DD8")
CALL waitColor(500, 482, "608BDA")
CALL waitColor(1535, 192, "6B7F93")
CALL waitColor(997, 753, "5271E4")
CALL waitColor(950, 739, "E8ECFB")

CALL waitColor(570, 464, "091DBD")





FUNCTION waitColor(x, y, choiceColor)
    Delay 3000
    c = GetPixelColor(x, y)

    WHILE c <> choiceColor
        Delay 1000
        c = GetPixelColor(x, y)
    WEND

    MoveTo x, y
    Delay 500
    LeftClick 1
    Delay 1000
END FUNCTION




SUB randomInput()
    z = Split("A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 1 2 3 4 5 6 7 8 9", " ")
    RANDOMIZE
    Delay 1000
    FOR 12
        Code12 = Code12 & z(INT(RND*35))
    NEXT

    SayString Code12
END SUB