Rem 开始 z=z+1 LockMouse MoveTo 485,180 SaveMousePos Rem 找房间 RestoreMousePos Delay 200 VBSCall FindPic(0,0,1024,786,"白房1.bmp",0.8,x,y) If x>=0 and y>=0 MoveTo x y SaveMousePos Delay 200 LeftClick 1 EndIf Delay 200 //战场 IfColor 528,29,ffffff,0 KeyPress 113,1 EndIf Delay 200 //信息(公用信息) IfColor 534,246,f7fbf7,0 IfColor 533,248,f7fbf7,0 MoveTo 515,357 Delay 200 LeftClick 1 Delay 100 RestoreMousePos Goto 找房间 EndIf EndIf Delay 200 //船厂 IfColor 489,27,FFFFFF,0 MoveTo 63,588 Delay 100 LeftClick 1 Delay 100 Goto 找房间 EndIf Delay 200 //准备或分组 IfColor 908,33,efefef,0 Delay 2000 MoveTo 485,180 //判断对面有没有人 VBSCall FindCenterColor(375,25,385,35,"212021",intX,intY) If intX>=0 and intY>=0 Else KeyPress 27,1 Delay 1000 Goto 找房间 EndIf Rem 准备 //准备或分组 IfColor 908,33,efefef,0 KeyPress 9,1 //准备或分组 IfColor 908,33,efefef,0 KeyPress 13,1 SayString z&" Ci"& KeyPress 13,1 Goto 准备 Else Goto 等待时间 EndIf EndIf Else Goto 找房间 EndIf Rem 等待时间 Delay 250 y=y+1 If y=60 KeyPress 27,1 Delay 1000 Goto 找房间 EndIf //战场(海) IfColor 7,62,f7aa00,0 Goto 开杀 Else Goto 等待时间 EndIf Rem 开杀 KeyPress 27,1 Delay 1000 //*****************************************准备开战***************************************** //信息(退出信息) IfColor 534,276,f7fbf7,0 IfColor 533,278,f7fbf7,0 MoveTo 490,387 Delay 200 LeftClick 1 Delay 100 MoveTo 485,180 Else Goto 开杀 EndIf