1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
alias getTalkImp { if ($0 < 2) return var %lines, %word = $ [ $+ [ $rand(2,$0) ] ] describe $chan :: word: %word if ($fopen(getTalk)) .fclose getTalk .fopen getTalk bot_talk.txt if ($fopen(getTalk).err) describe $chan :: $fopen(getTalk).err while (!$feof) { if (%word isin $fread(getTalk)) { inc %lines | hadd -m getTalk %lines $v2 } } ; .fwrite -n getTalk $2- if (%word isin $2-) { inc %lines | hadd -m getTalk %lines $v2 } var %line = $hget(getTalk,$rand(1,%lines)) describe $chan :: lines: %lines describe $chan :: line: %line } |
| Parsed for bracket errors and indented: | |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
alias getTalkImp { if ($0 < 2) return var %lines, %word = $ [ $+ [ $rand(2,$0) ] ] describe $chan :: word: %word if ($fopen(getTalk)) .fclose getTalk .fopen getTalk bot_talk.txt if ($fopen(getTalk).err) describe $chan :: $fopen(getTalk).err while (!$feof) { if (%word isin $fread(getTalk)) { inc %lines | hadd -m getTalk %lines $v2 } } ; .fwrite -n getTalk $2- if (%word isin $2-) { inc %lines | hadd -m getTalk %lines $v2 } var %line = $hget(getTalk,$rand(1,%lines)) describe $chan :: lines: %lines describe $chan :: line: %line } |