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