- dim inbattle,btlx,btly,ex,i,k,term
- dim blood,bloodx,bloody,bldUpSpd,bldUpTime,beginTime
- dim monst(2),tolTimes,perExp,tolExp,dieNums,reLive,tolsecond,howlong,dl,hl,ml,sl
- dim rndAtk,attackOrder
- dim maxDly,minDly
- dim makeoredusttimes,rollmap
- left=125:top=245:right=860:bottom=480:c1="00B4FF":i=0:j=0
- tolTimes=1:tolExp=1:perExp=0.02:dienums=0:reLive=0
- maxDly=5000:minDly=1000:beginTime=now
- bloodx1=610:bloodx2=689:bloody1=235:bloody2=240
- makeoredusttimes=0:rollmap=1
- //攻击方向:0上1中2下
- dim atkDirx(3),atkDiry(3)
- atkdirx(0)=337:atkdiry(0)=328
- atkdirx(1)=370:atkdiry(1)=371
- atkdirx(2)=339:atkdiry(2)=419
- dim fhlj,fhljlen,diedly
- fhlj="22015":fhljlen=len(fhlj)
- //路径坐标0代表复活点
- dim fhx(6),fhy(6)
- fhx(0)=800:fhy(0)=270
- fhx(1)=800:fhy(1)=208
- fhx(2)=800:fhy(2)=228
- fhx(3)=800:fhy(3)=248
- fhx(4)=800:fhy(4)=268
- fhx(5)=800:fhy(5)=288
- ///////////////////////////////////////////
- //----------自定义变量-----------
- //c是需要打的怪的特征色
- //c1是团队刷怪(怪上方的黄色团队打怪标志)
- //dagc是需要避免的怪:年长的恶魔犬[4] 99FF
- //鼠怪[1] FF00 狂狗[2] BF4C 雄性火蜘蛛2 BF4C 鼠怪头领[3] FF99 鼠怪领袖[2]FF66.
- //刽子手护腿:杀人蜂卫兵[3]ffff 骷髅勇士[3]FFCC 骷髅兵[2] 8434
- //term=0组队开关 0单刷1组队2遇到就打,刷高级怪的时候最好设置为1,怪少的时候可以设置为2
- //maxerr组队情况下设置连续多少次找不到组队刷怪时, 自己刷怪!
- //bldUpSpd常态下回血速度/秒, bldUpTime为恢复时间
- //rndAtk是否探索组合招式0否1是随机出招
- //attackOrder出招顺序表1上2中3下
- //eatbread战斗过后是否直接吃面包0否1是
- //makeoredust是否磨矿粉0否1是
- ///////////////////////////////////////////
- monst(0)="骷髅勇士[3]"
- monst(1)="FFCC"
- c=monst(1)
- dagc="8AE7"
- term=0
- blood=250
- bldUpSpd=2.0
- rndAtk=0
- maxErr=130
- outTimes=30
- //attackOrder="323322"
- //attackOrder="222"
- attackOrder="112322"
- eatbread=0
- makeoredust=0
- ////////////////////////////////////////////
- randomize
- 如果表达式 (1) 为真,则循环执行
- //msgbox j
- 标记 rr
- //是否退出挂机
- 如果表达式 (exit_my_script=1) 为真,则
- 调用子程序 ExitDrgGame
- 条件结束
- //是否暂停挂机
- 如果表达式 (pause_my_script=1) 为真,则
- 延时100毫秒
- 跳转到标记 rr
- 条件结束
- //获取控制信息
- 调用子程序 getdrgCtlInf
- 调用子程序 renewDrgGameInf
- zd=0:ex=0
- i=i+1:i=i mod 4
- j=j+1:j=j mod maxErr
- //关闭弹出窗口
- 调用插件命令 subhwnd=Window.Find(0,subtip(0))
- 如果表达式 (subhwnd*1>0) 为真,则
- 调用插件命令 Window.Close(subhwnd)
- 条件结束
- 调用插件命令 subhwnd=Window.Find(0,subtip(1))
- 如果表达式 (subhwnd*1>0) 为真,则
- reLive=reLive+1
- 调用插件命令 Window.Close(subhwnd)
- //msgbox "第" & reLive & "成功复活!",61," -- 网页对话框"
- //Delay mindly
- 条件结束
- //与游戏兼容性未授权、未准备好(怪刚好消失)
- 调用插件命令 bcxy=Bkgnd.FindColor(hwnd, 420-main_win_left,364-main_win_top, 431-main_win_left,369-main_win_top,"8eccd0")
- 如果表达式 (bcxy<>"-1|-1") 为真,则
- 调用插件命令 BGKM5.LClick(hwnd,487-main_win_left,368-main_win_top)
- 条件结束
- //找不到怪就自动切换地图
- 调用插件命令 bcxy=Bkgnd.FindColor(hwnd, 440-main_win_left,160-main_win_top, 490-main_win_left,180-main_win_top,"B6")
- //msgbox bcxy & "11111111111111111"
- 如果表达式 (bcxy<>"-1|-1") 为真,则
- //msgbox i
- 如果表达式 (i=0) 为真,则
- 调用插件命令 BGKM5.LClick(hwnd,464-main_win_left,160-main_win_top)