視窗800*600 位置任意
可被其他視窗覆蓋 但不可縮到最小
[General]
Description=後台划船
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
Plugin hwn=Window.GetKeyFocusWnd()
//吃料理的最低百分比
UserVar eat_pe=50 料理百分比
//吃料理1的技能格位置
UserVar eat_s=2 食物
UserVar huai_s=7 划船
UserVar jiu_s=6 救助
UserVar yun_s=8 運用
VBS stateAddr=&H00C04D34
VBS mpAddr=stateAddr+&HC0
VBS maxMpAddr=stateAddr+&HC4
VBS weakAddr=stateAddr+&HD0
VBS personAddr=stateAddr+&HCC
VBS personFightAddr=stateAddr+&HCE
VBS shiphpAddr=stateAddr+&HDA
VBS baiAddr=stateAddr+&HA8
VBS fightAddr=stateAddr+&H8
VBS baiSecAddr=stateAddr+&H84
VBS SailAddr=stateAddr+&H4B0
VBS autoSailAddr=stateAddr+&H4D0
VBS waterAddr=stateAddr+&HD2
VBS woodAddr=stateAddr+&HD8
VBS weatherAddr=&H00C072E8
V●禁私人部落格●Addr=&H00C070BC
VBS usedialogAddr=&H00C0709C
//Plugin weather=Memory.ReadBinary(hwn,weatherAddr,2)
Delay 1000
BeginThread "點岸邊"
VBS keyval=huai_s
Gosub 開技能
VBS keyval=yun_s
Gosub 開技能
While 1
Gosub 判斷救助
Gosub 行動力
Delay 1000
EndWhile
Sub 判斷救助
Plugin person=Memory.Read16Bit(hwn,personAddr)
Plugin shiphp=Memory.Read16Bit(hwn,shiphpAddr)
If person=0 or shiphp=0
VBS keyval=jiu_s
Gosub 開技能
VBS keyval=huai_s
Gosub 開技能
VBS keyval=yun_s
Gosub 開技能
EndIf
Return
Sub 點岸邊
Plugin bj=Window.GetKeyFocusWnd()
While 1
Plugin Bkgnd.LeftDoubleClick(bj,405,125)
Delay 500
EndWhile
Return
Sub 行動力
Plugin mp=Memory.Read16Bit(hwn,mpAddr)
Plugin maxmp=Memory.Read16Bit(hwn,maxMpAddr)
If mp*100/maxmp<eat_pe
VBS keyval=eat_s
Gosub 開技能
EndIf
Return
Sub 開技能
Rem restartskill
Plugin dialog=Memory.Read16Bit(hwn,dialogAddr)
If dialog=0
Plugin Bkgnd.KeyPress(hwn,112)
Delay 100
EndIf
VBS b=0
Rem rech
Plugin dialog=Memory.Read16Bit(hwn,dialogAddr)
If dialog=8
Plugin Bkgnd.KeyPress(hwn,111+keyval)
Delay 2000
Else
VBS b=b+1
If b>50
Goto restartskill
EndIf
Delay 100
Goto rech
EndIf
Return |