懇請幫忙找錯，錯誤格式

whatthefxck

本帖最後由 whatthefxck 於 2009-11-10 02:01 編輯

錯誤訊息：

它是說錯誤格式..
小弟不才，看來看去還是看不出問題所在！！

希望大大指點迷津。

腳本紅字處錯誤：

#[HOTKEY][EXT]HOME
function main
SetInputMode(3) //驅動模式,很多遊戲會阻擋SP的部份功能,可以套用此函數
while true //循環開始
  State() //子函數狀態
wend       //返回while開始循環
end function
function State//休息攻擊+喝水
//取窗口原點坐標
GetActiveWindowXY(WinX0, WinY0)
print("休息")
if not CheckColor(WinX0+229, WinY0+643, Color(203, 39, 59), 10) then//人物血量剩餘多少以下休息
  Wait(100)
  KeyPress("F")
  Wait(300)
  KeyDown("x")
  Wait(1000)
  KeyUp("x")
  do  //循環
Wait(500)
  loop until CheckColor(WinX0+247, WinY0+645, Color(111, 21, 42), 10)//直到血量到達
end if

GetActiveWindowXY(WinX0, WinY0)
if not CheckColor(WinX0+154, WinY0+647, Color(198, 36, 74), 10) then //血剩多少以下喝水（不會喝水）
  Print("補血")
  KeyDown("4")
  Wait(500)
  KeyUp("4")
  wait(300)
end if

GetActiveWindowXY(WinX0, WinY0)
if not CheckColor(WinX0+21, WinY0+8, Color(255, 251, 147), 10) then //當左上第一個技能消失後按5（抓顏色）
  Print("輔助")
  KeyDown("5")
  Wait(1000)
  KeyUp("5")
end if

GetActiveWindowXY(WinX0, WinY0)
if not CheckColor(WinX0+41, WinY0+16, Color(253, 254, 254), 10) then //當左上第二個技能消失後按6（抓顏色）
  Print("輔助")
  KeyDown("6")
  Wait(1000)
  KeyUp("6")
end if

GetActiveWindowXY(WinX0, WinY0)
if CheckColor(WinX0+503, WinY0+13, Color(255, 255, 255), 10) then
  //如果503,13這座標出現白色（npc），那麼就執行tab兩次
  do
Print("Npc")
KeyDown("Tab")
Wait(100)
KeyUp("Tab")
Wait(500)
  loop until CheckColor(WinX0+431, WinY0+7, Color(217, 212, 120), 10) then
else
  do
for ForCount = 1 to 1
Print("攻擊")
KeyDown("1")
Wait(2500)
KeyUp("1")
KeyDown("2")
Wait(1600)
KeyUp("2")
KeyDown("3")
Wait(1600)
KeyUp("3")
KeyDown("7")
Wait(1600)
KeyUp("7")
KeyDown("8")
Wait(1600)
KeyUp("8")
Wait(500)
KeyPress("F")
Wait(300)
KeyDown("ESC")
Wait(1600)
KeyUp("ESC")
Wait(1000)
  end if

  GetActiveWindowXY(WinX0, WinY0)
  if FindImageEx ("目標不在視野範圍內.sel", Color(50, 50, 50), 258, 126, 670, 159, true, FoundX, FoundY) then
//如果找到圖像「目標不在範圍內」就執行tab
            Print("無法攻擊")
   KeyDown("7")
   Wait(300)
   KeyUp("7")
   Wait(300)
   KeyDown("Tab")
   Wait(100)
   KeyUp("Tab")
   Wait(500)
end if

next
  loop while CheckColor(WinX0+450, WinY0+32, Color(118, 31, 52), 10)
  //怪物血量到達0如果還有血會跳回去
  Print("死亡")
  KeyDown("2")
  Wait(500)
  KeyUp("2")
  Wait(100)
  KeyPress("ESC")
  Wait(300)
  KeyPress("F")
  Wait(300)
end if
end function

外掛聯合國

[發問] 懇請幫忙找錯，錯誤格式