Anonymous

on *:TEXT:ondwtr*:?:{
did -a onderwereld 2 $2
did -a onderwereld 3 $3
  storeondw $4-
}
alias storeondw {
  if ($0 > 1 && $2 isnum 0-10 && $0 > $1) {
    noop $regsubex($ [ $+ [ 2 $+  [ - $+  [ $calc($1 + 1) ] ] ] ],/(?<=^| )(\S+)/g, $addlnt(6, \t))
    $iif($0 > $calc($1 + 1), noop $regsubex($ [ $+ [ $calc($1 + 2) $+ - ] ],/(?<=^| )(\S+)/g, $addlnt(9, \t)))
  }
}
alias addlnt {
  did -a onderwereld $1 $replace($2-,_,$chr(32))
}