Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias Ters {
var %t = 1
while (%t <= $len($1-)) {
set -u %Tr $mid($1-,%t,1) $+ %Tr
inc %t
}
msg $active %Tr
}
alias Cins {
if ($left($1,1) == /) { $1- | halt }
haltdef
set %Tr 1
while (%Tr <= $len($1-)) {
msg $active $left($1-,%Tr)
inc %Tr
}
}
[/Ters Yazi] [/Cins Yazi]