UserVar stcs=10 刷塔层数
UserVar stks=DropList{1:1|11:2|21:3|31:4|41:5}=1 刷塔开始层数
UserVar by=1 几次补血
UserVar jn=DropList{上左:1|上右:2|下左:3|下右:4}=1 自定义技能
Plugin Web.Tips(参数1)
a=by
//显示WQM提示信息
Plugin Web.Tips("谢谢使用鸡腿开发的刷塔高手，按ESC键即可结束次过程,在使用过程中请不要乱动")
If stcs<=0
    MessageBox "刷塔层数设置错误，请重新设置"
    EndScript 
EndIf 
If by<=0
    MessageBox "几次补血设置错误，请重新设置"
    EndScript 
EndIf 
If stcs>25
    MessageBox "刷塔层数设置上线为25,如果高于这个数字，此设置无效，请重新设置"
    EndScript 
EndIf 
If by>24
    MessageBox "刷塔的几次补血设置上线为24，如果高于这个数字，此设置无效，请重新设置"
    EndScript 
EndIf 
VBSCall FindPic(275,197,1213,870,"F:\怡伟\seer\st\st2.bmp",0.9,tx1,ty1)
Rem jxjx
VBSCall FindPic(275,197,1213,870,"F:\怡伟\seer\st\st1.bmp",0.9,tx,ty)
If tx>=0 and ty>=0
    MoveTo tx,ty
    LeftClick 2
    Delay 3000
    MoveTo 750,490
    LeftClick 2
    Delay 1000
EndIf 
If stks=1
    MoveTo 946,448
    LeftClick 2
ElseIf stks=2
    MoveTo 962,481
    LeftClick 2
ElseIf stks=3
    MoveTo 950,520
    LeftClick 2
ElseIf stks=4
    MoveTo 949,557
    LeftClick 2
Else 
    MoveTo 939,593
    LeftClick 2
EndIf 
Delay 1000
Rem cilckmoster
Delay 500
MoveTo 641,460
LeftClick 2
stcs=stcs-1
by=by-1
Delay 500
Rem clickjn
If jn=1
    MoveTo 631,640
    LeftClick 2
ElseIf jn=2
    MoveTo 777,647
    LeftClick 2
ElseIf jn=3
    MoveTo 651,701
    LeftClick 2
ElseIf jn=4
    MoveTo 781,694
    LeftClick 2
EndIf 
Delay 500
VBSCall FindPic(542,502,792,611,"F:\怡伟\seer\st\qr.bmp",0.9,qrx1,qry1)
If qrx1=-1 and qry1=-1
    Goto clickjn
EndIf 
Rem qrjcsbz
Delay 500
VBSCall FindPic(542,502,792,611,"F:\怡伟\seer\st\qr.bmp",0.9,qrx2,qry2)
If qrx2>=0 qry2>=0
    MoveTo qrx2,qry2
    LeftClick 2
EndIf 
Delay 500
MoveTo 632,597
LeftClick 2
MoveTo 629,541
LeftClick 2
Delay 1000
VBSCall FindPic(542,502,792,611,"F:\怡伟\seer\st\qr.bmp",0.9,qrx4,qry4)
If qrx4>=0 qry4>=0
    MoveTo 628,529
    LeftClick 2
EndIf 
Delay 500
VBSCall FindPic(542,502,792,611,"F:\怡伟\seer\st\qr.bmp",1,qrx5,qry5)
If qrx5>=0 qry5>=0
    MoveTo 628,529