alias getstring return $regml(getstring,$regex(getstring,$1-,/([^\s\/]+?([._])(?:\S+?\2)+\S+?-[^\/\s]+)/))
alias echoall { scid -a _echoall $1- }
alias _echoall { var %i = 1 | while (%i <= $window(*,0)) { var %w = $window(*,%i) | if (%w == status window) { echo 9 -bflrst $1- } | elseif (@* !iswm %w) { echo 9 -bflrt %w $1- } | inc %i } }
alias maycut return $regex($1-,/\.(?:S\d+E\d+|\d+x\d+)\.|\.\d\d(\d\d)?\.\d\d\.\d\d\./)
alias allcut {
var %a = $fixstr($1-)
if ($maycut(%a)) { var %tmp = $regsub(%a,/\.S\d+E\d+\..+|\.\d\d(\d\d)?\.\d\d\.\d\d\.\S+/,,%a) | return %a }
return $1-
}
alias scut {
var %a = $fixstr($1-)
if ($maycut(%a)) { var %tmp = $regsub(%a,/(?<=\.S\d\d).+/,,%a)) | return %a }
return $1-
}
alias ecut {
var %a = $fixstr($1-)
if ($maycut(%a)) { var %tmp = $regsub(%a,/(?<=\.S\d\dE\d\d).+/,,%a)) | return %a }
return $1-
}
alias fixstr {
if ($regex(fixstr,$1,/(.+?)(\d+?)x(\d\d.+)/)) {
return $replace($+($regml(fixstr,1),S,$base($regml(fixstr,2),10,10,2),E,$regml(fixstr,3)),_,.)
}
if ($regex(fixstr,$1,/_\d\d(\d\d)?_\d\d_\d\d_/)) return $replace($1,_,.)
return $1
}
