From 5c90d03dd290b04230aa85f2787d08264e5ff9b7 Mon Sep 17 00:00:00 2001 From: mysticbbs Date: Sun, 23 Sep 2012 13:22:03 -0400 Subject: [PATCH] Lots of NodeSpy terminal updates --- mystic/nodespy_ansiterm.ans | 4 +- mystic/nodespy_ansiterm.pas | 36 ++++++++-------- mystic/nodespy_common.pas | 3 +- mystic/nodespy_term.pas | 85 ++++++++++++++++++++++++++++--------- 4 files changed, 86 insertions(+), 42 deletions(-) diff --git a/mystic/nodespy_ansiterm.ans b/mystic/nodespy_ansiterm.ans index ba0cb99..8373f60 100644 --- a/mystic/nodespy_ansiterm.ans +++ b/mystic/nodespy_ansiterm.ans @@ -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 \ No newline at end of file +ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜÜÜÜÜܲ System Name ²³² Address ²³² LastCall ²³² Calls ²Ûßßßßßßßßßßßßßßßßßßßßßßßßßßß³ßßßßßßßßßßßßßßßßßßßßßßßßßßßß³ßßßßßßßßßßßß³ßßßßßßßßÛÝÞÝÞÝÞÝÞÝÞÝÞÝÞÝÞÝÞ²ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜܲ° NodeSpy Telnet Directory ° ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß + ENTER: Call ALT+E: Edit INSERT: Add DELETE: Clear ESCAPE: Quit \ No newline at end of file diff --git a/mystic/nodespy_ansiterm.pas b/mystic/nodespy_ansiterm.pas index 151b38d..fa3122c 100644 --- a/mystic/nodespy_ansiterm.pas +++ b/mystic/nodespy_ansiterm.pas @@ -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; diff --git a/mystic/nodespy_common.pas b/mystic/nodespy_common.pas index ed82d3d..257e571 100644 --- a/mystic/nodespy_common.pas +++ b/mystic/nodespy_common.pas @@ -105,7 +105,8 @@ Begin Until False; End; - MsgBox.Close; + If BoxType <> 2 Then MsgBox.Close; + MsgBox.Free; Screen.CursorXY (SavedX, SavedY); diff --git a/mystic/nodespy_term.pas b/mystic/nodespy_term.pas index aad508d..1fa86a4 100644 --- a/mystic/nodespy_term.pas +++ b/mystic/nodespy_term.pas @@ -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;