5068儿童新闻中心

仙境幻想脚本自动挂机打怪真神了

mhl 2011-12-13 17:00:10 手机版

  大家好像最近对挂机打怪的脚本很感兴趣啊!那下面就来看看网友写的脚本对你有没有帮助吧!

  弓手,挂近战系列的精英大殿用的[之所以特别说明近战是因为省的跑去捡

  支持后台,吃血吃蓝,使用状态类技能

  自动挂机打怪脚本内容参考:

  Plugin.Bkgnd.KeyPress 参数1, 参数2

  Dim 窗口

  窗口 = Plugin.Window.MousePoint() //以上3行为对后台运行脚本进行定义

  Rem 回血

  GetColor = Plugin.Bkgnd.GetPixelColor(窗口, 212, 24)

  If GetColor = "484E53" Then //判断是否缺血

  Call Plugin.Bkgnd.KeyPress(窗口, 57)//按键9,红

  Delay 200

  Else

  Delay 200

  End If

  Rem 回蓝

  GetColor = Plugin.Bkgnd.GetPixelColor(窗口, 196, 45)

  If GetColor = "484E53" Then //判断是否缺蓝

  Call Plugin.Bkgnd.KeyPress(窗口, 56)//按键8,蓝

  Delay 200

  Else

  Delay 200

  End If

  Rem 打怪 //定义“打怪”逻辑

  GetColor = Plugin.Bkgnd.GetPixelColor(窗口, 509, 18)

  If GetColor = "27365A" Then //判断是否选中怪物

  Call Plugin.Bkgnd.KeyPress(窗口, 49)//按键1,开打

  Delay 200

  Call Plugin.Bkgnd.KeyPress(窗口, 54)//按键6,使用状态技能

  Delay 200

  Goto 回血

  Else //判断无目标,则进行如下操作

  For i=1 to 18

  Call Plugin.Bkgnd.KeyPress(窗口, 32)//空格捡东西18次

  Delay 300

  Next

  Call Plugin.Bkgnd.KeyPress(窗口, 9)//Tab选怪

  Goto 打怪

  End If

  Goto 回血