2.02.51

Author: scandum

SCRIPTS

@@ -7,14 +7,17 @@
 #nop static (16) flag to <168>.
 #nop -------------------------------------------------------------------------
 
-#loop 1 1000 vnum
+#alias {color_static}
 {
-	#map at $vnum
+	#loop 1 1000 vnum
 	{
-		#map get roomflags result;
-		#if {$result & 16}
+		#map at $vnum
 		{
-			#map set roomcolor <168>
+			#map get roomflags result;
+			#if {$result & 16}
+			{
+				#map set roomcolor <168>
+			}
 		}
 	}
 }
@@ -152,7 +155,7 @@
 }
 {60}
 
-#alias {ticklist}
+#alias {tickers}
 {
 	#info tickers save;
 
@@ -242,33 +245,35 @@
 #nop Show xterm 256 colors.
 #nop -------------------------------------------------------------------------
 
-#var temp {}
-
-#foreach {0;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15} {var1}
+#alias {color_table}
 {
-	#showme {$var1 \e[38;5;${var1}m}
-}
+	#var temp {};
 
-#foreach {a;b;c;d;e;f} {var1}
-{
-	#foreach {a;b;c;d;e;f} {var2}
+	#foreach {0;1;2;3;4;5;6;7;8;9;10;11;12;13;14;15} {var1}
 	{
-		#foreach {a;b;c;d;e;f} {var3}
+		#showme {$var1 \e[38;5;${var1}m}
+	};
+
+	#foreach {a;b;c;d;e;f} {var1}
+	{
+		#foreach {a;b;c;d;e;f} {var2}
 		{
-			#var temp {$temp <$var1$var2$var3><<888>$var1$var2$var3>}
-		};
-		#showme $temp;
-		#var temp {}
-	}
-}
+			#foreach {a;b;c;d;e;f} {var3}
+			{
+				#var temp {$temp <$var1$var2$var3><<888>$var1$var2$var3>}
+			};
+			#showme $temp;
+			#var temp {}
+		}
+	};
 
-#loop 0 23 cnt
-{
-	#format temp {$temp <g%+02s><<888>g%+02s} {$cnt} {$cnt};
+	#loop 0 23 cnt
+	{
+		#format temp {$temp <g%+02s><<888>g%+02s} {$cnt} {$cnt};
+	};
+	#showme $temp
 }
 
-#showme $temp
-
 #nop -------------------------------------------------------------------------
 #nop Draw a health bar. Alternatively: #draw bar -2 1 -2 20 {%1;%2;<faa><afa>}
 #nop -------------------------------------------------------------------------
@@ -437,15 +442,15 @@
 	#line gag
 }
 
-#alias {repeat_check}
+#alias {repeat_show}
 {
 	#if {$repeat[cnt] <= 1}
 	{
 		#line ignore #showme {$repeat[str]}
 	};
 	#else
 	{
-		#line ignore #showme {($repeat[cnt]) %0}
+		#line ignore #showme {<128>($repeat[cnt]) <088>$repeat[str]}
 	};
 	#var repeat[str] {};
 	#var repeat[cnt] 1
@@ -848,7 +853,7 @@
 
 			#draw red teed line $SCROLL[BOT_ROW]+1 $SCROLL[TOP_COL] $SCROLL[BOT_ROW]+1 $SCROLL[BOT_COL];
 
-			#screen clear square $SCROLL[BOT_ROW]+2 $SCROLL[TOP_COL] $SCROLL[OLD_ROW] $SCROLL[BOT_COL];
+			#nop #screen clear square $SCROLL[BOT_ROW]+2 $SCROLL[TOP_COL] $SCROLL[OLD_ROW] $SCROLL[BOT_COL];
 		};
 	};
 	#if {$SCROLL[MODE] == 1}
@@ -1038,6 +1043,95 @@
 	#line ignore #showme <118>wton %0 = $wton
 }
 
+#nop -------------------------------------------------------------------------
+#nop Utility aliases to save variables as json, and load json as variables.
+#nop -------------------------------------------------------------------------
+
+#alias {json_save}
+{
+	#if {"%1" == "" || "%2" == ""}
+	{
+		#showme Syntax: json_save <variable> <filename>;
+		#return
+	};
+
+	#line quiet #log remove %2;
+	#line json {%1} {#line log {%2} {&0}}
+}
+
+#alias {json_load}
+{
+	#if {"%1" == "" || "%2" == ""}
+	{
+		#showme Syntax: json_load <variable> <filename>;
+		#return
+	};
+	#line quiet #unvar {%2};
+	#scan json {%2} {%1}
+}
+
+#nop -------------------------------------------------------------------------
+#nop Example of switching to an editing window, with mouse support. Use #edit
+#nop create to start editing. After editing is finished you can use #edit save
+#nop to store the data to a variable.
+#nop -------------------------------------------------------------------------
+
+#config mouse on
+
+#event {PROGRAM START}
+{
+	#screen raise {SCREEN RESIZE}
+}
+
+#event {SCREEN RESIZE}
+{
+	#screen clear all;
+
+	#screen scroll  2 2 -10 -2;
+	#screen input  -7 2 -2 -2;
+
+	#draw azure rounded left right bot top side 1 1 -9 -1;
+	#draw azure rounded left right bot top side -8 1 -1 -1
+}
+
+#event {PRESSED INPUT MOUSE BUTTON ONE}
+{
+	#cursor position %0 %1
+}
+
+#event {EDIT STARTED}
+{
+	#screen inputregion 2 2 -10 -2;
+	#screen scrollregion -7 2 -2 -2
+}
+
+#event {CATCH EDIT FINISHED}
+{
+	#screen input  -7 2 -2 -2;
+	#screen scroll  2 2 -10 -2;
+	#showme <138>EDIT FINISHED %0. LINES: %1  SIZE: %2
+}
+
+#nop -------------------------------------------------------------------------
+#nop Example script for drawing health bars
+#nop -------------------------------------------------------------------------
+
+#split 26 0
+#screen clear top
+
+#alias {draw_bar}
+{
+	#math value 0;
+	#loop 1 26 cnt
+	{
+		#draw ralign tile $cnt 1 $cnt 8 <178>$value/100;
+		#draw horizontal bar $cnt 10 $cnt 20 {$value;100;%0};
+		#math value $value + 4
+	}
+}
+
+draw_bar <faa><afa>
+
 #nop -------------------------------------------------------------------------
 #nop 
 #nop -------------------------------------------------------------------------

TODO

@@ -1,78 +1,27 @@
-- switch to pcre2
-
-- check if #scan file is escaping braces
-
-- If I set #config log_level low then it ignores #log timestamp {%Y-%m-%d-%H:%M:%S}
-
-- Update script's --time-style=full-iso doesn't work on Mac.
-
-- Investigate: EVENT_FLAG_UPDATE running as gtd->level->quiet++ in check_all_events
-
-- Add an example #edit script to SCRIPTS
-
-- #map offset 10 10 doesn't generate an error
-
-- strip [ ] from auto tab completion
-
-- #draw tile 1 1 1 1 {\x7B}
+- make roomdata searchable in #map
 
-- #screen scroll 10 1 -3 -1;#showme {bla} {-2}
+- #split 0 0 -100 -100 should do something sensible
 
-#draw RED ROUNDED BOX {1 1 2 2} gives a poor error message
+- Add blight to msdp/gmcp/mssp listing
 
-- #var foo {{}{aaa}} creates no assignment
-
-- With internet down, #session reconnect events might fail
-
-- Write an example script that makes tintin mimic Discord, with soft enters, emoticons, etc.
-
-- Add an example script to display time left on tickers using #info tickers save
+- switch to pcre2
 
 - comprehensive memory breakdown for variables/triggers/mapper/etc
 
-- #draw calign grid table {2} {2} {8} {42} {n;s;w;e} {n;s;w;e}; doesn't work properly.
-
 - a better trigger stack debug buffer
 
-- Problem with restoring true color subs.
-#sub bla {<F00AA00>bla}
-#high blo <118>
-#showme <158>test bli bla blo test
-
-- named delays don't work in gts
-
-- #SPLIT when you give the top bar a negative value for its size, TinTin isn’t drawing the white box around it
-
-- Add an option to insert multiple items to a list
-
 - allow setting output encoding for #port
 
 - https://github.com/mintty/mintty/wiki/CtrlSeqs#audio-support
 - mintty --configdir DIRNAME
 
-- Fix: #ERROR: UNKNOWN TOKEN TYPE: 14 (#info tokenizer)
-
-- split screen scrollback setting in #screen
-
-- terrain based weight modifier
-- weightless mode for #map list and #map find
-
 - Make #draw scroll grid table work properly.
 
-
 - update https://tintin.mudhalla.net/info/ansicolor/
 
 - Make sure #config compact also applies to the log file.
 
-- Add an #event that triggers when a function/variable is not found.
-
-- tab completion on input history
-
-- look into handling VARIABLE UPDATE event better
-
-- catch event to handle #map global exceptions
-
-
+- catch event for #map global to handle exceptions
 
 - Add routine to escape 0x00 in port.c RECEIVED DATA event.
 
@@ -110,20 +59,14 @@
 
 - #line escape {variables;functions}
 
-- look into a #debug flag for #class
-
 - Another nice thing would be if there was some flag to make a trigger match newlines as space.
 
-- fix up named delays and undelay
-
 - add a #regex like command for #cursor to update the input line.
 
 - custom mapping for unicode table to set width
 
 - color code for dynamic color ranges
 
-- #MACRO {\cz} {#cursor get t;#var t} does not handle { } in input.
-
 - Look into delete_index_list leaving a table with ->used set to 0 causing #list crashes
 
 - #daemon attach fails under high cpu load
@@ -137,7 +80,7 @@
   - set_line_screen debug: col = -5 (64) from draw_text(%p,%d,%p,%p,%p)
   - set_line_screen stack call triggered on android
 
-  - regex101 like regex tester
+
 
   - check: #var bla { x};#draw scroll box 1 1 3 40 $bla
 
@@ -155,10 +98,6 @@
 
   - vertical bar drawing
 
-  - error: cursor_check_line_modified1: 
-  - https://tintin.sourceforge.io/forum/viewtopic.php?f=10&t=2811 (possible
-    issue with initiating input buffer for a new session)
-
   - finish BUFFER_SIZE replacement.
 
   - WSL sound, double check soundpack scripts for lag/stutter
@@ -173,10 +112,6 @@
 
 * STUFF THAT IS PROBABLY GONNA GET DONE
 
-  - #line timeshot to auto destroy a trigger after given interval.
-
-  - make named delays proper delays
-
   - Finish port proxy support: resizing, input, security
 
   - look into transparent drawing
@@ -223,8 +158,6 @@
 
   - Remote script loading
 
-  - add class specific debug
-  - better class event and class size handling ?
 
   - more potent long-click handling including held down ticks.
 
@@ -240,8 +173,6 @@
 
   - TELNET documentation.
 
-  - Add JSON support to #scan
-
   - see if #break 2 is possible, maybe #continue 2 as well.
 
   - IPv6 for chat