Adolfs Transe (Satire)
Verfasst: 17.01.2008 18:37
Als aller erstes:
Dies ist eine Satire !!!!!!!!!!!!!!!!
Jeder kennt sicher die Verarschung von Walter Moers.
Dort wird in einem Slang geredet.
Hab ich letzens wiederum in mehreren satirischen Beiträgen gelesen,
und könnt mich schibbeln wenn man so redet wie adolf.
Also, hab ich nen kleinen Translator gemacht, der Wörter in
diesen komischen Slang transferiert.
Sicherlich gibts das auch schon für andere Slangs,
aber so einen hatte ich noch net gesehen.
Technisch gesehen iss der Code ne Demonstration wie man
mittels simpler Stringbefehle Wörter verunstalten kann.
Dabei unter anderem auch vor unter nach einem zeichen nach
Besonderheiten geschaut.
jetzt aberrr:
ergibt:
Dies ist eine Satire !!!!!!!!!!!!!!!!
Jeder kennt sicher die Verarschung von Walter Moers.
Dort wird in einem Slang geredet.
Hab ich letzens wiederum in mehreren satirischen Beiträgen gelesen,
und könnt mich schibbeln wenn man so redet wie adolf.
Also, hab ich nen kleinen Translator gemacht, der Wörter in
diesen komischen Slang transferiert.
Sicherlich gibts das auch schon für andere Slangs,
aber so einen hatte ich noch net gesehen.
Technisch gesehen iss der Code ne Demonstration wie man
mittels simpler Stringbefehle Wörter verunstalten kann.
Dabei unter anderem auch vor unter nach einem zeichen nach
Besonderheiten geschaut.
jetzt aberrr:
Code: Alles auswählen
;Adolf's Translator V1.0
;Weil ichs lustig find !
;
;(C) 2008 by Siegfried Rings
;
;Aus i wird ä
;Aus er wird a
;Aus u wird o
;also recht simple
Procedure.s AdolfsTranse(Instring.s)
output.s
Instring=" " + Instring + " "
l2=Len(instring)
i=1
While i<l2
t=Asc(Mid(Instring,i,1))
Select t
Case 'I'
output +"Ä"
Case 'i'
If Mid(instring,i+1,1)="e"
output +"e"
i+1
Else
If Mid(instring,i-1,1)="e" Or Mid(instring,i-1,1)="E"
output +"i"
Else
output +"ä"
EndIf
EndIf
Case 'ü'
output +"ö"
Case 'u'
If Mid(instring,i-1,1)="a" Or Mid(instring,i-1,1)="A" Or Mid(instring,i-1,1)="e" Or Mid(instring,i-1,1)="E"
output +"u"
Else
output +"o"
EndIf
Case 'U'
output +"O"
Case 'r'
output +"rrr"
Case 'e'
If Mid(instring,i+1,1)="r"
output +"a"
i+1
Else
output +"e"
EndIf
Default
output + Chr(t)
EndSelect
i+1
Wend
ProcedureReturn Trim(output)
EndProcedure
Instring.s="Das rechte gesocks solte sterben und nie wieder die Macht in der Welt ergreifen können. Niemals nimmer wieder !"
Debug AdolfsTranse(Instring)
Instring.s="Die internationale Unterhaltungsindustrie wird die Jugend und die Welt verdummen für ihre Ignoranz zu einem Ergebnis welches gut ist."
Debug AdolfsTranse(Instring)
Instring.s="Ich darf noch einmal feststellen, dass ich erstens keinen Krieg geführt habe, dass ich zweitens seit Jahren meinem Abscheu vor einem Krieg und allerdings auch meinem Abscheu vor einer Kriegshetze Ausdruck verleihe, und dass ich drittens nicht wüsste, für welchen Zweck ich überhaupt einen Krieg führen sollte"
Debug AdolfsTranse(Instring)
Das rrrechte gesocks solta staben ond ne weda de Macht än da Welt agrrreifen können. Nemals nämma weda !
De äntanatäonale Ontahaltongsändostrrre wärrrd de Jogend ond de Welt vadommen fürrr ährrre Ägnorrranz zo einem Errrgebnäs welches got äst.
