求 游戏人生挂机脚本 游戏人生脚本 可以是按键精灵也可以是按键游侠的！！

'屏幕颜色质量最好为32位色
Dim TopX,TopY,BottomX,BottomY
Dim CenterX,CenterY
Sub Main() '脚本主程序
Hwnd = HWindow.GetHwnd("游戏人生")
HWindow.setToTop Hwnd
HWindow.getClientRect TopX,TopY,BottomX,BottomY
CenterX = (BottomX-TopX)/2+TopX
CenterY= (BottomY-TopY)/2+TopY
GameMove()
PlayAutoAttack()
PetAutoAttack()
If IsColor(BottomX-219,TopY+21,&H501810,1) = 1 And IsColor(BottomX-215,TopY+24,&H501810,1) = 1 Then
AddPlayHp()
End If
If IsColor(BottomX-220,TopY+81,&H501810,1) = 1 And IsColor(BottomX-215,TopY+84,&H501810,1) = 1 Then
AddPetHp()
End If
End Sub '脚本主程序结束
Sub GameMove() '自动移动，进入战斗不再移动鼠标
If IsColor(BottomX-21,TopY+15,&HF8F8,0.8) = 0 Then
Exit Sub
End If
MoveTo CenterX-120, CenterY-200
LeftDown
Delay 10
LeftUp
Delay 300
MoveTo CenterX+250, CenterY
LeftDown
Delay 10
LeftUp
Delay 300
MoveTo CenterX+280, CenterY+100
LeftDown
Delay 10
LeftUp
Delay 300
MoveTo CenterX-160, CenterY+100
LeftDown
Delay 10
LeftUp
Delay 200
MoveTo CenterX-130, CenterY
LeftDown
Delay 10
LeftUp
Delay 300
End Sub

Sub AddPlayHp() '给自己加HP，F8上放回血道具
KeyPress "F8",1
Delay 100
KeyPress "F8",1
Delay 100
KeyPress "F8",1
Delay 1000
PlayAutoAttack()
End Sub
Sub AddPetHp() '给宠物加HP，6上放回血道具
KeyPress "6",1
Delay 100
KeyPress "6",1
Delay 100
KeyPress "6",1
Delay 1000
PetAutoAttack()
End Sub
Sub PlayAutoAttack()
If IsColor(BottomX-21,TopY+15,&HF8F8,0.8) = 1 Then
Exit Sub
End If
If IsColor(CenterX-38,CenterY+226,&H78C0C0,1) = 1 And IsColor(CenterX-47,CenterY+226,&H78C0C0,1) = 1 And IsColor(CenterX-57,CenterY+226,&H78C0C0,1) = 1 Then
MoveTo CenterX-45, CenterY+242
Delay 10
RightDown
Delay 187
RightUp
Delay 300
MoveTo CenterX-211, CenterY+133
End If
End Sub
Sub PetAutoAttack()
If IsColor(BottomX-21,TopY+15,&HF8F8,0.8) = 1 Then
Exit Sub
End If
If IsColor(CenterX-38,CenterY+264,&H78C0C0,1) = 1 And IsColor(CenterX-47,CenterY+264,&H78C0C0,1) = 1 And IsColor(CenterX-57,CenterY+264,&H78C0C0,1) = 1 Then
MoveTo CenterX-45, CenterY+280
Delay 10
RightDown
Delay 125
RightUp
MoveTo CenterX-211, CenterY+133
End If
End Sub