eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Lots of NodeSpy terminal updates

This commit is contained in:
mysticbbs 2012-09-23 13:22:03 -04:00
parent 107d9ca722
commit 5c90d03dd2
4 changed files with 86 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mystic/nodespy_ansiterm.ans
View File

@ -7,5 +7,5 @@
°°²ÛÛÛÛ ²ÜÜÜܲ ÛÛÛÛÛ ±Ü ßßßßÛÛÛÛ²ÛÛÛÛÛÛÛÛÛÛ²± ßÛÛÛÛÜÜÛÛÛÛÛ±°°°°°ßÛÛÛÛÜÜÜÜÜ ÜÜÛ
ÜÜþ ßß² ± °°²ÜÜÜÜÜÜܲßßßßß ²ÛÛÛ ²²²ÛÛÛ²ßßßß ÞÜÜ ßßßßßßßß ßßßßß ßßßßßßß Ý°°
°Ý°°þ Þßßßßßßßßßßßßß ß Node Spy ßÜ
ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ ﾜﾜﾜﾜﾜﾜﾜﾜﾜｲ System Name ｲｳｲ Address ｲｳｲ LastCall ｲｳｲ Calls ｲﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟｳﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟｳﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟｳﾟﾟﾟﾟﾟﾟﾟﾟﾛﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞｲﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜｲｰ Default NodeSpy PhoneBook ｰ ﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟ
ENTER: Call ALT+E: Edit ALT+S: Sort DELETE: Clear ESCAPE: Quit
ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ ﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜ ﾜﾜﾜﾜﾜﾜﾜﾜﾜｲ System Name ｲｳｲ Address ｲｳｲ LastCall ｲｳｲ Calls ｲﾛﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟｳﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟｳﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟｳﾟﾟﾟﾟﾟﾟﾟﾟﾛﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞﾝﾞｲﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜﾜｲｰ NodeSpy Telnet Directory ｰ ﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟﾟ
ENTER: Call ALT+E: Edit INSERT: Add DELETE: Clear ESCAPE: Quit

36
mystic/nodespy_ansiterm.pas
View File

@ -2,8 +2,8 @@ Procedure DrawTerminalAnsi;
Const
IMAGEDATA_WIDTH=80;
IMAGEDATA_DEPTH=25;
IMAGEDATA_LENGTH=1115;
IMAGEDATA : array [1..1115] of Char = (
IMAGEDATA_LENGTH=1112;
IMAGEDATA : array [1..1112] of Char = (
#1,#16,'Ü','Ü',#25,#10, #8,'Ü','Ü',#25, #3, #7,'°', #0,#23,'²',#16,
#25,#23, #9,#26, #4,'Ü',#25, #9,#14,'±','Û','±', #7,'°', #0,#23,'²',
#16,#25, #8, #7,'°', #0,#23,'²', #8,#16,'g','j','!',#24,' ', #9,#17,
@ -54,22 +54,22 @@ Const
#24, #7,'Ü',#15,#26,#25,'Ü', #7,'Ü',' ','Ü',#15,#26,#25,'Ü', #7,'Ü',
' ','Ü',#15,#26, #9,'Ü', #7,'Ü',' ','Ü',#15,#26, #6,'Ü', #7,'Ü',#24,
#8,#23,'²',' ', #0,'S','y','s','t','e','m',' ','N','a','m','e',#25,
#13, #7,#16,'²',#15,'³', #8,#23,'²',' ', #0,'A','d','d','r','e','s',
's',#25,#17, #7,#16,'²',#15,'³', #8,#23,'²',' ', #0,'L','a','s','t',
'C','a','l','l',' ', #8,#16,'²',#15,'³', #8,#23,'²',' ', #0,'C','a',
'l','l','s',' ', #8,'²',#24,#16,'Û',#26,#26,'ß', #9,'³', #8,#26,#27,
'ß', #9,'³', #8,#26,#11,'ß', #9,'³', #8,#26, #7,'ß','Û',#24,'Ý',#25,
'M','Þ',#24,'Ý',#25,'M','Þ',#24, #7,'Ý',#25,'M','Þ',#24,'Ý',#25,'M',
'Þ',#24,'Ý',#25,'M','Þ',#24,#15,'Ý',#25,'M','Þ',#24, #7,'Ý',#25,'M',
'Þ',#24,#15,'Ý',#25,'M','Þ',#24,'Ý',#25,'M','Þ',#24,'²',#26,'M','Ü',
'²',#24, #7,'°',#23,#25,#26, #0,'D','e','f','a','u','l','t',' ','N',
'o','d','e','S','p','y',' ','P','h','o','n','e','B','o','o','k',#25,
#25, #7,#16,'°',#24,' ', #8,#26,'M','ß',#24,#25, #2,#15,'E','N','T',
'E','R', #8,':',' ', #7,'C','a','l','l',#25, #3,#15,'A','L','T','+',
'E', #8,':',' ', #7,'E','d','i','t',#25, #3,#15,'A','L','T','+','S',
#8,':',' ', #7,'S','o','r','t',#25, #3,#15,'D','E','L','E','T','E',
#8,':',' ', #7,'C','l','e','a','r',#25, #3,#15,'E','S','C','A','P',
'E', #8,':',' ', #7,'Q','u','i','t',#24);
#13, #7,#16,'²','³', #8,#23,'²',' ', #0,'A','d','d','r','e','s','s',
#25,#17, #7,#16,'²','³', #8,#23,'²',' ', #0,'L','a','s','t','C','a',
'l','l',' ', #8,#16,'²', #7,'³', #8,#23,'²',' ', #0,'C','a','l','l',
's',' ', #8,'²',#24,#16,'Û',#26,#26,'ß', #1,'³', #8,#26,#27,'ß', #1,
'³', #8,#26,#11,'ß', #1,'³', #8,#26, #7,'ß','Û',#24,'Ý',#25,'M','Þ',
#24,'Ý',#25,'M','Þ',#24, #7,'Ý',#25,'M','Þ',#24,'Ý',#25,'M','Þ',#24,
'Ý',#25,'M','Þ',#24,#15,'Ý',#25,'M','Þ',#24, #7,'Ý',#25,'M','Þ',#24,
#15,'Ý',#25,'M','Þ',#24,'Ý',#25,'M','Þ',#24,'²',#26,'M','Ü','²',#24,
#7,'°',#23,#25,#27, #0,'N','o','d','e','S','p','y',' ','T','e','l',
'n','e','t',' ','D','i','r','e','c','t','o','r','y',#25,#25, #7,#16,
'°',#24,' ', #8,#26,'M','ß',#24,#25, #2,#15,'E','N','T','E','R', #8,
':',' ', #7,'C','a','l','l',#25, #3,#15,'A','L','T','+','E', #8,':',
' ', #7,'E','d','i','t',#25, #3,#15,'I','N','S','E','R','T', #8,':',
' ', #7,'A','d','d',#25, #3,#15,'D','E','L','E','T','E', #8,':',' ',
#7,'C','l','e','a','r',#25, #3,#15,'E','S','C','A','P','E', #8,':',
' ', #7,'Q','u','i','t',#24);
Begin
Screen.LoadScreenImage(ImageData, ImageData_Length, ImageData_Width, 1, 1);
End;

3
mystic/nodespy_common.pas
View File

@ -105,7 +105,8 @@ Begin
Until False;
End;
MsgBox.Close;
If BoxType <> 2 Then MsgBox.Close;
MsgBox.Free;
Screen.CursorXY (SavedX, SavedY);

85
mystic/nodespy_term.pas
View File

@ -62,17 +62,21 @@ Begin
GetAddressPort := 23;
End;
Function GetNewRecord : PhoneRec;
Begin
FillChar (Result, SizeOf(PhoneRec), 0);
Result.StatusBar := True;
Result.LastCall := '00/00/00';
Result.Calls := '0';
End;
Procedure InitializeBook (Var Book: PhoneBookRec);
Var
Count : SmallInt;
Begin
FillChar (Book, SizeOf(Book), 0);
For Count := 1 to 100 Do Begin
Book[Count].StatusBar := True;
Book[Count].LastCall := '00/00/00';
Book[Count].Calls := '0';
End;
For Count := 1 to 100 Do
Book[Count] := GetNewRecord;
Book[1].Name := 'Local Login';
Book[1].Address := 'localhost:' + strI2S(Config.INetTNPort);
@ -84,7 +88,7 @@ Var
Buffer : Array[1..4096] of Char;
Count : SmallInt;
Begin
ShowMsgBox (2, 'Saving phonebook');
//ShowMsgBox (2, 'Saving phonebook');
Assign (OutFile, 'nodespy.phn');
SetTextBuf (OutFile, Buffer);
@ -156,7 +160,7 @@ Begin
If Dial.StatusBar Then Begin
Screen.SetWindow (1, 1, 80, 24, True);
Screen.WriteXY (1, 25, Config.StatusColor3, strPadC('ALT-X/Quit', 80, ' '));
Screen.WriteXY (1, 25, Config.StatusColor3, strPadC('ALT/L-Send Login Info ALT-X/Quit', 80, ' '));
End;
Term.SetReplyClient(TIOBase(Client));
@ -253,8 +257,11 @@ End;
Function GetTerminalEntry (Var Book: PhoneBookRec; Var Dial: PhoneRec) : Boolean;
Var
Count : SmallInt;
List : TMenuList;
Count : SmallInt;
Count2 : SmallInt;
List : TMenuList;
Found : Boolean;
Picked : SmallInt;
Begin
Result := False;
@ -271,15 +278,21 @@ Begin
DrawTerminalAnsi;
Repeat
List := TMenuList.Create(Screen);
Picked := 1;
List.NoWindow := True;
List.AllowTag := False;
List.LoAttr := 7;
List.HiAttr := 9 + 1 * 16;
List.LoChars := #13#27;
List.HiChars := #18;
List := TMenuList.Create(Screen);
List.NoWindow := True;
List.AllowTag := False;
List.LoAttr := 7;
List.HiAttr := 9 + 1 * 16;
List.LoChars := #13#27;
List.HiChars := #18#82#83;
Repeat
List.Clear;
List.Picked := Picked;
For Count := 1 to 100 Do
List.Add(strPadR(Book[Count].Name, 26, ' ') + ' ' +
@ -290,6 +303,8 @@ Begin
List.Open(1, 12, 80, 22);
Picked := List.Picked;
Case List.ExitCode of
#13 : If Book[List.Picked].Address = '' Then
ShowMsgBox(0, 'Address is empty')
@ -308,10 +323,38 @@ Begin
End;
#18 : EditEntry(Book, List.Picked);
#27 : Break;
End;
#82 : Begin
Found := False;
List.Free;
For Count := List.Picked to 100 Do
If (Book[Count].Name = '') and (Book[Count].Address = '') and (Book[Count].Calls = '0') Then Begin
Found := True;
Break;
End;
If Not Found Then
ShowMsgBox (0, 'No blank entries available')
Else Begin
For Count2 := Count DownTo List.Picked + 1 Do
Book[Count2] := Book[Count2 - 1];
Book[List.Picked] := GetNewRecord;
WriteBook(Book);
End;
End;
#83 : If ShowMsgBox(1, 'Delete this record?') Then Begin
For Count := List.Picked to 100 - 1 Do
Book[Count] := Book[Count + 1];
Book[100] := GetNewRecord;
WriteBook(Book);
End;
End;
Until False;
List.Free;
End;
Procedure Terminal;