本帖最後由 慧慧慧慧 於 2010-2-16 14:10 編輯
我想知道為什麼不會自動開討伐書的~~
#[HOTKEY]F9
#SetArgsOnCompile
/*-------------------變數宣告-----------------------*/
dim sum=1,hp,hp1,hp2,hp03,hp4,hp11,hp12,hp13,mp,mp1,mp2,xp,pet,pet1,pet2,pmp2,IDname,can1,can2,can3,can4,winx0,winy0,winid,cons,N1,N2,N3,N4,huy,sumtime=0
dim RunNO1=0,Scope,MyPosX,MyPosY,PosXNo1,PosYNo1,ID,find,Mywx,Myhy,WinX,WinY,MapX,MapY,hp3,maptitle,exp1//加入(全局變量)
/*-------------------偵測視窗ID碼,遊戲座標-----------------------*/
function main
N3=GetConfigNumber("走路回範圍幾秒")
N4=GetConfigNumber("消滅幾隻怪檢查紀錄點")
S1=GetConfigNumber("掛機範圍")
p=GetConfigNumber("掛機模式")
GetActiveWindowSize(width, height)
GetActiveWindowID(ID)
IF RunNO1=0 then //初始化,自動紀錄範圍掛機位置
GetActiveWindowID(ID)
Print("視窗ID碼: 【 "& ID &"】")
check(3)
PosXNo1=51 //自動紀錄PosXNo1=目前人物所在X座標;或是手動更改MyPosX指定掛機位置,ex:PosXNo1=200
PosYNo1=87 //同上,Y座標
Scope=20 ///////////////掛機範圍(自行設定,預設5)///////////////
print("初始化:紀錄腳本開始的座標 【"& PosXNo1 & "," & PosYNo1 &"】")
print("人物目前在【"& maptitle & "】 地圖")
print("目前經驗直【"& exp1 &"】")
print("掛機範圍【"& Scope &"】")
Mywx=(width/2)
Myhy=(height/2)
print("人物視窗座標:【"& Mywx&","& Myhy &"】")
RunNO1=1
end if
/*-------------------討伐書座標設定--------------------*/
//物品欄有討伐書時(討伐書放在上面第一排第5格)
WinX=778 //背包討伐書 X 座標
WinY=227 //背包討伐書 Y 座標
//請利用原點座標抓取
/*----------------------------------------------------*/
SetInputMode(4)
GetActiveWindowXY(WinX0, WinY0)
/*-------------------技能,討伐計時器-----------------------*/
bufftime1=GetConfigNumber("施放輔助技能1間隔秒數")
bufftime2=GetConfigNumber("施放輔助技能2間隔秒數")
bufftime3=GetConfigNumber("施放輔助技能3間隔秒數")
SetTimer("skill1", bufftime1*1000, true) //施放技能1,每10分鐘
SetTimer("skill2", bufftime2*1000, true) //揓技技能2,每30分鐘
SetTimer("skill3", bufftime3*1000, true) //揓技技能2,每30分鐘
while true
GO(p)
wend
end function
/*-------------------自動攻擊,自動檢取-----------------------*/
function GO_pot
n=GetConfigNumber("選怪模式")
N2=GetConfigNumber("討伐怪的數量")
KSP_ReadMemory(&H1C1027C,2,find)
if find=0 then
ReturnScope() //超出掛機範圍,回掛機點
KeyPress("`")
choice(n) //選怪模式1:不搶怪 ;選怪模式2:只打指定怪+不搶怪
else
while find>0
choice(n) //選怪模式1:不搶怪 ;選怪模式2:只打指定怪+不搶怪
KeyPress("1")
wait(500)
check() //邊打邊檢查hp、mp、寵hp
KSP_ReadMemory(&H1C1027C,2,find)
wend
check() //打完再檢查一下hp、mp、寵hp
wait(10)
//Punitive(N2) //討伐書 現在關閉 要用時請清除前面的[//]
FindTreasure() //找尋寶箱
Wait(50)
KeyPress("`")
KeyPress("1")
print("第" & sum &"隻怪–【" & IDname & "】 |討伐已擊殺:" & sum & "隻 | 需擊殺"&N2 &"隻怪")
print("HP:" & hp2 & "%|MP:" & mp2 & "%|XP:" & xp & "|寵HP:" & pet2 & "%" &"|寵MP:" & pmp2 & "%" &"|補機HP:" & hp13 & "%")
sum=sum+1
sumtime=sumtime+1
huy=N4
print("殺【"& huy & "】隻怪物時,檢查範圍紀錄點,目前殺【" & sumtime & "】隻,倒數【" & huy-sumtime & "】隻")
if sumtime >= huy then
print("檢查範圍紀錄點")
ReturnScope()//超出掛機範圍,回掛機點
sumtime=0
end if
end if
end function
/*-------------------記憶體內存位置-----------------------*/
function check //檢查hp、mp、xp、寵血
nhp1=GetConfigNumber("人物HP小於%第一組補血")
hpkey1=GetConfigString("第一組補血鍵")
nhp2=GetConfigNumber("人物HP小於%第二組補血")
hpkey2=GetConfigString("第二組補血鍵")
nmp1=GetConfigNumber("人物MP小於%第一組補藍")
mpkey1=GetConfigString("第一組補藍鍵")
nmp2=GetConfigNumber("人物MP小於%第二組補藍")
mpkey2=GetConfigString("第二組補藍鍵")
pethp2=GetConfigNumber("寵物HP小於%補血")
pethpkey=GetConfigString("寵物補血鍵")
petmp2=GetConfigNumber("寵物MP小於%補藍")
petmpkey=GetConfigString("寵物補藍鍵")
nhp3=GetConfigNumber("人物HP小於%回城")
hpkey3=GetConfigString("人物回城鍵")
ResetMemBuffer()
KSP_ReadMemory(&H163A8A4,2,hp)
KSP_ReadMemory(&H163A8C0,2,hp1)
KSP_ReadMemory(&H163380C,2,hp11)
KSP_ReadMemory(&H1633814,2,hp12)
KSP_ReadMemory(&H163A8A8,2,mp)
KSP_ReadMemory(&H163A8C4,2,mp1)
KSP_ReadMemory(&H1A4F4B0,2,xp)
KSP_ReadMemory(&H1676E28,2,pet)
KSP_ReadMemory(&H1676E2C,2,pet1)
KSP_ReadMemory(&H1677FB8,2,pmp)
KSP_ReadMemory(&H1677FBC,2,pmp1)
KSP_ReadMemory(&H1C14EEC,5,20,IDname)
KSP_ReadMemory(&H163A86C,3,MyPosX)
KSP_ReadMemory(&H163A870,3,MyPosY)
KSP_ReadMemory(&H01C50A70,5,16,maptitle)
KSP_ReadMemory(&H163A8B4,2,exp1)
/*-------------------宣告-----------------------*/
MyPosX=int(MyPosX)
MyPosY=int(MyPosY)
hp3=int(hp/hp1*100)
hp4=int(hp/hp1*100)
hp2=int(hp/hp1*100)
mp2=int(mp/mp1*100)
hp13=int(hp11/hp12*100)
pet2=int(pet/pet1*100)
pmp2=int(pmp/pmp1*100)
/*-------------------自動輔助補血,魔-----------------------*/
if hp2<nhp1 then //hp低於80%,按補血鍵
KeyPress("F1")
end if
if hp2<nhp2 then //hp低於60%,執行第二補HP按鍵
KeyPress("F2")
end if
if mp2<nmp1 then //mp低於50%,按補mp鍵
KeyPress("F3")
end if
if mp2<nmp2 then //hp低於50%,執行第二補MP按鍵
KeyPress("F3")
end if
if pet2<pethp2 then //寵的血低於80%,按吃藥鍵
KeyPress("-")//寵的魔低於80%,按吃藥鍵
end if
if pmp2<petmp2 then
KeyPress("-")//寵的魔低於80%,按吃藥鍵
end if
if xp=1000 then //xp滿,自動放
KeyPress("F6")
end if
if hp3<nhp3 then //hp低於35%,回城
KeyPress("F8")
wait(6000)
print("血量低於"& hp3 & "%|嘗試回城")
end if
if hp4=0 then //hp為 0 人物死亡
print("血量歸"& hp4 & "%|人物已死亡")
end if
end function
/*-------------------隊伍輔助補血,魔-----------------------*/
function power
percent=GetConfigNumber("隊友血量低於%補血") //每個人血量低於80%時補血
nmp3=GetConfigNumber("牧師MP小於%第一組補藍")
mpkey3=GetConfigString("牧師第一組補藍鍵")
nmp4=GetConfigNumber("牧師MP小於%第二組補藍")
mpkey4=GetConfigString("牧師第二組補藍鍵")
//========只需設定以上參數====================
ResetMemBuffer()
KSP_ReadMemory(&H163A8A4,2,hp)
KSP_ReadMemory(&H163A8C0,2,hp1)
KSP_ReadMemory(&H163A8A4,2,hp01)
KSP_ReadMemory(&H163A8C0,2,hp02)
KSP_ReadMemory(&H163380C,2,hp11)
KSP_ReadMemory(&H1633814,2,hp12)
KSP_ReadMemory(&H16338E8,2,hp21)
KSP_ReadMemory(&H16338F0,2,hp22)
KSP_ReadMemory(&H16339C4,2,hp31)
KSP_ReadMemory(&H16339CC,2,hp32)
KSP_ReadMemory(&H1633AA0,2,hp41)
KSP_ReadMemory(&H1633AA8,2,hp42)
KSP_ReadMemory(&H1633B7C,2,hp51)
KSP_ReadMemory(&H1633B84,2,hp52)
KSP_ReadMemory(&H1676E28,2,pet)
KSP_ReadMemory(&H1676E2C,2,pet1)
KSP_ReadMemory(&H1677FB8,2,pmp)
KSP_ReadMemory(&H1677FBC,2,pmp1)
KSP_ReadMemory(&H163A86C,3,MyPosX)
KSP_ReadMemory(&H163A870,3,MyPosY)
KSP_ReadMemory(&H1A4F4B0,2,xp)
KSP_ReadMemory(&H01C50A70,5,16,maptitle)
KSP_ReadMemory(&H1C14EEC,5,20,IDname)
KSP_ReadMemory(&H163A8B4,2,exp1)
KSP_ReadMemory(&H163A8A8,2,mp)
KSP_ReadMemory(&H163A8C4,2,mp1)
mp2=int(mp/mp1*100)
MyPosX=int(MyPosX)
MyPosY=int(MyPosY)
hp03=int(hp01/hp02*100)
hp13=int(hp11/hp12*100)
hp23=int(hp21/hp22*100)
hp33=int(hp31/hp32*100)
hp43=int(hp41/hp42*100)
hp53=int(hp51/hp52*100)
pet2=int(pet/pet1*100)
pmp2=int(pmp/pmp1*100)
if mp2<nmp3 then //mp低於50%,按補mp鍵
KeyPress(mpkey3)
end if
if mp2<nmp4 then //mp低於50%,執行第二補MP按鍵
KeyPress(mpkey4)
end if
if hp03<percent then
MouseLeftClick(50,50)
Hpkey=GetConfigString("隊伍補血熱鍵")
KeyPress(Hpkey)
HpTime=GetConfigNumber("補血技能延遲時間")
wait(HpTime)
end if
print("自已HP:" & hp03 & "%")
if hp12<999999 then
if hp13<percent then
MouseLeftClick(26,160)
Hpkey=GetConfigString("隊伍補血熱鍵")
KeyPress(Hpkey)
HpTime=GetConfigNumber("補血技能延遲時間")
wait(HpTime)
end if
wait(2000)
print("第1位隊友HP:" & hp13 & "%")
end if
if hp22<999999 then
if hp23<percent then
MouseLeftClick(26,200)
Hpkey=GetConfigString("隊伍補血熱鍵")
KeyPress(Hpkey)
HpTime=GetConfigNumber("補血技能延遲時間")
wait(HpTime)
end if
wait(2000)
print("第2位隊友HP:" & hp23 & "%")
end if
if hp32<999999 then
if hp33<percent then
MouseLeftClick(26,240)
Hpkey=GetConfigString("隊伍補血熱鍵")
KeyPress(Hpkey)
HpTime=GetConfigNumber("補血技能延遲時間")
wait(HpTime)
end if
wait(2000)
print("第3位隊友HP:" & hp33 & "%")
end if
if hp42<999999 then
if hp43<percent then
MouseLeftClick(26,280)
Hpkey=GetConfigString("隊伍補血熱鍵")
KeyPress(Hpkey)
HpTime=GetConfigNumber("補血技能延遲時間")
wait(HpTime)
end if
wait(2000)
print("第4位隊友HP:" & hp43 & "%")
end if
if hp22<999999 then
if hp53<percent then
MouseLeftClick(26,320)
Hpkey=GetConfigString("隊伍補血熱鍵")
KeyPress(Hpkey)
HpTime=GetConfigNumber("補血技能延遲時間")
wait(HpTime)
end if
wait(2000)
print("第5位隊友HP:" & hp53 & "%")
end if
if pet2<percent then
MouseLeftClick(109,100)
Hpkey=GetConfigString("隊伍補血熱鍵")
KeyPress(hpkey5)
HpTime=GetConfigNumber("補血技能延遲時間")
wait(HpTime)
end if
wait(2000)
print("寵物HP:" & pet2 & "%")
if pet2<percent then
petmpkey=GetConfigString("寵物補藍鍵")
keyPress(petmpkey)
wait(3000)
print("寵物HP:" & pet2 & "%")
print("-----------------------------")
wait(1000)
end if
end function
/*-------------------自動使用技能-----------------------*/
function skill1 //技能1按鍵
buffkey1=GetConfigString("輔助技能1的按鍵")
KeyPress(buffkey1)
end function
function skill2 //技能2按鍵
buffkey2=GetConfigString("輔助技能2的按鍵")
KeyPress(buffkey2)
end function
function skill3 //技能3按鍵
buffkey3=GetConfigString("輔助技能3的按鍵")
KeyPress(buffkey3)
end function
/*-------------------自動討伐書接取-----------------------*/
//物品欄有討伐書時(討伐書放在上面第一排第5格)
//OOOO[O]←背包討伐書位置
//OOOOO
//OOOOO
//OOOOO
//OOOOO
function Punitive //討伐書鍵
KSP_ReadMemory(&H1CDBB68,2,itemtab)
if sum>N2 then
KeyPress("A")
Wait(500)
//討伐書原點坐標:
//單擊鼠標右鍵
MouseRightClick(WinX, WinY)
Wait(200)
//點擊確定代替 "RETURN" 減少游標跑到打字那裡,人物無法打怪
//如你沒法點到 請自行抓點 否是改回舊的設定
KeyPress("Esc")
Wait(100)
KeyPress("A")
sum=0 //歸零,重新計算怪死亡數
wait(1000)
itemtab_A(0)
check3()
end if
end function
/*-------------------選怪模式-----------------------*/
function choice(mode) //選怪模式1:打手攻擊模式 ;選怪模式2:牧師補血模式
can1=1
can2=1
if mode=1 then //模式1,不搶怪
do
can_hit() //不搶怪
loop until can1=0
end if
if mode=2 then //模式2,只打指定怪+不搶怪
do
need_hit() //只打指定怪
can_hit() //不搶怪
loop until can1=0 and can2=0
end if
end function
/*-------------------輔助模式-----------------------*/
function go(pvp) //選怪模式1:不搶怪 ;選怪模式2:只打指定怪+不搶怪
if pvp=1 then //模式1,打手輔助
GO_pot() //打手輔助
end if
if pvp=2 then //模式2,?
power() //隊伍輔助
end if
end function
/*-------------------不搶怪-----------------------*/
function can_hit
KSP_ReadMemory(&H1C3DAE0,2,can1)
if can1>0 then
KeyPress("`")
end if
end function
/*-------------------指定怪物設定-----------------------*/
function need_hit
need=Array(10)
need[1]=("魅魂")
need[2]=("邪惡的探險家")
need[3]=GetConfigString("怪物指定列表3")
need[4]=GetConfigString("怪物指定列表4")
need[5]=GetConfigString("怪物指定列表5")
need[6]=GetConfigString("怪物指定列表6")
need[7]=GetConfigString("怪物指定列表7")
need[8]=GetConfigString("怪物指定列表8")
need[9]=GetConfigString("怪物指定列表9")
need[10]=GetConfigString("怪物指定列表10")
ResetMemBuffer()
KSP_ReadMemory(&H1C14EEC,5,20,need1)
for i=1 to 10
Pos = Instr(need1, need)
if pos>0 then
exit for
end if
next
if pos=0 then
KeyPress("`")
else
can2=0
end if
end function
/*-------------------回到原掛點-----------------------*/
function ReturnScope
if PosXNo1-MyPosX>Scope Or PosXNo1-MyPosX<-Scope Or PosYNo1-MyPosY>Scope Or PosYNo1-MyPosY<-Scope then
Print("掛機範圍:"& Scope & " 已超出範圍:" & PosXNo1-MyPosX & "," & PosYNo1-MyPosY)
if find>0 then //如果有目標,可能是打怪中,取消選取)
KeyPress("Esc")
Wait(500)
end if
Check_Tab(1)
MouseLeftClick(MaptoPosX(PosXNo1), MaptoPosY(PosYNo1))
Wait(N3*1000)
Check_Tab(0)
end if
end function
/*-----------------檢查Tab----------------------*/
function Check_Tab(value)
//調用方式Check_Tab(value) value=0 關閉 value=1 開啟
KSP_ReadMemory(&H01C8FD10,2,chktab)
while chktab<>value
Keypress("Tab")
Wait(400)
KSP_ReadMemory(&H01C8FD10,2,chktab)
wend
end function
/*-----------------地圖座標轉換視窗座標----------------------*/
//調用方式 MouseLeftClick(MaptoPosX(地圖座標X), MaptoPosY(地圖座標Y))
function MaptoPosX(MapX)
MaptoPosX=int(166+(MapX*1.56))
end function
function MaptoPosY(MapY)
MaptoPosY=int(124+(MapY*1.56))
end function
#地圖座標轉視窗座標
/*-----------------寶箱搜尋----------------------*/
function FindTreasure
if find=0 then
//找尋寶箱
FOR x=412 TO 612 STEP 45
FOR y=269 TO 469 STEP 45
MouseRightClick(x,y,3)
NEXT
NEXT
end if
end function
/*-----------------內存討伐----------------------*/
function check2 //討伐怪
book=&H09E85EA8 //每個人都不同,請自行尋找。
KSP_ReadMemory(book,2,cons)//選擇討伐怪類型 (這行是討伐怪數量所在的記憶體位址,但每個人會不同,重開遊戲後也會不同)
KSP_ReadMemory(&H1CDBB68,2,itemtab)
print("已討伐 "& cons & " 隻|設定 50 隻 完成討伐")
if cons=5 then
//當未接任務時,其值會是0,因此在直接啟動腳本時並不會自動開道具欄接任務,所以需要自己先接一次討伐卷
KeyPress("A")
MouseRightClick(781, 224)
wait(1000)
KSP_ReadMemory(book,2,cons)//選擇討伐怪類型
itemtab_A(0)
end if
end function
/*-----------------內存檢查畫面變灰----------------------*/
function check3 //檢查esc
KSP_ReadMemory(&H3297e11,2,chkesc)
if chkesc=1 then
Keypress("Esc")
end if
end function
/*-----------------檢查背包開關----------------------*/
function itemtab_A(pig)
//調用方式itemtab_A(pig) pig=0 關閉 pig=1 開啟
KSP_ReadMemory(&H1CDBB68,2,itemtab)
while itemtab<>pig
Keypress("A")
Wait(400)
KSP_ReadMemory(&H1CDBB68,2,itemtab)
wend
end function |