UserVar x=200 "你要刷多少疲劳"
Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "正在确认分辨率", "0000FF")
Delay 500
    ca = Plugin.Sys.GetScRX()
Delay 500
    cb = Plugin.Sys.GetScRY()
Call Plugin.Msg.HideScrTXT()
MessageBox "我准备好了！3秒就开始刷疲劳了！"
MessageBox "点确定后请点下游戏窗口！"
Delay 3000
SetSimMode 2
pl=0
For x
    Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "已经刷了"& pl &"点疲劳", "0000FF")
KeyDown "Right", 1
Rem k
FindPic 0,0,ca-80,cb-80,"Attachment:\dnf1.bmp",0.9,a,b
If a > 0 And b > 0 Then
KeyUp "Right", 1
        Delay 50
MoveTo a, b
    Delay 50
    LeftClick 1
    Goto j
End If
Goto k
Rem j
        Delay 50
        KeyPress "Esc", 1
    FindPic 0,0,ca-80,cb-80,"Attachment:\ts.bmp",0.7,a,b
If a > 0 And b > 0 Then
    MoveTo a, b
        Delay 50
        LeftClick 1
        Goto l
    End If
        Goto j
Rem l
    Delay 1000
FindPic 0,0,ca-80,cb-80,"Attachment:\dnf4.bmp",0.9,a,b
If a > 0 And b > 0 Then
Goto m
End If
Goto l
Rem m
pl=pl+1
Next
 Call Plugin.Msg.ShowScrTXT(0, 0, 1024, 768, "已经刷了"& pl &"点疲劳", "0000FF")
MessageBox "完工！"
chucuo=1
Sub OnScriptExit()
    If chucuo=0 Then
	MessageBox "是不是没有用！ 我的QQ是1467501813"
Else
EndScript
End If
End Sub