45 lines
1.7 KiB
PHP
45 lines
1.7 KiB
PHP
|
<?php
|
||
|
|
function drinks_drunkenize($commentary,$level){
|
||
|
|
if (get_module_pref("noslur")) return $commentary;
|
||
|
|
$straight = $commentary;
|
||
|
|
$replacements=0;
|
||
|
|
while ($replacements/strlen($straight) < ($level)/500 ){
|
||
|
|
$slurs = array("a"=>"aa","e"=>"ee","f"=>"ff","h"=>"hh","i"=>"iy","l"=>"ll","m"=>"mm","n"=>"nn","o"=>"oo","r"=>"rr","s"=>"sss","u"=>"oo","v"=>"vv","w"=>"ww","y"=>"yy","z"=>"zz");
|
||
|
|
if (e_rand(0,9)) {
|
||
|
|
$letter = array_rand($slurs);
|
||
|
|
$x = strpos(strtolower($commentary),$letter);
|
||
|
|
if ($x!==false &&
|
||
|
|
substr($commentary,$x,5)!="*hic*" &&
|
||
|
|
substr($commentary,max($x-1,0),5)!="*hic*" &&
|
||
|
|
substr($commentary,max($x-2,0),5)!="*hic*" &&
|
||
|
|
substr($commentary,max($x-3,0),5)!="*hic*" &&
|
||
|
|
substr($commentary,max($x-4,0),5)!="*hic*") {
|
||
|
|
if (substr($commentary,$x,1)<>strtolower($letter))
|
||
|
|
$slurs[$letter] = strtoupper($slurs[$letter]);
|
||
|
|
else
|
||
|
|
$slurs[$letter] = strtolower($slurs[$letter]);
|
||
|
|
$commentary = substr($commentary,0,$x).
|
||
|
|
$slurs[$letter].substr($commentary,$x+1);
|
||
|
|
$replacements++;
|
||
|
|
}
|
||
|
|
}else{
|
||
|
|
$x = e_rand(0,strlen($commentary));
|
||
|
|
// Skip the ` followed by a letter
|
||
|
|
if (substr($commentary,$x-1,1)=="`") {$x += 1; }
|
||
|
|
if (substr($commentary,$x,5)=="*hic*") {$x+=5; }
|
||
|
|
if (substr($commentary,max($x-1,0),5)=="*hic*") {$x+=4; }
|
||
|
|
if (substr($commentary,max($x-2,0),5)=="*hic*") {$x+=3; }
|
||
|
|
if (substr($commentary,max($x-3,0),5)=="*hic*") {$x+=2; }
|
||
|
|
if (substr($commentary,max($x-4,0),5)=="*hic*") {$x+=1; }
|
||
|
|
$commentary = substr($commentary,0,$x).
|
||
|
|
"*hic*".substr($commentary,$x);
|
||
|
|
$replacements++;
|
||
|
|
}//end if
|
||
|
|
}//end while
|
||
|
|
//get rid of spare *'s in *hic**hic*
|
||
|
|
while (strpos($commentary,"*hic**hic*"))
|
||
|
|
$commentary = str_replace("*hic**hic*","*hic*hic*",$commentary);
|
||
|
|
return $commentary;
|
||
|
|
}
|
||
|
|
?>
|