别发邮箱了 自己知道怎么用就行[Script]Rem 查找准备标记Delay 300MoveTo 0 0x = -1y = -1While x = -1 and y = -1 VBSCall FindPic (0,0,1024,768,"准备标记.bmp",1,x,y)EndWhile Delay 100Delay 100x = -1y = -1a = 0While x = -1 and y = -1 VBSCall FindPic (0,0,1024,768,"充电提示.bmp",1,x,y) Delay 100 a = a+1 If a > 5 Goto 查找本机位置 EndIf EndWhile Delay 100Goto 查看自己是否房主Rem 查找本机位置Delay 100x = -1y = -1intx = -1inty = -1tx = -1ty = -1While x = -1 and y = -1 VBSCall FindPic(0,0,1024,734,"拳头.bmp",1,x,y) VBSCall FindPic(0,0,1024,734,"布.bmp",1,intx,inty) If intx > 0 and inty > 0 Delay 100 MoveTo intx+60 inty+120 Delay 100 RightClick 1 Delay 100 Goto 找充电选项 EndIf VBSCall FindPic(0,0,1024,734,"剪刀.bmp",1,tx,ty) If tx > 0 and ty > 0 Delay 100 MoveTo tx+60 ty+120 Delay 100 RightClick 1 Delay 100 Goto 找充电选项 EndIf EndWhile Delay 100MoveTo x+60 y+120Delay 100RightClick 1Delay 100Rem 找充电选项Delay 100x = -1y = -1While x = -1 and y = -1 VBSCall FindPic (0,0,1024,768,"充电选项.bmp",1,x,y) Delay 100EndWhile Delay 100MoveTo x+8 y+7Delay 100LeftClick 1Delay 100x = -1y = -1a = 0While x = -1 and y = -1 VBSCall FindPic (0,0,1024,768,"充电费用确定.bmp",1,x,y) Delay 100 a = a+1 If a > 8 MoveTo 0 0 Delay 100 LeftClick 1 Goto 查找本机位置 EndIf EndWhile Delay 100KeyPress 13,1Delay 200x = -1y = -1While x = -1 and y = -1 VBSCall FindPic (0,0,1024,768,"充电完成.bmp",1,x,y) Delay 100EndWhile Delay 100KeyPress 13,1Delay 200Rem 查看自己是否房主x = -1y = -1VBSCall FindPic (0,0,1024,768,"成为房主.bmp",1,x,y)If x > 0 and y > 0 intx = -1 inty = -1 While intx = -1 and inty = -1 VBSCall FindPic (0,0,1024,768,"房主开始提示.bmp",1,intx,inty) EndWhile KeyPress 116,1 Goto 进入战斗读取EndIf Rem 准备Delay 100KeyPress 13,1Delay 200KeyPress 116,1Delay 300x = -1y = -1intx = -1inty = -1tx = -1ty = -1While x = -1 and y = -1 VBSCall FindPic(0,0,1024,734,"拳头.bmp",1,x,y) If x > 0 and y > 0 IfColor x+50,y+220,ffffff,0 Goto 进入战斗读取 EndIf EndIf VBSCall FindPic(0,0,1024,734,"布.bmp",1,intx,inty) If intx > 0 and inty > 0 IfColor intx+50,inty+220,ffffff,0 Goto 进入战斗读取 EndIf EndIf VBSCall FindPic(0,0,1024,734,"剪刀.bmp",1,tx,ty) If tx > 0 and ty > 0 IfColor tx+50,ty+220,ffffff,0 Goto 进入战斗读取 Else Goto 准备 EndIf EndIf EndWhile Rem 进入战斗读取Delay 800x = -1y = -1a = 0intx = -1inty = -1fx = -1fy = -1While x = -1 and y = -1 VBSCall FindPic (0,0,1024,768,"开始读取.bmp",1,x,y) Delay 100 VBSCall FindPic (0,0,1024,768,"意外2.bmp",1,intx,inty) If intx > 0 and inty > 0 Delay 100 KeyPress 13,1 Delay 200 Goto 准备 EndIf VBSCall FindPic (0,0,1024,768,"成为房主.bmp",1,fx,fy) If fx > 0 and fy > 0 intx = -1 inty = -1 While intx = -1 and inty = -1 VBSCall FindPic (0,0,1024,768,"房主开始提示.bmp",1,intx,inty) EndWhile KeyPress 116,1 Goto 进入战斗读取 EndIf EndWhile Delay 10000Rem 查找HP槽x = -1y = -1intx = -1inty = -1While x = -1 and y = -1 VBSCall FindPic (0,0,1024,768,"HP槽.bmp",1,x,y) Delay 500 Delay 100 VBSCall FindPic (0,0,1024,768,"意外2.bmp",1,intx,inty) If intx > -1 and inty > -1 Delay 100 KeyPress 13,1 Delay 200 Goto 查找准备标记 EndIf EndWhile Delay 6000Rem 开始战斗KeyPress 50,1Delay 100KeyDown 32,1Rem 战斗Delay 100KeyPress 50,1RightDown 1Delay 100LeftClick 1Delay 1000KeyUp 32,1LeftClick 1KeyDown 32,1Delay 200KeyPress 51,1Delay 200LeftClick 1Delay 1000LeftClick 1RightUp 1KeyUp 32,1x = -1y = -1a = 0While x = -1 and y = -1 VBSCall FindPic (0,0,1024,768,"准备标记.bmp",1,x,y) Delay 100 a = a+1 If a > 3 Goto 战斗2 EndIf EndWhile Goto 查找准备标记Rem 战斗2Delay 100KeyPress 50,1RightDown 1Delay 100LeftClick 1Delay 1000LeftClick 1Delay 200KeyPress 51,1Delay 200LeftClick 1Delay 1000LeftClick 1RightUp 1x = -1y = -1a = 0While x = -1 and y = -1 VBSCall FindPic (0,0,1024,768,"准备标记.bmp",1,x,y) Delay 100 a = a+1 If a > 3 Goto 开始战斗 EndIf EndWhile
