alias hren {
if (!$2) echo $color(info) -ae * /hren: insufficient parameters
elseif (!$hget($1)) echo $color(info) -ae * /hren: no such table $+(',$1,')
elseif ($3) {
if (!$hfind($1,$2)) echo $color(info) -ae * /hren: no such item $+(',$2,')
else {
hadd $1 $3 $hget($1,$2)
hdel $1-2
}
}
elseif ($hget($2)) echo $color(info) -ae * /hren: table name already in use $+(',$2,')
else {
var %a = $hget($1,0).item
hmake $2 $hget($1).size
while (%a) {
hadd $2 $hget($1,%a).item $hget($1,%a).data
dec %a
}
hfree $1
}
}