黃易群俠傳M脫機外掛應用程式黃易神行
12379
68

[原創] S軟體練公腳本

andy18old 發表於 2009-8-20 21:10:22 | 只看該作者 回帖獎勵 |倒序瀏覽 |
修改自SP1論壇
已經會自動打怪-喝水-檢物
輔助技能部分~還在測試當中
休息部分-大家試試看摟
怎麼用不用我教吧
遊戲設定1024X768 視窗模式
不會動的請重抓各血條的點(怪的跟自己的)
附件下載解壓之後跟腳本放在同一個資料夾里
附件在這  http://fhd.iwgun.net/downfile.php?action=public&file_id=537&file_key=fJdGZ4mq
上下分隔島中間內容複製貼上即可
------------分隔島----------------------------------------
#[HOTKEY][EXT]DELETE
# 在此定義全局變量
#SetArgsOnCompile

dim fzjn1_T,fzjn2_T
function main
fzjn1_T=GetConfigNumber("按鍵5的輔助技能")
fzjn2_T=GetConfigNumber("按鍵6的輔助技能")
SetTimer("fzjn1", fzjn1_T*1000, true)
SetTimer("fzjn2", fzjn2_T*1000, true)
do
  find()//尋怪
  hit()//攻擊
  AA1()//打不到時
  BB1()//休息回血
  CC1()//休息回SP
  DD1()//死掉復活
  drink()//喝水
loop
end function
function find ()//尋怪
GetActiveWindowXY(WinX0, WinY0)//取窗口原點坐標
wait(300)
keypress("TAB")
  wait(300)//加0.2秒延時以控制CPU佔用
  Wait(200)//如果窗口坐標(576, 31)的顏色等於(155, 42, 70) 那麼
  if CheckColor(WinX0+576, WinY0+31, Color(155, 42, 70), 10) then
   hit()
  else //否則
   find ()
  end if
end function
function hit()//攻擊
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
//如果窗口坐標(576, 31)的顏色等於(155, 42, 70) 那麼
if CheckColor(WinX0+576, WinY0+31, Color(155, 42, 70), 10) then
  keypress("1")
  wait(1500)
  keypress("2")
  drink()
  wait(1500)
  keypress("3")
  wait(1500)
  do //循環
   wait(500)
   keypress("1")
   wait(500)
   drink()
   //加0.1秒延時以控制CPU佔用
   Wait(100)
    //直到窗口坐標(447, 30)的顏色不等於(109, 37, 47)
   loop while CheckColor(WinX0+447, WinY0+30, Color(109, 37, 47), 10)
  wait(500)
  for ForCount = 1 to 5
   //循環執行以下代碼5次
   //以下為嚮導添加的代碼
   KeyPress("4")
  next
  
else //否則
  find ()//跳到尋怪
end if

end function
function drink()//喝水
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)

//如果窗口坐標(200, 648)的顏色不等於(225, 42, 85) 那麼
if not CheckColor(WinX0+200, WinY0+648, Color(225, 42, 85), 10) then
  keypress("-")
  wait(100)
end if

GetActiveWindowXY(WinX0, WinY0)//取窗口原點坐標
//如果窗口坐標(190, 647)的顏色不等於(225, 43, 83) 那麼
if not CheckColor(WinX0+190, WinY0+647, Color(225, 43, 83), 10) then
  keypress("=")
  wait(100)
end if

end function
function fzjn1()//輔助技1
keypress("5")
wait(1000)
end function
function fzjn2()//輔助技2
for ForCount = 1 to 3
  //循環執行以下代碼5次
  //以下為嚮導添加的代碼
  KeyPress("6")
next
wait(1000)
end function
function AA1()//打不到怪時
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)

//如果找到圖像"無法攻擊.sel"
if FindImageEx("無法攻擊.sel", Color(20, 20, 20), WinX0+404, WinY0+131, WinX0+622, WinY0+196, true, FoundX, FoundY) then
  //此時FoundX和FoundY的值分別為找到的圖像的左上角X,Y坐標
  find ()
end if
end function
function BB1()//休息回血
//如果窗口坐標(205, 647)的顏色不等於(224, 41, 84) 那麼
if not CheckColor(WinX0+205, WinY0+647, Color(224, 41, 84), 10) then
  KeyPress("9")
  
end if
end function
function CC1()//休息回SP
//如果窗口坐標(150, 677)的顏色等於(51, 72, 183) 那麼
if CheckColor(WinX0+150, WinY0+677, Color(51, 72, 183), 10) then
  KeyPress("9")
end if
end function
function DD1()//復活
//如果圖像"復活.sel"在此時出現
if FindImageEx("復活.sel", Color(30, 30, 30), WinX0+376, WinY0+167, WinX0+652, WinY0+419, true, FoundX, FoundY) then
  //在圖像上的(5, 5)位置點擊鼠標
  MouseLeftClick(FoundX+5, FoundY+5)
end if
end function
-------分隔島------------------------------------------------------
收藏收藏 分享分享 讚 幹 分享分享 FB分享
回覆

使用道具 舉報


s01234123 當前離線
UID
591286
熱心
106 值
嘉獎
0 次
違規
0 次
在線時間
53 小時
經驗
72 點
積分
72
精華
0
最後登錄
2014-10-18
閱讀權限
20
註冊時間
2007-10-13
論壇幣
149 幣
聯合幣
3 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
s01234123 2009-8-21 16:17:56
看都看不懂耶  ==
小弟不才 大大教教我= =YCT48B YCT48B
回覆

使用道具 舉報

a87542136 當前離線
UID
1092995
熱心
9 值
嘉獎
0 次
違規
0 次
在線時間
12 小時
經驗
9 點
積分
9
精華
0
最後登錄
2009-9-14
閱讀權限
5
註冊時間
2008-12-17
論壇幣
11 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
a87542136 2009-8-21 17:06:55

回覆 1樓 的文章

大大您好
請問您一下
你說的怪物跟自己的血條是在你腳本的哪一行!?
我有點不懂...
現在我只會一直找怪而已

需要你協助我
謝謝
回覆

使用道具 舉報

p0960265110 當前離線
UID
246981
熱心
508 值
嘉獎
0 次
違規
0 次
在線時間
157 小時
經驗
399 點
積分
3261
精華
0
最後登錄
2020-4-29
閱讀權限
40
註冊時間
2007-2-26
論壇幣
2089 幣
聯合幣
84 枚
幸運鑽
2 顆
招待卷
0 點
查看個人網站 查看詳細資料
Rank: 5Rank: 5Rank: 5
p0960265110 2009-8-21 17:51:55
不會抓血量的人請去官網研究 他都有教學 因為每台電腦的位置跟顏色都有不同

還有大大你的腳本 好像不能休息 我正在試用中
回覆

使用道具 舉報

1911TX 該用戶已被刪除
5
1911TX 2009-8-22 08:59:50
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

andy18old 當前離線
UID
15231
熱心
64 值
嘉獎
0 次
違規
0 次
在線時間
47 小時
經驗
38 點
積分
149
精華
0
最後登錄
2015-2-10
閱讀權限
20
註冊時間
2006-7-31
論壇幣
12 幣
聯合幣
3 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
6
andy18old 2009-8-25 15:58:50
不會動的請重抓各血條的點(怪的跟自己的)
附件下載解壓之後跟腳本放在同一個資料夾里
附件在這  http://fhd.iwgun.net/downfile.php?action=public&file_id=537&file_key=fJdGZ4mq
上下分隔島中間內容複製貼上即可
以下解釋的很清楚了

還是不懂請前往SP論壇爬文http://bbs.seraph.com.tw/
------------分隔島----------------------------------------
#[HOTKEY][EXT]DELETE
# 在此定義全局變量
#SetArgsOnCompile

dim fzjn1_T,fzjn2_T
function main
fzjn1_T=GetConfigNumber("按鍵5的輔助技能")
fzjn2_T=GetConfigNumber("按鍵6的輔助技能")
SetTimer("fzjn1", fzjn1_T*1000, true)
SetTimer("fzjn2", fzjn2_T*1000, true)
do
  find()//尋怪
  hit()//攻擊
  AA1()//打不到時
  BB1()//休息回血
  CC1()//休息回SP
  DD1()//死掉復活
  drink()//喝水
loop
end function
function find ()//尋怪
GetActiveWindowXY(WinX0, WinY0)//取窗口原點坐標
wait(300)
keypress("TAB")//TAB鍵選怪
  wait(300)//加0.2秒延時以控制CPU佔用
  Wait(200)
//如果窗口坐標(576, 31)的顏色等於(155, 42, 70) 那麼
//下面這一行是說 .如果怪物血條頂點是紅色的話
  if CheckColor(WinX0+576, WinY0+31, Color(155, 42, 70), 10) then
//下面這一行是說 .跳到HIT()攻擊
   hit()//攻擊
  else //否則
   find ()//重新尋怪
  end if
end function

function hit()//攻擊
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
//下面這一行是說 .找到怪之後~跳到攻擊如果怪物血條頂點顏色沒變
//按鍵1普通攻擊(防止搶怪)
//如果窗口坐標(576, 31)的顏色等於(155, 42, 70) 那麼
if CheckColor(WinX0+576, WinY0+31, Color(155, 42, 70), 10) then
  keypress("1")
  wait(1500)
  keypress("2")//攻擊技能1
  drink()//調用喝水
  wait(1500)
  keypress("3")//攻擊技能2
  wait(1500)
  do //下面動作循環
   wait(500)
   keypress("1")//普攻
   wait(500)
   drink()//調用喝水
   //加0.1秒延時以控制CPU佔用
   Wait(100)
//下面這一行是說. 按鍵1普工重複放到怪物血條底部不是紅色為止
    //直到窗口坐標(447, 30)的顏色不等於(109, 37, 47)
   loop while CheckColor(WinX0+447, WinY0+30, Color(109, 37, 47), 10)
  wait(500)
   keypress("1")//普攻補打1下怕怪沒死
wait(500)
   keypress("1")//普攻保守起見在多補一下
   KeyPress("4")//檢東西
wait(500)
KeyPress("4")//檢東西
wait(500)
KeyPress("4")//檢東西
wait(500)
KeyPress("4")//多檢幾下比較保險
wait(500)
  
else //否則  接上面如果怪血條頂點顏色有改變
//表示有人在打這支怪了
  find ()//跳到尋怪重新找怪
end if
// 以下就是喝水
end function
function drink()//喝水
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
//下面這一行是說 .自己血條座標的某一點顏色不是紅色
//如果窗口坐標(200, 648)的顏色不等於(225, 42, 85) 那麼
if not CheckColor(WinX0+200, WinY0+648, Color(225, 42, 85), 10) then
  keypress("-")//就按鍵(-)建議血條75%喝小水
  wait(100)
end if

GetActiveWindowXY(WinX0, WinY0)//取窗口原點坐標
//下面這一行是說 .自己血條座標的某一點顏色不是紅色
//如果窗口坐標(190, 647)的顏色不等於(225, 43, 83) 那麼
if not CheckColor(WinX0+190, WinY0+647, Color(225, 43, 83), 10) then
  keypress("=")//就按鍵(=)建議血條50%喝大水
  wait(100)
end if

end function
function fzjn1()//輔助技1建議放需要點選自己的技能
keypress("F1")//按F1選擇自己
wait(500)
keypress("5")//按鍵5放技能
wait(1000)//技能施放時間多久請自己改
end function
function fzjn2()//輔助技2
for ForCount = 1 to 3//不用點選自己的技能
  //循環執行以下代碼3次設定連按3下
  //以下為嚮導添加的代碼
  KeyPress("6")//技能放快速鍵6不用在說了吧
next
wait(1000)
end function

function AA1()//打不到怪時
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)

//如果找到圖像"無法攻擊.sel"
if FindImageEx("無法攻擊.sel", Color(20, 20, 20), WinX0+404, WinY0+131, WinX0+622, WinY0+196, true, FoundX, FoundY) then
  //此時FoundX和FoundY的值分別為找到的圖像的左上角X,Y坐標
  find ()
end if
end function

function BB1()//休息回血
//下面這一行是說 .自己血條座標的某一點顏色不是紅色
//如果窗口坐標(205, 647)的顏色不等於(224, 41, 84) 那麼
if not CheckColor(WinX0+205, WinY0+647, Color(224, 41, 84), 10) then
  KeyPress("9")//就按鍵(9)建議血條85%休息  
end if
end function
function CC1()//休息回SP
//下面這一行是說 .自己血條座標的某一點顏色不是藍色
//如果窗口坐標(150, 677)的顏色等於(51, 72, 183) 那麼
if CheckColor(WinX0+150, WinY0+677, Color(51, 72, 183), 10) then
KeyPress("9")//就按鍵(9)建議SP血條25%休息
end if
end function

function DD1()//復活
//如果圖像"復活.sel"在此時出現
if FindImageEx("復活.sel", Color(30, 30, 30), WinX0+376, WinY0+167, WinX0+652, WinY0+419, true, FoundX, FoundY) then
  //在圖像上的(5, 5)位置點擊鼠標
  MouseLeftClick(FoundX+5, FoundY+5)
end if
end function
-------分隔島------------------------------------------------------
回覆

使用道具 舉報

mib03041 當前離線
UID
172322
熱心
27 值
嘉獎
0 次
違規
0 次
在線時間
21 小時
經驗
23 點
積分
494
精華
0
最後登錄
2018-8-1
閱讀權限
25
註冊時間
2007-1-31
論壇幣
416 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 3
7
mib03041 2009-8-26 03:48:34
挖~~~有人寫出來了

太厲害的...感謝大大的分享唷YCT49B
回覆

使用道具 舉報

axillary1351 當前離線
UID
1093439
熱心
915 值
嘉獎
0 次
違規
0 次
在線時間
247 小時
經驗
876 點
積分
28130
精華
0
最後登錄
2018-8-6
閱讀權限
60
註冊時間
2008-12-18
論壇幣
26048 幣
聯合幣
21 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 7Rank: 7Rank: 7
8
axillary1351 2009-8-26 18:57:02
感謝大大發表呀
趕緊來試用~!
不過 Seraph似乎挺難的
YCT31B
回覆

使用道具 舉報

0910996421 當前離線
UID
1294711
熱心
5 值
嘉獎
0 次
違規
0 次
在線時間
1 小時
經驗
5 點
積分
5
精華
0
最後登錄
2009-8-30
閱讀權限
5
註冊時間
2009-8-19
論壇幣
0 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
9
0910996421 2009-8-28 13:56:01
感謝大大發表呀
趕緊來試用~!
................................................................................
回覆

使用道具 舉報

ss095500456 當前離線
UID
1032476
熱心
46 值
嘉獎
0 次
違規
0 次
在線時間
6 小時
經驗
24 點
積分
103
精華
0
最後登錄
2016-8-13
閱讀權限
20
註冊時間
2008-9-24
論壇幣
6 幣
聯合幣
21 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
10
ss095500456 2009-8-28 19:24:14
回覆一下
感謝大大的分享
來試試看
回覆

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 註冊


手機版 | Archiver | 外掛聯合國

GMT+8, 2024-11-24 18:45 , Processed in 0.067623 second(s), 16 queries , Memcache On.

版權說明:
  本站不會製作、經銷、代理外掛程式。僅免費提供外掛程式下載前之掃毒及掃木馬等安全檢測驗證,協助會員遠離盜號危險程式。本站所有資料均來自網際網路收集整理,說明文字暨下載連結轉載自原程 式開發站。站上出現之公司名稱、遊戲名稱、程式等,商標及著作權,均歸各公司及程式原創所有,本站程式所有權歸外掛聯合國所有。本程式所有權歸外掛聯合國所有.......

回頂部
第二步?
第三步?