VBSCall FindPic(MyWin(0),MyWin(3)-150,MyWin(0)+300,MyWin(3),"Attachment:\魔法條.bmp",0.9,x1,y1)
// 上面是抓取藍色的魔法量橫條
If x1>=0 and y1>=0
MoveTo x1 y1
V●禁私人部落格●etPixelColor(x1+2,y1)
//取得該點的顏色
Else
MessageBox "無法找到魔法量"
Goto End
EndIf
Delay 3000
KeyPress 13,1
Delay DlyTime
MoveTo x y //游標定位到人物位置
Delay DlyTime
MouseWheel 50 //利用滾輪將人物拉到最近
While True
IfColor x1+5,y1,BLColor,2 //進行模糊顏色比對
Delay DlyTime
KeyPress 120,1 //按下治癒術的快鍵
Delay 2500
For 5
MoveTo x y
Delay DlyTime
LeftClick 1 //連續對自己補5次
EndFor
VBSCall FindPic(MyWin(2)-309,MyWin(3)-325,MyWin(2)-261,MyWin(3)-50,"Attachment:\武器變紅.bmp",0.9,x2,y2)
If x2>=0 and y2>=0
MoveTo x2,y2
Delay DlyTime
KeyPress 9,1
Delay DlyTime
If Hand=0
MessageBox "武器已壞"
EndScript |