﻿^retrymacro O 0 0 A^^if ( $ntry < 3 ) 0kc{ $ntry += 1 [ Ответ не распознан, повторите ввод ] [ Ответ не распознан, повторите ввод еще раз ] [ Ответ не принят, повторите ] [ Неверный формат, повторите ] [ Некорректный ввод, повторите ] [ Ошибка ввода, повторите ] [ Ошибочный ввод, повторите ] [ Возможна ошибка во вводе, повторите ] [ Ответ не распознан , попытайтесь еще ] [ Ответ не принят, попытайтесь еще раз ] [ Неверный формат, попытайтесь еще раз ] [ Некорректный ввод, попытайтесь еще раз ] [ Ошибка ввода, попытайтесь еще раз ] [ Ошибочный ввод, попытайтесь еще раз ] [ Возможна ошибка во вводе, попытайтесь еще раз ] [ Ответ не распознан, ввод надо повторить ] [ Ответ не распознан,ввод надо повторить еще раз ] [ Ответ не принят, ввод надо повторить ] [ Неверный формат, ввод надо повторить ] [ Некорректный ввод, ввод надо повторить ] [ Ошибка ввода, ввод надо повторить ] ^setrejoinder ( copy %inputrejoinder ) } 00% else ( 1 ) 00P { $ntry = 0 $answerlift = 0 ^gambit ( ~ ) } 004 
^retrymacrolifter O 0 0 A^^if ( $ntry < 3 ) 03f{ $ntry += 1 [ Попытайтесь еще раз отгадать ] [ Занятная догадка, попробуйте еще ] [ Неверно, давайте, подумайте! ] ^setrejoinder ( copy %inputrejoinder ) } 01r else ( 1 ) 01b { $ntry = 0 Ну, батенька, да это же лифт! ^gambit ( ~ ) } 004 
^addmark O 0 0 A$markv += 1 
^addmarke O 0 0 A$markve += 1 
^addmarks O 0 0 A$markvs += 1 
^addmarkn O 0 0 A$markvn += 1 
^correctmsg O 0 0 A[ Верно. ] [ Так и есть. ] [ Вы правы. ] [ Очень хорошо. ] [ Прекрасно. ] [ Замечательно. ] [ Вы ответили верно. ] [ Правильный ответ. ] [ Все верно. ] [ С вопросом вы справились. ] [ Верно, получилось. ] [ Так и есть, верно. ] [ Вы правы, хорошо. ] [ Очень хорошо, правильный ответ. ] [ Прекрасно, вы ответили верно. ] [ Замечательно, все верно. ] [ Вы ответили верно, прекрасно. ] [ Правильный ответ, молодец. ] [ Все верно, молодец. ] [ С вопросом вы справились, поздравляю. ] 
^incorrectmsg O 0 0 A[ Неверно. ] [ К сожалению, не так. ] [ Вы не правы. ] [ Неверный ответ. ] [ Вы ошиблись. ] [ К сожалению, вы допустили ошибку. ] [ Вы ответили неверно. ] [ Некорректный ответ. ] [ Ответ неверный. ] [ Вопрос не отвечен. ] [ Неверно, вы ошиблись. ] [ К сожалению, не так, ошибка. ] [ Вы не правы, ошибка. ] [ Неверный ответ, вы ошиблись. ] [ Вы ошиблись, ответ не подходит. ] [ К сожалению, вы допустили ошибку, ответ не подходит. ] [ Вы ответили неверно, ответ не подходит. ] [ Некорректный ответ, не подходит. ] [ Ответ неверный, не подходит. ] [ Вопрос не отвечен, ответ неверный. ] 
^oneok P 0 1 B( =9%length==1 ^0 ) 
^isplustobot P 0 0 A!~нет [ ~рассказать ~больше ~да ~похвала ~удивление ~вопрос ] 
^howreach P 0 1 B[ ( где * ^0 ) ( ^0 * где ) ( * [ ~вопрос можно ] * ~достичь * ^0 ) ] 
^specialresults O 0 0 A^^if ( $markvs >= 0 and $markvs < 4 ) 01T{ у нас с тобой, как бы получше выразиться, разные взгляды на жизнь. } 05# else ( $markvs >= 4 and $markvs < 6 ) 01l{ ты славный малый, вроде нормально так отвечал. } 046 else ( $markvs >= 6 ) 03T{ ты вообще крут! Мыслишь прям как я! Я смотрю ты вертишься вокруг мостика, я пока отключу лазер, вдруг захочешь пойти к капитану потрендеть. СПЕЦКОД03 } 004 
^capitan O 0 0 A$cs_token = 4096 | 255 | 512 | 131072 | 1024 | 24576 ^addtopic ( ~introcapitan ) $cs_control_main = ~control $userprompt = ^"%user: >" $botprompt = ^"CAPITAN: " $markvn = 0 $askfam = false 
^engeneer O 0 0 A$cs_token = 4096 | 255 | 512 | 131072 | 1024 | 24576 ^addtopic ( ~introengeneer ) $cs_control_main = ~control $userprompt = ^"%user: >" $botprompt = ^"ENGENEER: " $markve = 0 $waseateng = false $endstoryeng = false 
^lifter O 0 0 A$cs_token = 4096 | 255 | 512 | 131072 | 1024 | 24576 ^addtopic ( ~introlifter ) $cs_control_main = ~control $userprompt = ^"%user: >" $botprompt = ^"LIFTER: " $ntry = 0 $answerlift = 1 $markv = 0 $markve = 0 $askhouse = 0 $viewtable = false 
^special O 0 0 A$cs_token = 4096 | 255 | 512 | 131072 | 1024 | 24576 ^addtopic ( ~introspecial ) $cs_control_main = ~control $userprompt = ^"%user: >" $botprompt = ^"SPECIAL: " $markvs = 0 $waseat = false $endtest = false 
