(seraph)商人腳本,尋敵打怪吃藥放人(重新寫過,測試用不用錢,有問題可議)

因為重新寫過腳本所以再發一個帖,

要改之前的帖怕會太亂,這次是為了解決選怪時間過長,

以及吃藥部份進行重新編輯,

自動吃藥部分為扣血約50%的時候會自補,

老樣子希望大家使用後有問題的可以在這篇回覆,

而有高手則可以提供意見給小妹(大誤)修改一下^^


1 尋敵
2 一般攻擊
3 技能攻擊(技能施放時間請到紅字區修改,預設為3000毫秒=3秒)
4 沒有 給玩家自己修改
5 拾取
6 吃的,限定補血
7 放傭兵 , 蜜蜂 or 補助技(不用點自己的那種,時間設定可參照上一篇)
8 沒有 給玩家自己修改

注意事項請看前篇

============================================



# 在此定義全局變量
function main
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
while true
//如果窗口坐標(232, 50)的顏色等於(255, 193, 114) 那麼
if CheckColor(WinX0+232, WinY0+50, Color(255, 193, 114), 10) then
  FuncTimer01()
  Wait(2000)
  hp()
  KeyPress("2")
  Wait(3000)
  KeyPress("3")
  
  
else //否則
  KeyPress("5")
  KeyPress("1")
end if
  wend
end function

# 在此添加子函數
function FuncTimer01
//定時器代碼，每Interval秒執行一次
dim global Timer01 = -1

if Timer01 < 0  or GetTime() - Timer01 >= 200 * 1000 then
  Timer01 = GetTime()
  //以下為執行代碼
  //以下為嚮導添加的代碼
  KeyPress("7")
end if
end function
function hp
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)

//如果窗口坐標(114, 28)的顏色等於(0, 3, 7) 那麼
if CheckColor(WinX0+114, WinY0+28, Color(0, 3, 7), 10) then
  KeyPress("6")
  
else //否則
  KeyPress("2")
end if



end function

不行阿...我按了都沒反應~~~~~~~~~~~~~~~~~~~

麻煩 可以用傳的嗎

用複製的看不懂 ..

我都案文件-打開  就輸入@@

給一樓,是否你用全螢幕呢?使用注意事項可以去上一篇看看喔^^

給2摟,我有想到,可是......我不會用傳的.(=口=)

大大  他只會選怪  不會打怪耶  怎麼辦><" 1# dgdgdg999

回六樓,你可以參考之前發表那篇的注意事項,如還是不行的話再給我回報一次吧 ,不好意思

謝謝大大謝謝大大謝謝大大謝謝大大

.......................................................

[url=]http://www.mediafire.com/?zcdkm0hddkd[/url]