<?

/*
Prevadec do Hebmilo textu - prevadi standardni text do textu, jak by ho rekl
Miloslav Hebky (www.webpark.cz/miloslavhebky)
Copyright Ales Janda (C) KYBLSoft 2005, www.kyblsoft.cz

Tento skript je free :-) Uzivatejte dle libosti.
Ale uvest autora je slusnosti ;-)
*/


function PrevedZnak($znak,$stupen_demence) {
  if (Rand(0,Floor(Log($stupen_demence)*20)) == 0) return "";

  if ($znak == "y" && Rand(0,30) == 0) return "z";
  if ($znak == "z" && Rand(0,30) == 0) return "y";

  if ($znak == "y" && Rand(0,20) == 0) return "i";
  if ($znak == "i" && Rand(0,20) == 0) return "y";

  if ($znak == "?" && Rand(0,5) == 0) return ".?";
  if ($znak == "?" && Rand(0,5) == 0) return ",?";

  return $znak;
 }
function PrevedText($text,$stupen_demence=8) {   //cim nizsi stupen, tim vetsi demence (klavesnice samozrejme)
  $text=StrTr($text,"帪姎辱伉巷崫因天季玲砷晚芋邡蔟蠃","ZzSsCcRrDdTtNnEeLlAaEeIiOoUuYyUu");
  $text=StrToLower($text);

  $text=Ereg_Replace('dekuj[iu]','dekujme',$text);
  $text=Ereg_Replace('holk([auy])','hok\1',$text);
  $text=Str_Replace('icq','icg',$text);
  $text=Str_Replace('jsem','sem',$text);
  $text=Str_Replace('kapra','kapra rybu',$text);   //tady neni jasne, jestli to je 2. nebo 4. pad
  $text=Str_Replace('kaprem','kaprem rybou',$text);
  $text=Str_Replace('kapr ','kapr ryba ',$text);
  $text=Ereg_Replace('kock([auy])','kok\1',$text);
  $text=Ereg_Replace('n([ei])kd([eoy])','n\1nkd\2',$text);
  $text=Str_Replace('. ','.',$text);
  $text=Str_Replace(', ',',',$text);

                                   //zamena a vynechavani pismen
  for ($i=0,$novytext=""; $i < StrLen($text); $i++) {
    $novytext.=PrevedZnak(SubStr($text,$i,1),$stupen_demence);
   }
  $text=$novytext;

                                   //zmena malych/velkych pismen
  $mala=Rand(0,1);
  for ($i=0,$novytext=""; $i < StrLen($text); $i+=$delka) {
    $delka=Rand(1,StrLen($text) > $stupen_demence ? $stupen_demence : StrLen($text));
    if ($mala == 1) {
      $novytext.=StrToLower(SubStr($text,$i,$delka)); $mala=0;
     }
    else {
      $novytext.=StrToUpper(SubStr($text,$i,$delka)); $mala=1;
     }
   }
  $text=$novytext;

  return $text;
 }


//Prikad pouziti:

echo PrevedText('Ahoj, ja jsem Miloslav Hebky a jsem pomahac',8);
       //cislo znamena stupen demence (30 - lehka .. 8 - tezka .. 2 - brutalni)

?>