我的空間 ｜　會員中心　｜ VIP會員　｜ 聯合國facebook專區
黃易群俠傳M脫機外掛應用程式黃易神行
外掛聯合國討論區 › 《遊戲橘子》 › 未來啟示錄SP1外掛 ›
3491
15
發佈主題
返回

[原創] 山下秀貴出品~全武行公會御用腳本~有三版本

mvpken 發表於 2009-12-23 17:05:15 | 只看該作者 回帖獎勵 |倒序瀏覽 |
S1腳本~是可以打主動還有非主動~防高者佳

.....................................
#[HOTKEY]HOME
function main
SetInputMode(3) //驅動模式,很多遊戲會阻擋SP的部份功能,可以套用此函數
while true    //循環開始
  State()//子函數狀態
wend        //返回while開始循環
end function
function State//休息攻擊+喝水


//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)

print("執行攻擊")
if not CheckColor(WinX0+247, WinY0+675, Color(131, 25, 48), 10) then
  Wait(500)
  KeyDown("x")
  Wait(500)
  KeyUp("x")

  GetActiveWindowXY(WinX0, WinY0)
  if CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10) then//怪血條後端如果顏色正確就反擊
   
   do
    Print("主動怪反擊迴圈1")
    KeyDown("1")
    Wait(300)
    KeyDown("2")
    Wait(300)
    KeyUp("2")
    Wait(300)
    KeyDown("3")
    Wait(300)
    KeyUp("3")
    Wait(100)
    //取窗口原點坐標
    GetActiveWindowXY(WinX0, WinY0)
    //補血技能,沒有就放紅水
    //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
    if not CheckColor(WinX0+200, WinY0+674, Color(222, 17, 53), 10) then
     KeyDown("6")
     Wait(300)
     KeyUp("6")
    end if
    Wait(1000)
    //取窗口原點坐標
    GetActiveWindowXY(WinX0, WinY0)
    //補血技能,沒有就放紅水
    //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
    if not CheckColor(WinX0+180, WinY0+674, Color(220, 18, 52), 10) then
     KeyDown("7")
     Wait(300)
     KeyUp("7")
    end if
   
   loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去出
   KeyDown("1")
   Wait(300)
   KeyPress("F")
   Wait(300)
   KeyDown("x")
   Wait(500)
   KeyUp("x")
   KeyDown("ESC")
   Wait(100)
   KeyUp("ESC")
   Wait(100)
   
  end if


  do  //循環
   //等待2000毫秒                           
   Wait(2000)
   //直到窗口坐標(188, 42)的顏色等於(166, 60, 23)
  loop until CheckColor(WinX0+253, WinY0+674, Color(103, 9, 25), 10)
  KeyDown("f1")
  Wait(100)
  KeyUp("f1")
  KeyDown("9")
  Wait(3500)
  KeyUp("9")
  KeyDown("esc")
  Wait(100)
  KeyUp("esc")
  KeyDown("0")
  Wait(100)
  KeyUp("0")
end if

//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)

//如果窗口坐標(86, 50)的顏色不等於(57, 121, 132) 那麼


//如果怪物狀態條的滿血位置找不到?
if not CheckColor(WinX0+592, WinY0+30, Color(104, 17, 33), 10) then
  
  //執行段內語句，當運行至LOOP時，如果表達式為false則跳回DO進行下一次執行，
  //直至LOOP後的表達式為true(真)時運行完畢。
  do  
   
   KeyPress("TAB")
   Wait(800)
  loop until CheckColor(WinX0+592, WinY0+30, Color(104, 17, 33), 10)//怪物滿血的位置

   GetActiveWindowXY(WinX0, WinY0)
   if not CheckColor(WinX0+585, WinY0+9, Color(164, 164, 163), 10) then//npc特定圖形判斷
    do
     print("判斷是否為npc")
     Keypress("tab")
     Wait(100)
     Wait(300)
   
    loop until CheckColor(WinX0+585, WinY0+9, Color(164, 164, 163), 10)//如果符合怪的圖行及執行下一行
   end if
   
  else //找到的話…
  do//執行攻擊
  for ForCount = 1 to 4
   KeyDown("1")
   Wait(300)
   KeyDown("S")
   Wait(300)
   KeyUp("S")
   Wait(100)
   KeyDown("2")
   Wait(300)
   KeyUp("2")
   Wait(100)
   KeyDown("3")
   Wait(300)
   KeyUp("3")
   Wait(100)
   KeyDown("4")
   Wait(300)
   KeyUp("4")
   Wait(100)
   //取窗口原點坐標
   GetActiveWindowXY(WinX0, WinY0)
   //補血技能,沒有就放紅水
   //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
   if not CheckColor(WinX0+200, WinY0+674, Color(222, 17, 53), 10) then
    KeyDown("6")
    Wait(300)
    KeyUp("6")
   end if
   Wait(1000)
   //取窗口原點坐標
   GetActiveWindowXY(WinX0, WinY0)
   //補血技能,沒有就放紅水
   //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
   if not CheckColor(WinX0+180, WinY0+674, Color(220, 18, 52), 10) then
    KeyDown("7")
    Wait(300)
    KeyUp("7")
   end if
   

   
   
next
   
loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去
//等待500毫秒


Print("死亡")
KeyDown("1")//補打一下免的誤判
Wait(300)
KeyPress("F")
Wait(300)
KeyPress("F")
Wait(300)
Keypress("ESC")
Wait(100)



Wait(500)
GetActiveWindowXY(WinX0, WinY0)
if CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10) then//怪血條後端如果顏色正確就反擊
  
  do
   Print("主動怪反擊迴圈")
   KeyDown("1")
   Wait(300)
   KeyDown("2")
   Wait(300)
   KeyUp("2")
   Wait(300)
   KeyDown("3")
   Wait(300)
   KeyUp("3")
   Wait(100)
   //取窗口原點坐標
   GetActiveWindowXY(WinX0, WinY0)
   //補血技能,沒有就放紅水
   //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
   if not CheckColor(WinX0+200, WinY0+674, Color(222, 17, 53), 10) then
    KeyDown("6")
    Wait(300)
    KeyUp("6")
   end if
   Wait(1000)
   //取窗口原點坐標
   GetActiveWindowXY(WinX0, WinY0)
   //補血技能,沒有就放紅水
   //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
   if not CheckColor(WinX0+180, WinY0+674, Color(220, 18, 52), 10) then
    KeyDown("7")
    Wait(300)
    KeyUp("7")
   end if
   
   
  loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去出
  KeyDown("1")
  Wait(300)
  KeyPress("F")
  Wait(300)
  Keypress("ESC")
  
end if

end if
end function




主腳本~以主動怪故可以定點使用

..................................
#[HOTKEY]HOME
function main
SetInputMode(3) //驅動模式,很多遊戲會阻擋SP的部份功能,可以套用此函數
while true    //循環開始
  State()//子函數狀態
wend        //返回while開始循環
end function
function State//休息攻擊+喝水
//取窗口原點坐標
KeyDown("ESC")
Wait(500)
KeyUp("ESC")
GetActiveWindowXY(WinX0, WinY0)

print("執行攻擊")
if not CheckColor(WinX0+247, WinY0+675, Color(131, 25, 48), 10) then
  Wait(500)
  KeyDown("x")
  Wait(500)
  KeyUp("x")
  
  
  Wait(2000)
  GetActiveWindowXY(WinX0, WinY0)
  if CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10) then//怪血條後端如果顏色正確就反擊
   
   do
    Print("主動怪反擊迴圈1")
    KeyDown("1")
    Wait(300)
    KeyDown("8")
    Wait(700)
    KeyUp("8")
    KeyDown("2")
    Wait(300)
    KeyUp("2")
    KeyDown("3")
    Wait(300)
    KeyUp("3")
    KeyDown("4")
    Wait(300)
    KeyUp("4")
    KeyDown("5")
    Wait(300)
    KeyUp("5")
    Wait(100)
    //取窗口原點坐標
    GetActiveWindowXY(WinX0, WinY0)
    //補血技能,沒有就放紅水
    //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
    if not CheckColor(WinX0+200, WinY0+674, Color(222, 17, 53), 10) then
     KeyDown("6")
     Wait(300)
     KeyUp("6")
    end if
    Wait(1000)
    //取窗口原點坐標
    GetActiveWindowXY(WinX0, WinY0)
    //補血技能,沒有就放紅水
    //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
    if not CheckColor(WinX0+180, WinY0+674, Color(220, 18, 52), 10) then
     KeyDown("7")
     Wait(300)
     KeyUp("7")
    end if
   
   loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去出
   KeyDown("1")
   Wait(1500)
   KeyPress("F")
   Wait(300)
   KeyPress("F")
   Wait(300)
   Keypress("ESC")
   Wait(100)
   KeyDown("x")
   Wait(500)
   KeyUp("x")
   Wait(3000)
   
  end if
  

  Wait(2000)
  GetActiveWindowXY(WinX0, WinY0)
  if CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10) then//怪血條後端如果顏色正確就反擊
   
   do
    Print("主動怪反擊迴圈2")
    KeyDown("1")
    Wait(300)
    KeyDown("8")
    Wait(700)
    KeyUp("8")
    KeyDown("2")
    Wait(300)
    KeyUp("2")
    KeyDown("3")
    Wait(300)
    KeyUp("3")
    KeyDown("4")
    Wait(300)
    KeyUp("4")
    KeyDown("5")
    Wait(300)
    KeyUp("5")
    Wait(100)
    //取窗口原點坐標
    GetActiveWindowXY(WinX0, WinY0)
    //補血技能,沒有就放紅水
    //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
    if not CheckColor(WinX0+200, WinY0+674, Color(222, 17, 53), 10) then
     KeyDown("6")
     Wait(300)
     KeyUp("6")
    end if
    Wait(1000)
    //取窗口原點坐標
    GetActiveWindowXY(WinX0, WinY0)
    //補血技能,沒有就放紅水
    //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
    if not CheckColor(WinX0+180, WinY0+674, Color(220, 18, 52), 10) then
     KeyDown("7")
     Wait(300)
     KeyUp("7")
    end if
   
   
   loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去出
   KeyDown("1")
   Wait(1500)
   KeyPress("F")
   Wait(300)
   KeyPress("F")
   Wait(300)
   Keypress("ESC")
   Wait(100)
   KeyDown("x")
   Wait(500)
   KeyUp("x")
   Wait(3000)
   
   
   
  end if

  
  do  //循環
   //等待2000毫秒                           
   
   //直到窗口坐標(188, 42)的顏色等於(166, 60, 23)
  loop until CheckColor(WinX0+253, WinY0+674, Color(103, 9, 25), 10)
  
  KeyDown("f1")
  Wait(100)
  KeyUp("f1")
  KeyDown("9")
  Wait(3500)
  KeyUp("9")
  KeyDown("esc")
  Wait(100)
  KeyUp("esc")
  KeyDown("0")
  Wait(100)
  KeyUp("0")
end if

Wait(2000)
GetActiveWindowXY(WinX0, WinY0)
if CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10) then//怪血條後端如果顏色正確就反擊
  
  do
   
   Print("主動怪反擊迴圈3")
   KeyDown("1")
   Wait(300)
   KeyDown("8")
   Wait(700)
   KeyUp("8")
   KeyDown("2")
   Wait(300)
   KeyUp("2")
   KeyDown("3")
   Wait(300)
   KeyUp("3")
   KeyDown("4")
   Wait(300)
   KeyUp("4")
   KeyDown("5")
   Wait(300)
   KeyUp("5")
   Wait(100)
   //取窗口原點坐標
   GetActiveWindowXY(WinX0, WinY0)
   //補血技能,沒有就放紅水
   //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
   if not CheckColor(WinX0+200, WinY0+674, Color(222, 17, 53), 10) then
    KeyDown("6")
    Wait(300)
    KeyUp("6")
   end if
   Wait(1000)
   //取窗口原點坐標
   GetActiveWindowXY(WinX0, WinY0)
   //補血技能,沒有就放紅水
   //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
   if not CheckColor(WinX0+180, WinY0+674, Color(220, 18, 52), 10) then
    KeyDown("7")
    Wait(300)
    KeyUp("7")
   end if
   
   
  loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去出
  KeyDown("1")
  Wait(1500)
  KeyPress("F")
  Wait(300)
  KeyPress("F")
  Wait(300)
  Keypress("ESC")
  
  
  
end if
end function


花~打非主動怪

...................................
#[HOTKEY]F10
function main
SetInputMode(3) //驅動模式,很多遊戲會阻擋SP的部份功能,可以套用此函數
while true    //循環開始
  State()//子函數狀態
wend        //返回while開始循環
end function
function State//休息攻擊+喝水
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)

print("執行攻擊")
if not CheckColor(WinX0+247, WinY0+675, Color(131, 25, 48), 10) then
  Wait(500)
  KeyDown("x")
  Wait(500)
  KeyUp("x")
  do  //循環
   //等待2000毫秒                           
   Wait(2000)
   //直到窗口坐標(188, 42)的顏色等於(166, 60, 23)
  loop until CheckColor(WinX0+253, WinY0+674, Color(103, 9, 25), 10)
  KeyDown("f1")
  Wait(100)
  KeyUp("f1")
  KeyDown("9")
  Wait(3500)
  KeyUp("9")
  KeyDown("esc")
  Wait(100)
  KeyUp("esc")
  KeyDown("0")
  Wait(100)
  KeyUp("0")
  
end if

//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)

//如果窗口坐標(86, 50)的顏色不等於(57, 121, 132) 那麼


//如果怪物狀態條的滿血位置找不到?
if not CheckColor(WinX0+592, WinY0+30, Color(104, 17, 33), 10) then
  
  //執行段內語句，當運行至LOOP時，如果表達式為false則跳回DO進行下一次執行，
  //直至LOOP後的表達式為true(真)時運行完畢。
  do  
   
   KeyPress("TAB")
   Wait(800)
  loop until CheckColor(WinX0+592, WinY0+30, Color(104, 17, 33), 10)//怪物滿血的位置
  
  
  GetActiveWindowXY(WinX0, WinY0)
  if not CheckColor(WinX0+585, WinY0+9, Color(164, 164, 163), 10) then//npc特定圖形判斷
   do
    print("判斷是否為npc")
    Keypress("tab")
    Wait(100)
   
   
   loop until CheckColor(WinX0+585, WinY0+9, Color(164, 164, 163), 10)//如果符合怪的圖行及執行下一行
  end if
  
else //找到的話…
  do//執行攻擊
  for ForCount = 1 to 5
   KeyDown("1")
   Wait(1000)
   KeyDown("8")
   Wait(700)
   KeyUp("8")
   Wait(100)
   KeyDown("2")
   Wait(300)
   KeyUp("2")
   Wait(100)
   KeyDown("s")
   Wait(300)
   KeyUp("s")
   Wait(100)
   KeyDown("3")
   Wait(300)
   KeyUp("3")
   Wait(100)
   KeyDown("4")
   Wait(300)
   KeyUp("4")
   Wait(100)
   KeyDown("5")
   Wait(300)
   KeyUp("5")
   Wait(100)
   //取窗口原點坐標
   GetActiveWindowXY(WinX0, WinY0)
   //補血技能,沒有就放紅水
   //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
   if not CheckColor(WinX0+180, WinY0+674, Color(220, 18, 52), 10) then
    KeyDown("6")
    Wait(300)
    KeyUp("6")
   end if
   Wait(1000)
   //取窗口原點坐標
   GetActiveWindowXY(WinX0, WinY0)
   //補血技能,沒有就放紅水
   //如果窗口坐標(176, 674)的顏色不等於(219, 18, 13) 那麼
   if not CheckColor(WinX0+180, WinY0+674, Color(220, 18, 52), 10) then
    KeyDown("7")
    Wait(300)
    KeyUp("7")
   end if
   
   
   
   
  next
  
loop while CheckColor(WinX0+451, WinY0+30, Color(109, 37, 47), 10)//怪物血量底部,如果還有血就跳回去
//等待500毫秒
Print("死亡")
KeyDown("1")//補打一下免的誤判
Wait(300)
KeyPress("F")
Wait(300)
KeyPress("F")
Wait(300)
Keypress("ESC")



end if
end function
print, while
收藏收藏 分享分享 讚讚 幹幹 分享分享 FB分享

相關POST
回覆

使用道具 舉報


asaaaas 當前離線
UID
123364
熱心
66 值
嘉獎
0 次
違規
0 次
在線時間
86 小時
經驗
58 點
積分
547
精華
0
最後登錄
2019-4-18
閱讀權限
30
註冊時間
2006-12-21
論壇幣
326 幣
聯合幣
8 枚
幸運鑽
1 顆
招待卷
0 點
查看詳細資料
Rank: 4Rank: 4
asaaaas 2009-12-24 01:20:26
看到全武行就要推 XD

BY:METAL QUEEN
回覆

使用道具 舉報

samson0103 該用戶已被刪除
samson0103 2009-12-24 09:15:39
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

0925658874 當前離線
UID
1200292
熱心
59 值
嘉獎
0 次
違規
0 次
在線時間
4 小時
經驗
46 點
積分
141
精華
0
最後登錄
2018-8-6
閱讀權限
20
註冊時間
2009-4-29
論壇幣
10 幣
聯合幣
21 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
0925658874 2009-12-25 14:50:38
1# mvpken


@@@@@@@@@@@@@@@@@@@@@@@@@
回覆

使用道具 舉報

0925658874 當前離線
UID
1200292
熱心
59 值
嘉獎
0 次
違規
0 次
在線時間
4 小時
經驗
46 點
積分
141
精華
0
最後登錄
2018-8-6
閱讀權限
20
註冊時間
2009-4-29
論壇幣
10 幣
聯合幣
21 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
5層
0925658874 2009-12-25 14:51:42
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
回覆

使用道具 舉報

0925658874 當前離線
UID
1200292
熱心
59 值
嘉獎
0 次
違規
0 次
在線時間
4 小時
經驗
46 點
積分
141
精華
0
最後登錄
2018-8-6
閱讀權限
20
註冊時間
2009-4-29
論壇幣
10 幣
聯合幣
21 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
6層
0925658874 2009-12-25 14:52:10
@@@@@@@@@@@@@@@##########################@@@@@@@@@@@@@@@@@@@@
回覆

使用道具 舉報

cocacoca 當前離線
UID
1367791
熱心
8 值
嘉獎
0 次
違規
0 次
在線時間
3 小時
經驗
7 點
積分
7
精華
0
最後登錄
2010-3-27
閱讀權限
5
註冊時間
2009-12-9
論壇幣
44 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
7層
cocacoca 2009-12-25 20:19:16
還是不懂@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
回覆

使用道具 舉報

網蛙 當前離線
UID
1373950
熱心
5 值
嘉獎
0 次
違規
0 次
在線時間
3 小時
經驗
5 點
積分
5
精華
0
最後登錄
2010-1-1
閱讀權限
5
註冊時間
2009-12-20
論壇幣
10 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
8層
網蛙 2009-12-26 17:23:40
給大大一個推推....對於一個新手...沒什麼比一個範例解說來的好~~~
回覆

使用道具 舉報

cameron60604 當前離線
UID
749042
熱心
187 值
嘉獎
0 次
違規
0 次
在線時間
40 小時
經驗
134 點
積分
371
精華
0
最後登錄
2015-7-29
閱讀權限
25
註冊時間
2008-2-13
論壇幣
4 幣
聯合幣
3 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 3
9層
cameron60604 2009-12-27 16:38:26
卸卸大大無私ㄉ分享~非常感謝~來去試試~
回覆

使用道具 舉報

待夜臨 當前離線
UID
1378507
熱心
5 值
嘉獎
0 次
違規
0 次
在線時間
0 小時
經驗
5 點
積分
5
精華
0
最後登錄
2009-12-28
閱讀權限
5
註冊時間
2009-12-28
論壇幣
8 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 1
10層
待夜臨 2009-12-28 07:24:51
雖然有點多，不過還是努力在了解中QQ
回覆

使用道具 舉報

高級模式
B Color Image Link Quote Code Smilies
您需要登錄後才可以回帖 登錄 | 註冊

12下一頁

手機版 | Archiver | 外掛聯合國

GMT+8, 2024-11-25 08:56 , Processed in 0.057835 second(s), 19 queries , Memcache On.

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

回頂部
第二步?
第三步?