If ddmm = 0 Then 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