自动打怪实战脚本(3D网游篇)
按键学院院刊【201407期】给大家分享的是,自动打怪实战脚本的技术交流贴~~
3D角色扮演网游如《寻仙》,《口袋西游》等,其打怪流程其实是非常简单的,看完视频,大家就明白怎么写一个简单的自动挂机的脚本了~~
如无法观看,请点击下载:按键精灵视频教程全集
[flash=http://bbs.vrbrothers.com/ajjl-jc-source/flash/vipjc/ajjl-jc-0021.swf,800]600[/flash]
源代码
- Hwnd = Plugin.Window.Find(0, "口袋西游")
- sRect = Plugin.Window.GetClientRect(Hwnd)
- Dim MyArray
- MyArray=Split(sRect,"|")
- Ux=CLng(MyArray(0))
- Uy = CLng(MyArray(1))
- MessageBox Ux
- Rem xuanze
- Call chiyao()
- KeyPress "2", 1
- Delay 300
- KeyPress "Tab", 1
- Delay 1000
- IfColor 384+Ux,33+Uy,"2D28BE",0 Then
- Rem gongji
- Call chiyao()
- KeyPress "1", 1
- Delay 1000
- IfColor 385+Ux,37+Uy,"E29621",0 Then
- Goto gongji
- Else
- Goto xuanze
- End If
- Else
- Goto xuanze
- End If
- Sub chiyao()
- IfColor 122+Ux,22+Uy,"9D640B",0 Then
- KeyPress "3", 1
- Delay 300
- End If
- End Sub
复制代码
>>>按键学院免费交流群:376122403
本文由按键学院提供技术支持
按键学院实战班(即将入驻最终幻想)火热招生
按键学院基础视频抢先观看