TinTin++ Configs for DiscworldMUD
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

109 lines
3.1 KiB

5 years ago
5 years ago
5 years ago
  1. #CLASS {deadletter} {kill};
  2. #CLASS {deadletter} {open};
  3. #VAR {difficult_customer_targets} {
  4. {Triad Boss}{Triad [Boss]}
  5. {Queen Shelox}{Queen Shelox}
  6. {Ice Giants}{Ice Giants}
  7. {Security guards}{Security Guards}
  8. {Smuggler Captain}{Smuggler Captain}
  9. {The Clown}{Ha'pennywise the Clown}
  10. };
  11. #VAR {distant_land_targets} {
  12. {Boy Willie}{Boy [Willie]}
  13. {Disembowel-Meself-Honourably Dibhala}{Disembowel-Meself-Honourably [Dibhala]}
  14. {Glod-san}{[Glod-san]}
  15. {Laggy-san}{[Laggy-san]}
  16. {Lon Fah Lo}{Lon Fah [Lo]}
  17. {Mad Hamish}{Mad [Hamish]}
  18. {No Go Wan}{No Go [Wan]}
  19. {Quisoda}{[Quisoda]}
  20. {Ruto of Fish}{[Ruto] of Fish}
  21. {Ryattenoki}{[Ryattenoki]}
  22. {Shi Do Gai}{Shi Do [Gai]}
  23. {Lap-lip}{[Lap-lip]}
  24. {Lip-phon Lap-top}{Lip-phon [Lap-top]}
  25. {Mihk-gran-bohp}{Mihk-gran-[bohp]}
  26. {Phos-phor}{[Phos]-phor}
  27. {Very Reverend Khepresh}{Very Reverend [Khepresh]}
  28. {Yclept}{[Yclept]}
  29. {Tuffy}{[Tuffy]}
  30. {Casanunda}{[Casanunda]}
  31. {Greig Schwitz}{Greig [Schwitz]}
  32. {Noobie}{[Noobie]}
  33. {Tfat Chick}{Tfat [Chick]}
  34. {Cut Me Own Hand Off Dhblah}{Cut Me Own Hand Off [Dhblah]}
  35. {Miss Pennie Laced}{Miss Pennie [Laced]}
  36. {Berti Boggis}{[Berti] Boggis}
  37. {The Proprietor}{The Proprietor}
  38. }
  39. #alias {/solveletter} {
  40. #if {&{letter_lines[1]}} {
  41. #var {current_match_line} {^$letter_lines[1]$};
  42. #replace {current_match_line} {_} {%.};
  43. #foreach {$distant_land_targets[]} {target} {
  44. #regex {$target} {$current_match_line} {
  45. #format {letter_solution_line} {%c[DL] %c*%c Deliver to %c%s%c.} {bold blue} {bold yellow} {bold blue} {bold green} {$distant_land_targets[$target]} {bold blue};
  46. #echo {$letter_solution_line};
  47. };
  48. }
  49. #foreach {$difficult_customer_targets[]} {target} {
  50. #regex {$target} {$current_match_line} {
  51. #format {letter_solution_line} {%c[DC] %c*%c Deliver to %c%s%c.} {bold blue} {bold yellow} {bold blue} {bold green} {$difficult_customer_targets[$target]} {bold blue};
  52. #echo {$letter_solution_line};
  53. };
  54. }
  55. };
  56. };
  57. #NOP ==[Halt Parsing Letter]==
  58. #alias {/stopparsingletter} {
  59. #unvar {parsing_dead_letter};
  60. /solveletter;
  61. };
  62. #action {^Deliver by %1.$} {
  63. #if {&{parsing_dead_letter}} {
  64. /stopparsingletter;
  65. }
  66. };
  67. #action {does not have anything written on it.} {
  68. #if {&{parsing_dead_letter}} {
  69. /stopparsingletter;
  70. }
  71. };
  72. #action {Cannot find "letter", no match.} {
  73. #if {&{parsing_dead_letter}} {
  74. /stopparsingletter;
  75. }
  76. };
  77. #action {You are too busy fighting to read at the moment.} {
  78. #if {&{parsing_dead_letter}} {
  79. /stopparsingletter;
  80. }
  81. };
  82. #NOP ==[Catch-all to grab letter lines, store only lines with a '_']==
  83. #action {^%*$} {
  84. #if {&{parsing_dead_letter}} {
  85. #regex {%1} {%*_%*} {
  86. #list {letter_lines} {add} {%1};
  87. };
  88. }
  89. } {9};
  90. #NOP ==[Alias to attempt solve of letter in inventory]==
  91. #ALIAS {sl} {
  92. #send {read letter};
  93. #var {parsing_dead_letter} {0};
  94. #list {letter_lines} {create};
  95. }
  96. #CLASS {deadletter} {close};