home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / comms_networking / irclient / !IRClient / Scripts / Modules / Colours (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1997-03-20  |  3.9 KB  |  176 lines
  1.  >Colours
  2.  Coloured additions to the what we say
  3.  Justin Fletcher, idea by Stuart Bruce
  4.  24 Dec 1996 : JF: Started                           v1.00
  5.  0,"This is an IRClient script and cannot be run."
  6.  Initialise this module
  7. InitialiseModule
  8.  Colours
  9. StartupStatus("Initialising Colours...")
  10. 1colour_table$=
  11. DB_ReadConfig("Colours_Table")
  12.  colour_table$="" 
  13. % colour_table$="WWWWWWW NYERCGOB"
  14. 3colour_escape$=
  15. DB_ReadConfig("Colours_Escape")
  16.  colour_table$="" 
  17.  colour_escape$="|"
  18.  Pass on to other modules
  19.  Give ourselves a sensible name
  20. Overload_ScriptInfo(num)
  21.  ret$
  22.  num=0 
  23.   ret$="Colour v1.00 (Gerph)"
  24.  ret$=
  25. @(num-1)
  26.      =ret$
  27. Overload_AboutToSay(str$,type)
  28.  pos,n$
  29. $    pos=1
  30. str$,pos,1)=colour_escape$ 
  31.  pos<
  32. (str$)-1 
  33.   n$=
  34. str$,pos+1,1)
  35. colour_table$,
  36. Capitalise(n$))>0 
  37. )4   n$=
  38. Colour(
  39. colour_table$,
  40. Capitalise(n$))-1)
  41. *(   str$=
  42. str$,pos-1)+n$+
  43. str$,pos+2)
  44.    pos+=
  45. -%   str$=
  46. str$,pos-1)+
  47. str$,pos+1)
  48.  pos+=1
  49.  pos>=
  50. (str$)
  51. @(str$,type)
  52.  *********** Overloaded configuration options **************
  53.  Enumerate module names
  54. Overload_ConfigModName(count)
  55.  ret$
  56.  count=0 
  57.  ret$="Colours"
  58.  ret$=
  59. @(count-1)
  60. =    =ret$
  61.  What options do we provide ?
  62. Overload_ConfigOptions(module$)
  63.  module$="Colours" 
  64. DisplayConfig("")
  65. DisplayConfig("-- Colours configuration --")
  66. DisplayConfig("You can configure :")
  67. DisplayConfig("  "+
  68. Colour(8)+"Navy"+
  69. Colour(0)+", "+
  70. Colour(9)+"Yellow"+
  71. Colour(0)+", "+
  72. Colour(10)+"Emerald"+
  73. Colour(0)+", "+
  74. Colour(11)+"Red"+
  75. Colour(0)+", "+
  76. Colour(12)+"Cream")
  77. DisplayConfig("  "+
  78. Colour(13)+"Green"+
  79. Colour(0)+", "+
  80. Colour(14)+"Orange"+
  81. Colour(0)+", "+
  82. Colour(15)+"Blue"+
  83. Colour(0)+", Black, White")
  84. DisplayConfig("    - to configure colours")
  85. DisplayConfig("  Escape - to configure escape character")
  86. @(module$)
  87.  How do we configure things
  88. Overload_ConfigCommand(module$,com$,str$)
  89.  module$="Colours" 
  90.  com$ 
  91.  "NAVY","YELLOW","EMERALD","RED","CREAM","GREEN","ORANGE","BLUE","BLACK","WHITE"
  92. T$   
  93. Capitalise(str$)="SPACE" 
  94.     str$=" "
  95. (str$)<>1 
  96. X6    
  97. DisplayConfig("Syntax: "+com$+" <character>")
  98.     str$=
  99. str$,1)
  100. [)    var=
  101. "WWWWWWW NYERCGOB",
  102. com$,1))
  103. \F    colour_table$=
  104. colour_table$,var-1)+str$+
  105. colour_table$,var+1)
  106. ]6    
  107. DB_WriteConfig("Colours_Table",colour_table$)
  108. ^9    
  109. DisplayConfig("Set "+com$+" to "+
  110. keyname(str$))
  111.  "ESCAPE"
  112. (str$)<>1 
  113. c4    
  114. DisplayConfig("Syntax: Escape <character>")
  115.     colour_escape$=str$
  116. f8    
  117. DB_WriteConfig("Colours_Escape",colour_escape$)
  118. gA    
  119. DisplayConfig("Set Escape to "+
  120. keyname(colour_escape$))
  121.  "LIST"
  122. DisplayConfig("")
  123. lA   
  124. DisplayConfig("Navy    : "+
  125. keyname(
  126. colour_table$,9,1)))
  127. mB   
  128. DisplayConfig("Yellow  : "+
  129. keyname(
  130. colour_table$,10,1)))
  131. nB   
  132. DisplayConfig("Emerald : "+
  133. keyname(
  134. colour_table$,11,1)))
  135. oB   
  136. DisplayConfig("Red     : "+
  137. keyname(
  138. colour_table$,12,1)))
  139. pB   
  140. DisplayConfig("Cream   : "+
  141. keyname(
  142. colour_table$,13,1)))
  143. qB   
  144. DisplayConfig("Green   : "+
  145. keyname(
  146. colour_table$,14,1)))
  147. rB   
  148. DisplayConfig("Orange  : "+
  149. keyname(
  150. colour_table$,15,1)))
  151. sB   
  152. DisplayConfig("Blue    : "+
  153. keyname(
  154. colour_table$,16,1)))
  155. tA   
  156. DisplayConfig("White   : "+
  157. keyname(
  158. colour_table$,1,1)))
  159. uA   
  160. DisplayConfig("Black   : "+
  161. keyname(
  162. colour_table$,8,1)))
  163. v<   
  164. DisplayConfig("Escape  : "+
  165. keyname(colour_escape$))
  166.  "HELP"
  167. y'   
  168. Overload_ConfigOptions(module$)
  169. |/   
  170. DisplayConfig("Command not recognised")
  171. @(module$,com$,str$)
  172. keyname(key$)
  173.  key$ 
  174.   key$="Space"
  175.     =key$
  176.