By DragonFlare on Nov 08, 2008This script is for Designing Topics. Load into remotes and if your an admin or higher it will allow you to design the topic of the desired room. right click in the room and go down to topic.
menu channel {
Topic
..Show Topic:echo -at $cxs(3) $+ $+ %xsbrack $+ $+ $cxs(2) Current topic for $+ $cxs(1) $chan $+ $cxs(2) $+ is $+ $cxs(3) : $chan($active).topic
..-
..Set Topic
...Normal:topic # $$?="Topic for $chan :"
...-
...Designs
....Red && Yellow ÷:topic # 12<8,4÷4,8-8,4÷4,8-8,4÷4,8-8,4÷4,8-8,4÷12><8,4÷4,8 $$?="Topic for $chan :" 8,4÷12><8,4÷4,8-8,4÷4,8-8,4÷4,8-8,4÷4,8-8,4÷12>
....Red && Green ©:topic # 3(4©3)3(4©3)3(4©3)3(4©3)(4 $$?="Topic for $chan :" 3)(4©3)3(4©3)3(4©3)3(4©3)
....Orange && Brown ×:topic # 7,7.0,5×××7,7.0,5×××7,7.0,5×××7,7.11,5 $$?="Topic for $chan :" 7,7.0,5×××7,7.0,5×××7,7.0,5×××7,7.
....Blue && White "¨:topic # 2,110,2 · 11"¨"¨"0 · 11"¨"¨"0 · 11"¨"¨"0 · 2,110,2 $$?="Topic for $chan :" 2,110,2 · 11"¨"¨"0 · 11"¨"¨"0 · 11"¨"¨"0 · 2,11
....Green && Blue §:topic # 8,3\11§8/3¯8,3\11§8/3¯8,3\11§8/3¯8,3\11§8/3¯3,11 $$?="Topic for $chan :" 3¯8,3\11§8/3¯8,3\11§8/3¯8,3\11§8/3¯8,3\11§8/
....Blue && Grey ():/topic # 0,14(1)0(1)0(1)11 $$?="Topic for $chan :" 0(1)0(1)0(1)
....Blue && Yellow ¤´`:topic # 12`¤11,12¤12,11¤11,12¤12,11¤11,12¤12,11¤11,12¤12¤´`¤8,12 $$?="Topic for $chan :" 12¤´`¤11,12¤12,11¤11,12¤12,11¤11,12¤12,11¤11,12¤12¤´
....Blue && Orange <>:/topic # 4,7<8>4<8>4<8>2 $$?="Topic for $chan :" 4<8>4<8>4<8>
....Grey && Blue °º°:topic # 11,14°º° o °º°12°º° o °º°2°º° o °º°8 $$?="Topic for $chan :" 2°º° o °º°12°º° o °º°11°º° o °º°
....Yellow && Blue «»:/topic # 11,12«1»11«1»11«1»8 $$?="Topic for $chan :" 11«1»11«1»11«1»
....White && Red:/topic # 8,4{11{8{11{0 $$?="Topic for $chan :" 8}11}8}11}
....Pink && Purple ¡!:/topic # 13,6!6,13¡13,6!6,13¡13,6!6,13¡11,6 $$?="Topic for $chan :" 6,13¡13,6!6,13¡13,6!6,13¡13,6!
....Green && Yellow ||:/topic # 9,3\ |||| /8 $$?="Topic for $chan :" 9\ |||| /
....Cyan && Blue `°º©º°´:topic # 0,10`°º©º°´`°º©º°´`°º©º°´`°º©º°´2 $$?="Topic for $chan :" 0`°º©º°´`°º©º°´`°º©º°´`°º©º°´
....Red && Yellow ¤¤:/topic # 11,4¤4,11¤11,4¤4,11¤11,4¤4,11¤8,4 $$?="Topic for $chan :" 4,11¤11,4¤4,11¤11,4¤4,11¤11,4¤
....Blue && Pink @@:/topic # 6,11..::13@6@13@6@12 $$?="Topic for $chan :" 6@13@6@13@6::..
....Fire %`:/topic # 8,0 ,%0,8%`7,8,%8,7%`4,7,%7,4%`8,4 $$?="Topic for $chan :" 7,4`%4,7%,8,7`%7,8%,0,8`%8,0%,
....Black && Grey ©º°¨¨°º©:/topic # 1,14©º°¨¨°º©º°¨¨°º©0 $$?"Topic for $chan :" 1©º°¨¨°º©º°¨¨°º©
....Yellow && Black ®®:topic # 8,1®8,14®8,15®8,0®8,15®8,14®8,1® 0 $$?="Topic for $chan :" 8,1®8,14®8,15®8,0®8,15®8,14®8,1®
....Fire :topic # 1,51,41,71,8 $$?"Topic for $chan :" 1,81,71,41,5
....Cyan && Red øøø:topic # 10[11,10ø12ø2ø10]2,10ø12ø11ø10[4 $$?="Topic for $chan :" 10]11,10ø12ø2ø10[2,10ø12ø11ø10]
....Brown && Yellow «§»:topic # 11,5«0§11»«0§11»«0§11»«0§11»8 $$?="Topic for $chan :" 11«0§11»«0§11»«0§11»«0§11»
....Green && Blue ©©:topic # 0,3 ( 5©4©7©8©0©8©7©4©5©0 ) 11 $$?="Topic for $chan :" 0 ( 5©4©7©8©0©8©7©4©5©0 )
....Red && Yellow /|\:topic # 12,8 /4|12\/4|12\/4|12\/4|12\8,4 $$?="Topic for $chan :" 12,8 /4|12\/4|12\/4|12\/4|12\
....Pink && Green <>:topic # 9,3<1>13,6<1>9,3<1>13,6<1>9,3<1>13,6<1>1,13 $$?="Topic for $chan :" 9,3<1>13,6<1>9,3<1>13,6<1>9,3<1>13,6<1>
....White && Grey /´`\:topic # 1,14/´15`\1/´15`\1/´15`\1/´15`\1/´15`\1/´15`\00 $$?="Topic for $chan :" 1/´15`\1/´15`\1/´15`\1/´15`\1/´15`\1/´15`\
....Pink && Blue `°v°´:topic # 13`13,2° v °13´2,13 $$?="Topic for $chan :" 13`13,2° v °13´
....Yellow && Purple ¤:topic # 14,6¤15¤0¤15¤14¤08 $$?="Topic for $chan :" 14¤15¤0¤15¤14¤
....Brown && Red ||:topic # 7,8|8,7|4|7,4|5|4,5|00 $$?="Topic for $chan :" 4|5,4|7|4,7|8|7,8|
....Green && Yellow :topic # 4,4Ž8,8Ž3,3Ž 4,4Ž8,8Ž3,3Ž 4,4Ž8,8Ž8,3 $$?="Topic for $chan :" 8,8Ž4,4Ž 4,4Ž8,8Ž3,3Ž 4,4Ž8,8Ž3,3Ž
....Red && Yellow ©©:topic # 4,5©5,4©7©4,7©8©7,8©01 $$?="Topic for $chan :" 7©8,7©4©7,4©5©4,5©
....Light Blue && Dark Blue øø:topic # 12,2ø2,12ø11ø12,11øø11,12ø2ø12,2ø0 $$?="Topic for $chan :" 12ø2,12ø11ø12,11øø11,12ø2ø12,2ø
....Green && Black «ô»:topic # 8,3«ó7«4ô7»8ò»01 $$?="Topic for $chan :" 8«ó7«4ô7»8ò»
....Orange && Blue ][:topic # 7[7,2T2,7O7,2P2,7I7,2C7][7,2 $$?="Topic for $chan :" 7][7,2T2,7O7,2P2,7I7,2C7]
....White && Red `¤´:topic # 9,2`4¤9´`4¤9´`4¤9´`4¤9´0 $$?="Topic for $chan :" 9`4¤9´`4¤9´`4¤9´`4¤9´
....Yellow && Black µ©:topic # 3,8_µ4©3_µ4©3_µ4©3_µ4©01 $$?="Topic for $chan :" 3_µ4©3_µ4©3_µ4©3_µ4©
....White && Green «»:topic # 9,3 «1» 9«1» 9«1» 9«1» 9«1»08 $$?="Topic for $chan :" 9«1» 9«1» 9«1» 9«1» 9«1»
....Red && Grey ææ:topic # 1æ14æ15æ0æ15æ14æ1æ14æ15æ0æ15æ14æ1æ4 $$?="Topic for $chan :" 1æ14æ15æ0æ15æ14æ1æ14æ15æ0æ15æ14æ1æ
....Black && Grey °`U´°:topic # 4` " 8,4° 5`1U5´ 8°4,15 " ´1 $$?="Topic for $chan :" 4` " 8,4° 5`1U5´ 8°4 " ´
....Yellow && Blue .·´¯`·.:topic # 0,2.·´¯`·.9.·´¯`·.3.·´¯`·.08 $$?="Topic for $chan :" 3.·´¯`·.9.·´¯`·.0.·´¯`·.
....Blue && Purple `[©]´:topic # 8,6`[0©8]´`[0©8]´`[0©8]´`[0©8]´11 $$?="Topic for $chan :" 8`[0©8]´`[0©8]´`[0©8]´`[0©8]´
....Yellow && Red \»/:topic # 4,8\ » /¯\ » /¯\ » /¯\ » /¯\ » /8,4 $$?="Topic for $chan :" 4,8\ « /¯\ « /¯\ « /¯\ « /¯\ « /
....Red && Yellow //:topic # 3,3. 12,4/¯¯ / 8 /¯¯ / 12 /¯¯ / 8 /¯¯ /3,3.04 $$?="Topic for $chan :" 3,3.12,4\ ¯¯\ 8\ ¯¯\ 12\ ¯¯\ 8\ ¯¯\ 3,3.
....Blue && Red _.·¯(:topic # 4(4,11_.·¯(_.·¯(_.·¯(_.·¯4)(11,4 $$?="Topic for $chan :" 4)(4,11¯·._)¯·._)¯·._)¯·._4)
....Green && Red ŽŽ:topic # 14]2,2Ž3,3Ž4,4Ž5,5Ž6,6Ž7,7Ž8,8Ž9,9Ž10,10Ž11,11Ž12,12Ž13,13Ž14[]4,9 $$?="Topic for $chan :" 14[]13,13Ž12,12Ž11,11Ž10,10Ž9,9Ž8,8Ž7,7Ž6,6Ž5,5Ž4,4Ž3,3Ž2,2Ž14[
....Red && White `°¤ø,¸¸,ø¤°´:topic # 611,4`8°11¤8ø11,8¸11¸8,11ø8¤11°8´11`8°11¤8ø11,8¸11¸8,11ø8¤11°8´00 $$?="Topic for $chan :" 11`8°11¤8ø11,8¸11¸8,11ø8¤11°8´11`8°11¤8ø11,8¸11¸8,11ø8¤11°8´
....Blue && Light Blue <><>:topic # 11>0,11<12>11,12<1>12,1<11·12>2,12<11>12,11<0>11<12 $$?="Topic for $chan :" 11>0,11<12>11,12<1>12,1<11·12>2,12<11>12,11<0>11<
....Green && White «-´:topic # 11,3«-´ 8«-´ 11«-´ 8«-´3 ¯ 0,3 $$?="Topic for $chan :" 3 ¯ 11,3`-» 8`-» 11`-» 8`-»
....Rec && White <¤>:topic # 12,4<0¤11> 12<0¤11> 12<0¤11> 12<0¤11> 12<0¤11>4_ / 0,4 $$?="Topic for $chan :" 4 \ _12,4<0¤11> 12<0¤11> 12<0¤11> 12<0¤11> 12,4<0¤11>
....Blue && White /×\:topic # 12 / 0,12×12 \/ 0,12×12 \/ 0,12×12 \/ 0,12×12 \0,12 $$?="Topic for $chan :" 12 / 0,12×12 \/ 0,12×12 \/ 0,12×12 \/ 0,12×12 \
....Blue && Red ¤·¤:/topic # 8,8.8,4¤·¤·¤·¤8,8.8,7¤·¤·¤·¤8,8.11,4 $$?="Topic for $chan :" 8,8.8,7¤·¤·¤·¤8,8.8,4¤·¤·¤·¤8,8.
....Orange && Purple <>:/topic # 8,8.0,6<13>7,7.0,6<13>4,4.0,6<13>7,7.0,6<13>8,8.0,6<13>7,7.0,6<13>4,4.0,6<13>7,7.0,6<13>8,8.2,7 $$?="Topic for $chan :" 8,8.13,6<0>7,7.13,6<0>4,4.13,6<0>7,7.13,6<0>8,8.13,6<0>7,7.13,6<0>4,4.13,6<0>7,7.13,6<0>8,8.
....Yellow && Blue ©Þ:topic # 8,2 ©15Þ 8©15Þ 8©15Þ 8©15Þ 8©15Þ $$?="Topic for $chan :" 8©15Þ 8©15Þ 8©15Þ 8©15Þ 8©15Þ
}
Thats a lot of topics but how about making a dialog to add it in like this.
alias Topic {
if $dialog(Topic) = $null { dialog -m Topic Topic }
else halt
}
Topic Dialog
dialog Topic {
title "Chainz Topic"
icon $icl, 5
size -1 -1 157 193
option dbu
tab "Current Themes", 1, 3 1 150 170
button "&Ok", 7, 50 175 25 13,flat, ok
button "&Cancel", 22, 77 175 25 13,flat, cancel
box "Predone Topics", 21, 15 20 120 125
radio "Default", 9, 25 30 30 15,flat
radio "(¯`·._(¯`·._ _.·´¯)_.·´¯)", 10, 25 40 80 13,flat
radio "´¯`·.¸¸..> <·´¯`·.¸¸", 11, 25 50 80 13,flat
radio "¯`°²º¤æ=¬«.,¸_ _¸,.»¬=椺²°`¯", 12, 25 60 80 13,flat
radio "o©º°¨¨ ¨¨°º©o", 13, 25 70 80 13,flat
radio "¡!¡°¨¨° °¨¨°¡!¡", 14, 25 80 80 13,flat
radio "[]-------( )-------[]", 15, 25 90 80 13,flat
radio "----> <----", 16, 25 100 80 13,flat
radio "-=-=- -=-=-", 17, 25 110 80 13,flat
radio "(¯`·.¸¸.·´¯`·.¸¸.·´¯`·.¸¸.-> <-.¸¸.·´¯`·.¸¸.·´¯`·.¸¸.·´¯)", 18, 25 120 108 13,flat
radio "©º°¨¨°º© ©º°¨¨°º©", 19, 25 130 80 13,flat
button "Your Design", 20, 25 150 50 13,flat
icon bar\pro.ico
}
on 1:dialog:Topic:sclick:22: {
if ( %lside == «¤» ) { .set %Topicchoice 1 }
if ( ¯`·._ isin %lside ) { .set %Topicchoice 2 }
if ( %lside == ´¯`·.¸¸..> ) { .set %Topicchoice 3 }
if ( %lside == ¯`°²º¤æ=¬«.,¸_ ) { .set %Topicchoice 4 }
if ( %lside == o©º°¨¨ ) { .set %Topicchoice 5 }
if ( %lside == ¡!¡°¨¨° ) { .set %Topicchoice 6 }
if ( %lside == []------- $+ $chr(40) ) { .set %Topicchoice 7 }
if ( %lside == ----> ) { .set %Topicchoice 8 }
if ( %lside == -=-=- ) { .set %Topicchoice 9 }
if ( ¯`·.¸¸.·´¯`·.¸¸.·´¯`·.¸¸.-> isin %lside ) { .set %Topicchoice 10 }
if ( %lside == ©º°¨¨°º© ) { .set %Topicchoice 11 }
}
on 1:dialog:Topic:sclick:20: {
dialog -m yourtopic yourtopic
dialog -x Topic
}
on 1:dialog:Topic:sclick:7: {
if (%Topicchoice == 1) {
.set %lside «¤»
.set %rside «¤»
}
if (%Topicchoice == 2) {
.set %lside (¯`·._(¯`·._
.set %rside _.·´¯)_.·´¯)
}
if (%Topicchoice == 3) {
.set %lside ´¯`·.¸¸..>
.set %rside <·´¯`·.¸¸
}
if (%Topicchoice == 4) {
.set %lside ¯`°²º¤æ=¬«.,¸_
.set %rside _¸,.»¬=椺²°`¯
}
if (%Topicchoice == 5) {
.set %lside o©º°¨¨
.set %rside ¨¨°º©o
}
if (%Topicchoice == 6) {
.set %lside ¡!¡°¨¨°
.set %rside °¨¨°¡!¡
}
if (%Topicchoice == 7) {
.set %lside []-------(
.set %rside )-------[]
}
if (%Topicchoice == 8) {
.set %lside ---->
.set %rside <----
}
if (%Topicchoice == 9) {
.set %lside -=-=-
.set %rside -=-=-
}
if (%Topicchoice == 10) {
.set %lside (¯`·.¸¸.·´¯`·.¸¸.·´¯`·.¸¸.->
.set %rside <-.¸¸.·´¯`·.¸¸.·´¯`·.¸¸.·´¯)
}
if (%Topicchoice == 11) {
.set %lside ©º°¨¨°º©
.set %rside ©º°¨¨°º©
}
.echo -a 5T14opic 5S14et 5T14o %lside %rside
}
on 1:dialog:Topic:sclick:9: {
.set %Topicchoice 1
}
on 1:dialog:Topic:sclick:10: {
.set %Topicchoice 2
}
on 1:dialog:Topic:sclick:11: {
.set %Topicchoice 3
}
on 1:dialog:Topic:sclick:12: {
.set %Topicchoice 4
}
on 1:dialog:Topic:sclick:13: {
.set %Topicchoice 5
}
on 1:dialog:Topic:sclick:14: {
.set %Topicchoice 6
}
on 1:dialog:Topic:sclick:15: {
.set %Topicchoice 7
}
on 1:dialog:Topic:sclick:16: {
.set %Topicchoice 8
}
on 1:dialog:Topic:sclick:17: {
.set %Topicchoice 9
}
on 1:dialog:Topic:sclick:18: {
.set %Topicchoice 10
}
on 1:dialog:Topic:sclick:19: {
.set %Topicchoice 11
}
on 1:dialog:Topic:init:0: {
if (%Topicchoice == 1) { .did -c $dname 9 }
if (%Topicchoice == 2) { .did -c $dname 10 }
if (%Topicchoice == 3) { .did -c $dname 11 }
if (%Topicchoice == 4) { .did -c $dname 12 }
if (%Topicchoice == 5) { .did -c $dname 13 }
if (%Topicchoice == 6) { .did -c $dname 14 }
if (%Topicchoice == 7) { .did -c $dname 15 }
if (%Topicchoice == 8) { .did -c $dname 16 }
if (%Topicchoice == 9) { .did -c $dname 17 }
if (%Topicchoice == 10) { .did -c $dname 18 }
if (%Topicchoice == 11) { .did -c $dname 19 }
}
dialog yourtopic {
title "Your topic"
icon %picid3, index
size -1 -1 105 76
option dbu
button "&Ok", 7, 27 60 25 13,flat, ok
button "&Cancel", 8, 55 60 25 13,flat, cancel
box "Your topic", 9, 3 7 97 50
text "Left Hand Side :", 10, 5 20 50 10
text "Right Hand Side :", 11, 5 35 50 10
edit "", 12, 45 18 53 10, autohs
edit "", 13, 45 33 53 10, autohs
}
on 1:dialog:yourtopic:sclick:7: {
.set %lside $did(12).text
.set %rside $did(13).text
}
on 1:dialog:yourtopic:sclick:8: {
dialog -x yourtopic
}
on 1:dialog:yourdesign:init:0: {
.did -ra $dname 12 %lside
.did -ra $dname 13 %rside
}
Think it would look better and be more clearer! what you think?