#include "CoProc.au3"
Dim $array[9]
$file = FileOpen("test.txt", 0)
If $file = -1 Then ; 检查打开的文件是否可读
MsgBox(0, "错误", "不能打开文件.")
Exit
EndIf
; 每次读取一行文本,直到文件结束.
Dim $i=0
While 1
$line = FileReadLine($file)
If @error = -1 Then ExitLoop
;MsgBox(0, "读取的行:", $line)
$array[$i]=$line
$i=$i+1
Wend
FileClose($file)
$AddXp = _CoProc("_addxp")
$AddMp = _CoProc("_addmp")
;补血
Func _addxp()
$color = PixelGetColor($array[0], $array[1])
$bcolor = Hex($color, 6)
If $bcolor <> $array[2] Then
Send("{7}") ;快捷键7放血
Else
Sleep(2000)
EndIf
EndFunc
;补篮
Func _addmp()
While 1
$color = PixelGetColor($array[3], $array[4])
$bcolor = Hex($color, 6)
MsgBox(0,0,$array[5]&","&$bcolor)
If $bcolor <> $array[5] Then
Send("{8}") ;快捷键8放篮
Else
Sleep(2000)
EndIf
WEnd
EndFunc
上面的代码首先读取猎取的鼠标位置及颜色,第一行X坐标,第二行Y坐标,第三行颜色以下类推
上面声明的数组$array 在下面的_addxp()及_addMp()函数里无法读取,编译的时候提示$array没有定义。出错。
有一个方法就是把读取的代码都放入_addxp()及_addMp()函数里才能使用,有没有办法使_addxp()及_addMp()函数能够读取$array数组。
有人能帮忙一下吗?? |