- UID
- 46376
- 帖子
- 4
- 积分
- 6
- 紫菀
- 0 朵
- 花瓣
- 8 片
- 花蕊
- 4 朵
- 野草莓
- 0 个
- 蒲公英
- 0 朵
- 社区等级
- 1 级
- 在线时间
- 4 小时
- 注册时间
- 2008-8-20
- 登录状态
-
当前离线
|
楼主
发表于 2008-8-20 08:59
| 只看该作者
过神医,供参考交流
//***********检查神医*****************//
Rem 检查神医
Delay 2000
MoveTo 142,151
Delay 1000
LeftClick 1
Delay 1000
VBSCall FindColor(547,609,641,631,"ffffff",x,y)
If x>0
VBSCall FindColor(549,516,602,564,"0000fd",dx,dy)
If dx>0
Goto 过神医
EndIf
EndIf
//***********过神医*******//
Rem 过神医
Delay 2000
If m=1
Goto 神医一
ElseIf m=2
Goto 神医二
Else
Goto 小退
EndIf
Else
Goto 开工
EndIf
Rem 神医一
Delay 500
MoveTo 724,561 //选第一项
Delay 1000
LeftClick 1
Delay 4000
VBSCall FindColor(547,609,641,631,"ffffff",x,y)
If x>0
// SayString "神医1未过"
m=2
Goto 过神医
Else
m=1
Delay 20
Plugin t=GetSysInfo.GetTime()
Delay 20
Plugin Window.SendString(hwnd,"1次神医过了---")
Delay 20
Plugin Window.SendKeyPress(hwnd,13)
Delay 200
Goto 开工
EndIf
Rem 神医二
Delay 1000
//SayString "到神医2"
MoveTo 724,561 //选第一项
Delay 1000
LeftClick 1
Delay 5000
VBSCall FindColor(547,609,641,631,"ffffff",x,y)
If x>0
// SayString "神医2未过"
m=3
Goto 过神医
Else
m=1
Delay 20
Plugin t=GetSysInfo.GetTime()
Delay 20
Plugin Window.SendString(hwnd,"2次过神医---")
Delay 20
Plugin Window.SendKeyPress(hwnd,13)
Delay 200
Goto 开工
EndIf
//*********小退*******//
Rem 小退
Delay 1000
m=1
//alt+o
Delay 100
KeyDown 18
Delay 100
KeyPress 79
Delay 100
KeyUp 18
Delay 200
//返回角色选择
Rem 返回
Delay 200
VBSCall FindColor(444,349,572,361,"552211",x,y)
If x>0 and y>0
Delay 300
MoveTo x,y
Delay 1000
LeftClick 1
Delay 200
Else
Goto 返回
EndIf
Delay 100
//重新进入游戏
Rem 进入
Delay 200
VBSCall FindColor(770,502,896,516,"552211",x,y)
If x>0
Delay 300
KeyPress 13,1
Delay 300
Else
Goto 进入
EndIf
Delay 200
//回到游戏
Rem 回游戏
Delay 200
IfColor 816,263,"00fefe",0
Delay 2000
Plugin t=GetSysInfo.GetTime()
Delay 20
KeyPress 122,1
Delay 500
KeyPress 122,1
Delay 500
KeyPress 122,1
Delay 500
Goto 检查神医
Else
Goto 回游戏
EndIf |
|