1.     如果表达式 (Numb = "") 为真,则
  2.         Numb = 0
  3.     否则
  4.         Numb = CLng(Numb)
  5.     条件结束
  6. 子程序结束,回到调用处
  7. 子程序 取消国战
  8.     按键<Esc>
  9.     延时50毫秒
  10.     如果 (758,430) 的颜色等于 #0 则
  11.         鼠标移到 400 , 400
  12.         延时200毫秒
  13.         左键单击
  14.         延时300毫秒
  15.     条件结束
  16. 子程序结束,回到调用处
  17. 子程序 等待按键
  18.     等待按任意键，保存到变量AnJian中
  19.     按键<Enter>
  20.     延时50毫秒
  21. 子程序结束,回到调用处
  22. 子程序 说话
  23.     SayExpression Mystring
  24.     延时50毫秒
  25.     按键<Enter>
  26.     延时50毫秒
  27. 子程序结束,回到调用处
  28. 子程序 攻击
  29.     循环 15 遍
  30.         左键单击
  31.         延时20毫秒
  32.     循环结束
  33. 子程序结束,回到调用处
  34. 子程序 参数设置
  35.     Mystring = "│[参数设置]" & vblf
  36.     Mystring = Mystring & "├" & String(11,"─") & vblf
  37.     Mystring = Mystring & "│<1>HP设置" & String(6," ") & "..["
  38.     如果表达式 (Htype =1) 为真,则
  39.         Mystring = Mystring & "启用"
  40.     否则如果(Htype =2)为真,则
  41.         Mystring = Mystring & "禁用"
  42.     条件结束
  43.     Mystring = Mystring & "]" & vblf & "│<2>CP回复"
  44.     如果表达式 (Ctype =1) 为真,则
  45.         Mystring = Mystring & " ..[自然回复]"
  46.     否则如果(Ctype =2)为真,则
  47.         Mystring = Mystring & " ..[技能回复]"
  48.     否则如果(Ctype =3)为真,则
  49.         Mystring = Mystring & " ..[CP药剂]"
  50.     条件结束
  51.     Mystring = Mystring & vblf & "│<3>补体方式"
  52.     如果表达式 (Ttype =1) 为真,则
  53.         Mystring = Mystring & " ..[JS群体]"
  54.     否则如果(Ttype =2)为真,则
  55.         Mystring = Mystring & " ..[食物]"
  56.     条件结束
  57.     Mystring = Mystring & vblf & "│<4>死后呼救" & String(4," ") & "..["
  58.     如果表达式 (CallForHelp =1) 为真,则
  59.         Mystring = Mystring & "启用"
  60.     否则如果(CallForHelp =2)为真,则
  61.         Mystring = Mystring & "禁用"
  62.     条件结束
  63.     Mystring = Mystring & "]" & vblf & "│<5>更换武器" & String(4," ") & "..["
  64.     如果表达式 (Wtype =1) 为真,则
  65.         Mystring = Mystring & "禁用"
  66.     否则如果(Wtype =2)为真,则
  67.         Mystring = Mystring & "启用"
  68.     条件结束
  69.     Mystring = Mystring & "]" & vblf
  70.     Mystring = Mystring & "├" & String(11,"─") & vblf
  71.     Mystring = Mystring & "│<Y>启动 <S>保存设置"
  72.     调用子程序 说话
  73.     调用子程序 等待按键
  74.     如果表达式 (AnJian = 49) 为真,则
  75.         Mystring = "选择[1][HP设置]..."
  76.         调用子程序 说话
  77.         调用子程序 取得HP设置
  78.         调用子程序 参数设置
  79.     否则如果(AnJian = 50)为真,则
  80.         Mystring = "选择[2][CP回复]..."
  81.         调用子程序 说话
  82.         调用子程序 取得CP回复
  83.         调用子程序 参数设置
  84.     否则如果(AnJian = 51)为真,则
  85.         Mystring = "选择[3][补体方式]..."
  86.         调用子程序 说话
  87.         调用子程序 取得补体方式
  88.         调用子程序 参数设置
  89.     否则如果(AnJian = 52)为真,则
  90.         CallForHelp = 3-CallForHelp
  91.         Mystring = "选择[4]"
  92.         如果表达式 (CallForHelp = 1) 为真,则
  93.             Mystring = Mystring & "[启用]"
  94.         否则如果(CallForHelp = 2)为真,则
  95.             Mystring = Mystring & "[禁用]"
  96.         条件结束
  97.         Mystring = Mystring & "[死后呼救]..."
  98.         调用子程序 说话
  99.         调用子程序 参数设置
  100.     否则如果(AnJian = 53)为真,则