1. 条件结束
  2. //——————————写入游戏配置文件end——————
  3. //生成文件夹
  4. 如果表达式 (file.folderExists(url_game&"\凤舞精灵配置文件夹")=0) 为真,则
  5.     （VBScript语句） Set fso = CreateObject("Scripting.FileSystemObject")
  6.     （VBScript语句） wenjianjia=fso.CreateFolder(url_game&"\凤舞精灵配置文件夹")
  7.     调用外部VBScript子程序 MessageBox("进入脚本引导程序：第一次运行脚本时请按脚本引导程序一步一步完成，运行脚本时,游戏窗口必须是前台窗口。请按回车继续。如果您已经运行过引导程序了请将参数里的“游戏配置信息操作”改为3，如果想还原配置信息请改为2")
  8. 条件结束
  9. //VBSCall inputbox("移动量"&move_x&","&move_y&" 初始量"&pos_x&","&pos_y)
  10. //————————各功能设定的大写转换————————
  11. //捡物
  12. pick=ucase(y_or_n_pick)
  13. //技能攻击
  14. skill=ucase(y_or_n_skill)
  15. //召唤兽
  16. zhs=ucase(y_or_n_zhs)
  17. //自动归位
  18. returen_0=ucase(y_or_n_return)
  19. //包裹满了只捡钱
  20. //prop=ucase(propfull)
  21. //没SP转为物理攻击
  22. wuligj=ucase(y_or_n_wg)
  23. //使用快捷键技能
  24. y_or_n_f4=ucase(use_f4)
  25. y_or_n_f5=ucase(use_f5)
  26. y_or_n_f6=ucase(use_f6)
  27. y_or_n_f7=ucase(use_f7)
  28. //死亡后的操作
  29. die_gocity=ucase(die_city)
  30. //————————各功能设定的大写转换end————————
  31. //————————时间间隔赋初值————————————
  32. //设置自动归位时间间隔
  33. t_return=timer
  34. //设置招宝宝时间间隔
  35. t_f8=timer
  36. //设置打怪修正时间
  37. bar_time=timer
  38. //判断道具栏的时间
  39. prop_time=timer
  40. //为辅助技能定时
  41. t_f4=timer
  42. t_f5=timer
  43. t_f6=timer
  44. t_f7=timer
  45. //now_time=now
  46. //提取小时
  47. //time_len=instr(now_time,":"):time_len_1=instr(now_time," ")
  48. //time_0=int(mid(now_time,time_len_1,time_len-time_len_1))
  49. //VBSCall ss=InputBox("现在时间："&now_time&" 长度："&time_len&" 长度1:"&time_len_1&" 小时为："&time_0)
  50. //————————时间间隔赋初值end————————————
  51. //————————各类选择参数赋初值————————————
  52. //给是否要召唤精灵赋值
  53. i=0
  54. //给自动拣物赋值
  55. nn=0
  56. //给判断包裹满了赋值
  57. wp=0
  58. //给屏幕移动时间赋值
  59. delay_time=500
  60. //给屏幕移动总时间赋值
  61. delay_all_left=0
  62. delay_all_right=0
  63. delay_all_up=0
  64. delay_all_down=0
  65. delay_left=0
  66. delay_right=0
  67. delay_up=0
  68. delay_down=0
  69. //给自动归位时间修正赋值（万一自动归位出错了的修正时间）
  70. Return_err_time=20
  71. //给每次打怪第一次使用技能赋值
  72. xhf5=0
  73. //修正时间赋值（远程或近距离）
  74. //If skill="Y"
  75. // ber_time=7
  76. //Else
  77. // ber_time=10
  78. // EndIf
  79. //得到脚本运行时间
  80. todaytime=now
  81. //打怪的累加数赋值
  82. guai_dd=0
  83. //回归次数的累加数的赋值
  84. return_num=0
  85. //得到开始挂机的坐标（内存版）
  86. //VBSCall ReadMemory(&h044F91B4,1,startguaji_x)
  87. //VBSCall ReadMemory(&h044F91B8,1,startguaji_y)
  88. //找雷达的蓝点
  89. 调用外部VBScript子程序 MessageBox("进入脚本引导程序：第一次运行脚本时请按脚本引导程序一步一步完成，运行脚本时,游戏窗口必须是前台窗口。请按回车继续。如果您已经运行过引导程序了请将参数里的“游戏配置信息操作”改为3，如果想还原配置信息请改为2")
  90. 如果表达式 (color_xx>0) 为真,则
  91.     调用外部VBScript子程序 MessageBox("进入脚本引导程序：第一次运行脚本时请按脚本引导程序一步一步完成，运行脚本时,游戏窗口必须是前台窗口。请按回车继续。如果您已经运行过引导程序了请将参数里的“游戏配置信息操作”改为3，如果想还原配置信息请改为2")
  92. 否则
  93.     调用外部VBScript子程序 MessageBox("进入脚本引导程序：第一次运行脚本时请按脚本引导程序一步一步完成，运行脚本时,游戏窗口必须是前台窗口。请按回车继续。如果您已经运行过引导程序了请将参数里的“游戏配置信息操作”改为3，如果想还原配置信息请改为2")
  94. 条件结束
  95. c_left=left(color,2)
  96. c_right=right(color,2)
  97. c_mid=mid(color,3,2)
  98. //VBSCall MessageBox(color_xx&","&color_yy&","&color)
  99. //怪红色
  100. color_all=c_right&c_mid&c_left