【永久免費版】SP1定點掛機腳本_未來啟示錄SP1外掛_外掛聯合國討論區免費下載試用

外掛聯合國討論區 › 《遊戲橘子》 › 未來啟示錄SP1外掛 ›

11871

發佈主題

牽著你的鹹豬手

牽著你的鹹豬手 發表於 2009-10-12 17:41:14 | 只看該作者回帖獎勵

|倒序瀏覽 |

原創:ohyeah

一、功能說明:
1、支援任何一種解析度模式
2、自動打怪(可以定點、指定打怪)
3、自動拾取
4、自動喝藥(大藥、小藥)
5、自動休息
6、自動加持
-
-
-
二、注意事項
1、視窗模式
2、操作設定

下載 (35.55 KB)
5 分鐘前

3、物品欄
物品欄1 普通攻擊
物品欄2 攻擊技能
物品欄3 攻擊技能
物品欄4 拾取
物品欄5 生命藥
物品欄6 原能藥
物品欄7 體力藥
物品欄8 加持技能
物品欄9 加持技能
物品欄0 加持技能

下載 (17.42 KB)
5 分鐘前

-
-
-
三、套用腳本
下載得到RAR檔案
解壓出來【Seraph7.40】和【未來啟示錄SP1demo】
1、安裝Seraph7.40

2、找到并運行Seraph.exe

下載 (3.95 KB)
5 分鐘前

3、點擊[文件] / 打開

下載 (9.39 KB)
5 分鐘前

4、選中並開啟腳本...未來啟示錄SP1demo/未來啟示錄SP1內存版.ser

下載 (19.4 KB)
5 分鐘前

5、腳本參數設置
參考參數說明，雙擊【參數值】，進行設置

下載 (51.68 KB)
5 分鐘前

6、開啟腳本后，下方會有提示按哪個[熱鍵]啟動腳本
Home
-
-
-
載點:
http://fhd.iwgun.net/downfile.php?action=publicfile_id=1850&file_key=IkDbg3WY

收藏0 分享讚0 幹0 分享分享

回覆

使用道具舉報

linjolo 2009-10-12 18:15:22

謝謝大大的分享.....不過我想要自己設定自動復活再過去打怪的參數不知道可以教導一下嗎??

回覆

使用道具舉報

牽著你的鹹豬手 2009-10-12 19:31:31

本帖最後由牽著你的鹹豬手於 2009-10-12 20:35 編輯

目前還沒寫自動復活功能^^

YCT65B

附上源代碼:

#[HOTKEY]HOME
#SetArgsOnCompile
//原創作者:Seraph討論區ohyeah
//腳本參數設置參考參數說明設置參數 <=> 正常掛網
//啟動與暫停熱鍵:Home
dim x,y
dim WinID
dim pi
dim HPkey1,HP1,HPkey2,HP2,APkey1,AP1,APkey2,AP2,SPkey1,SP1,SPkey2,SP2
dim XHP,XAP,XSP,XTime
dim GHP1,GHP2,DGJC
dim FW
dim Time1 = -1
dim Time2 = -1
dim Time3 = -1
dim F1,Z1,F2,Z2,F3,Z3
function init
HPkey1=GetConfigString("放大HP藥的快捷鍵")
HP1=GetConfigNumber("HP少於%使用大生命藥")
HPkey2=GetConfigString("放小HP藥的快捷鍵")
HP2=GetConfigNumber("HP少於%使用小生命藥")
APkey1=GetConfigString("放大AP藥的快捷鍵")
AP1=GetConfigNumber("AP少於%使用大原能藥")
APkey2=GetConfigString("放小AP藥的快捷鍵")
AP2=GetConfigNumber("AP少於%使用小原能藥")
SPkey1=GetConfigString("放大SP藥的快捷鍵")
SP1=GetConfigNumber("SP少於%使用大體力藥")
SPkey2=GetConfigString("放小SP藥的快捷鍵")
SP2=GetConfigNumber("SP少於%使用小體力藥")
XHP=GetConfigNumber("HP少於%休息")
XAP=GetConfigNumber("AP少於%休息")
XSP=GetConfigNumber("SP少於%休息")
XTime=GetConfigNumber("休息糾錯時間")
key1=GetConfigString("首發攻擊快捷鍵")
GHP1=GetConfigNumber("怪物1血量值")
GHP2=GetConfigNumber("怪物2血量值")
DGJC=GetConfigNumber("打怪糾錯時間")
FW=GetConfigNumber("掛機範圍")
F1=GetConfigString("輔助鍵key8冷卻時間")
Z1=GetConfigNumber("輔助鍵key8施展時間")
F2=GetConfigString("輔助鍵key9冷卻時間")
Z2=GetConfigNumber("輔助鍵key9施展時間")
F3=GetConfigString("輔助鍵key0冷卻時間")
Z3=GetConfigNumber("輔助鍵key0施展時間")
FindWindow("未來啟示錄",WinID)
ActiveWindow(WinID)
Wait(100)
pi = 4 * Atn(1)
GetActiveWindowSize(w,h)
Print(w &","& h)
ReadXY(x,y)
end function
function SKeyPress(key)
KeyDown("SHIFT")
KeyPress(key)
KeyUp("SHIFT")
end function
function ReadXY(byref x,byref y)
KSP_ReadMemory(&H7BD074,2,addxy)
KSP_ReadMemory(addxy+&H4,3,addx)
KSP_ReadMemory(addxy+&H4c,3,addy)
x=Int(addx)
y=Int(addy)
ReadXY=true
end function
function Readhas(byref HP,byref AP,byref SP)
KSP_ReadMemory(&H7E90CC,2,has)
KSP_ReadMemory(has+&HF4,2,H1)
KSP_ReadMemory(h1+&H94,2,HP)
KSP_ReadMemory(has+&HF8,2,A1)
KSP_ReadMemory(a1+&H94,2,AP)
KSP_ReadMemory(has+&HFC,2,S1)
KSP_ReadMemory(s1+&H94,2,SP)
Readhas=true
end function
function ReadMax(byref MHP,byref MAP,byref MSP)
KSP_ReadMemory(&H7E90CC,2,has)
KSP_ReadMemory(has+&HF4,2,H1)
KSP_ReadMemory(h1+&H90,2,MHP)
KSP_ReadMemory(has+&HF8,2,A1)
KSP_ReadMemory(a1+&H90,2,MAP)
KSP_ReadMemory(has+&HFC,2,S1)
KSP_ReadMemory(s1+&H90,2,MSP)
ReadMax=true
end function
function ReadGHP
KSP_ReadMemory(&H7e91e0,2,addg)
KSP_ReadMemory(addg+&H2f0,2,addg1)
KSP_ReadMemory(addg1+&H94,2,GHP)
ReadGhp=Ghp
end function
function ReadFG
KSP_ReadMemory(&H7E426C,2,abc1)
KSP_ReadMemory(abc1+&H20,2,abc2)
KSP_ReadMemory(abc2+&H1AC,2,abc3)
KSP_ReadMemory(abc3+&H3C,2,abc)
ReadFG=abc
end function
function HPAPSP
Readhas(HP,AP,SP)
ReadMax(MHP,MAP,MSP)
if Int(HP/MHP*100) <= HP1 then
KeyPress(HPkey1)
end if
if Int(HP/MHP*100) <= HP2 then
KeyPress(HPkey2)
end if
if hp = 0 then
Beep(1000,200)
Wait(3000)
MsgBox("人物hp=0", 1)
end if
if Int(AP/MAP*100) <= AP1 then
KeyPress(APkey1)
end if
if Int(AP/MAP*100) <= AP2 then
KeyPress(APkey2)
end if
if Int(SP/MSP*100) <= SP1 then
KeyPress(SPkey1)
end if
if Int(SP/MSP*100) <= SP2 then
KeyPress(SPkey2)
end if
end function
function Xkey
Readhas(HP,AP,SP)
ReadMax(MHP,MAP,MSP)
if Int(HP/MHP*100) <= XHP then
Xk=1
elseif Int(AP/MAP*100) <= XAP then
Xk=1
elseif Int(SP/MSP*100) <= XSP then
Xk=1
else
Xk=0
end if
if Xk=1 then
KeyPress("x")
st=GetTime()
do
if GetTime()-st > XTime * 1000 then
exit do
end if
if ReadGHP()>1 then
KillG()
st=GetTime()
Wait(100)
KeyPress("x")
end if
Readhas(HP,AP,SP)
ReadMax(MHP,MAP,MSP)
loop until HP=MHP and AP=MAP and SP=MSP
end if
Xk=0
end function
function FindG
do
KeyPress("tab")
hpapsp()
if ReadFG()=1 then
if ReadGhp()=GHP1 or ReadGhp()=GHP2 then
KillG()
exit do
end if
end if
Wait(100)
loop
end function
function KillG
key1=GetConfigString("首發攻擊快捷鍵")
stt=GetTime()
do
KeyPress(key1)
Wait(1000)
KeyPress("2")
Wait(1000)
KeyPress("3")
Wait(1000)
HPAPSP()
if ReadGhp()=0 or ReadFG()=0 then
exit do
end if
if GetTime()-stt > DGJC * 1000 then
exit do
end if
Wait(100)
loop
KeyPress("W",800)
SetTime=GetTime()
do
KeyPress("4")
hpapsp()
Wait(100)
loop until GetTime()-SetTime > 1500
do
KeyPress("esc")
hpapsp()
Wait(50)
loop until ReadFG()=0
end function
function STime
if ReadGhp()>1 then
KillG()
exit function
else
if f1 <> "=" then
if Time1 < 0 or GetTime() - Time1 >= CNum(F1) * 1000 then
Time1 = GetTime()
SKeyPress("F1")
Wait(100)
SKeyPress("8")
Wait(Z1)
end if
end if
if f2 <> "=" then
if Time2 < 0 or GetTime() - Time2 >= CNum(F2) * 1000 then
Time2 = GetTime()
SKeyPress("F1")
Wait(100)
SKeyPress("9")
Wait(Z2)
end if
end if
if f3 <> "=" then
if Time3 < 0 or GetTime() - Time3 >= CNum(F3) * 1000 then
Time3 = GetTime()
SKeyPress("F1")
Wait(100)
SKeyPress("0")
Wait(Z3)
end if
end if
end if
end function
function StopAllKey
KeyUp("w")
KeyUp("s")
KeyUp("a")
KeyUp("d")
end function
function GetAngle(fromX, fromY, toX, toY)
dim angle
if toX-fromX=0 then
angle=pi/2
else
angle=Atn((toY-fromY)/(toX-fromX))
end if
if toX-fromX <0 then
angle=angle+pi
end if
GetAngle=angle
end function
function GotoXY(destX, destY)
dim lastX, lastY, currentX, currentY
if not ReadXY(lastX, lastY) then
GotoXY=false
exit function
end if
if Ab●嚴禁張貼廣告● or Ab●嚴禁張貼廣告● then
arrived=false
KeyDown("w")
do
wait(200)
if not ReadXY(currentX, currentY) then
StopAllKey()
GotoXY=false
exit function
end if
if Abs(currentX-destX)<10 and Abs(currentY-destY)<10 then
StopAllKey()
GotoXY=true
exit function
end if
desiredAngle = GetAngle(currentX, currentY, destX, destY)
if currentX <> lastX or currentY <> lastY then
currentAngle=GetAngle(lastX, lastY, currentX, currentY)
dAngle=desiredAngle-currentAngle
if dAngle > pi then
dAngle=dAngle-pi*2
end if
if dAngle < -pi then
dAngle=dAngle+pi*2
end if
KeyUp("a")
KeyUp("d")
if Abs(dAngle)>pi/8 then
if dAngle<0 then
KeyDown("d")
else
KeyDown("a")
end if
end if
end if
lastX=currentX
lastY=currentY
loop while not arrived
StopAllKey()
end if
end function
Function SetWindowCaption(winid_subin , winText_subin)
DllCall("user32.dll","int","SetWindowTextA","int",winid_subin,"str",winText_subin)
end function
function main
init()
while true
FindG()
Xkey()
STime()
GotoXY(x,y)
wend
end function

複製代碼

回覆

使用道具舉報

愛到深處 2009-10-12 20:36:45

大大怎麼都設定好了都一直在選怪都沒攻擊

回覆

使用道具舉報

5層

牽著你的鹹豬手 2009-10-12 20:52:13

【怪物血量值】有沒有設置正確YCT62B

回覆

使用道具舉報

6層

linjolo 2009-10-12 21:07:14

復活的程式不知道大大何時可以po上...很期待..謝謝!!

回覆

使用道具舉報

失戀達人該用戶已被刪除	7層失戀達人 2009-10-12 21:44:54 提示: 作者被禁止或刪除內容自動屏蔽
失戀達人該用戶已被刪除
	回覆使用道具舉報

8層

愛到深處 2009-10-12 22:00:25

血量值要怎麼設置.....................YCT62B

回覆

使用道具舉報

9層

asaaaas 2009-10-13 00:42:43

請問我設定都完成之後，當練攻地點設置在工業區
打玩怪，執行自動檢取之後就會開始亂跑...
請問是哪邊設置錯誤呢??

回覆

使用道具舉報

icute885 該用戶已被刪除	10層 icute885 2009-10-13 09:42:14 提示: 作者被禁止或刪除內容自動屏蔽
icute885 該用戶已被刪除
	回覆使用道具舉報

12 3 4 5 / 5 頁下一頁

外掛聯合國

[轉貼] 【永久免費版】SP1定點掛機腳本