我的空間 ｜　會員中心　｜ VIP會員　｜ 聯合國facebook專區
黃易群俠傳M脫機外掛應用程式黃易神行
外掛聯合國討論區 › 《遊戲橘子》 › 楓之谷外掛 ›
53872
591
發佈主題
返回

[分享] 按鍵遊俠-腳本(閃人加強)

SAYHIGH 發表於 2007-9-5 08:05:57 | 只看該作者 回帖獎勵 |倒序瀏覽 |
9/12保留快速躲商場資料.
增加紅點檢測點.請配合停止呼吸使用
其它我覺的有必要增加的功能.請自行瞭解與修改
  1. Dim Box_X1:     Dim Box_X2:     Dim Box_Y1:     Dim Box_Y2
  2. Dim HP_X:       Dim MP_X:       Dim HP_Y:       Dim MP_Y
  3. Dim HP_sx:      Dim MP_sx
  4. Dim Color_HP:   Dim Color_MP:   Dim Color_sHP:  Dim Color_sMP
  5. Dim KEY_HP:     Dim KEY_MP:     Dim KEY_SHP:    Dim KEY_SMP:
  6. Dim KEY_FIGHT:  Dim KEY_PICK
  7. Dim KEY_SK1:    Dim KEY_SK2:    Dim KEY_SK3:    Dim KEY_SK4:    Dim KEY_SK5
  8. Dim TMR_SK1:    Dim TMR_SK2:    Dim TMR_SK3:    Dim TMR_SK4:    Dim TMR_SK5
  9. Dim T_SK1:      Dim T_SK2:      Dim T_SK3:      Dim T_SK4:      Dim T_SK5
  10. Dim Sk1_Dle:    Dim Sk2_Dle:    Dim Sk3_Dle:    Dim Sk4_Dle:    Dim Sk5_Dle
  11. Dim Fi_Temp:    Dim Go2LR:      Dim Fi_Mode:    Dim WalkCounter
  12. Dim KeepRun:    Dim AutoChng
  13. Dim Yelo_x:     Dim Yelo_y
  14. Dim maple_wnd:  Dim key_wnd
  15. Dim halt_x:     Dim halt_y:     Dim halt_color
  16. Dim Yelo_temp:  Dim Ch_temp:    Dim temp
  17. Dim temp_x:     Dim temp_y:     Dim usercounter:
  18. Sub Main()
  19.     key_Wnd = HWindow.GetForeground
  20.     HWindow.SetSize key_Wnd,620,300
  21.    
  22.     '==============基本數據設定區==============
  23.     KEY_HP="PageDown":  KEY_MP="Insert"             '大瓶hp/mp藥水
  24.     KEY_SHP="0":        KEY_SMP="9"                 '小瓶hp/mp藥水
  25.     KEY_FIGHT="PageUp": KEY_PICK="Z"
  26.     TMR_SK1=190:    Sk1_Dle=800:    KEY_SK1="End"   '快劍
  27.     TMR_SK2=190:    Sk2_Dle=800:    KEY_SK2="Shift" '速度激發
  28.     TMR_SK3=170:    Sk3_Dle=800:    KEY_SK3="Delete"   '掠奪
  29.     TMR_SK4=9999:   Sk4_Dle=1000:   KEY_SK4="Home"
  30.     TMR_SK5=9999:   Sk5_Dle=1:      KEY_SK5="Ctrl"  '金炸
  31.     Fi_mode=5 :     fi_temp=30:     Go2LR=1
  32.     '1 定點往右打        Fi_temp:攻擊次數
  33.     '2 定點往左打        Go2LR:一次循環走動次數
  34.     '3 定點左右打
  35.     '4 打中間
  36.     '5 定製品            "Delete" "End" "PageDown" "Insert" "Home"
  37.     '6 左右走動          "PageUp" "Ctrl" "Shift" "Alt"
  38.     '==========================================
  39.     T_SK1=1:    T_SK2=1:    T_SK3=1: T_SK4=1:    T_SK5=1
  40.     KeepRun=1
  41.     Go2LR=1
  42.     walkcounter=1
  43.     Delay 500
  44.     Call setting()
  45.    
  46.     Delay 500
  47.     halt_x=21:   halt_y=605                  '暫停功能用
  48.     halt_color=GetPixelColor(halt_x,halt_y)
  49.     Color_HP=GetPixelColor(HP_X,HP_Y)       '大瓶藥水取色
  50.     Color_MP=GetPixelColor(MP_X,MP_Y)
  51.     Color_sHP=GetPixelColor(HP_SX,HP_Y)     '小瓶藥水取色
  52.     Color_sMP=GetPixelColor(MP_SX,MP_Y)
  53.     maple_Wnd = HWindow.GetForeground
  54.     '主程式運作區
  55.     Do While KeepRun=1
  56.         Call chk_halt()                                 '撿查是否暫停
  57.         If autochng=1 Then                              '紅點自動換平
  58.             Call chchnl(Box_X1,Box_Y1,Box_X2,Box_Y2)
  59.         End If
  60.         Call FixYelo()
  61.         Call ChkSkill()                                 '檢查技能
  62.         Call ChkHpMp()                                  '自動補紅補藍
  63.         Call WalkFight(Go2LR)                           '自動攻擊
  64.         If walkcounter >= Go2LR *2 Then
  65.             walkcounter=1
  66.         Else
  67.             walkcounter=walkcounter+1
  68.         End If
  69.     Loop
  70. End Sub
  71. Sub ChkSkill()
  72.     If TIMER <30 Then
  73.         T_SK1=1
  74.         T_SK2=1
  75.         T_SK3=1
  76.         T_SK4=1
  77.         T_SK5=1
  78.     End If
  79.     If TIMER > T_SK1+TMR_SK1 And tmr_sk1 < 9000  Then
  80.         Delay Sk1_Dle
  81.         KeyPressH KEY_SK1,1
  82.         T_SK1=TIMER
  83.     End If
  84.     If TIMER > T_SK2+TMR_SK2 And tmr_sk2 < 9000  Then
  85.         Delay Sk2_Dle
  86.         KeyPressH KEY_SK2,1
  87.         T_SK2=TIMER
  88.     End If
  89.     If TIMER > T_SK3+TMR_SK3 And tmr_sk3 < 9000  Then
  90.         Delay Sk3_Dle
  91.         KeyPressH KEY_SK3,1
  92.         T_SK3=TIMER
  93.     End If
  94.     If TIMER > T_SK4+TMR_SK4 And tmr_sk4 < 9000  Then
  95.         Delay Sk4_Dle
  96.         KeyPressH KEY_SK4,1
  97.         T_SK4=TIMER
  98.     End If
  99.     If TIMER > T_SK5+TMR_SK5 And tmr_sk5 < 9000  Then
  100.         Delay Sk5_Dle
  101.         KeyPressH KEY_SK5,1
  102.         T_SK5=TIMER
  103.     End If
  104. End Sub
  105. Sub ChkHpMp()
  106.     If IsColor(HP_X,HP_Y,Color_HP,0) <> 1 Then      '大藥水
  107.         Delay 300
  108.         KeyPressH KEY_HP,1
  109.     End If
  110.     If IsColor(MP_X,MP_Y,Color_MP,0) <> 1 Then
  111.         Delay 300
  112.         KeyPressH key_mp,1
  113.     End If
  114.     If IsColor(HP_SX,HP_Y,Color_sHP,0) <> 1 Then    '小藥水
  115.         Delay 300
  116.         KeyPressH KEY_sHP,1
  117.     End If
  118.     If IsColor(MP_sx,MP_Y,Color_sMP,0) <> 1 Then
  119.         Delay 300
  120.         KeyPressH key_smp,1
  121.     End If
  122. End Sub

  124. Sub WalkFight(Go2LR)
  125.     Select Case True
  126.         Case Fi_mode=1
  127.         Call fight_a
  128.         Case Fi_mode=2
  129.         Call fight_b
  130.         Case Fi_mode=3
  131.         Call fight_c
  132.         Case Fi_mode=4
  133.         Call fight_d
  134.         Case Fi_mode=5
  135.         Call fight_e
  136.         Case Fi_mode=6
  137.         Call fight_f
  138.     End Select
  139. End Sub
  140. Sub fight_a()
  141.     Delay 800
  142.     KeyPressH "RArrow",2
  143.     Call fi_loop()
  144.     Delay 500
  145.     KeyPressH "RArrow",2
  146.     Call fi_loop()
  147.     Delay 500
  148.     KeyPressH "RArrow",2
  149.     Call fi_loop()
  150.    
  151.     KeyDownH "RArrow"
  152.     Delay 3000
  153.     KeyUpH "RArrow"    '後續由FIXYELO走回定點
  154. End Sub
  155. Sub fight_b()
  156.     Delay 800
  157.     KeyPressH "LArrow",2
  158.     Call fi_loop()
  159.     Delay 500
  160.     KeyPressH "LArrow",2
  161.     Call fi_loop()
  162.     Delay 500
  163.     KeyPressH "LArrow",2
  164.     Call fi_loop()
  165.    
  166.     KeyDownH "LArrow"
  167.     Delay 3000
  168.     KeyUpH "LArrow"    '後續由FIXYELO走回定點
  169. End Sub
  170. Sub fight_c()
  171.     If walkcounter mod 2 =1 Then
  172.         Delay 800
  173.         KeyPressH "RArrow",2
  174.     Else
  175.         Delay 800
  176.         KeyPressH "LArrow",2
  177.     End If
  178.     Call fi_loop()
  179. End Sub
  180. Sub fight_d()
  181.     If walkcounter mod 2 =1 Then
  182.         Delay 500
  183.         KeyDownH "RArrow"
  184.         Delay 1000
  185.         KeyUpH "RArrow"
  186.         Delay 800
  187.         KeyPressH "LArrow",2
  188.     Else
  189.         Delay 500
  190.         KeyDownH "LArrow"
  191.         Delay 1000
  192.         KeyUpH "LArrow"
  193.         Delay 800
  194.         KeyPressH "RArrow",2
  195.     End If
  196.     Call fi_loop()      '後續由FIXYELO走回中心點
  197. End Sub
  198. Sub fight_e() '刀賊+bomb
  199.     Delay 800
  200.     KeyPressH "LArrow",2
  201.     For usercounter=1 To 4  '奪取
  202.         Call fi_loop()
  203.         Delay 500
  204.         KeyPressH "LArrow",1
  205.     Next
  206.     KeyDownH "RArrow"       '炸
  207.     Delay 500
  208.     KeyUpH "RArrow"
  209.     Delay 800               
  210.     KeyPressH "LArrow",2
  211.     For USERCOUNT=1 To FI_TEMP / 4
  212.         Delay 1000
  213.         KeyPressH KEY_SK5,1
  214.     Next
  215.     KeyDownH "LArrow"       '檢
  216.     Delay 1000
  217.     KeyUpH "LArrow"
  218. End Sub
  219. Sub fight_f()
  220.     KeyDownH "RArrow"
  221.     Delay 8000
  222.     KeyUpH "RArrow"
  223.     Delay 300
  224.     KeyDownH "LArrow"
  225.     Delay 8000
  226.     KeyUpH "LArrow"
  227.     Delay 300
  228. End Sub
複製代碼
接2樓

[ 本文章最後由 SAYHIGH 於 2007-9-13 14:51 編輯 ]

評分

!number_of_participants! 1經驗 +2 熱心 +1 論壇幣 +4 收起 理由
soso741011 + 2 + 1 + 4 精品文章

查看全部評分

收藏收藏 分享分享 讚讚1 幹幹 分享分享 FB分享
.....水平男女
回覆

使用道具 舉報


SAYHIGH 當前離線
UID
329542
熱心
22 值
嘉獎
0 次
違規
0 次
在線時間
352 小時
經驗
35 點
積分
35
精華
1
最後登錄
2011-3-3
閱讀權限
20
註冊時間
2007-4-4
論壇幣
97 幣
聯合幣
1 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
SAYHIGH 2007-9-5 08:06:21


  3. Sub Fi_loop()
  4.     For Temp = 1 To fi_temp    '攻擊
  5.         KeyPressH key_fight,1
  6.         Delay 150
  7.         If autochng=1 Then                              '紅點自動換平
  8.             Call chchnl(Box_X1,Box_Y1,Box_X2,Box_Y2)
  9.         End If
  10.         Call ChkHpMp()
  11.     Next
  12.     Call chk_halt()
  13.     Call ChkSkill()
  14. End Sub

  16. Sub chchnl(Box_X1,Box_Y1,Box_X2,Box_Y2)
  17.     Dim X3
  18.     Dim Y3
  19.     X3=0
  20.     FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&H1020FF,0.9,x3,y3
  21.     FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&H1122ee,0.9,ch_temp,y3
  22.     If x3 > 10  Or ch_temp > 10 Then    '紅點出現停止攻擊
  23.         HWindow.Active maple_wnd
  24.         HWindow.SetToTop maple_Wnd
  25.         Do While X3 >10 Or ch_temp > 10
  26.                 '紅點出現點滑鼠進入商場
  27.                 'Delay 100
  28.                 'Do While  x3 > 10  Or ch_temp > 10
  29.                 '    MoveToH 620,615
  30.                 '    Delay 300
  31.                 '    LeftClickH 1
  32.                 '    FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&H1020FF,0.9,x3,y3
  33.                 '    FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&H1122ee,0.9,ch_temp,y3
  34.                 'Loop
  35.                 'Delay 500
  36.                 ''看不到黃點.移動滑鼠離開商場
  37.                 'FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ch_temp,Yelo_y
  38.                 'Do While  ch_temp < 10
  39.                 '    MoveToH 700,600
  40.                 '    Delay 1000
  41.                 '    LeftClickH 1
  42.                 '    FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ch_temp,Yelo_y
  43.                 'Loop
  44.                 'Delay 1500
  45.                 ''確認黃點出現.並延遲
  46.                 'FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ch_temp,Yelo_y
  47.                 'Do While  ch_temp < 10
  48.                 '    FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ch_temp,Yelo_y
  49.                 '    Delay 1000
  50.                 'Loop
  51.             '隨機換頻
  52.             Dprint "in change"
  53.             KeyPressH "ESC",1
  54.             Delay 300
  55.             KeyPressH "Enter",1
  56.             Delay 300
  57.             Randomize
  58.             For ch_temp=1 To rnd*10+1
  59.                 KeyPressH "LArrow",1
  60.                 Delay 100
  61.             Next  
  62.             Delay 500
  63.             KeyPressH "Enter",1
  64.             Delay 2000
  65.             '確認黃點出現.並延遲
  66.             FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ch_temp,Yelo_y
  67.             Do While  ch_temp < 10
  68.                 FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ch_temp,Yelo_y
  69.                 Delay 1000
  70.             Loop
  71.             '換頻後檢查紅點
  72.             FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&H1020FF,0.9,x3,y3
  73.             FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&H1122ee,0.9,ch_temp,y3
  74.         Loop
  75.         '走回攻擊原點
  76.         KeyDownH "LArrow"
  77.         Delay 2000
  78.         KeyUpH "LArrow"
  79.         Delay 300
  80.         'KeyDownH "RArrow"
  81.         'Delay 5000
  82.         'KeyUpH "RArrow"
  83.     End If
  84. End Sub
  85. Sub FixYelo()
  86.     FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ye_temp,Yelo_y
  87.     Do While abs(Yelo_x - ye_temp) > 2
  88.         If Yelo_x > ye_temp Then
  89.             KeyPressH "RArrow",1
  90.         Else
  91.             KeyPressH "LArrow",1
  92.         End If
  93.         FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,ye_temp,Yelo_y
  94.     Loop
  95. End Sub
  96. Sub chk_halt()
  97.     If IsColor(halt_x,halt_y,halt_color,0) <> 1 Then
  98.         
  99.         Delay 1000
  100.         temp=InputBox ("暫停中" & vbcrlf & "R:調整黃點往右3點 L:調整黃點往左3點" & vbcrlf &"1:HP位置減5%    3:HP位置加5% "& vbcrlf &"7:MP位置減5%    9:MP位置加5% ")
  101.         Dprint temp
  102.         Select Case True
  103.             Case temp="R" Or temp="r"
  104.             Yelo_x=yelo_x+3
  105.             
  106.             Case temp="L" Or temp="l"
  107.             Yelo_x=yelo_x-3
  108.             
  109.             Case temp="1"
  110.             hp_x=hp_x-5
  111.             hp_sx=hp_sx-5
  112.             Color_HP=GetPixelColor(HP_X,HP_Y)       '大瓶藥水取色
  113.             Color_sHP=GetPixelColor(HP_SX,HP_Y)     '小瓶藥水取色
  114.             
  115.             Case temp="3"
  116.             hp_x=hp_x+5
  117.             hp_sx=hp_sx+5
  118.             Color_HP=GetPixelColor(HP_X,HP_Y)       '大瓶藥水取色
  119.             Color_sHP=GetPixelColor(HP_SX,HP_Y)     '小瓶藥水取色
  120.             
  121.             Case temp="7"
  122.             Mp_x=Mp_x-5
  123.             Mp_sx=Mp_sx-5
  124.             Color_MP=GetPixelColor(MP_X,MP_Y)
  125.             Color_sMP=GetPixelColor(MP_SX,MP_Y)
  126.             
  127.             Case temp="9"
  128.             Mp_x=Mp_x+5
  129.             Mp_sx=Mp_sx+5
  130.             Color_MP=GetPixelColor(MP_X,MP_Y)
  131.             Color_sMP=GetPixelColor(MP_SX,MP_Y)
  132.             
  133.         End Select
  134.     End If
  135.    
  136. End Sub
  137. Sub  setting()
  138.     temp=InputBox ("HP/MP設定 1.預設50%(小藥水20%) 2.游標定位")
  139.     If temp=1 Then
  140.         HP_X=220+50
  141.         HP_Y=620
  142.         MP_X=330+50
  143.         mp_y=620
  144.         HP_sx=HP_X+20
  145.         MP_sx=MP_X+20
  146.     Else
  147.         Msgbox "設定HP/MP補充位置 z  x"
  148.         WaitForKey "z"
  149.         GetMousePos HP_X,HP_Y
  150.         Msgbox "HP設定點完成"
  151.         
  152.         WaitForKey "x"
  153.         GetMousePos MP_X,MP_Y
  154.         Msgbox "MP設定點完成"
  155.     End If
  156.     AutoChng=InputBox ("紅點換頻設定 1.換頻+定位 2.只定位")
  157.     If Autochng=1 Then
  158.         Msgbox "設定紅點檢查區域 z  x"
  159.         WaitForKey "z"
  160.         GetMousePos Box_X1,Box_Y1
  161.         Msgbox "設定點一完成"
  162.         WaitForKey "x"
  163.         GetMousePos Box_X2,Box_Y2
  164.         Msgbox "設定點二完成"
  165.         FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,Yelo_x,Yelo_y
  166.     Else
  167.         Autochng=2
  168.         Msgbox "設定黃點定位區域 z  x"
  169.         WaitForKey "z"
  170.         GetMousePos Box_X1,Box_Y1
  171.         Msgbox "設定點一完成"
  172.         WaitForKey "x"
  173.         GetMousePos Box_X2,Box_Y2
  174.         Msgbox "設定點二完成"
  175.         FindColorEX Box_X1,Box_Y1,Box_X2,Box_Y2,&Hffff,0.9,Yelo_x,Yelo_y
  176.     End If
  177.     Dprint "seting ok"
  178. End Sub
複製代碼

在實際應用.腳色更換改參數.建議另建一個檔案.
以copy的方式比較輕鬆
內容類似
  1. 劍士
  2.     '==============基本數據設定區==============
  3.     KEY_HP="PageDown":  KEY_MP="Insert"             '大瓶hp/mp藥水
  4.     KEY_SHP="[":        KEY_SMP="]"                 '小瓶hp/mp藥水
  5.     KEY_FIGHT="PageUp": KEY_PICK="Z"
  6.     TMR_SK1=195:    Sk1_Dle=800:    KEY_SK1="Shift" '快劍
  7.     TMR_SK2=195:    Sk2_Dle=800:    KEY_SK2="End"   '屬性
  8.     TMR_SK3=85:     Sk3_Dle=800:    KEY_SK3="<Space>"   '反射盾
  9.     TMR_SK4=682:    Sk4_Dle=1000:   KEY_SK4="Home"     '鬼神之擊
  10.     TMR_SK5=9999:   Sk5_Dle=1:      KEY_SK5="v"
  11.     Fi_mode=1 :     fi_temp=60:      Go2LR=1
  12. 祭司
  13.     '==============基本數據設定區==============
  14.     KEY_HP="PageDown":  KEY_MP="Insert"             '大瓶hp/mp藥水
  15.     KEY_SHP="[":        KEY_SMP="]"                 '小瓶hp/mp藥水
  16.     KEY_FIGHT="PageUp": KEY_PICK="Z"
  17.     TMR_SK1=115:    Sk1_Dle=1000:   KEY_SK1="Shift" '祈禱
  18.     TMR_SK2=195:    Sk2_Dle=1000:   KEY_SK2="End"   '祝福
  19.     TMR_SK3=20:     Sk3_Dle=1000:   KEY_SK3="Home"  '聖龍
  20.     TMR_SK4=9999:   Sk4_Dle=1:      KEY_SK4="B"     '----
  21.     TMR_SK5=9999:   Sk5_Dle=1:      KEY_SK5="v"
  22.     Fi_mode=3 :     fi_temp=5:      Go2LR=1

  24. 神偷
  25.     '==============基本數據設定區==============
  26.     KEY_HP="PageDown":  KEY_MP="Insert"             '大瓶hp/mp藥水
  27.     KEY_SHP="[":        KEY_SMP="]"                 '小瓶hp/mp藥水
  28.     KEY_FIGHT="PageUp": KEY_PICK="Z"
  29.     TMR_SK1=195:    Sk1_Dle=1000:   KEY_SK1="Shift" '快劍
  30.     TMR_SK2=195:    Sk2_Dle=1000:   KEY_SK2="End"   '速度激發
  31.     TMR_SK3=175:    Sk3_Dle=1000:   KEY_SK3="Home"  '掠奪
  32.     TMR_SK4=9999:   Sk4_Dle=1:      KEY_SK4="V"     '----
  33.     TMR_SK5=9999:   Sk5_Dle=1:      KEY_SK5="B"     '炸彈
  34.     Fi_mode=3 :     fi_temp=5:      Go2LR=1
複製代碼

[ 本文章最後由 SAYHIGH 於 2007-9-12 23:44 編輯 ]

評分

!number_of_participants! 1經驗 +2 熱心 +1 論壇幣 +4 收起 理由
soso741011 + 2 + 1 + 4 精品文章

查看全部評分

.....水平男女
回覆

使用道具 舉報

holloandy 該用戶已被刪除
holloandy 2007-9-5 14:28:47
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

SAYHIGH 當前離線
UID
329542
熱心
22 值
嘉獎
0 次
違規
0 次
在線時間
352 小時
經驗
35 點
積分
35
精華
1
最後登錄
2011-3-3
閱讀權限
20
註冊時間
2007-4-4
論壇幣
97 幣
聯合幣
1 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
SAYHIGH 2007-9-5 14:40:09
終於有人回應了....好感動的說yociexp199.gif

這腳本的模式.出自小弟手中

因為其它的腳本都沒有換頻..所以我才繼續走下來

如果...真的沒有什麼回應的話


有關紅點.黃點.橘點的問題
在小地圖本身就有很多顏色.而且地圖不同顏色衝撞的機會會增加.造成沒紅點也換頻
所以想澈底解決紅點.只有用遊俠的READ MEMORY功能.但問題很大不詳述
所以在圈選小地圖時.不一定要把整個小地圖包起來
只要把黃點附件包起來就可以...為何只包黃點?
因為幾乎所有的精靈跑久後.人物會離開原始點很遠.造成打不到怪
所以小弟堅持黃點的原因在此

而紅點以經走到身邊很久.才執行換頻
目前是整個攻擊循環做一次檢查
這個問題不是不能解
而是.每一個動作後.就檢查一次紅點
這樣效率降很多
而且必需配合停止呼吸
CHANGE CHANNEL這個SUB的DELAY時間依各電腦調成最合適的DELAY時間

小弟拋磚塊.只想和各位交流
真正好用的巨集還是要你自己加加減減修改才最適合你

yociexp175.gif 給想研究色碼的小玩意yociexp175.gif

1.你要開啟excel.搭配視窗化操作
2.使用遊俠.並把下面的數據載進去
3.按遊俠的執行後.分別要取左上和右下
4.取完左上還有右下後.你有2秒的時間.趕緊用滑鼠點一下excel.讓excel成為主視窗
但切記.excel不可蓋住你選定的範圍
如果你選的範圍太大...會很辛苦
  1. Sub Main()   
  2.     '須搭配excel作紀錄
  3.     Dim Box_X1:     Dim Box_X2:     Dim Box_Y1:     Dim Box_Y2
  4.     Dim count_a,count_b
  5.     Dim color_code
  6.    
  7.     Msgbox "設定抓取範圍 z  x"
  8.     WaitForKey "z"
  9.     GetMousePos Box_X1,Box_Y1
  10.     Msgbox "設定點一完成"
  11.     WaitForKey "x"
  12.     GetMousePos Box_X2,Box_Y2
  13.     Msgbox "設定點二完成"
  14.    
  15.     Delay 2000
  16.     For count_a=1 To box_x2-box_x1
  17.         For count_b=1 To box_y2-box_y1
  18.             Color_code=GetPixelColor(box_x1+count_a,box_y1+count_b)
  19.             SayString hex(color_code) & vbcrlf
  20.             Delay 300
  21.         Next
  22.         Delay 500
  23.         KeyPress "RArrow",1  
  24.         Delay 100
  25.         KeyPress "End",1  
  26.         Delay 100
  27.         KeyPress "UArrow",1   
  28.         Delay 100
  29.     Next
  30.    
  31. End Sub
複製代碼

[ 本文章最後由 SAYHIGH 於 2007-9-13 14:46 編輯 ]
.....水平男女
回覆

使用道具 舉報

情戀 當前離線
UID
471371
熱心
135 值
嘉獎
0 次
違規
0 次
在線時間
189 小時
經驗
33 點
積分
375
精華
0
最後登錄
2018-3-10
閱讀權限
25
註冊時間
2007-8-1
論壇幣
1 幣
聯合幣
6 枚
幸運鑽
0 顆
招待卷
0 點
阿里旺旺 查看詳細資料
Rank: 3
5層
情戀 2007-9-5 14:57:52
可以交我怎麼放腳本嘛= =yociexp199.gif
回覆

使用道具 舉報

SAYHIGH 當前離線
UID
329542
熱心
22 值
嘉獎
0 次
違規
0 次
在線時間
352 小時
經驗
35 點
積分
35
精華
1
最後登錄
2011-3-3
閱讀權限
20
註冊時間
2007-4-4
論壇幣
97 幣
聯合幣
1 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
6層
SAYHIGH 2007-9-5 16:01:02
給5#
1.打開me
2.開啟遊俠--------遊俠要睡一下下....
3.執行楓谷
4.早期的遊俠按下盾牌
新版的遊俠似乎不用按
5.把滑鼠移到遊俠的範例腳本區
按滑鼠右鍵
選擇彈出畫面最上面那一行.按下去

舊版遊俠可使用10小時.經我努力掛下去.得出
是可執行腳本10小時.並不是說開啟遊俠10小時
.....水平男女
回覆

使用道具 舉報

cakim 該用戶已被刪除
7層
cakim 2007-9-5 17:16:03
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

SAYHIGH 當前離線
UID
329542
熱心
22 值
嘉獎
0 次
違規
0 次
在線時間
352 小時
經驗
35 點
積分
35
精華
1
最後登錄
2011-3-3
閱讀權限
20
註冊時間
2007-4-4
論壇幣
97 幣
聯合幣
1 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
8層
SAYHIGH 2007-9-5 18:34:18
版主介紹的playmacro與遊俠就有很清處介紹
或者去下面這網站下載最新版
http://www.fyhand.com/bbs/forumdisplay.php?fid=21

遊俠和按鍵精靈這些工具雷同.
最簡單就是幫你補紅補藍
自動打怪是可以..
但要自動找怪.刀刀必中的要求...我還沒弄出來[code]// 原作 MEMX(白目國中生)

[ 本帖最後由 SAYHIGH 於 2007-11-16 13:21 編輯 ]
.....水平男女
回覆

使用道具 舉報

a75757512 當前離線
UID
267561
熱心
36 值
嘉獎
0 次
違規
0 次
在線時間
154 小時
經驗
41 點
積分
41
精華
0
最後登錄
2008-8-16
閱讀權限
20
註冊時間
2007-3-6
論壇幣
251 幣
聯合幣
0 枚
幸運鑽
0 顆
招待卷
0 點
查看詳細資料
Rank: 2Rank: 2
9層
a75757512 2007-9-5 18:37:58
雖然沒程式也沒教學.....謝謝拉~
回覆

使用道具 舉報

applelee2 該用戶已被刪除
10層
applelee2 2007-9-6 04:58:49
提示: 作者被禁止或刪除 內容自動屏蔽
回覆

使用道具 舉報

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

12345678910... 60下一頁

手機版 | Archiver | 外掛聯合國

GMT+8, 2024-11-26 16:35 , Processed in 0.070080 second(s), 21 queries , Memcache On.

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

回頂部
第二步?
第三步?