Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <class name="Theme" id="1729">
- <class name="prompt" id="1730">
- <var name="reply_to" usedef="true" id="1731">
- <value>nobody</value>
- <default>nobody</default>
- </var>
- <var name="dbl_left" usedef="true" id="1732">
- <value>0</value>
- <default>0</default>
- </var>
- <var name="prompt" usedef="true" id="1733">
- <value>on</value>
- <default>on</default>
- </var>
- <trigger priority="25960" enabled="false" id="1734">
- <pattern>^(%d)/(%d)Hp (%d)/(%d)Ma (%d)/(%d)Mv(*)T:(%d) ~$(%d)</pattern>
- <value>#SUBSTITUTE {%ansi(@theme_color2)%1%ansi(@theme_color1)/%ansi(@theme_color2)%2%ansi(@theme_color1)Hp %ansi(@theme_color2)%3%ansi(@theme_color1)/%ansi(@theme_color2)%4%ansi(@theme_color1)Ma %ansi(@theme_color2)%5%ansi(@theme_color1)/%ansi(@theme_color2)%6%ansi(@theme_color1)Mv%ansi(high,black)%7%ansi(@theme_color2)T:%ansi(@theme_color1)%8 %ansi(@theme_color1)~$%ansi(@theme_color2)%9%char(32)%ansi(reset)}</value>
- </trigger>
- <trigger name="yes_double_prompt" priority="25970" enabled="false" id="1735">
- <pattern>±(%n) Dbl: (%d) Tnl:(%d) Qt:(%d)$</pattern>
- <value>#SUBSTITUTE {%ansi(@theme_color1)~±%ansi(@theme_color2)%1 %ansi(@theme_color1)Dbl: %ansi(@theme_color2)%2 %ansi(@theme_color1)Tnl:%ansi(@theme_color2)%3 %ansi(@theme_color1)Qt:%ansi(@theme_color2)%4%ansi(reset)}</value>
- </trigger>
- <trigger name="no_double_prompt" priority="25980" enabled="false" id="1736">
- <pattern>±(%n) Tnl:(%d) Qt:(%d)$</pattern>
- <value>#SUBSTITUTE {%ansi(@theme_color1)~±%ansi(@theme_color2)%1 %ansi(@theme_color1)Tnl:%ansi(@theme_color2)%2 %ansi(@theme_color1)Qt:%ansi(@theme_color2)%3%ansi(reset)}</value>
- </trigger>
- <trigger priority="25990" id="1737">
- <pattern>^Exits: (*)|~[ Enemy: (%d)~%~] ~[Me: (%d)~%H/(%d)~%M/(%d)~%M~]~[(*)~]~[(*)~] T:(%d)(*)QT:(%d)$</pattern>
- <value>#LOCAL triple double daily
- tells = %8
- #IF %begins( %9, " Dbl") {
- dbl_left = %trim( %rightback( %9, 2))
- $double = yes
- } {
- dbl_left = 0
- $double = no
- }
- #IF ((@daily_dbl_left > 0) AND (@dbl_left > 0)) {$triple = yes} {$triple = no}
- #IF (@daily_dbl_left > 0) {$daily = yes}
- #SUBSTITUTE {%ansi(@theme_color1)Exits: %ansi(@theme_color2)%1%ansi(@theme_color1)~|%ansi(@theme_color2)~[ %ansi(@theme_color1)Enemy: %ansi(@theme_color2)%2%ansi(@theme_color1)~%%ansi(@theme_color2)~] ~[ %ansi(@theme_color1)Me: %ansi(@theme_color2)%3%ansi(@theme_color1)~%H/%ansi(@theme_color2)%4%ansi(@theme_color1)~%M/%ansi(@theme_color2)%5%ansi(@theme_color1)~%M%ansi(@theme_color2)~]%ansi(@theme_color1)~[%ansi(@theme_color2)%6%ansi(@theme_color1)~]~[%ansi(@theme_color2)%7%ansi(@theme_color1)~] T: %ansi(@theme_color2)%8 %ansi( @theme_color1)%if( $triple = "yes", Trpl, Dbl)%char( 58)%ansi( @theme_color2)%char( 32)@dbl_left%if( $daily = "yes",%concat(".",@daily_dbl_left," ")," ")%ansi(@theme_color1)QT: %ansi(@theme_color2)%10%ansi(reset)}</value>
- <notes>Exits: NEW|[ Enemy: 1%] [Me: 88%H/81%M/100%M][][] T:0 QT:0</notes>
- </trigger>
- <trigger priority="33490" id="1738">
- <pattern>^|T:(%d)|(*)|(*)|QT:(%d)|$</pattern>
- <value>#LOCAL triple double daily
- tells = %1
- #IF (%2 = %char( 32)) {reply_to = nobody}
- #IF %begins( %3, %char( 32)) {
- dbl_left = %trim( %rightback( %3, 2))
- $double = yes
- } {
- dbl_left = 0
- $double = no
- }
- #IF ((@daily_dbl_left > 0) AND (@dbl_left > 0)) {$triple = yes} {$triple = no}
- #IF (@daily_dbl_left > 0) {$daily = yes}
- #IF (@prompt = "on") {#SUBSTITUTE {%ansi(reset)%ansi( @theme_color2)%char( 124)%ansi( @theme_color1)Tells%char( 58) %ansi( @theme_color2)%1%char( 124)%ansi( @theme_color1)%if( %2 != " ", %ansi( @theme_color2)%replace( %replace( %right( %2, 1), %char( 40), %null), %char( 41)%char( 32), %null), Reply%char( 58)%char( 32)%ansi( @theme_color2)Nobody)%ansi( @theme_color2)%char( 124)%ansi( @theme_color1)%if( $triple = "yes", Trpl, Dbl)%char( 58)%ansi( @theme_color2)%char( 32)@dbl_left%if( $daily = "yes",%concat(".",@daily_dbl_left),"")%ansi( @theme_color2)%char( 124)%ansi( @theme_color1)QT%char( 58) %ansi( @theme_color1)%4%ansi( @theme_color2)%char( 124)%ansi(reset)}} {#GAG}
- //#SHOW {|%3|}</value>
- </trigger>
- <trigger priority="33630" id="1739">
- <pattern>^Room: (*) Exits: (*)</pattern>
- <value>#IF (@prompt = "on") {#SUBSTITUTE {%ansi(@theme_color1)Room: %ansi(@theme_color2)%1 %ansi(@theme_color1)Exits: %ansi(@theme_color2)%2%ansi(reset)}} {#GAG}</value>
- </trigger>
- <trigger priority="33640" id="1740">
- <pattern>^You will no longer see prompts.$</pattern>
- <value>prompt = off</value>
- </trigger>
- <trigger priority="33650" id="1741">
- <pattern>^You will now see prompts.$</pattern>
- <value>prompt = on</value>
- </trigger>
- <trigger priority="35420" id="1742">
- <pattern>^(%d)/(%d)|(%d)/(%d)|(%d)/(%d)</pattern>
- <value>#GAG
- //#SUBSTITUTE {%ansi(@theme_color1)HP%ansi(@theme_color2): %ansi(@theme_color2)%1%ansi(@theme_color1)/%ansi(@theme_color2)%2 %ansi(@theme_color1)MA%ansi(@theme_color2): %ansi(@theme_color2)%3%ansi(@theme_color1)/%ansi(@theme_color2)%4 %ansi(@theme_color1)MV%ansi(@theme_color2): %ansi(@theme_color2)%5%ansi(@theme_color1)/%ansi(@theme_color2)%6}</value>
- </trigger>
- </class>
- <alias name="settheme" autoappend="true" id="1743">
- <value><![CDATA[$temp_mxp1 = "$"
- $temp_mxp2 = "$"
- $temp_mud1 = "G"
- #IF (%ismember( %1, @theme_colors) AND %ismember( %2, @theme_colors)) {
- #LOOPDB @theme_colors_db {#IF (%val = %1) {theme_color1 = %case( %key, "high,black", red, green, blue, cyan, magenta, yellow, gray, "high,red", "high,green", "high,blue", "high,cyan", "high,magenta", "high,yellow", "high,white")}}
- #LOOPDB @theme_colors_db {#IF (%val = %2) {theme_color2 = %case( %key, "high,black", red, green, blue, cyan, magenta, yellow, gray, "high,red", "high,green", "high,blue", "high,cyan", "high,magenta", "high,yellow", "high,white")}}
- #LOOPDB @theme_colors_db {#IF (%val = %1) {theme_color1_mud = %case( %key, D, r, g, b, c, m, y, w, R, G, B, C, M, Y, W)}}
- #LOOPDB @theme_colors_db {#IF (%val = %2) {theme_color2_mud = %case( %key, D, r, g, b, c, m, y, w, R, G, B, C, M, Y, W)}}
- #LOOPDB @theme_colors_db {#IF (%val = %1) {$temp_mxp1 = %case( %key, 505050, aa0000, 00aa00, 4b4bff, 00aaaa, 960096, aaaa00, aaaaaa, ff0000, 00ff00, 3551FF, 44ffff, C800C8, ffff00, ffffff)}}
- theme_color1_mxp = %concat("$",$temp_mxp1)
- theme_color2_mxp = %concat("$",$temp_mxp2)
- #LOOPDB @theme_colors_db {#IF (%val = %1) {$temp_mud1 = %case( %key, gray, red, green, blue, cyan, magenta, yellow, bwhite, bred, bgreen, bblue, bcyan, bmagenta, byellow, white)}}
- colorset DefaultChan $temp_mud1
- colorset Auction $temp_mud1
- colorset Exits $temp_mud1
- colorset Roomnames $temp_mud1
- map
- replay
- #MXP %ansi( @theme_color1)Ansi color theme set to: %ansi( @theme_color1)PRIMARY %ansi( @theme_color2)SECONDARY
- #MXP %ansi( @theme_color1)MXP Colors set to: ~<font color=@theme_color1_mxp~>PRIMARY~<~/font~> ~<font color=@theme_color2_mxp~>SECONDARY~<~/font~>
- echo Mud colors set to: %char( 64)@theme_color1_mud~PRIMARY %char( 64)@theme_color2_mud~SECONDARY
- } {
- #SHOW {%ansi( @theme_color1)Please enter valid mud colors in proper case%char( 58)}
- #FORALL @theme_colors {#IF (%i = "black") {#SHOW {%ansi( high, black)black}} {#IF (%i = "white") {#SHOW {%ansi( grey)white}} {#SHOW {%ansi( %i)%i}}}}
- }]]></value>
- </alias>
- <var name="theme_color1" id="1744">cyan</var>
- <var name="theme_color1_mxp" id="1745">$00aaaa</var>
- <var name="theme_color2_mxp" id="1746">$$</var>
- <var name="theme_color1_mud" id="1747">c</var>
- <var name="theme_color2_mud" id="1748">W</var>
- <var name="theme_colors_db" type="Record" id="1749">
- <value>9=Red|8=white|7=yellow|6=magenta|5=cyan|4=blue|3=green|2=red|1=black|15=White|14=Yellow|13=Magenta|12=Cyan|11=Blue|10=Green</value>
- <json>{"9":"Red","8":"white","7":"yellow","6":"magenta","5":"cyan","4":"blue","3":"green","2":"red","1":"black","15":"White","14":"Yellow","13":"Magenta","12":"Cyan","11":"Blue","10":"Green"}</json>
- <notes>black|red|green|blue|cyan|magenta|yellow|white|Red|Green|Blue|Cyan|Magenta|Yellow|White</notes>
- </var>
- <var name="theme_color2" type="Literal" id="1750">high,white</var>
- <trigger priority="15680" id="1751">
- <pattern>^Right here you see:$</pattern>
- <value>#COLOR @theme_color1_mxp</value>
- </trigger>
- <trigger priority="15690" id="1752">
- <pattern>^(*) from here you see:$</pattern>
- <value>#COLOR @theme_color1_mxp</value>
- </trigger>
- <trigger priority="15700" id="1753">
- <pattern>WHOOOOOOOOOOOOSH!</pattern>
- <value>#COLOR @theme_color1_mxp</value>
- </trigger>
- <trigger priority="23480" id="1754">
- <pattern>^ Who list sorted by : (*)$</pattern>
- <value>#SUBSTITUTE {%ansi(@theme_color1)Who list sorted by: %ansi(@theme_color2)%1%ansi(reset)}</value>
- </trigger>
- <trigger priority="51740" id="1755">
- <pattern>®</pattern>
- <value><![CDATA[#SUB {<font face=courier>®</font>}]]></value>
- </trigger>
- <alias name="testtheme" id="3085">
- <value>#show %if( %ismember( %left( %1, 1), @alphabet), %1, b%1)
- //$theme_color1 = %case(%ismember(%1,@theme_colors),high%char(44)black,red,green,blue,cyan,magenta,brown,grey,high%char(44)red,high%char(44)green,high%char(44)blue,high%char(44)cyan,high%char(44)magenta,high%char(44)yellow,high%char(44)white)
- //#show %1 - $theme_color1
- //#LOOPDB @theme_colors {#IF (%val = %1) {#SHOW theme_color1_mud = %case( %key, "high,black", red, green, blue, cyan, magenta, yellow, gray, "high,red", "high,green", "high,blue", "high,cyan", "high,magenta", "high,yellow", "high,white")}}
- //#LOOPDB @theme_colors {#IF (%val = %2) {#SHOW theme_color2_mud = %case( %key, "high,black", red, green, blue, cyan, magenta, yellow, gray, "high,red", "high,green", "high,blue", "high,cyan", "high,magenta", "high,yellow", "high,white")}}
- // theme_color1 = %case(%ismember(%1,@theme_colors),high%char(44)black,red,green,blue,cyan,magenta,brown,grey,high%char(44)red,high%char(44)green,high%char(44)blue,high%char(44)cyan,high%char(44)magenta,high%char(44)yellow,high%char(44)white)
- // theme_color2 = %case(%ismember(%2,@theme_colors),high%char(44)black,red,green,blue,cyan,magenta,brown,grey,high%char(44)red,high%char(44)green,high%char(44)blue,high%char(44)cyan,high%char(44)magenta,high%char(44)yellow,high%char(44)white)
- // theme_color1_mud = %case(%ismember(%1,@theme_colors),D,r,g,b,c,m,y,w,R,G,B,C,M,Y,W)
- // theme_color2_mud = %case(%ismember(%2,@theme_colors),D,r,g,b,c,m,y,w,R,G,B,C,M,Y,W)
- // theme_color1_mxp = %case( %ismember( %1, @theme_colors), ~$505050, ~$aa0000, ~$00aa00, ~$4b4bff, ~$00aaaa, ~$960096, ~$aaaa00, ~$aaaaaa, ~$ff0000, ~$00ff00, ~$3551FF, ~$44ffff, ~$C800C8, ~$ffff00, ~$ffffff)
- // theme_color2_mxp = %case( %ismember( %2, @theme_colors), ~$505050, ~$aa0000, ~$00aa00, ~$4b4bff, ~$00aaaa, ~$960096, ~$aaaa00, ~$aaaaaa, ~$ff0000, ~$00ff00, ~$3551FF, ~$44ffff, ~$C800C8, ~$ffff00, ~$ffffff)
- // colorset DefaultChan %if( %ismember( %left( %1, 1), @alphabet), %1, b%1)
- // colorset Auction %if( %ismember( %left( %1, 1), @alphabet), %1, b%1)
- // colorset Exits %if( %ismember( %left( %1, 1), @alphabet), %1, b%1)
- // colorset Roomnames %if( %ismember( %left( %1, 1), @alphabet), %1, b%1)
- </value>
- </alias>
- <var name="theme_colors" type="StringList" id="3086">
- <value>Red|white|yellow|magenta|cyan|blue|green|red|black|White|Yellow|Magenta|Cyan|Blue|Green</value>
- <json>["Red","white","yellow","magenta","cyan","blue","green","red","black","White","Yellow","Magenta","Cyan","Blue","Green"]</json>
- <notes>black|red|green|blue|cyan|magenta|yellow|white|Red|Green|Blue|Cyan|Magenta|Yellow|White</notes>
- </var>
- </class>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement