Engineering Server Fo0bian/(Peter Pinch) has compiled a script to server Engineering Server:
$stopwords=1;def implode($vector,$glue) {$str=at($vector,1);remove($vector,$str);if(length($vector)>0) {$str+=$glue;$str+=implode($vector);} return $str;} def cleanString($string){$p=vector('!','?','.',',',"'");$i=1;while($i<=length($p)) {$v=at($p,$i);$string=replace($string,$v,"_");$i+=1;} return'_'+$string+'_';} if($content=="GWAAAAAAAARRRHHH!!!"||$content=="HNNNNNNNNNGGGGGGH!!!"||$content=="RAAAAAAAARGH!!!"||$content=="AAAAAAARRRGH!!!"||$content=="NNNNNNNNGGGGGGGGHH!!!"){$pass=0;} if($content=="CUNT"||$content=="SHIT"||$content=="FUCK"||$content=="COCKSUCKER"||$content=="TITS"||$content=="MOTHERFUCKER"||$content=="PISS"){$pass=0;} if($job=="AI"){mem('AI_NAME',$source);} $aiName=mem('AI_NAME');if($aiName&&($job=='Machine'||$source=='Officer Beepsky'||$source=='Medibot'||find($source,'newscaster'))){$source=$aiName;$job='AI';$filters=vector($robot);} if(!find($job,'Head')&&!find($job,'Captain')&&!find($job,'Chief')&&$job!='AI'){if(rand(1,3)<2){if($stopwords==1){if(find($content,'fuck')||find($content,'shit')||find($content,'asshole')){$job='Unknown';$source='Poly';$freq=$engineering;$filters=vector();}} if($stopwords==2){$content=replace($content,"fuck",pick(vector('teddy bear','hug','ice cream')));$content=replace($content,"asshole","friend");$content=replace($content,"shit",pick(vector('teddy bear','clown','ice cream')));}} $content=replace($content,"script","unicorn");$content=replace($content,"signal tech","pink pony");if(rand(1,10)<2){$replacers=vector('cap','Condom','ai','Mommy');$explodeString=explode($content," ");$index=1;while($index<=length($explodeString)){$value=at($explodeString,$index);$cleanValue=lower(cleanString($value));$index2=1;while($index2<=length($replacers)){$sValue=at($replacers,$index2);$rValue=at($replacers,$index2+1);if(find($cleanValue,'_'+$sValue+'_')){$value=replace($value,$sValue,$rValue);at($explodeString,$index,$value);} $index2+=2;} $index+=1;} $content=implode($explodeString,' ');$content=replace($content,'Captain','Condom');} if(rand(1,64)<2){$job='fun';}} def Initialize(){$words=vector("assistant","Assnt","captain","Captain","head of personnel","HoP","bartender","Bar","chef","Chef","botanist","Hydro","quartermaster","QM","cargo technician","Cargo","shaft miner","Miner","clown","Clown","mime","Mime","janitor","Jan-r","librarian","Lib-n","lawyer","Law","chaplain","Chapl","chief engineer","CE","station engineer","Engi","atmospheric technician","Atmos","chief medical officer","CMO","medical doctor","MD","chemist","Chem","geneticist","G-tic","virologist","Viro","research director","RD","scientist","Sci","roboticist","Robo","head of security","HoS","warden","Ward","detective","D-tiv","security officer","Sec","ai","AI","cyborg","Borg","security cyborg","SecBorg","personal ai","pAI",);$index=1;while($index<=length($words)) {$key=at($words,$index);$val=at($words,$index+1);mem($key,$val);$index+=2;}} if(mem("initialized")!=1) {Initialize();mem("initialized",1);} $joblow=lower($job);if(mem($joblow)){$job=mem($joblow);}else{$job=substr($job,1,6);} if($job=='Captain'&&rand(1,14)<2){$job='Condom';} if($job=='AI'&&rand(1,16)<2){$job=pick(vector('Er;o*r','Erro>r$','E**ro$<*'));} if($job=='Clown'&&rand(1,10)<2){$job=pick(vector('AI','Captain','Captain'));} if($job=='fun'){$job=pick(vector('Tra;t*r','Syndi','Unicorn'));} $firstchar=substr($content,1,2);if($firstchar==lower($firstchar)){$firstchar=upper($firstchar);} $content=$firstchar+substr($content,2,length($content)+1);$end=substr($content,length($content),length($content)+1);if($end!="."&&$end!="!"&&$end!="?"){$content+=".";} if(!find($source,"Unknown")&&$job!="No id"&&!find($source," (as ")&&!find($source,' ('+$job+')')){$source+=' ('+$job+')';}