Function FindPicIn(x1, y1, x2, y2, path, hw)
	intX = 0
	intY = 0
	If hw = 0 Then 
		hw = Hwnd
	End If
	'Global intX,intY
	Do While intX <= 0 And intY <= 0
		Plugin.Window.Active(hw)
		Delay 1000
		FindPic x1, y1, x2, y2, path, 0.5, intX, intY
	Loop
End Function

exen = "三国杀online桌面版.exe"
title = "三国杀online桌面版"
Dim intX
Dim intY
Dim Hwnd
Hwnd = Plugin.Window.Find(0, title)

If Hwnd = 0 Then
	RunApp ("F:\Program Files\SanGuoShaAIR\三国杀online桌面版\三国杀online桌面版.exe")
	Hwnd = Plugin.Window.Find(0, title)
End If

// 移动到左上角
Call Plugin.Window.Move(Hwnd, 0, 0)
Plugin.Window.Active(Hwnd)
// 等待 进入大厅 按钮的出现
Call FindPicIn(432, 438, 589, 487, "Attachment:\enterhall.bmp", 0)
/*
Do While intX <= 0 And intY <= 0
	Plugin.Window.Active(Hwnd)
	Delay 1000
	FindPic 432, 438, 589, 487, "Attachment:\enterhall.bmp", 0.5, intX, intY
Loop
*/
If intX > 0 And intY > 0 Then 
	MoveTo intX + 60, intY + 10
	LeftClick 1
	Delay 1000
End If


// 查找 登录游戏 按钮
Call FindPicIn(363, 372, 490, 407, "Attachment:\login.bmp", 0)
If intX > 0 And intY > 0 Then 
	MoveTo intX + 50, intY + 10
	LeftClick 1
End If

// 查找 脸谱，以确定是否已进入场区选择界面
Call FindPicIn(114, 228, 185, 419, "Attachment:\face.bmp", 0)

// 进入国战
MoveTo 231, 455
LeftClick 1
Delay 1000
MoveTo 444, 491
LeftClick 1
Delay 3000

// 签到窗口
// 点击  签到
MoveTo 750, 145
LeftClick 1
/*
// 关闭 签到成功 窗口
MoveTo 517, 132
LeftClick 1
// 关闭 签到 窗口
MoveTo 873, 101
LeftClick 1
*/