1. //宝宝蓝色
  2. color_baby=c_left&c_left&c_right
  3. //大地图方向标记颜色
  4. color_fx=c_right&c_left&c_left
  5. //VBSCall MessageBox(color_fx)
  6. //有物品是的颜色
  7. color_gx=c_right&c_mid&c_right
  8. //绿色物品的颜色
  9. color_lvse=c_right&c_left&c_right
  10. //判断怪死了没的颜色
  11. 调用外部VBScript子程序 MessageBox("进入脚本引导程序：第一次运行脚本时请按脚本引导程序一步一步完成，运行脚本时,游戏窗口必须是前台窗口。请按回车继续。如果您已经运行过引导程序了请将参数里的“游戏配置信息操作”改为3，如果想还原配置信息请改为2")
  12. //取补SP需要的颜色
  13. 调用外部VBScript子程序 MessageBox("进入脚本引导程序：第一次运行脚本时请按脚本引导程序一步一步完成，运行脚本时,游戏窗口必须是前台窗口。请按回车继续。如果您已经运行过引导程序了请将参数里的“游戏配置信息操作”改为3，如果想还原配置信息请改为2")
  14. //VBSCall ss=InputBox(c_left&" "&c_right&" "&c_mid&"修改后"&color_all)
  15. s_m_b=1
  16. 如果表达式 (s_m_b=1) 为真,则
  17.     rh=200
  18. 否则如果(s_m_b=2)为真,则
  19.     rh=170
  20. 否则如果(s_m_b=3)为真,则
  21.     rh=120
  22. 否则
  23.     调用外部VBScript子程序 MessageBox("进入脚本引导程序：第一次运行脚本时请按脚本引导程序一步一步完成，运行脚本时,游戏窗口必须是前台窗口。请按回车继续。如果您已经运行过引导程序了请将参数里的“游戏配置信息操作”改为3，如果想还原配置信息请改为2")
  24. 脚本停止运行
  25. 条件结束
  26. //————————各类选择参数赋初值end————————————
  27. //*********************************
  28. //*************主程序**************
  29. //*********************************
  30. 标记 start
  31. 调用子程序 记录log
  32. 硬件模拟弹起<Left>
  33. 硬件模拟弹起<Right>
  34. 硬件模拟弹起<Up>
  35. 硬件模拟弹起<Down>
  36. 调用外部VBScript子程序 MessageBox("进入脚本引导程序：第一次运行脚本时请按脚本引导程序一步一步完成，运行脚本时,游戏窗口必须是前台窗口。请按回车继续。如果您已经运行过引导程序了请将参数里的“游戏配置信息操作”改为3，如果想还原配置信息请改为2")
  37. 调用外部VBScript子程序 MessageBox("进入脚本引导程序：第一次运行脚本时请按脚本引导程序一步一步完成，运行脚本时,游戏窗口必须是前台窗口。请按回车继续。如果您已经运行过引导程序了请将参数里的“游戏配置信息操作”改为3，如果想还原配置信息请改为2")
  38. 调用外部VBScript子程序 MessageBox("进入脚本引导程序：第一次运行脚本时请按脚本引导程序一步一步完成，运行脚本时,游戏窗口必须是前台窗口。请按回车继续。如果您已经运行过引导程序了请将参数里的“游戏配置信息操作”改为3，如果想还原配置信息请改为2")
  39. 如果表达式 (esc_1=esc_2 and esc_1=esc_3) 为真,则
  40.     硬件模拟按键<Esc>
  41.     延时2500毫秒
  42. 条件结束
  43. 延时10毫秒
  44. 调用外部VBScript子程序 MessageBox("进入脚本引导程序：第一次运行脚本时请按脚本引导程序一步一步完成，运行脚本时,游戏窗口必须是前台窗口。请按回车继续。如果您已经运行过引导程序了请将参数里的“游戏配置信息操作”改为3，如果想还原配置信息请改为2")
  45. 如果表达式 (hp_x>0 and hp_y>0) 为真,则
  46.     //*************自动归位选择**************
  47.     如果表达式 (returen_0="Y") 为真,则
  48.         调用子程序 自动归位
  49.     条件结束
  50. 条件结束
  51. //*************自动归位选择end**************
  52. //********判断是否自动捡物*********
  53. 如果表达式 (propfull=3) 为真,则
  54. 否则
  55.     调用子程序 打开包裹判断是否满了
  56. 条件结束
  57. //*************判断使用技能*****************
  58. //判断是否使用f6键技能
  59. 如果表达式 (y_or_n_f6 ="Y") 为真,则
  60.     调用子程序 使用f6键上的技能
  61. 条件结束
  62. //判断是否使用f7键技能
  63. 如果表达式 (y_or_n_f7 ="Y") 为真,则
  64.     调用子程序 使用f7键上的技能
  65. 条件结束
  66. //*************判断使用技能end*****************
  67. 调用子程序 找怪
  68. 否则
  69.     调用子程序 补HP
  70.     调用子程序 补SP
  71. 条件结束
  72. 跳转到标记 start
  73. 脚本停止运行
  74. //*************子程序**************
  75. 子程序 找怪
  76.     标记 找小地图的怪
  77.     //*******死亡后的处理选择*******
  78.     如果表达式 (die_gocity="Y") 为真,则
  79.         调用子程序 死亡后回城摆摊
  80.     否则如果(die_gocity="S")为真,则
  81.         调用子程序 死亡后关机
  82.     否则
  83.         die_time=now
  84.         调用子程序 记录log
  85.     条件结束
  86.     //*******死亡后的处理选择end*******
  87.     调用外部VBScript子程序 MessageBox("进入脚本引导程序：第一次运行脚本时请按脚本引导程序一步一步完成，运行脚本时,游戏窗口必须是前台窗口。请按回车继续。如果您已经运行过引导程序了请将参数里的“游戏配置信息操作”改为3，如果想还原配置信息请改为2")
  88.     如果表达式 (small_map_x>0 and small_map_y>0) 为真,则
  89.         //从小地图算出实际怪与中心点人物的距离
  90.         act_x=(small_map_x-(-move_x+730))*17.2
  91.         如果表达式 (small_map_y>101) 为真,则
  92.             act_y=(small_map_y-(-move_y+101))*16
  93.         否则
  94.             act_y=(small_map_y-(-move_y+101))*24
  95.         条件结束
  96.         //act_y=(small_map_y-(-move_y+101))*17.3
  97.         // VBSCall inputbox("小地图坐标"&small_map_x&","&small_map_y&"移动量"&move_x&","&move_y&" ACT值"&act_x&","&act_y)
  98.         //算出怪的实际坐标
  99.         guai_x=403-move_x+act_x
  100.         guai_y=319-move_y+act_y