ddmm=dm.FindPic(xx1,170,xx2,203,"C:\材料字库\炉岩碳.bmp","000000",0.9,0,lytX,lytY )
If ddmm = 0 Then 
	Goto sl
End If
bsxjkx = 0
bsxjky = 0 
ddmm=dm.FindPic(xx1,170,xx2,203, "C:\材料字库\白色小晶块.bmp", 0.9, bsxjkX, bsxjkY )
If ddmm = 0 Then 
	Goto sl
End If
hsxjkx = 0
hsxjky = 0  
ddmm=dm.FindPic(xx1,170,xx2,203,"C:\材料字库\黑色小晶块.bmp","000000",0.9,0,hsxjkX,hsxjkY )
If ddmm = 0 Then 
	Goto sl
End If
hongsexx = 0
hongsexy = 0
ddmm = dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\红色小晶块.bmp", "000000", 0.9, 0, hongsexx, hongsey)
If ddmm = 0 Then 
	Goto sl
	MessageBox "zhaodaohongse "
End If
lsxjkx = 0
lsxjky = 0
ddmm=dm.FindPic(xx1,170,xx2,203,"C:\材料字库\蓝色小晶块.bmp","000000",0.9,0,lsxjkX,lsxjkY )
If ddmm = 0 Then 
	Goto sl
End If
wsxjkx = 0
wsxjky = 0
ddmm=dm.FindPic(xx1,170,xx2,203,"C:\材料字库\无色小晶块.bmp","000000",0.9,0,wsxjkX,wsxjkY )
If ddmm = 0 Then 
	Goto sl
End If
lbemx = 0
lbemy = 0
ddmm=dm.FindPic(xx1,170,xx2,203,"C:\材料字库\蓝冰的挑战书.bmp","000000",0.9,0,lbemx,lbemY )
If ddmm = 0 Then 
	Goto sl
End If
klemx = 0
klemy = 0
ddmm=dm.FindPic(xx1,170,xx2,203,"C:\材料字库\狂乱恶魔的挑战书.bmp","000000",0.9,0,klemX,klemY )
If ddmm = 0 Then 
	Goto sl
End If
qremx = 0
qremy = 0
ddmm=dm.FindPic(xx1,170,xx2,203,"C:\材料字库\强韧恶魔的挑战书.bmp","000000",0.9,0,qremX,qremY )
If ddmm = 0 Then 
	Goto sl
End If
lladzjmpx = 0
lladzjmpy = 0
ddmm=dm.FindPic(xx1,170,xx2,203,"C:\材料字库\罗莉安的专家mp药剂.bmp","000000",0.9,0,lladzjmpX,lladzjmpY )
If ddmm = 0 Then 
	Goto sl
End If
nddzjhpx = 0
nddzjhpy = 0
ddmm=dm.FindPic(xx1,170,xx2,203,"C:\材料字库\诺顿的专家hp药剂.bmp","000000",0.9,0,nddzjhpX,nddzjhpY )
If ddmm = 0 Then 
	Goto sl
End If
hjscx = 0
hjscy = 0
ddmm=dm.FindPic(xx1,170,xx2,203,"C:\材料字库\黄金圣餐.bmp","000000",0.9,0,hjscX,hjscY )
If ddmm = 0 Then 
	Goto sl
End If
pjdpgx = 0
pjdpgy = 0
ddmm=dm.FindPic(xx1,170,xx2,203,"C:\材料字库\破旧的皮革.bmp","000000",0.9,0,pjdpgX,pjdpgY )
If ddmm = 0 Then 
	Goto sl
End If
wzlssx = 0
wzlssy = 0
ddmm=dm.FindPic(xx1,170,xx2,203,"C:\材料字库\无重力碎石.bmp","000000",0.9,0,wzlssX,wzlssY )
If ddmm = 0 Then 
	Goto sl
End If

wyemx = 0
wyemy = 0
ddmm=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\威严恶魔的挑战书.bmp","000000",0.9,0, wyemX, wyemY )
If ddmm = 0 Then 
	Goto sl
End If
sxdtpx = 0
sxdtpy = 0
ddmm=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\生锈的铁片.bmp","000000",0.9,0, sxdtpX, sxdtpY )
If ddmm = 0 Then 
	Goto sl
End If
ysx = 0
ysy = 0
ddmm=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\萤石.bmp","000000",0.9,0, ysX, ysY )
If ddmm = 0 Then