EndIf 
//——————————写入游戏配置文件end——————
//生成文件夹
If file.folderExists(url_game&"\凤舞精灵配置文件夹")=0
    VBS Set fso = CreateObject("Scripting.FileSystemObject")
    VBS wenjianjia=fso.CreateFolder(url_game&"\凤舞精灵配置文件夹")
    VBSCall MessageBox("文件夹创建成功,路径为："&url_game&"\凤舞精灵配置文件夹"&"里面有挂机记录文件等内容，如果该文件夹不存在的话请自行在游戏目录下创建“凤舞精灵配置文件夹”。")
EndIf 
//VBSCall inputbox("移动量"&move_x&","&move_y&"  初始量"&pos_x&","&pos_y)
//————————各功能设定的大写转换————————
//捡物
pick=ucase(y_or_n_pick)
//技能攻击
skill=ucase(y_or_n_skill)
//召唤兽
zhs=ucase(y_or_n_zhs)
//自动归位
returen_0=ucase(y_or_n_return)
//包裹满了只捡钱
//prop=ucase(propfull)
//没SP转为物理攻击
wuligj=ucase(y_or_n_wg)
//使用快捷键技能
y_or_n_f4=ucase(use_f4)
y_or_n_f5=ucase(use_f5)
y_or_n_f6=ucase(use_f6)
y_or_n_f7=ucase(use_f7)
//死亡后的操作
die_gocity=ucase(die_city)
//————————各功能设定的大写转换end————————
//————————时间间隔赋初值————————————
//设置自动归位时间间隔
t_return=timer
//设置招宝宝时间间隔
t_f8=timer
//设置打怪修正时间
bar_time=timer
//判断道具栏的时间
prop_time=timer
//为辅助技能定时
t_f4=timer
t_f5=timer
t_f6=timer
t_f7=timer
//now_time=now
//提取小时
//time_len=instr(now_time,":"):time_len_1=instr(now_time," ")
//time_0=int(mid(now_time,time_len_1,time_len-time_len_1))
//VBSCall ss=InputBox("现在时间："&now_time&"   长度："&time_len&"   长度1:"&time_len_1&"   小时为："&time_0)
//————————时间间隔赋初值end————————————
//————————各类选择参数赋初值————————————
//给是否要召唤精灵赋值
i=0
//给自动拣物赋值
nn=0
//给判断包裹满了赋值
wp=0
//给屏幕移动时间赋值
delay_time=500
//给屏幕移动总时间赋值
delay_all_left=0
delay_all_right=0
delay_all_up=0
delay_all_down=0
delay_left=0
delay_right=0
delay_up=0
delay_down=0
//给自动归位时间修正赋值（万一自动归位出错了的修正时间）
Return_err_time=20
//给每次打怪第一次使用技能赋值
xhf5=0
//修正时间赋值（远程或近距离）
//If skill="Y"
//   ber_time=7
//Else
//    ber_time=10
// EndIf
//得到脚本运行时间
todaytime=now
//打怪的累加数赋值
guai_dd=0
//回归次数的累加数的赋值
return_num=0
//得到开始挂机的坐标（内存版）
//VBSCall ReadMemory(&h044F91B4,1,startguaji_x)
//VBSCall ReadMemory(&h044F91B8,1,startguaji_y)
//找雷达的蓝点
VBSCall FindColorEx(679-move_x,71-move_y,784-move_x,133-move_y,"FF0000",1,0.4,color_xx,color_yy)
If color_xx>0
    VBSCall color=GetPixelColor(color_xx,color_yy)
Else 
    VBSCall MessageBox("找不到所需要的颜色，请查看下亮度和对比度是否在50%的位置，请把人物位置调整至游戏屏幕中间再试")
EndIf 
c_left=left(color,2)
c_right=right(color,2)
c_mid=mid(color,3,2)
//VBSCall MessageBox(color_xx&","&color_yy&","&color)
//怪红色
color_all=c_right&c_mid&c_left