Rem A
Call Plugin.Window.Active(267020)
Delay 111
Hwnd = 71260
Plugin.Bkgnd.LeftClick Hwnd, 27, 14
Delay 200
FindPic 739, 337, 1010, 610,"Attachment:\羽毛.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Delay 40
//KeyDown "Shift", 1
Delay 30
//LeftDoubleClick 2
LeftClick 1
Delay 20
moveto 568,520
LeftClick 1
Delay 57
//MoveTo 450, 348
//LeftDoubleClick 2
KeyPress "Enter", 1
Delay 600
Else
//Delay 100
//KeyUp "Shift", 1
Goto B
End If
Rem B
FindPic 739, 337, 1010, 610,"Attachment:\国王.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Delay 40
//KeyDown "Shift", 1
MoveTo intX + 15, intY + 17
LeftClick 1
Delay 30
//LeftDoubleClick 2
LeftClick 1
Delay 20
moveto 568,520
LeftClick 1
Delay 57
//MoveTo 450, 348
//LeftDoubleClick 2
KeyPress "Enter", 1
Delay 600
Else
Delay 10
//KeyUp "Shift", 1
Goto C
End If
Delay 1500
//----------------------------------------------------------------
Rem C
Call Plugin.Window.Active(267144)
Delay 111
Hwnd = 136160
Plugin.Bkgnd.LeftClick Hwnd, 27, 14
Delay 156
FindPic 739, 337, 1010, 610,"Attachment:\羽毛.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Delay 40
//KeyDown "Shift", 1
MoveTo intX + 15, intY + 15
LeftClick 1
Delay 30
//LeftDoubleClick 2
LeftClick 1
Delay 20
moveto 568,520
LeftClick 1
Delay 57
//MoveTo 450, 348
//LeftDoubleClick 2
KeyPress "Enter", 1
Delay 500
Else
//KeyUp "Shift", 1
//Delay 100
Goto D
End If
Rem D
FindPic 739, 337, 1010, 610,"Attachment:\国王.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Delay 40
//KeyDown "Shift", 1
MoveTo intX + 15, intY + 17
LeftClick 1
Delay 30
//LeftDoubleClick 2
LeftClick 1
Delay 20
moveto 568,520
LeftClick 1
Delay 57
//MoveTo 450, 348
//LeftDoubleClick 2
KeyPress "Enter", 1
Delay 600
Else
//Delay 500
//KeyUp "Shift", 1
Goto E
End If
Delay 1500
//----------------------------------------------------------------
Rem E
Call Plugin.Window.Active(200000)
Delay 111
Hwnd = 68762
Plugin.Bkgnd.LeftClick Hwnd, 27, 14
Delay 156
FindPic 739, 337, 1010, 610,"Attachment:\羽毛.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Delay 40
//KeyDown "Shift", 1
MoveTo intX + 15, intY + 15
LeftClick 1
Delay 30
//LeftDoubleClick 2
LeftClick 1
Delay 20
moveto 568,520
LeftClick 1
Delay 57
//MoveTo 450, 348
//LeftDoubleClick 2
KeyPress "Enter", 1
Delay 600
Else
Delay 100
//KeyUp "Shift", 1
Goto F
End If
Rem F
FindPic 739, 337, 1010, 610,"Attachment:\国王.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Delay 40
//KeyDown "Shift", 1
MoveTo intX + 15, intY + 17
LeftClick 1
Delay 30
//LeftDoubleClick 2
LeftClick 1
Delay 20
moveto 568,520
LeftClick 1
Delay 57
//MoveTo 450, 348
//LeftDoubleClick 2
KeyPress "Enter", 1
Delay 600
Else
Delay 700
//KeyUp "Shift", 1
Goto A
End If