Wtype = 3-Wtype Mystring = "选择[5]" If Wtype = 1 Mystring = Mystring & "[禁用]" ElseIf Wtype = 2 Mystring = Mystring & "[启用]" EndIf Mystring = Mystring & "[更换武器]..." Gosub 说话 Gosub 参数设置 ElseIf AnJian = 83 Mystring = "选择[S][保存设置]..." Gosub 说话 Gosub 保存脚本设置 Gosub 参数设置 ElseIf AnJian = 89 Mystring = "选择[Y][启动]..." Gosub 说话 Gosub 取得技能使用位置 Else Mystring = "只能在[1]-[5][Y][S]之间选择,请重新输入..." Gosub 说话 Gosub 参数设置 EndIf Return 参数设置 Sub 取得HP设置 Mystring = "│[HP 设置]" & vblf Mystring = Mystring & "├" & String(11,"─") & vblf Mystring = Mystring & "│<1>下限[" & HPlower & "%]" & vblf Mystring = Mystring & "│<2>延迟[" & HPdelay & "]秒" & vblf Mystring = Mystring & "├" & String(11,"─") & vblf Mystring = Mystring & "│<Y>启用 <N>禁用" Gosub 说话 Gosub 等待按键 If AnJian = 49 SayExpression "请输入HP下限(%): " Gosub 取得数字 If Numb >= 95 Mystring = "HP下限不要高于[95%]..." Gosub 说话 HPlower = 95 ElseIf Numb <= 14 Mystring = "HP下限不要低于[15%]..." Gosub 说话 HPlower = 15 Else HPlower =Numb EndIf Mystring = "HP低于[" & HPlower & "%]喝水..." Gosub 说话 Gosub 读取血量色点 Gosub 取得HP设置 ElseIf AnJian = 50 SayExpression "请输入喝水延迟(秒): " Gosub 取得数字 If Numb > 18 Mystring = "延迟时间不要超过[18]秒..." Gosub 说话 HPdelay = 18 Else HPdelay =Numb EndIf Mystring = "延迟[" & HPdelay & "]秒喝水..." Gosub 说话 Gosub 取得HP设置 ElseIf AnJian = 89 Mystring = "选择[Y][启用][HP设置]..." Gosub 说话 Htype=1 ElseIf AnJian = 78 Mystring = "选择[N][禁用][HP设置]..." Gosub 说话 Htype =2 Else Mystring = "只能在[1][2][Y][N]之间选择,请重新输入..." Gosub 说话 Gosub 取得HP设置 EndIf Return 取得HP设置 Sub 取得CP回复 Mystring = "│[CP 回复]" & vblf Mystring = Mystring & "├" & String(11,"─") & vblf Mystring = Mystring & "│<1>自然回复" If Ctype = 1 Mystring = Mystring & " @" EndIf Mystring = Mystring & vblf Mystring = Mystring & "│<2>技能回复" If Ctype = 2 Mystring = Mystring & " @" EndIf Mystring = Mystring & vblf Mystring = Mystring & "│<3>CP药剂" If Ctype = 3 Mystring = Mystring & " @" EndIf Gosub 说话 Gosub 等待按键 If AnJian = 49 Mystring = "选择[1][自然回复]..."