History: KVIRC lookup scripts

cmavo.alias:
foreach (%line, $split("\n", $file.read("/home/<user>/Documents/languages/lojban/cmavo.txt")))
{
if ($str.contains($str.left(%line,20),$0) == 1)
{
echo %line
}
}

gismu.alias:
foreach (%line, $split("\n", $file.read("/home/<user>/Documents/languages/lojban/gismu.txt")))
{
if ($str.contains($str.left(%line,20),$0) == 1)
{
echo %line
}
}

gliban.alias:
foreach (%line, $split("\n", $file.read("/home/<user>/Documents/languages/lojban/cmavo.txt")))
{
if ($str.contains($str.mid(%line,20,61),$0) == 1)
{
echo %line
}
}
foreach (%line, $split("\n", $file.read("/home/<user>/Documents/languages/lojban/gismu.txt")))
{
if ($str.contains($str.mid(%line,20,61),$0) == 1)
{
echo %line
}
}