Stuff

ALIAS /aliasmaker {
  /dialog -m Ali Ali
}
menu * {
  Alias maker:/dialog -m Ali Ali
}
dialog Ali {
  title "Aliasmaker Made by kerst"
  size -1 -1 206 194
  option dbu
  edit "Alias NAME (Trigger)(auto / added)", 1, 106 5 94 11
  edit "What must the script do?", 2, 106 21 93 37, multi vsbar center
  button "Finished", 3, 10 3 90 14, cancel
  button "Help me with this!", 4, 10 19 90 14
  list 6, 8 108 188 78, size vsbar
  button "Create alias!", 5, 10 37 90 14
  text "Check one of these tags for fast making alias (only have to fill in name)", 7, 13 63 174 8
  check "Memo", 8, 15 75 50 10, group
  check "Access", 9, 68 90 50 10, group
  check "Read memo", 10, 68 75 50 10, group
  check "Global", 11, 15 90 50 10, group
  check "Notice", 12, 133 76 50 10, group
  check "Remote", 13, 133 90 50 10, group
}
on *:dialog:ali:sclick:5: {
  set %aliasname $did(1)
  set %aliasvar Alias %aliasname $+($chr(123))
  if ($did(ali,8).state) {
    /did -a ali 6 %aliasvar
    /did -a ali 6 /ms send $1- 
    /did -a ali 6 $+($chr(125))
    /halt
  }
  if ($did(ali,9).state) {
    /did -a ali 6 %aliasvar
    /did -a ali 6 /cs access $+($chr(36)) $+ Chan add $1-
    /did -a ali 6 $+($chr(125))
    /halt
  }
  if ($did(ali,10).state) {
    /did -a ali 6 %aliasvar
    /did -a ali 6 /msg memoserv read last
    /did -a ali 6 $+($chr(125))
    /halt
  }
  if ($did(ali,11).state) {
    /did -a ali 6 %aliasvar
    /did -a ali 6 /amsg $1-
    /did -a ali 6 $+($chr(125))
    /halt
  }
  if ($did(ali,12).state) {
    /did -a ali 6 %aliasvar
    /did -a ali 6 /notice $1-
    /did -a ali 6 $+($chr(125))
    /halt
  }
  if ($did(ali,13).state) {
    /did -a ali 6 %aliasvar
    /did -a ali 6 /remote $1
    /did -a ali 6 $+($chr(125))
    /did -a ali 6  
    /did -a ali 6 Usage = Aliasname on/off
    /halt
  }
  /did -a ali 6 %aliasvar
  $replace($did(2),%,$+($chr(37)))
  $replace($did(2),},$+($chr(125)))
  $replace($did(2),$,$+($chr(36)))
  $replace($did(2),/,$+($chr(47)))
  $replace($did(2),{,$+($chr(123)))
  set %brackets $count($did(ali,2),$chr(125))
  /did -a ali 6 $did(2) %bracket
  /did -a ali 6 $+($chr(125)) $str($chr(32)$chr(125)$chr(32),%brackets
}