[原創] 9/2 確定可以用的簡單小腳本 (笨豬練攻)

181層

i80097i 2009-9-23 03:47:56

#[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
本文章轉自外掛聯合國http://www.wgun.net