Разве это паскаль? Вот же: Var name:array[1..21] of char; Label quit; Begin ReadLn(name); IF name=BorissXxX then Begin WriteLn('Sup?'); GOTO quit; End; IF name=КтоСперНикКраб then Begin WriteLn('Tits or GTFO'); GOTO quit; End; WriteLn('I dont know you.'); QUIT: End. P.S. В коде 2 ошибки и я использовал б-гмерзкий goto.
А в мультиплеере тоже выбирать?Все же будут пользоваться зачарованиями,зельями и прочей туфтой.Поэтому и приходится делать тоже самое,иначе будешь слабее остальных.