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?