UserVar lbao=DropList{6星礼包:1|8星礼包:2|12星礼包:3|19星礼包:4|25星礼包:5} 请选宠物礼包种类

UserVar TQ=DropList{阳光TQ礼包:1|奇迹TQ礼包:2} 请选择TQ礼包种类

UserVar CAO=DropList{加草:1|不加草:0} 选加不加草

UserVar XiaYe=DropList{不需要:0|下一页:1|下两页:2|下三页:3|下四页:4} 买完第一样东西需不需要到下一页再买

UserVar FenLei=DropList{全部:482,530|物品:436,530|幻兽:387,530|装备:336,530} 魔石商店分类

UserVar Var1=DropList{1列:312|2列:351|3列:387|4列:424|5列:461|6列:498} 魔石商店第一个要买的东西第几列

UserVar Var2=DropList{1行:216|2行:249|3行:285|4行:322|5行:357|6行:395|7行:430|8行:464} 魔石商店第一个要买的东西第几行

UserVar Var3=DropList{1列:312|2列:351|3列:387|4列:424|5列:461|6列:498} 魔石商店第二个要买的东西第几列

UserVar Var4=DropList{1行:216|2行:249|3行:285|4行:322|5行:357|6行:395|7行:430|8行:464} 魔石商店第二个要买的东西第几行

UserVar Var5=DropList{1列:312|2列:351|3列:387|4列:424|5列:461|6列:498} 魔石商店第三个要买的东西第几列

UserVar Var6=DropList{1行:216|2行:249|3行:285|4行:322|5行:357|6行:395|7行:430|8行:464} 魔石商店第三个要买的东西第几行

UserVar YeShu=DropList{1页:0|2页:1|3页:2|4页:3|5页:4|6页:5|7页:6|8页:7|9页:8|10页|9} 魔石商店的页数

FenLeiarray=split(FenLei,",")

var1array=split(var1,",")

var2array=split(var2,",")

var3array=split(var3,",")

var4array=split(var4,",")

VBSCall FindPic(0,0,1024,768,"幻化NPC.bmp",0.9,X,Y)

If x>=0 and y>=0

    MoveTo x+38 y+51

    Delay 50

    LeftClick 1

    Delay 300

    MoveTo 328,337

    LeftClick 1

EndIf 

For TQ

    For 10

        MoveTo 918,45

        LeftClick 1

        MoveTo 761,69

        LeftClick 1

        MoveTo 171,384

        LeftClick 1

        Delay 300

        MoveTo 639,163

        LeftClick 1

        MoveTo 754,157

        LeftClick 1

        MoveTo 368,390

        LeftClick 1

        Delay 500

        MoveTo 191,552

        LeftClick 1

        For CAO

            MoveTo 474,424

            LeftClick 1

        EndFor 

        Delay 800

        MoveTo 706,101