某游戏刷怪脚本

[General]
SyntaxVersion=2
BeginHotkey=122
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
MacroID=9d85c09c-4774-45b1-832c-016eb1921846
Description=我的脚本1
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[SetupUI]
Type=2
QUI=
[Relative]
SetupOCXFile=
[Comment][Attachment]
UEsDBBQAAgAIADQ8d0GSdpsxeAAAAAgDAAAFABEAMS5ibXBVVA0AB+Ymr1B1Kq9QpiavUHPy5WBmAAMzINYAYn4oZmSQAItfYmJgEOKGYBj4z/CfeARXj6wdzSg0KYTG/0hSSGw4F1M9XBkaG4/5yCSaYrh6TDdg14uk/j8SwGULfvPRTCDGfDTD0dSjBSC6Cdj8S6T5+OOLQPhjeAeXesz0gwaQ1ROfPhkYAFBLAwQUAAIACABkPHdBkEWxO1gAAADYAgAABQARADIuYm1wVVQNAAcmJ69QESmvUCUnr1Bz8r3BxAAGZkCsAcT8QMwHxIwMEmDxRUB5IW4IxgH+//+PlY3JhQvCxdHYeMxHJvEoxuoeNL2YjoE7gxhb0MxHM4EY84k0nBjzkdUQYz4eNUSqJ+ieQQAAUEsDBBQAAgAIAN69d0G6yPzANgAAAIgAAAALABEAU2VsZlJlZC5ibXBVVA0AB9cKsFBuC7BQ1gqwUHPy7WCAADMg1gBiJiDmAmJGBgmweBAQC3FDMAywCwhIa2iAaXb2UjDNyTmBJBqmj0dNC2QiAFBLAwQUAAIACAB0AHhBbXqFIIsAAAAYAQAACQARAE90aGVyLmJtcFVUDQAH7g6wUHUPsFDsDrBQc/KVYGQAAzMg1gBiViDmA2JGBgmw+CMgFuKGYBj4z/AfGYHg/KXLFq5atfvMBSh/6bp1DMwcjAyMCD47OztCPZDPycmNxF+7jpObF8Gfu3w1Jw8fgt+y+RwKv3nTWW4+fgR/zrLV3LxI/MVrUe1bvGYdj7CoqLwalD976eqNB4/vOHkOykfxDwMDAFBLAwQUAAIACABCHntBXDVSrI0AAAAUBAAADAARAFl1YW5TaGVuLmJtcFVUDQAHaTi0UEs5tFBoOLRQc/IVYWEAAzMg1gBiSSDmBWJGBgmw+D1mBgYhbgiGgf8M/6mFwGaBAdxoEIkKkMXh1qNxoWZBTYEZh5VNrFmYxmHVj2YHupVws9CUIuvHqvk/JiBoFrp34MH3H109SnhhmoXpKHTLMM0iCEjwIwMpgFg/4jcCJbnhcRcxHiQqTeD3DmbiIpBWqZMfGRgAUEsBAhcLFAACAAgANDx3QZJ2mzF4AAAACAMAAAUACQAAAAAAAAAgAICBAAAAADEuYm1wVVQFAAfmJq9QUEsBAhcLFAACAAgAZDx3QZBFsTtYAAAA2AIAAAUACQAAAAAAAAAgAICBrAAAADIuYm1wVVQFAAcmJ69QUEsBAhcLFAACAAgA3r13QbrI/MA2AAAAiAAAAAsACQAAAAAAAAAgAICBOAEAAFNlbGZSZWQuYm1wVVQFAAfXCrBQUEsBAhcLFAACAAgAdAB4QW16hSCLAAAAGAEAAAkACQAAAAAAAAAgAICBqAEAAE90aGVyLmJtcFVUBQAH7g6wUFBLAQIXCxQAAgAIAEIee0FcNVKsjQAAABQEAAAMAAkAAAAAAAAAIACAgWsCAABZdWFuU2hlbi5ibXBVVAUAB2k4tFBQSwUGAAAAAAUABQA9AQAAMwMAAAAA
[Script]
dim IniX,IniY,CurX,CurY,TmpX,TmpY
//声明变量
GetCursorPos IniX, IniY
Dim OnlineX, OnlineY
Dim GetColor
Dim R, G, BKeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1Do While True
// 捡银子
Dim FromY
Dim IsRed
IsRed = True
FromY = 50
Do While IsRed 
IsRed = False
Call FindPic(50, FromY, 1000, 800, "Attachment:\1.bmp", 1, CurX, CurY)
If CurX > 0 and CurY > 0 Then 
GetColor = GetPixelColor(CurX + 8, CurY + 16)
Call Plugin.Color.ColorToRGB(GetColor, R, G, B)
If (R = 255 and G = 0 and B = 0) or (R = 0 and G = 255 and B = 0) Then 
// 红色下划线的不捡
FromY = CurY + 10
IsRed = True
Else
CurX = CurX + 25
CurY = CurY + 8
MoveTo CurX, CurY
Delay 300

Call FindPic(50, 50, 1000, 800, "Attachment:\2.bmp", 1, TmpX, TmpY)
If TmpX > 0 and TmpY > 0 Then 
LeftClick 1
Delay 1800
End If
End If
End If
Loop

// 打怪
Call FindPic(0, 0, 100, 100, "Attachment:\SelfRed.bmp", 1, OnlineX, OnlineY)
If OnlineX > 0 and OnlineY > 0 Then 
// 加血
GetColor = GetPixelColor(OnlineX + 69, OnlineY + 5)
Call Plugin.Color.ColorToRGB(GetColor, R, G, B)

If R > 100 and G > 100 and B < 20 Then 
KeyPress 49, 1
Delay 300
End If
GetColor = GetPixelColor(OnlineX + 80, OnlineY + 5)
Call Plugin.Color.ColorToRGB(GetColor, R, G, B)

If R > 100 and G > 100 and B < 20 Then 
KeyPress 50, 1
Delay 300
End If
// 加蓝
GetColor = GetPixelColor(OnlineX + 33, OnlineY + 5 + 11)
Call Plugin.Color.ColorToRGB(GetColor, R, G, B)

If R > 100 and G > 100 and B < 20 Then 
KeyPress 51, 1
Delay 300
End If
GetColor = GetPixelColor(OnlineX + 70, OnlineY + 5 + 11)
Call Plugin.Color.ColorToRGB(GetColor, R, G, B)

If R > 100 and G > 100 and B < 20 Then 
KeyPress 52, 1
Delay 300
End If


Call FindPic(OnlineX + 100, OnlineY - 2, 600, OnlineY + 20, "Attachment:\Other.bmp", 1, CurX, CurY)
// 判断是否有选中怪
If CurX > 0 and CurY > 0 Then 
// 判断是否是元神
Call FindPic(CurX, CurY - 20, CurX+120, CurY + 5, "Attachment:\YuanShen.bmp", 1, TmpX, TmpY)
If TmpX > 0 and TmpY > 0 Then 
KeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1
Delay 300
Else 
GetColor=GetPixelColor(CurX+4,CurY+7)
Call Plugin.Color.ColorToRGB(GetColor, R, G, B)

// 判断是否死亡
If R > 100 and G > 100 and B < 20 Then 
KeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1
Delay 300
End If
End If
Else 
KeyDown 17, 1
KeyPress 9, 1
KeyUp 17, 1
Delay 300
End If

GetColor=GetPixelColor(CurX+4,CurY+7)
Call Plugin.Color.ColorToRGB(GetColor, R, G, B)
// 判断是否死亡
If Not (R > 100 and G > 100 and B < 20) Then 
KeyPress 112, 1
Delay 300
KeyPress 114, 1
End If

End If 
Delay 100
Loop