Re: TWG XCIII ~FFRception~ GAME THREAD!
Translation:
this is humiliating aid gay.
I have made a macro for word 2007 to translate birdspeak to humanspeak.
If Mames switches around what is in 'text' and 'Replacement.Text', then Mames will also be able to more easily talk.
It's here:
Sub BirdtoWord()
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp chirp chirp chirp chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "z"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet tweet tweet tweet tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "y"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw caw caw caw caw caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "x"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp chirp chirp chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "w"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet tweet tweet tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "v"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw caw caw caw caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "u"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp chirp chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "t"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet tweet tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "s"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw caw caw caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "r"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "q"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "p"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw caw caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "o"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "n"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "m"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "l"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "k"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "j"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "i"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "h"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "g"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "f"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "e"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "d"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw,"
.Replacement.ClearFormatting
.Replacement.Text = "c"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "b"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "a"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
End Sub
But more importantly, is there anything important you need to tell us about the bird attack, Mames? Or is the bird attack a red herring?
If so, we should ignore him, and start organising ourselves for the coming attacks.
chirp chirp chirp chirp chirp chirp chirp,
chirp chirp chirp,
caw caw caw,
tweet tweet tweet tweet tweet tweet tweet,
caw caw caw,
tweet tweet tweet tweet tweet tweet tweet,
chirp chirp chirp,
caw caw caw caw caw caw caw,
tweet tweet tweet tweet tweet,
caw caw caw,
caw caw caw caw,
caw caw caw,
tweet,
chirp chirp chirp chirp chirp chirp chirp,
caw caw caw,
tweet tweet tweet,
tweet,
caw caw caw,
tweet tweet,
tweet tweet tweet,
tweet,
tweet tweet tweet tweet tweet tweet tweet tweet tweet,
chirp chirp chirp,
caw caw caw,
tweet tweet tweet tweet tweet tweet tweet,
caw caw caw,
tweet tweet tweet tweet tweet tweet tweet,
chirp chirp chirp,
caw caw caw caw caw caw caw,
tweet tweet tweet tweet tweet,
caw caw caw,
caw caw caw caw,
caw caw caw,
tweet,
chirp chirp chirp chirp chirp chirp chirp,
caw caw caw,
tweet tweet tweet,
tweet,
caw caw caw,
tweet tweet,
tweet tweet tweet,
tweet,
tweet tweet tweet tweet tweet tweet tweet tweet tweet,
this is humiliating aid gay.
I have made a macro for word 2007 to translate birdspeak to humanspeak.
If Mames switches around what is in 'text' and 'Replacement.Text', then Mames will also be able to more easily talk.
It's here:
Sub BirdtoWord()
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp chirp chirp chirp chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "z"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet tweet tweet tweet tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "y"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw caw caw caw caw caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "x"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp chirp chirp chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "w"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet tweet tweet tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "v"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw caw caw caw caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "u"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp chirp chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "t"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet tweet tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "s"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw caw caw caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "r"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "q"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "p"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw caw caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "o"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "n"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "m"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "l"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "k"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "j"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "i"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "h"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "g"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw caw,"
.Replacement.ClearFormatting
.Replacement.Text = "f"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "e"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "d"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "caw,"
.Replacement.ClearFormatting
.Replacement.Text = "c"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "chirp,"
.Replacement.ClearFormatting
.Replacement.Text = "b"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
With Selection.Find
.ClearFormatting
.Text = "tweet,"
.Replacement.ClearFormatting
.Replacement.Text = "a"
.Execute Replace:=wdReplaceAll, Forward:=True, _
Wrap:=wdFindContinue
End With
End Sub
But more importantly, is there anything important you need to tell us about the bird attack, Mames? Or is the bird attack a red herring?
If so, we should ignore him, and start organising ourselves for the coming attacks.
Comment