End If
     If intX < 0 Then 
     stateinfo = "佣兵危险，退出游戏"
     Call Plugin.File.WriteFileEx("zdkp_log.txt",now&":第" & (xx - 1) & "次KP,佣兵危险，退出游戏")
     dangerBack = 1
 
    	 KeyDown "Shift", 1
	   	 Delay 10
    	 KeyPress "1", 1
		Delay 500
    	 KeyUp "Shift", 1
	End if
End Function

Sub fuhuopet
 zz = "21 ,232 |  72 ,350 |  182, 520  | 50, 300 "
  zouwei = Split(zz, "|", - 1 , 0)
  I=0
 Do While i < 4
 	 Dim zb
            zb = split(zouwei(i), ",", - 1 , 0)
            pyx = int(rnd *5)
            pyy = int(rnd *5)
            zb_x = zb(0)+pyx
            zb_y = zb(1)+pyy
            i = i+1
            MoveTo zb_x + d2_pyx, zb_y + d2_pyy
            LeftClick 1
            Delay 1300+int(rnd*200)
 Loop
 Do
 FindPic d2_pyx + 400 - 400, d2_pyy + 200 - 200, d2_pyx + 400 + 400, d2_pyy + 200 + 400, "Attachment:\夸尔凯克小.bmp", 0.9, intX, intY
 If intX > 0 Then 
 	 	intx=d2_pyx+408 +4*(intx+23 -(d2_pyx+ 408 ))
 		inty=288+d2_pyy-4*(288+d2_pyy- inty-22)
 		MoveTo intx, inty
 		LeftClick	1	 		
 	  FindPic d2_pyx + 400 - 400, d2_pyy + 200 - 200, d2_pyx + 400 + 400, d2_pyy + 200 + 400, "Attachment:\复活.bmp", 0.6, intX, intY
 	  	If intx > 0 Then 
 	  	MoveTo intx, inty
 	  	Delay 100
 		LeftClick 1
 		Delay 100
 		Exit DO	
 	  	End If
 End If
 Loop
End Sub
Sub cunfangwupin
stateinfo="存放物品"
 zz = "205,484|215,420|629,475"
  zouwei = Split(zz, "|", - 1 , 0)
  I=0
 Do While i < 3
 	 Dim zb
            zb = split(zouwei(i), ",", - 1 , 0)
            pyx = int(rnd *5)
            pyy = int(rnd *5)
            zb_x = zb(0)+pyx
            zb_y = zb(1)+pyy
            i = i+1
            MoveTo zb_x + d2_pyx, zb_y + d2_pyy
            LeftClick 1
            Delay 1300+int(rnd*200)
 Loop
 Do
 FindPic d2_pyx + 400 - 400, d2_pyy + 200 - 200, d2_pyx + 400 + 400, d2_pyy + 200 + 400, "Attachment:\箱子.bmp", 0.7, intX, intY
 If intX > 0 Then 
 	 	intx=d2_pyx+408 +4*(intx -(d2_pyx+ 408 ))
 		inty=288+d2_pyy-4*(288+d2_pyy- inty-10)
 		MoveTo intx, inty
 		LeftClick 1
 		Delay 500	 		
FindPic  d2_pyx + 400 - 400, d2_pyy + 200 - 200, d2_pyx + 400 + 400, d2_pyy + 200 + 400, "Attachment:\箱子打开.bmp", 0.7, intX, intY
  	  	If intX > 0 Then 
 	  	TracePrint intX	
 	    Delay 100
 		Exit DO	
 	  	End If
 End If
Loop
i = 0
ii = 0
Dim  scolor(6,3)
scolor(0,0)="040404"
scolor(0,1)="141414"
scolor(0,2)="040404"
scolor(0,3)="040404"
scolor(1,0)="080C0C"
scolor(1,1)="040404"
scolor(1,2)="0C0C0C"
scolor(1,3)="080808"
scolor(2,0)="040404"
scolor(2,1)="101010"
scolor(2,2)="080C0C"
scolor(2,3)="040404"
scolor(3,0)="040404"
scolor(3,1)="0C0C0C"
scolor(3,2)="040404"
scolor(3,3)="040404"