Call buyMedicinal(i)
	
End Function


//查找红蓝药品

Function findMedicinal(s_x, s_y, e_x, e_y, mbmp, t_x, t_y)
	Dim intX, intY
	FindPic s_x, s_y, e_x, e_y, "Attachment:\" & mbmp & ".bmp", 0.7, intX, intY
	TracePrint intX & " " & intY & "  " & mbmp
	
	If intX > 0 and intY > 0 Then 
		Call moveSupplies(intX + 4, intY + 4, t_x, t_y)
		findMedicinal = 1
	Else 
		findMedicinal = 0
	End If	
End Function

//移动药品
Function moveSupplies(x, y, t_x, t_y)
	Delay 200
	MoveTo x, y
	Delay 300
	LeftDown 1
	Delay 300
	MoveTo t_x, t_y
	Delay 300
	LeftUp 1
	Delay 300
End Function


//moveTo pack
Function movePack()
	sx = 150
	sy = 570
	tx = 485
	ty = 410
	For 6
		Call moveSupplies(sx, sy, tx, ty)
		sx = sx + 30
		tx = tx + 30
	Next
End Function


//出售物品
Function saleSupplies()
	Delay 100
	MoveTo 540, 290
	Delay 500
	LeftClick 1
	Delay 200
	//整理
	MoveTo 675, 440
	Delay 500
	LeftClick 1
	Delay 500
	//出售
	MoveTo 296, 460
	Delay 500
	LeftClick 1
	Delay 500
	Call saleMetries(0, 0)
	Delay 200
	//装备
	MoveTo 490, 290
	Delay 500
	LeftClick 1
	Delay 500
	//整理
	MoveTo 675, 440
	Delay 500
	LeftClick 1
	Delay 500
	Call saleMetries(0, 0)
	Delay 300
End Function




//出售物品
Function saleMetries(x,y)
	Dim tempX, tempY
	Dim ux, uy
	Dim tempS
	Dim mX, mY
	tempS = 0
	tempX = 0 : tempY = 0
	ux = 0 : uy = 0
	mx = x + 485
	my = y + 318
	
	FindPic x + 467, y + 300, x + 717, y + 428, "Attachment:\store.bmp", 1.0, intX, intY
	If intX > 0 and intY > 0 Then 
	
				If intX = x + 472 Then