- (语句无法识别,可能有错误): MoveTo 50, 50 '【網絡坐標】請自行修改
- 情况 1:
- (语句无法识别,可能有错误): MoveTo 50, 100 '【網絡坐標】請自行修改
- 情况 2:
- (语句无法识别,可能有错误): MoveTo 50, 150 '【網絡坐標】請自行修改
- 选择结束
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- (语句无法识别,可能有错误): LeftClick 1 '鼠標左鍵點擊一次
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- 注释:選擇服務器
- 根据 Form1.服務器.ListIndex 选择
- 情况 0:
- (语句无法识别,可能有错误): MoveTo 100, 50 '【服務器坐標】請自行修改
- 情况 1:
- (语句无法识别,可能有错误): MoveTo 100, 100 '【服務器坐標】請自行修改
- 选择结束
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- (语句无法识别,可能有错误): LeftClick 1 '鼠標左鍵點擊一次
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- 注释:選擇角色
- 根据 Form1.角色.ListIndex 选择
- 情况 0:
- (语句无法识别,可能有错误): MoveTo 100, 100 '【角色坐標】請自行修改
- 情况 1:
- (语句无法识别,可能有错误): MoveTo 200, 100 '【角色坐標】請自行修改
- 情况 2:
- (语句无法识别,可能有错误): MoveTo 300, 100 '【角色坐標】請自行修改
- 选择结束
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- (语句无法识别,可能有错误): LeftClick 1 '鼠標左鍵點擊一次
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- 注释:循環等待遊戲登錄到場景中
- 循环开始
- (语句无法识别,可能有错误): Delay 1000 '等待1秒
- (语句无法识别,可能有错误): IfColor 50,5,"0000FF",0 Then '【坐標與顏色】需要自行修改。判斷遊戲已經進入場景了
- (语句无法识别,可能有错误): Exit Do '離開循環等待
- 条件结束
- 循环结束
- 注释:初始防卡時間設置
- 定义变量 t1
- 令 t1 = now
- 注释:<>--------------------------------------------------開始執行掛機腳本--------------------------<>
- (语句无法识别,可能有错误): Rem 開始
- (语句无法识别,可能有错误): Call 人物狀態保護
- 标记 找怪
- (语句无法识别,可能有错误): KeyPress "Tab",1 '找怪熱鍵
- 延时 500 毫秒
- 注释:在這裡2個延時中間可以加入【撿物】處理
- 延时 500 毫秒
- 注释:判斷是否找到怪物
- (语句无法识别,可能有错误): IfColor 50,5,"0000FF",0 Then '【坐標與顏色】需要自行修改
- 注释:開始打怪
- 循环开始
- (语句无法识别,可能有错误): KeyPress "A", 1 '打怪攻擊熱鍵
- 延时 200 毫秒
- (语句无法识别,可能有错误): Call 人物狀態保護
- 注释:<>------------------------------------------防卡設置--------------------------<>
- 如果 DateDiff("s",t1,now) >= Form1.等待.Text 则
- 令 t1 = now
- 跳出循环
- 条件结束
- 延时 200 毫秒
- 循环结束
- 条件结束
- 注释:<>--------------------------------------------------復活方式設置--------------------------<>
- 如果 Form1.復活方式.ListIndex > 0 则
- (语句无法识别,可能有错误): IfColor 0,0,"0",0 Then '【坐標與顏色】需要自行修改
- 注释:執行復活方式
- 如果 Form1.復活方式.ListIndex = 1 则
- 否则如果 Form1.復活方式.ListIndex = 2 则
- 否则如果 Form1.復活方式.ListIndex = 3 则
- 条件结束
- 条件结束
- 条件结束
- 注释:<>--------------------------------------------------死亡處理設置--------------------------<>
- 如果 Form1.死亡處理.ListIndex > 0 则
- (语句无法识别,可能有错误): IfColor 0,0,"0",0 Then '【坐標與顏色】需要自行修改
- 注释:執行報警
- 如果 Form1.死亡處理.ListIndex = 1 则
- 调用 Media.Play(Form1.路徑.Text)
- 延时 5000 毫秒
- (语句无法识别,可能有错误): Goto 結束 '腳本停止
- 否则如果 Form1.死亡處理.ListIndex = 2 则
- 否则如果 Form1.死亡處理.ListIndex = 3 则
- 条件结束
- 条件结束
- 条件结束
- 延时 200 毫秒
- (语句无法识别,可能有错误): Goto 開始
- (语句无法识别,可能有错误): Rem 結束
- 注释:<>------------------------------ 腳本子程序內容 --------------------------<>
- 脚本停止运行
- (语句无法识别,可能有错误): Sub OnScriptExit() '腳本停止事件
- 调用 Media.Stop()
- 弹出窗口 "測試結束,腳本停止!"
- 子程序结束
- (语句无法识别,可能有错误): Sub 人物狀態保護()
- 注释:<>--------------------------人物補血設置
- (语句无法识别,可能有错误): If 血鍵 > 0 Then
- (语句无法识别,可能有错误): IfColor 5+(10-5)*補血,5,"0000FF",0 Then '【坐標與顏色】需要自行修改