Goto sl
End If
gaosX = 0
gaosY = 0
ddmm=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\锆石.bmp","000000",0.9,0, gaosX, gaosY )
If ddmm = 0 Then 
	Goto sl
End If
jjsX = 0
jjsY = 0
ddmm=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\尖晶石.bmp","000000",0.9,0, jjsX, jjsY )
If ddmm = 0 Then 
	Goto sl
End If
lrzyX = 0
lrzyY = 0
ddmm=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\龙人之眼.bmp","000000",0.9,0, lrzyX, lrzyY )
If ddmm = 0 Then 
	Goto sl
End If
fldjcX = 0
fldjcY = 0
ddmm=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\锋利的尖刺.bmp","000000",0.9,0, fldjcX, fldjcY )
If ddmm = 0 Then 
	Goto sl
End If
sgX = 0
sgY = 0
ddmm=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\树根.bmp","000000",0.9,0, sgX, sgY )
If ddmm = 0 Then 
	Goto sl
End If
jrdcxX = 0
jrdcxY = 0
ddmm=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\坚韧的触须.bmp","000000",0.9,0, jrdcxX, jrdcxY )
If ddmm = 0 Then 
	Goto sl
End If
psddrX = 0
psddrY = 0
ddmm=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\破损的刀刃.bmp","000000",0.9,0, psddrX, psddrY )
If ddmm = 0 Then 
	Goto sl
End If
yydjjX = 0
yydjjY = 0
ddmm=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\耀眼的结晶.bmp","000000",0.9,0, yydjjX, yydjjY )
If ddmm = 0 Then 
	Goto sl
End If
zxjdsX = 0
zxjdsY = 0
ddmm=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\最下级砥石.bmp","000000",0.9,0, zxjdsX, zxjdsY )
If ddmm = 0 Then 
	Goto sl
End If


zxjyhjx = 0
zxjyhjy = 0
ddmm=dm.FindPic(xx1,170,xx2,203,"C:\材料字库\最下级硬化剂.bmp","000000",0.9,0,zxjyhjX,zxjyhjY )
If ddmm = 0 Then 
	Goto sl
End If
lhjsX = 0
lhjsY = 0
ddmm=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\灵魂.bmp","000000",0.9,0, lhjsX, lhjsY )
If ddmm = 0 Then 
	Goto sl
End If
myybx = 0
myyby = 0
ddmm = dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\命运硬币.bmp", "000000", 0.9, 0, myybX, myybY)
If ddmm = 0 Then 
	Goto sl
End If

dmltpdps = dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\龙头炮的炮身.bmp", "000000", 0.9, 0, ddmmX, ddmmy)

dmxedjj = dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\邪恶的结晶.bmp", "000000", 0.9, 0, ddmmX, ddmmy)

dmzndzz = dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\灾难的征兆.bmp", "000000", 0.9, 0, ddmmX, ddmmy)

dmfengmi = dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\蜂蜜.bmp", "000000", 0.9, 0, ddmmX, ddmmy)

dmcusuan = dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\粗蒜.bmp", "000000", 0.9, 0, ddmmX, ddmmy)

dmtrnl = dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\天然奶酪.bmp", "000000", 0.9, 0, ddmmX, ddmmy)
dmyymg = dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\营养蘑菇.bmp", "000000", 0.9, 0, ddmmX, ddmmy)
dmblb=dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\白萝卜.bmp", "000000", 0.9, 0, ddmmX, ddmmy)
dmzzddyy1 = dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\自定义一号.bmp", "000000", 0.9, 0, ddmmX, ddmmy)
dmzzddyy2 = dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\自定义二号.bmp", "000000", 0.9, 0, ddmmX, ddmmy)
dmzzddyy3 = dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\自定义三号.bmp", "000000", 0.9, 0, ddmmX, ddmmy)
dmzzddyy4 = dm.FindPic(xx1, 170, xx2, 203, "C:\材料字库\自定义四号.bmp", "000000", 0.9, 0, ddmmX, ddmmy)

Rem sl

If lytx > 0 and lyty > 0 Then 
dj(dji) = lyt
ElseIf bsxjkx > 0 and bsxjky > 0 Then