return_num=return_num+1
t_return=timer
EndIf
Return 自动归位
Sub 出错原登
Rem 判断是否跳出系统设置
KeyPress 27,1
Delay 2000
VBSCall esc_1=GetPixelColor(354-move_x,443-move_y)
VBSCall esc_2=GetPixelColor(454-move_x,496-move_y)
If esc_1=esc_2
MoveTo 518-move_x,487-move_y
Delay 100
LeftClick 1
Delay 1000
MoveTo 358-move_x,352-move_y
Delay 100
LeftClick 1
Delay 10000
Else
Delay 500
Goto 判断是否跳出系统设置
EndIf
Rem 等待回到人物选择界面
VBSCall denglu_1=GetPixelColor(147-move_x,599-move_y)
VBSCall denglu_2=GetPixelColor(190-move_x,600-move_y)
If denglu_1=denglu_2 and denglu_1="FFFFFF"
If err_denglu=1
MoveTo 243-move_x,378-move_y
Delay 100
LeftClick 1
Delay 3000
KeyPress 13,1
ElseIf err_denglu=2
MoveTo 355-move_x,378-move_y
Delay 100
LeftClick 1
Delay 3000
KeyPress 13,1
ElseIf err_denglu=3
MoveTo 465-move_x,376-move_y
Delay 100
LeftClick 1
Delay 3000
KeyPress 13,1
ElseIf err_denglu=4
MoveTo 702-move_x,437-move_y
Delay 100
LeftClick 1
Delay 3000
KeyPress 13,1
EndIf
Delay 10000
Rem 判断是否进入游戏
VBSCall FindCenterColor(684-move_x,63-move_y,777-move_x,141-move_y,color,gwblue_x,gwblue_y)
If gwblue_x>0
t_return_err=timer
Goto 总起始
Else
Delay 1000
KeyPress 13,1
Goto 判断是否进入游戏
EndIf
Else
Delay 1000
Goto 等待回到人物选择界面
EndIf
Return 出错原登
Sub 记录log
//得到现在的时间
nowtime=now
//追加的方式写文本
//VBSCall MessageBox(todaytime&"~"&nowtime&"您打怪的数量为"&i)
VBS set file=CreateObject("Scripting.FileSystemObject")
VBS set mylog=file.createtextfile(url_game&"\凤舞精灵配置文件夹\log.txt")
VBS set mylog=file.opentextfile(url_game&"\凤舞精灵配置文件夹\log.txt",forappending)
VBS mylog.writeline(todaytime&"~"&nowtime&" 您打怪的数量为"&guai_dd)
VBS mylog.writeline("一共归位了"&return_num&"次")
VBS mylog.writeline("死亡时间为"&die_time)
VBS mylog.writeline("摆摊时间为"&die_time)
VBS mylog.Close
Return 记录log
Sub 死亡后回城摆摊
VBSCall sile_color_3=GetPixelColor(393-move_x,373-move_y)
VBSCall sile_color_4=GetPixelColor(388-move_x,253-move_y)
If sile_color_3=sile_color_4 and sile_color_3="FFFFFF"
//死亡时间
die_time=now
Gosub 记录log
Delay 3000
Rem 回到城市
MoveTo 393-move_x,373-move_y
Delay 300
LeftClick 1
Delay 15000
VBSCall cname=GetPixelColor(742-move_x,34-move_y)
If cname=color_lvse
Delay 1000
Rem 摆摊时打开包裹
KeyPress 66 1