游戏人生的脚本按键精灵)

'屏幕颜色质量最好为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