Else Gosub 找自己 Gosub 找自己 VBSCall FindColor(intX+10,intY+212,intX+95,intY+213,"ffffff",intX2,intY2) If intX2>0 and intY2>0 KeyPressS 116,1 Else Delay 100 EndIf Delay 500 Gosub 充电 EndIf Delay 500 VBS TRt=timer Rem 看是否为房主 VBSCall FindPic(100,0,250,68,"Attachment:\成为房主.bmp",1,intX,intY) If intX>0 and intY>0 KeyPressS 116,1 Delay 110 KeyPressS 13,1 Delay 110 Goto 看是否为房主 EndIf Delay 100 Gosub 找自己 VBSCall FindColor(intX+10,intY+212,intX+63,intY+213,"ffffff",intX2,intY2) If intX2>0 and intY2>0 Else KeyPressS 116,1 Delay 100 EndIf Delay 100 VBSCall FindPic(738,0,875,68,"Attachment:\准备标记.bmp",1,intX,intY) If intX>0 and intY>0 Else Goto 结束准备游戏 EndIf Delay 100 VBSCall FindPic(0,0,1023,768,"Attachment:\qp确认.bmp",0.8,intX,intY) If intX>0 and intY>0 KeyPressS 13,1 Else Goto 准备游戏start EndIf Rem 结束准备游戏 // Gosub 等待读取 Return 准备游戏 Sub 找自己 VBSCall FindPic(0,254,1023,354,"Attachment:\qp剪刀2.bmp",0.6,intX,intY) If intX>0 and intY>0 Goto 结束找自己 Else VBSCall FindPic(0,254,1023,354,"Attachment:\qp拳头2.bmp",0.6,intX,intY) If intX>0 and intY>0 Goto 结束找自己 Else VBSCall FindPic(0,254,1023,354,"Attachment:\qp包2.bmp",0.6,intX,intY) If intX>0 and intY>0 Goto 结束找自己 EndIf EndIf EndIf VBSCall FindPic(0,254,1023,354,"Attachment:\qp剪刀3.bmp",0.6,intX,intY) If intX>0 and intY>0 Goto 结束找自己 Else VBSCall FindPic(0,254,1023,354,"Attachment:\qp拳头3.bmp",0.6,intX,intY) If intX>0 and intY>0 Goto 结束找自己 Else VBSCall FindPic(0,254,1023,354,"Attachment:\qp包3.bmp",0.6,intX,intY) If intX>0 and intY>0 Goto 结束找自己 EndIf EndIf EndIf VBSCall FindPic(0,254,1023,354,"Attachment:\qp剪刀4.bmp",0.6,intX,intY) If intX>0 and intY>0 Goto 结束找自己 Else VBSCall FindPic(0,254,1023,354,"Attachment:\qp拳头4.bmp",0.6,intX,intY) If intX>0 and intY>0 Goto 结束找自己 Else VBSCall FindPic(0,254,1023,354,"Attachment:\qp包4.bmp",0.6,intX,intY) If intX>0 and intY>0 Goto 结束找自己 EndIf EndIf EndIf VBSCall FindPic(0,254,1023,354,"Attachment:\qp剪刀5.bmp",0.6,intX,intY) If intX>0 and intY>0 Goto 结束找自己 Else VBSCall FindPic(0,254,1023,354,"Attachment:\qp拳头5.bmp",0.6,intX,intY) If intX>0 and intY>0 Goto 结束找自己 Else VBSCall FindPic(0,254,1023,354,"Attachment:\qp包5.bmp",0.6,intX,intY) If intX>0 and intY>0 Goto 结束找自己