husky-hpt-1.9.20191207/protick/ptmsg.pas

616       DoStringLn('List of areas available to you:');
617       DoStringLn('');
623        If (Found > 0) then DoStringLn('Group '+Cfg^.Groups[Found].Name)
624        Else DoStringLn('Group <unknown>');
628           DoStringLn(CA^.Name+Copy(Leer, 1, 30-Length(CA^.Name))+CA^.Desc);
633             DoStringLn(CA^.Name+Copy(Leer, 1, 30-Length(CA^.Name))+CA^.Desc);
635        DoStringLn('');
675       DoStringLn('List of connected areas:');
676       DoStringLn('');
689          If (Found > 0) then DoStringLn('Group '+Cfg^.Groups[Found].Name)
690          Else DoStringLn('Group <unknown>');
692         DoStringLn(CA^.Name+Copy(Leer, 1, 30-Length(CA^.Name))+CA^.Desc);
704            If (Found > 0) then DoStringLn('Group '+Cfg^.Groups[Found].Name)
705            Else DoStringLn('Group <unknown>');
707           DoStringLn(CA^.Name+Copy(Leer, 1, 30-Length(CA^.Name))+CA^.Desc);
710        If WroteGroup then DoStringLn('');
750       DoStringLn('List of disconnected areas:');
751       DoStringLn('');
765           If (Found > 0) then DoStringLn('Group '+Cfg^.Groups[Found].Name)
766           Else DoStringLn('Group <unknown>');
768          DoStringLn(CA^.Name+Copy(Leer, 1, 30-Length(CA^.Name))+CA^.Desc);
782             If (Found > 0) then DoStringLn('Group '+Cfg^.Groups[Found].Name)
783             Else DoStringLn('Group <unknown>');
785            DoStringLn(CA^.Name+Copy(Leer, 1, 30-Length(CA^.Name))+CA^.Desc);
788        If WroteGroup then DoStringLn('');
795     NM2^.DoStringLn('You are not listed in the configuration. Did you use the right AKA?');
800     NM2^.DoStringLn('Wrong password:"'+Params+'"');
805     NM2^.DoStringLn('Unknown command: "'+Params+'"');
810     NM2^.DoStringLn('You are not allowed to disconnect areas.');
815     NM2^.DoStringLn('You are not allowed to connect areas.');
820     NM2^.DoStringLn('You are not allowed to rescan areas.');
825     NM2^.DoStringLn('Unknown area: "'+Params+'"');
830     NM2^.DoStringLn('Area "'+Params+'" already connected.');
835     NM2^.DoStringLn('Area "'+Params+'" not connected.');
840     NM2^.DoStringLn('You are not allowed to pause.');
845     NM2^.DoStringLn('You are not allowed to change compression.');
850     NM2^.DoStringLn('Unknown packer: "'+Params+'"');
855     NM2^.DoStringLn(Params+' not implemented yet.');
860     NM2^.DoStringLn(Params+' linked.');
865     NM2^.DoStringLn(Params+' unlinked.');
870     NM2^.DoStringLn('Paused.');
875     NM2^.DoStringLn('Resumed.');
880     NM2^.DoStringLn('PackFiles: '+Params);
885     NM2^.DoStringLn('PackTICs: '+Params);
890     NM2^.DoStringLn('Packer: '+Params);
895     NM2^.DoStringLn(Params+' may not be (un)linked remotely.');
900     NM2^.DoStringLn(Params+' is mandatory.');
905     NM2^.DoStringLn('Unknown response (#'+Params+'). Please report to SysOp!');
912       DoStringLn('available commands:');
913       DoStringLn('');
914       DoStringLn('%HELP           this help :)');
915       DoStringLn('%LIST           list of areas available to you');
916       DoStringLn('%QUERY          list of connected areas');
917       DoStringLn('%UNLINKED       list of disconnected areas');
918       DoStringLn('%PACK           \ on = pack all, off = pack none, files = pack files,');
919       DoStringLn('%COMPRESS       | tics = pack tics, Extension = set packer to use');
920       DoStringLn('%COMPRESSION    / examples: "%PACK ON", "%PACK ZIP"');
921       DoStringLn('%PAUSE          stop sending files (e.g. for holiday)');
922       DoStringLn('%RESUME         resume sending files (holiday over :) )');
923       DoStringLn('%QUIT           everything below (e.g. signature) is ignored');
924       DoStringLn('%NOTE           everything below is ignored, message will NOT be deleted');
925       DoStringLn('<Area>          connect area');
926       DoStringLn('+<Area>         connect area');
927       DoStringLn('-<Area>         disconnect area');
933     NM2^.DoStringLn(Params+': parameter needed');
1014     DoStringLn('');
1015     DoStringLn('--- ProTick'+Version);