menu {
Alias creatordialog -m ali ali
}
ALIAS aliascreator {
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 use the charater instead of enter, 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
check Check this for using Alias maker, 15, 11 52 88 10
}
on dialogalisclick4 {
help aliases
}
on dialogalisclick14 {
dialog -x ali ali
dialog -m kerst kerst
}
on dialogalisclick5 {
set %aliasname $did(1)
set %aliasvar Alias %aliasname $+($chr(123))
set %brackets $count($did(ali,2),$chr(123))
if ( iswm $did(ali,2)) {
did -a ali 6 %aliasvar
did -a ali 6 $remove($did(ali,2),)
did -a ali 6 $chr(125) $str($chr(125) $chr(32),%brackets)
halt
}
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))
loadbuf -o ali 6 space.txt
did -a ali 6 Usage = Aliasname onoff
halt
}
if ($did(ali,15).state) {
did -a ali 6 %aliasvar
$replace($did(ali,2),%,%!!)
$replace($did(ali,2),},$+($chr(125)))
$replace($did(ali,2),$,$!!)
$replace($did(ali,2),{,$+($chr(123)))
did -a ali 6 $did(2)
did -a ali 6 $chr(125) $str($chr(125) $chr(32),%brackets)
halt
}
}