本帖最後由 PO5733153 於 2009-10-16 12:34 編輯
説明:本人就是s論壇的po在卦國玩神鬼也不少所以來這開帳號分享,不希望在有無腦的說轉貼,難道我在掛國要用不同帳號才爽嗎
首先我只把腳本讓肯研究的人去玩,請看以下說明連說明都不看就提問的就不送了
說明1 只撿東西跟補血 視窗模式 1024*768 普通畫質已經這麼明顯了不要有腦殘發問
說明2 要放輔助技能請自行研究
說明3 出錯的地方自行去修正啟動後下面白色那欄會說錯誤的地方還有問題非常好改
說明4 視窗絕對不要縮小沒抓到顏色自然不會去撿,還有不要去擋到抓的圖,畢竟不是內碼,等會ce再來研究
說明5 請用論壇發內碼大大的腳本研究
說明6 原本腳本擁有抓寵及接討伐礙於某些原因就不釋出了(已完成滑鼠動作)
說明7 多開的請盡量選地圖小一點才不會隊友打一堆因為太分開撿不到
說明8 要有SERAPH主程式
重要
KSP_ReadMemory(H1C0F27C,2,find)
前面都要加(&H1C0F27C,2,find)代碼方式都貼不出來
補充
不打4星以上的怪 個人知道單打除非等高不然打領主=死
- #[HOTKEY]自己設
- #SetArgsOnCompile
- dim hp,hp1,hp2,mp,mp1,mp2,xp,pet,pet1,pet2
- function main
- GetActiveWindowID(ID)
- Print(ID)
- SetInputMode(4)
- while true
- Wait(50)
- KSP_ReadMemory(H1C0F27C,2,find)
- key=GetConfigString("首發攻擊")
- if find=0 then
- KeyPress("`")
- Wait(100)
- KeyPress(key)
- Wait(10)
- else
- while find>0
- KeyPress(key)
- wait(10)
- b()
- Wait(10)
- KeyPress(key)
- wait(10)
- a() //邊打邊檢查hp、mp、寵hp
- KSP_ReadMemory(H1C0F27C,2,find)
- wend
- b()
- Wait(10)
- a() //打完再檢查一下hp、mp、寵hp
- Wait(10)
- end if
- wend
- end function
- function a
- KSP_ReadMemory(H16398A4,2,hp)
- KSP_ReadMemory(H16398C0,2,hp1)
- KSP_ReadMemory(H16398A8,2,mp)
- KSP_ReadMemory(H16398C4,2,mp1)
- KSP_ReadMemory(H1A4E4B0,2,xp)
- KSP_ReadMemory(H1675E28,2,pet)
- KSP_ReadMemory(H1675E2C,2,pet1)
- hp2=int(hp/hp1*100)
- mp2=int(mp/mp1*100)
- pet2=int(pet/pet1*100)
- xpkey=GetConfigString("xp技能")
- hpkey=GetConfigString("生命藥")
- mpkey=GetConfigString("魔法藥")
- petkey=GetConfigString("寵物生命藥")
- if xp=1000 then //xp滿,自動放
- KeyPress(xpkey)
- end if
- if hp2<60 then //hp低於80%,按補血鍵
- KeyPress(hpkey)
- end if
- if mp2<30 then //hp低於50%,按補mp鍵
- KeyPress(mpkey)
- end if
- if pet2<60 then //寵的血低於80%,按吃藥鍵
- KeyPress(petkey)
- end if
- end function
- function b
- GetWindowXY(id,WinX0,WinY0)
- if FindImageEx("寶箱001.sel", Color(10, 10, 10), WinX0+50, Winy0+90, WinX0+1002, WinY0+670, true, FoundX, FoundY) or FindImageEx("寶箱002.sel", Color(10, 10, 10), WinX0+50, Winy0+90, WinX0+1002, WinY0+670, true, FoundX, FoundY) then
- MouseRightClick(FoundX-WinX0, FoundY-WinY0)
- end if
- if CheckColor(WinX0+568, WinY0+38, Color(172, 141, 70), 20) then
- Wait(100)
- KeyPress("`")
- Wait(100)
- end if
- end function
複製代碼 http://www.badongo.com/file/17722997
http://www.●請愛用本站硬碟●.Net/888946
http://www.megaupload.com/?d=Z5S6C4GL
http://www.filefactory.com/file/a0ge4da/n/_rar
http://depositfiles.com/files/jy4yqsxpe |