Wend Delay 100 KeyPress 13,1 Rem 充电完成的确定 Delay 300 x = -1 y = -1 While x= -1 and y = -1 Call FindPic (315,221,779,463,"Attachment:\充电完成.bmp",1,x,y) Delay 300 Wend Delay 100 KeyPress 13,1 Delay 200 Rem 查看自己是否房主 x = -1 y = -1 home = 0 Call FindPic (0,0,1024,100,"Attachment:\成为房主.bmp",1,x,y) If x > 0 and y > 0 Then home = 1 KeyPress 13,1 intx = -1 inty = -1 While intx = -1 and inty = -1 Delay 200 Call FindPic (350,480,680,700,"Attachment:\房主开始提示.bmp",1,intx,inty) Wend KeyPress 13,1 Delay 200 KeyPress 116,1 Delay 1000 tx = -1 ty = -1 Call FindPic (315,221,779,463,"Attachment:\意外2.bmp",1,tx,ty) If tx > 0 and ty > 0 Then Delay 200 KeyPress 13,1 Delay 200 Goto 查看自己是否房主 End if Goto 进入战斗读取 End if Rem 准备 Delay 100 KeyPress 13,1 Delay 200 KeyPress 116,1 Delay 500 IfColor rex,rey,"ffffff",0 Then Goto 进入战斗读取 Else Delay 100 KeyPress 13,1 Goto 查看自己是否房主 End if Rem 进入战斗读取 Delay 1000 x = -1 y = -1 fx = -1 fy = -1 Call FindPic (600,0,1024,250,"Attachment:\开始读取.bmp",1,x,y) Delay 100 Call FindPic (300,210,770,440,"Attachment:\意外.bmp",1,fx,fy) Delay 100 If fx > 0 and fy > 0 Then Delay 100 KeyPress 13,1 Delay 100 Goto 查找准备标记 End if If x > 0 and y > 0 Then Goto 查找HP槽 End if If home = 0 Then Goto 查准备后变成房主 Else Goto 进入战斗读取 End if Rem 查准备后变成房主 casex = -1 casey = -1 Call FindPic (0,0,1024,100,"Attachment:\成为房主.bmp",1,casex,casey) If casex > 0 and casey > 0 Then Goto 查看自己是否房主 Else Goto 进入战斗读取 End if Rem 查找HP槽 Delay 5000 x = -1 y = -1 intx = -1 inty = -1 While x = -1 and y = -1 IfColor 114,52,"fcff00",0 Then Delay 5000 Call FindPic (300,210,770,440,"Attachment:\意外.bmp",1,intx,inty) If intx > 0 and inty > 0 Then