$drunk=0; while (!$drunk) { seek $bar 4 $beer; $beer++; $sip=0; while ($sip<$beer) { $sip++; } if ($beer>threshold) { $drunk=1; die fallover; }

im sure somebody will get it!