后臺自動打怪添加近戰模式

weiloon1234

UserVar hpa=DropList{不補血:0|10%補血:0.1|20%補血:0.2|30%補血:0.3|40%補血:0.4|50%補血:0.5|60%補血:0.6|70%補血:0.7|80%補血:0.8|90%補血:0.9}=0【補紅】
UserVar ae=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:58}=0 【技能補血】
UserVar hpt=DropList{不休息:0|10%回血:0.1|20%回血:0.2|30%回血:0.3|40%回血:0.4|50%回血:0.5|60%回血:0.6|70%回血:0.7|80%回血:0.8|90%回血:0.9}=5 【休息回血】
UserVar mpt=DropList{不休息:0|10%回氣:0.1|20%回氣:0.2|30%回氣:0.3|40%回氣:0.4|50%回氣:0.5|60%回氣:0.6|70%回氣:0.7|80%回氣:0.8|90%回氣:0.9}=5 【休息回氣】
UserVar ad=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:58}=1 【攻擊技能1】
UserVar ad1=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:58}=0 【攻擊技能2】
UserVar ad2=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:58}=0 【攻擊技能3】
UserVar ad3=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:58}=0 【攻擊技能4】
UserVar ad4=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:58}=0 【攻擊技能5】
UserVar ad5=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:58}=0 【輔助技能1】
UserVar t1=0 【技能延遲(秒)】
UserVar ad6=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:58}=0 【輔助技能2】
UserVar t2=0 【技能延遲(秒)】
UserVar ad7=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:58}=0 【輔助技能3】
UserVar t3=0 【技能延遲(秒)】
UserVar ad8=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:58}=0 【輔助技能4】
UserVar t4=0 【技能延遲(秒)】
UserVar ad9=DropList{無:0|按鍵1:49|按鍵2:50|按鍵3:51|按鍵4:52|按鍵5:53|按鍵6:54|按鍵7:55|按鍵8:56|按鍵9:57|按鍵0:58}=0 【輔助技能5】
UserVar t5=0 【技能延遲(秒)】
UserVar ro=DropList{原地復活繼續練功:395|回覆活點停止練功:365}=1 【死亡處置】
UserVar lkk=DropList{防搶怪:1|無視搶怪:2}=0 【防搶怪機制】
Plugin hwnd=Window.GetKeyFocusWnd()
aaa=1
ta1=now:ta2=now:ta3=now:ta4=now:ta5=now
Rem 開始
Gosub 輔助技能
Gosub 偵測血氣
Gosub 找怪
Gosub 打怪
Delay 100
Goto 開始
Rem 回血回氣
Gosub 記憶體
If hp=hpm and mp=mpm
Delay 1000
pp=0
Goto 開始
Else
If er=3
      //回氣時遇敵偷襲
      pp=1
      Plugin BGKM5.KeyClick(hwnd,13)
      Gosub 打怪
EndIf
Gosub 輔助技能
Delay 1000
Goto 回血回氣
EndIf
EndScript
Sub 偵測血氣
Gosub 記憶體
Gosub 補血氣
If hp<=hpm*hpt or mp<=mpm*mpt
      Delay 1000
      Goto 回血回氣
EndIf
Return 偵測血氣
Sub 找怪
If er=3
      Plugin BGKM5.KeyClick(hwnd,13)
      Gosub 打怪
EndIf
Rem 防搶怪
Plugin BGKM5.KeyClick(hwnd,9)
Delay 300
Gosub 記憶體
If et<>etm and (er=2 or er=3) and lkk=1
      Delay 300
      Goto 防搶怪
ElseIf er<=1 or er>=4
      Plugin BGKM5.KeyClick(hwnd,27)
      Delay 200
      Plugin BGKM5.KeyClick(hwnd,9)
ElseIf er=2 or er=3
      Plugin BGKM5.KeyClick(hwnd,13)
EndIf
Delay 1500
If er=2 or er=3
      Plugin BGKM5.KeyClick(hwnd,13)
Else
      //無怪開始轉圈
      Plugin BGKM5.MMove(hwnd,399,299)
      Delay 300
      Plugin BGKM5.LDown(hwnd,399,299)
      Delay 100
      Plugin BGKM5.MMove(hwnd,49,299)
      Delay 100
      Plugin BGKM5.LUp(hwnd,49,299)
      Delay 300
EndIf
Return 找怪
Sub 打怪
Rem 打怪中
Gosub 記憶體
If hp=0 and ro=395
      //死亡處置
      Delay 5000
      Plugin BGKM5.MMove(hwnd,397,ro-29)
      Delay 300
      Plugin BGKM5.LClick(hwnd,397,ro-29)
      Delay 1000
      Plugin BGKM5.MMove(hwnd,347,406)
      Delay 500
      Plugin BGKM5.LClick(hwnd,347,406)
      Delay 300000
ElseIf hp=0 and ro=365
      Delay 5000
      Plugin BGKM5.MMove(hwnd,397,ro-29)
      Delay 300
      Plugin BGKM5.LClick(hwnd,397,ro-29)
      Delay 1000
      Plugin BGKM5.MMove(hwnd,347,406)
      Delay 500
      Plugin BGKM5.LClick(hwnd,347,406)
      Delay 5000
      MessageBox "因死亡返回覆活點 , 而停止練功 , 請按中止鍵停止腳本"
EndIf
If et=0 or er<=1 or er>=4
      Plugin BGKM5.KeyClick(hwnd,27)
Else
      Gosub 補血氣
      Gosub 輔助技能
      //攻擊技能
      If ad<>0
         Plugin BGKM5.KeyClick(hwnd,ad)
Delay 6500
      EndIf
      If ad1<>0
         Plugin BGKM5.KeyClick(hwnd,ad1)
         Delay 1000
      EndIf
      If ad2<>0
         Plugin BGKM5.KeyClick(hwnd,ad2)
         Delay 1000
      EndIf
      If ad3<>0
         Plugin BGKM5.KeyClick(hwnd,ad3)
         Delay 1000
      EndIf
      If ad4<>0
         Plugin BGKM5.KeyClick(hwnd,ad4)
         Delay 1000
      EndIf
      Goto 打怪中
EndIf
Return 打怪
Sub 記憶體
Plugin hp=MemoryS2.ReadInt(hwnd,"[[[[a30198]+8]+2C]+7C]",2)
Plugin hpm=MemoryS2.ReadInt(hwnd,"[[[[a30198]+8]+2C]+80]",2)
Plugin mp=MemoryS2.ReadInt(hwnd,"[[[[a30198]+8]+2C]+84]",2)
Plugin mpm=MemoryS2.ReadInt(hwnd,"[[[[a30198]+8]+2C]+88]",2)
Plugin er=MemoryS2.ReadInt(hwnd,"[[[[a30264]+8]+34]+38]",2)
Plugin et=MemoryS2.ReadInt(hwnd,"[[[[a30264]+8]+34]+7c]",2)
Plugin etm=MemoryS2.ReadInt(hwnd,"[[[[a30264]+8]+34]+80]",2)
Return 記憶體
Sub 輔助技能
//輔助技能
If (DateDiff("s",ta1,now)>=t1 and ad5<>0) or (aaa=1 and ad5<>0)
      Delay 1000
      Plugin BGKM5.KeyClick(hwnd,ad5)
      Delay 2000
      ta1=now
EndIf
If (DateDiff("s",ta2,now)>=t2 and ad6<>0) or (aaa=1 and ad6<>0)
      Delay 1000
      Plugin BGKM5.KeyClick(hwnd,ad6)
      Delay 2000
      ta2=now
EndIf
If (DateDiff("s",ta3,now)>=t3 and ad7<>0) or (aaa=1 and ad7<>0)
      Delay 1000
      Plugin BGKM5.KeyClick(hwnd,ad7)
      Delay 2000
      ta3=now
EndIf
If (DateDiff("s",ta4,now)>=t4 and ad8<>0) or (aaa=1 and ad8<>0)
      Delay 1000
      Plugin BGKM5.KeyClick(hwnd,ad8)
      Delay 2000
      ta4=now
EndIf
If (DateDiff("s",ta5,now)>=t5 and ad9<>0) or (aaa=1 and ad9<>0)
      Delay 1000
      Plugin BGKM5.KeyClick(hwnd,ad9)
      Delay 2000
      ta5=now
EndIf
aaa=0
Return 輔助技能
Sub 補血氣
Gosub 記憶體
If hp<=hpm*hpa and ae<>0
      //使用技能補血
      Delay 1000
      Plugin BGKM5.KeyClick(hwnd,ae)
      Delay 1000
EndIf
Return 補血氣

請問下。。。如何把這腳本添加個“近戰模式”？
例如，我現在的設置是用了技能1后等待6500毫秒（6.5秒）。。。紅色7號字那就是我改得。。。。
但是效果不理想。。。還是會向前走一點點= =
技能1我是使用劍氣（防御技能）遠程引怪

請問下有沒有辦法加一個判斷（怪到自己面前了才雙擊左鍵進行普攻？）

這腳本取自 http://bbs.wgun.net/thread-291926-1-1.html

[ 本帖最後由 weiloon1234 於 2009-7-27 16:16 編輯 ]

外掛聯合國

[發問] 后臺自動打怪添加近戰模式

瀏覽過的版塊

外掛聯合國

[發問] 后臺自動打怪添加 近戰模式

瀏覽過的版塊

[發問] 后臺自動打怪添加近戰模式