UserVar ys=100 延时（毫秒）
UserVar cs=12 次数（一般为12
If ys<80
    MessageBox "延时设置太小，请调大一些"
    EndScript 
EndIf 
VBSCall Call FindPic(0,50,1023,767,"Attachment:\postcard.bmp",0.9,X,Y)
If X=-1 and Y=-1
    MessageBox 寻找失败，请确定打开了摩尔庄园！
    EndScript 
EndIf 
Plugin Msg.ShowScrTXT(0, 0, 300, 50, "                                         ", "0000FF")
Plugin Msg.ShowScrTXT(0, 0, 300, 50, "开始加入游戏…", "0000FF")
MoveTo 125+x,265+y
LeftClick 1
Delay 100
Rem FindStart
VBSCall Call FindPic(0,50,1023,767,"Attachment:\fuzhu1.bmp",0.9,X2,Y2)
If X2=-1 and Y2=-1
    MoveTo 125+x,265+y
    LeftClick 1
    Delay 100
    Goto FindStart
EndIf 
MoveTo 350+x,319+y
LeftClick 1
Delay 100
Plugin Msg.ShowScrTXT(0, 0, 300, 50, "等待系统加载…", "0000FF")
Rem FindStart2
VBSCall Call FindPic(0,50,1023,767,"Attachment:\fuzhu2.bmp",0.9,X2,Y2)
If X2=-1 and Y2=-1
    Goto FindStart2
EndIf 
MoveTo 467+x,440+y
LeftClick 1
Delay 100
For cs
    Plugin Msg.ShowScrTXT(0, 0, 300, 50, "                                         ", "0000FF")
    Plugin Msg.ShowScrTXT(0, 0, 300, 50, "正在播种子", "0000FF")
    MoveTo 456+x,475+y
    LeftClick 1
    Delay ys
    Gosub d
    Plugin Msg.ShowScrTXT(0, 0, 300, 50, "                                         ", "0000FF")
    Plugin Msg.ShowScrTXT(0, 0, 300, 50, "正在浇水", "0000FF")
    MoveTo 519+x,484+y
    LeftClick 1
    Delay ys
    Gosub d
    Gosub d
    Gosub d
    Plugin Msg.ShowScrTXT(0, 0, 300, 50, "                                         ", "0000FF")
    Plugin Msg.ShowScrTXT(0, 0, 300, 50, "正在收获", "0000FF")
    MoveTo 808+x,480+y
    LeftClick 1
    Delay ys
    Gosub d2
EndFor 
Plugin Msg.ShowScrTXT(0, 0, 300, 50, "                                         ", "0000FF")
Plugin Msg.ShowScrTXT(0, 0, 300, 50, "正在提交分数", "0000FF")
MoveTo 859+x,y-8
LeftClick 1
Delay 2000
MoveTo 325+x,382+y
LeftClick 1
Delay 1000
EndScript 
Sub d
    MoveTo 344+x,184+y
    LeftClick 1
    Delay ys
    MoveTo 460+x,182+y
    LeftClick 1
    Delay ys
    MoveTo 324+x,246+y
    LeftClick 1
    Delay ys
    MoveTo 441+x,244+y
    LeftClick 1
    Delay ys
    MoveTo 291+x,318+y
    LeftClick 1
    Delay ys
    MoveTo 432+x,313+y
    LeftClick 1
    Delay ys
    MoveTo 283+x,397+y
    LeftClick 1
    Delay ys
    MoveTo 421+x,394+y
    LeftClick 1
    Delay ys
Return d
Sub d2
    MoveTo 344+x,184+y
    LeftClick 2
    Delay ys
    MoveTo 460+x,182+y
    LeftClick 2
    Delay ys