1.         调用子程序 说话
  2.         Ctype = 1
  3.     否则如果(AnJian = 50)为真,则
  4.         Mystring = "选择[2][技能回复]..."
  5.         调用子程序 说话
  6.         Ctype = 2
  7.     否则如果(AnJian = 51)为真,则
  8.         Mystring = "选择[3][CP药剂]..."
  9.         调用子程序 说话
  10.         Ctype = 3
  11.     否则
  12.         Mystring = "只能在[1]-[3]之间选择,请重新输入..."
  13.         调用子程序 说话
  14.         调用子程序 取得CP回复
  15.     条件结束
  16. 子程序结束,回到调用处
  17. 子程序 取得补体方式
  18.     Mystring="│[补体方式]" & vblf
  19.     Mystring= Mystring & "├" & String(7,"─") &vblf
  20.     Mystring= Mystring & "│<1>JS群体"
  21.     如果表达式 (Ttype = 1) 为真,则
  22.         Mystring= Mystring & " @"
  23.     条件结束
  24.     Mystring= Mystring & vblf
  25.     Mystring= Mystring & "│<2>食物"
  26.     如果表达式 (Ttype = 2) 为真,则
  27.         Mystring= Mystring & " @"
  28.     条件结束
  29.     调用子程序 说话
  30.     调用子程序 等待按键
  31.     如果表达式 (AnJian >= 49 and AnJian <= 50) 为真,则
  32.         Ttype = CInt(Chr(AnJian))
  33.         Mystring = "[补体方式]选择[" & Ttype & "]["
  34.         如果表达式 (Ttype = 1) 为真,则
  35.             Mystring = Mystring & "JS群体"
  36.         否则如果(Ttype = 2)为真,则
  37.             Mystring = Mystring & "食物"
  38.         条件结束
  39.         Mystring = Mystring & "]..."
  40.         调用子程序 说话
  41.     否则
  42.         Mystring="只能在[1][2]之间选择,请重新输入..."
  43.         调用子程序 说话
  44.         调用子程序 取得补体方式
  45.     条件结束
  46. 子程序结束,回到调用处
  47. 子程序 补充体力
  48.     如果表达式 (Dtime = 0) 为真,则
  49.         如果 (80,534) 的颜色不等于 #c7ef 则
  50.             如果表达式 (Ttype=1) 为真,则
  51.                 按键<Enter>
  52.                 Mystring = "快没体力了,给我加点吧..."
  53.                 调用子程序 说话
  54.                 按键<Esc>
  55.             否则如果(Ttype=2)为真,则
  56.                 按住<2>
  57.                 延时400毫秒
  58.                 弹起<2>
  59.                 延时100毫秒
  60.             条件结束
  61.         条件结束
  62.     条件结束
  63. 子程序结束,回到调用处
  64. 子程序 更换武器
  65.     如果表达式 (Wtype = 2 and Datediff("s",Wtime,now) >= 10) 为真,则
  66.         按住<F9>
  67.         延时200毫秒
  68.         弹起<F9>
  69.         Wtime= now
  70.     条件结束
  71. 子程序结束,回到调用处
  72. 子程序 保存脚本设置
  73.     set fso=CreateObject("Scripting.FileSystemObject")
  74.     如果表达式 (Not fso.FolderExists(ScriptFolder & SettingFolder)) 为真,则
  75.         fso.CreateFolder(ScriptFolder & SettingFolder)
  76.     条件结束
  77.     set myfile=fso.OpenTextFile(ScriptFolder & SettingFolder & SettingFile,2,True)
  78.     myfile.writeline "Htype=" & Htype
  79.     myfile.writeline "Ctype=" & Ctype
  80.     myfile.writeline "Ttype=" & Ttype
  81.     myfile.writeline "Wtype=" & Wtype
  82.     myfile.writeline "HPdelay=" & HPdelay
  83.     myfile.writeline "HPlower=" & HPlower
  84.     myfile.writeline "HPlowerColor=""" & HPlowerColor & """"
  85.     myfile.writeline "CallForHelp=" & CallForHelp
  86.     myfile.close
  87.     set fso = nothing
  88.     Mystring = "设置保存完毕..."
  89.     调用子程序 说话
  90. 子程序结束,回到调用处
  91. 子程序 加载脚本设置
  92.     set fso=CreateObject("Scripting.FileSystemObject")
  93.     如果表达式 (Not fso.FolderExists(ScriptFolder & SettingFolder)) 为真,则
  94.         fso.CreateFolder(ScriptFolder & SettingFolder)
  95.     条件结束
  96.     set myfile=fso.OpenTextFile(ScriptFolder & SettingFolder & SettingFile,1,True)
  97.     如果表达式 (myfile.atendofstream <>True) 为真,则循环执行
  98.         linestring= Trim(myfile.readline)
  99.         如果表达式 (linestring <> "" and linestring <> vbCr and linestring <> "#") 为真,则
  100.             Execute linestring