Zum Inhalt der Seite

Spitfire-21: Mein Weblog





Seelensplitter

Autor:  Spitfire-21
Heute habe ich einen weiteren Teil meiner Seele verloren. Wenn das so weiter geht, bin ich bald nur noch eine leere Hülle.

Meine Probezeit ist rum, wirklich darüber freuen kann ich mich aber auch nicht... (Möchte auf diesen Punkt nicht weiter eingehen!)

Ich hab Kopfschmerzen von übelster Sorte! (Verzeiht wenn hier Rechtschreibfehler auftauchen! Konzentration ist im Arsch!)

Ich fühl mich absolut leer und gefühllos! (Könnte an den Kopfschmerzen liegen oder an der tatsache das mir der Brechreiz im Hals herumgammelt!)

---

Ich hab mich noch nie so am Arsch gefühlt. dabei kann ich mich noch nicht mal beschweren das es mir schlecht geht. So vom Gesamtumfeld her.

Ich hab Arbeit.
Ich bin mit meiner Freundin Verlobt, die ich über alles in der Welt liebe!
Ich hab eine Familie und Freunde die zu mir halten.
Ich muss nicht Hunger leiden.
Ich muss nicht dursten.

Im großen und ganzen sollte ich zufrieden sein. Aber irgend etwas ist da...was einfach nicht richtig ist...

Bin ich zu selbstverliebt?
Bin ich ein schlechter Mensch?
Habe ich irgend was getan oder gesagt was mir im Unterbewustsein die Seele zernagt und an das ich mich nicht errinern kann?
Bin ich geplagt von Sehnsucht, weil ich meine Verlobte nur im Monat 2 mal sehe? (Wenn überhaupt)
Schlafe ich zu wenig?
Arbeite ich zu hart oder zu viel?
Sollte ich einfach mal eine oder zwei Wochen Urlaub machen? (Ha ha ... ich lach mich tot! Wie kann ich nur an Urlaub denken...)
Oder sollte ich mich einfach mal so richtig verbal bei einer Person meines Vertrauens auskotzen!

Scheiß, ich mach Schluss für heute...

Sinnnnnlos im Internet lustig, Spaß, Spitfire-21, Technik

Autor:  Spitfire-21
Wenn man so sinnlos im Internet unterwegs ist, findet man manchmal komische Sachen... Ein Beispiel...:

--------------------------------------------------------

Der Doktorautomat



Der neuste Schrei im Automatenbau:

Der Doktorautomat - Man kann für 5 € auch mal eine schlechte Antwort von einem Automaten erhalten...

Georg beklagt sich über seine Schmerzen an seiner Hand und erzählt seinem Freund, dass er

unbedingt zum Arzt muss, da er es nicht mehr aushalten kann.


"Warum zum Arzt? Jetzt gibt es doch Supercomputer, die alle möglichen Krankheiten diagnostizieren können und viel billiger sind als ein Arzt. Geh mal zum Supermarkt an der Ecke, nimm eine Urinprobe und 5 € mit und dann wirst Du sehn."

Als er nach Hause geht, denkt Georg über den Vorschlag seines Freundes nach. Immerhin kostet ihn das höchstens 5 €, also geht er am nächsten Tag mit einer Urinprobe zum Supermarkt, stellt die Urinprobe in den Computer und steckt 5 € in den Schlitz.

Der Computer fängt an zu arbeiten, die farbigen Lichter leuchten und blinken und schließlich kommt ein Papier heraus auf dem steht:

Diagnose: Sie haben eine Sehnenscheidenentzündung an der rechten Hand.

Abhilfe: Tauchen Sie zwei Wochen lang jeden Abend die Hand in warmes Wasser.

Vermeiden Sie schwere Lasten.

Georg kann es nicht glauben. Die Wissenschaft hat wirklich enorme Fortschritte gemacht. Aber mit der Zeit kommen ihm Zweifel, ob der Computer wirklich so perfekt ist.

Am nächsten Morgen nimmt er ein Fläschchen und gibt etwas Leitungswasser hinein. Seinem sabbernden Hund entnimmt er etwas Speichel und vermixt das Ganze. Von seiner Frau nimmt er etwas Urin und den Tampon seiner Tochter wringt er aus. Zur Krönung holt er sich einen runter und mischt das auch noch hinein.

Dann geht er zum Supermarkt, stellt das Fläschchen an seinen Platz und wirft 5 € ein. Der Computer fängt an zu arbeiten, die Lichter blinken, es wird immer heftiger, die Lichter blinken immer schneller, der Computer droht zu explodieren. Dann schmeißt er ein Papier aus, auf dem steht:

Diagnose: Ihr Leitungswasser ist zu kalkhaltig und unsauber.

Abhilfe: Kaufen Sie sich einen Entkalker und einen Reinigungsapparat.

Diagnose: Ihr Hund hat Würmer:

Abhilfe: Unterziehen Sie ihn einer Wurmkur.

Diagnose: Ihre Tochter ist Kokainsüchtig.

Abhilfe: Veranlassen Sie sofort eine Entziehungskur.

Diagnose: Ihre Frau ist schwanger und kriegt Zwillinge. Sie sind nicht von Ihnen.

Abhilfe: Konsultieren Sie umgehend einen Anwalt Ihrer Wahl.

Ein dringender Rat: Hören Sie mit dem Wichsen auf, sonst wird Ihre Sehnenscheidenentzündung auch nicht besser!

Hirnfusel Spitfire-21

Autor:  Spitfire-21
Für alle die es glücklich macht zu wissen was ich heute in meiner Freizeit gemacht habe... ^^

Da bitte...

---------------------------------------------------------

Option Explicit On

Imports System.Xml
Imports System.IO


Public Class Form1
Public filterregel, filterregel2, curpath, listenpfad, searcher As String
Public tmp As String

'Programm Laden
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
load_settings.Loadsettings(1)
tmp = load_settings.temppath
If System.IO.Directory.Exists(tmp) = False Then
System.IO.Directory.CreateDirectory(tmp)
End If
End Sub

'Hauptmenü
Private Sub PCCheatsToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PCCheatsToolStripMenuItem1.Click
Me.filterregel = "PC"
ToolStripLabel27.Text = "PC"
End Sub

'Untermenü (Filter von #-Z)
Private Sub ToolStripLabel28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripLabel28.Click
If filterregel = "PC" Then
filterregel2 = filterregel & "_#"
XMLReader.Filter()
End If
End Sub

'Elementauswahl (Trainer, UHS, Faq, Cheat)
Private Sub trainer_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles trainer.CheckedChanged
If trainer.Checked = True Then XMLReader.Check_Trainer("load")
End Sub
Private Sub cheat_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cheat.CheckedChanged
If cheat.Checked = True Then XMLReader.Check_Cheat("load")
End Sub
Private Sub faq_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles faq.CheckedChanged
If faq.Checked = True Then XMLReader.Check_FAQ("load")
End Sub
Private Sub uhsmod_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles uhsmod.CheckedChanged
If uhsmod.Checked = True Then XMLReader.Check_UHS("load")
End Sub

'Infotaste
Private Sub nfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nfo.Click
If trainer.Checked Then XMLReader.Check_Trainer("desc")
If cheat.Checked Then XMLReader.Check_Cheat("desc")
If faq.Checked Then XMLReader.Check_FAQ("desc")
If uhsmod.Checked Then XMLReader.Check_UHS("desc")
End Sub

'Cheatlisten Events
Private Sub cheatliste_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cheatliste.SelectedIndexChanged
RichTextBox1.Rtf = Nothing
XMLReader.Listchange()
trainer.Checked = False
cheat.Checked = False
faq.Checked = False
uhsmod.Checked = False
RichTextBox1.Rtf = Nothing
wb1.Navigate("")
Me.element.Items.Clear()
End Sub

'Ausführen Button
Private Sub rundata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rundata.Click
If faq.Checked Then XMLReader.RTF_FAQ_Read()
If cheat.Checked Then XMLReader.RTFRead()
If trainer.Checked Then XMLReader.Copytemp()
If uhsmod.Checked Then XMLReader.Copytemp()
End Sub

'Elementenliste
Private Sub element_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles element.SelectedIndexChanged
If element.SelectedIndex <> -1 Then
If faq.Checked Then XMLReader.RTF_FAQ_Read()
If cheat.Checked Then XMLReader.RTFRead()
End If
End Sub

'Suchleiste
Private Sub stext_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles stext.KeyDown
searcher = Me.stext.Text
XMLReader.Search(searcher)
End Sub
Private Sub stext_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles stext.KeyUp
searcher = Me.stext.Text
XMLReader.Search(searcher)
End Sub
End Class

Option Explicit On
Imports System.Xml

Module load_settings
Dim XMLDATEI As String = System.IO.Directory.GetCurrentDirectory & "\settings.xml"
Dim xml_Doc As New XmlDocument ' Gesamte XML-Datei
Dim xml_Knoten As XmlNode ' Einzelknoten
Dim xml_Zeile As XmlNode ' Einzelknoten
Dim xml_Attribut As XmlAttribute ' Für Einzelattribut
Public temppath As String

Public Sub Loadsettings(ByVal s As Integer)
If s = 1 Then
Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(XMLDATEI)
With XMLReader
Do While .Read
Select Case .NodeType
Case Xml.XmlNodeType.Element
If .AttributeCount > 0 Then
While .MoveToNextAttribute
If .Name = "Pfad" Then
temppath = .Value
End If
End While
End If
End Select
Loop
.Close() ' XMLTextReader schließen
End With
End If
End Sub
End Module

Option Explicit On
Imports System.IO
Imports System.Xml


Module XMLReader

Public Sub Filter()
Dim XMLDATEI As String = System.IO.Directory.GetCurrentDirectory & "\cheats\cheatlist.xml"
If My.Forms.Form1.cheatliste.Items.Count <> 0 Then
My.Forms.Form1.cheatliste.Items.Clear()
End If

Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(XMLDATEI)
With XMLReader
Do While .Read
Select Case .NodeType
Case Xml.XmlNodeType.Element
If .AttributeCount > 0 Then
While .MoveToNextAttribute
If .Name = "Filter" And .Value = My.Forms.Form1.filterregel2 Then
.MoveToNextAttribute()
If .Name = "Titel" Then My.Forms.Form1.cheatliste.Items.Add(.Value)
End If
End While
End If
End Select
Loop
.Close()
End With
End Sub

Public Sub Listchange()
Dim XMLDATEI As String = System.IO.Directory.GetCurrentDirectory & "\cheats\cheatlist.xml"
Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(XMLDATEI)
With XMLReader
Do While .Read
Select Case .NodeType
Case Xml.XmlNodeType.Element
If .AttributeCount > 0 Then
While .MoveToNextAttribute
If .Value = My.Forms.Form1.cheatliste.SelectedItem.ToString Then
.MoveToNextAttribute()
My.Forms.Form1.listenpfad = .Value
XMLElementcheck()
End If
End While
End If
End Select
Loop
.Close()
End With
End Sub

Public Sub Check_Trainer(ByVal sss As String)
If sss = "load" Then
If My.Forms.Form1.element.Items.Count <> 0 Then My.Forms.Form1.element.Items.Clear()
End If

Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(My.Forms.Form1.curpath)
With XMLReader
Do While .Read
Select Case .NodeType
Case Xml.XmlNodeType.Element
If .AttributeCount > 0 Then
While .MoveToNextAttribute
If sss = "load" Then
If .Name = "t" Then My.Forms.Form1.element.Items.Add(.Value)
End If
If sss = "desc" Then
If .Name = "t" And .Value = My.Forms.Form1.element.SelectedItem.ToString Then
.MoveToNextAttribute()
Dim massege As String = .Value
massege = massege.Replace("$$$", "" & vbCrLf)
MsgBox(massege)
End If
End If
End While
End If
End Select
Loop
.Close()
End With
End Sub

Public Sub Check_Cheat(ByVal sss As String)
If sss = "load" Then
If My.Forms.Form1.element.Items.Count <> 0 Then My.Forms.Form1.element.Items.Clear()
End If

Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(My.Forms.Form1.curpath)
With XMLReader
Do While .Read
Select Case .NodeType
Case Xml.XmlNodeType.Element
If .AttributeCount > 0 Then
While .MoveToNextAttribute
If sss = "load" Then
If .Name = "c" Then My.Forms.Form1.element.Items.Add(.Value)
End If
If sss = "desc" Then
If .Name = "c" And .Value = My.Forms.Form1.element.SelectedItem.ToString Then
.MoveToNextAttribute()
Dim massege As String = .Value
massege = massege.Replace("$$$", "" & vbCrLf)
MsgBox(massege)
End If
End If
End While
End If
End Select
Loop
.Close()
End With
End Sub

Public Sub Check_UHS(ByVal sss As String)
If sss = "load" Then
If My.Forms.Form1.element.Items.Count <> 0 Then My.Forms.Form1.element.Items.Clear()
End If

Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(My.Forms.Form1.curpath)
With XMLReader
Do While .Read
Select Case .NodeType
Case Xml.XmlNodeType.Element
If .AttributeCount > 0 Then
While .MoveToNextAttribute
If sss = "load" Then
If .Name = "u" Then My.Forms.Form1.element.Items.Add(.Value)
End If
If sss = "desc" Then
If .Name = "u" And .Value = My.Forms.Form1.element.SelectedItem.ToString Then
.MoveToNextAttribute()
Dim massege As String = .Value
massege = massege.Replace("$$$", "" & vbCrLf)
MsgBox(massege)
End If
End If
End While
End If
End Select
Loop
.Close()
End With
End Sub

Public Sub Check_FAQ(ByVal sss As String)
If sss = "load" Then
If My.Forms.Form1.element.Items.Count <> 0 Then My.Forms.Form1.element.Items.Clear()
End If

Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(My.Forms.Form1.curpath)
With XMLReader
Do While .Read
Select Case .NodeType
Case Xml.XmlNodeType.Element
If .AttributeCount > 0 Then
While .MoveToNextAttribute
If sss = "load" Then
If .Name = "l" Then My.Forms.Form1.element.Items.Add(.Value)
End If
If sss = "desc" Then
If .Name = "l" And .Value = My.Forms.Form1.element.SelectedItem.ToString Then
.MoveToNextAttribute()
Dim massege As String = .Value
massege = massege.Replace("$$$", "" & vbCrLf)
MsgBox(massege)
End If
End If
End While
End If
End Select
Loop
.Close()
End With
End Sub

Public Sub RTFRead()
Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(My.Forms.Form1.curpath)
With XMLReader
Do While .Read
Select Case .NodeType
Case Xml.XmlNodeType.Element
If .AttributeCount > 0 Then
While .MoveToNextAttribute
If .Name = "c" And .Value = My.Forms.Form1.element.SelectedItem.ToString Then
While .MoveToNextAttribute
If .Name = "Pfad" Then
Dim path As String = .Value
If path.EndsWith("rtf") Or path.EndsWith("RTF") Then
My.Forms.Form1.wb1.Visible = False
My.Forms.Form1.RichTextBox1.Rtf = My.Computer.FileSystem.ReadAllText(System.IO.Directory.GetCurrentDirectory & path)
ElseIf path.EndsWith("xml") Or path.EndsWith("XML") Then
My.Forms.Form1.wb1.Visible = True
My.Forms.Form1.wb1.Navigate(System.IO.Directory.GetCurrentDirectory & path)
End If
End If
End While
End If
End While
End If
End Select
Loop
.Close()
End With
End Sub

Public Sub RTF_FAQ_Read()
Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(My.Forms.Form1.curpath)
With XMLReader
Do While .Read
Select Case .NodeType
Case Xml.XmlNodeType.Element
If .AttributeCount > 0 Then
While .MoveToNextAttribute
If .Name = "l" And .Value = My.Forms.Form1.element.SelectedItem.ToString Then
While .MoveToNextAttribute
If .Name = "Pfad" Then
Dim path As String = .Value
If path.EndsWith("rtf") Or path.EndsWith("RTF") Then
My.Forms.Form1.wb1.Visible = False
My.Forms.Form1.RichTextBox1.Rtf = My.Computer.FileSystem.ReadAllText(System.IO.Directory.GetCurrentDirectory & path)
ElseIf path.EndsWith("xml") Or path.EndsWith("XML") Then
My.Forms.Form1.wb1.Visible = True
My.Forms.Form1.wb1.Navigate(System.IO.Directory.GetCurrentDirectory & path)
End If
End If
End While
End If
End While
End If
End Select
Loop
.Close()
End With
End Sub

Private Sub XMLElementcheck()
Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(System.IO.Directory.GetCurrentDirectory & My.Forms.Form1.listenpfad & "entry.xml")
My.Forms.Form1.curpath = System.IO.Directory.GetCurrentDirectory & My.Forms.Form1.listenpfad & "entry.xml"
With XMLReader
Do While .Read
Select Case .NodeType
Case Xml.XmlNodeType.Element
If .AttributeCount > 0 Then
While .MoveToNextAttribute
If .Name = "lctu" Then
Dim lctuset As Array
Dim lctustring As String
lctustring = .Value
lctuset = Split(lctustring, ",", -1)
If lctuset(0) = "0" Then My.Forms.Form1.faq.Enabled = False Else My.Forms.Form1.faq.Enabled = True
If lctuset(1) = "0" Then My.Forms.Form1.cheat.Enabled = False Else My.Forms.Form1.cheat.Enabled = True
If lctuset(2) = "0" Then My.Forms.Form1.trainer.Enabled = False Else My.Forms.Form1.trainer.Enabled = True
If lctuset(3) = "0" Then My.Forms.Form1.uhsmod.Enabled = False Else My.Forms.Form1.uhsmod.Enabled = True
End If
End While
End If
End Select
Loop
.Close()
End With
End Sub

Public Sub Copytemp()
Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(My.Forms.Form1.curpath)
With XMLReader
Do While .Read
Select Case .NodeType
Case Xml.XmlNodeType.Element
If .AttributeCount > 0 Then
While .MoveToNextAttribute
If .Name = "t" And .Value = My.Forms.Form1.element.SelectedItem.ToString Or _
.Name = "u" And .Value = My.Forms.Form1.element.SelectedItem.ToString Then
While .MoveToNextAttribute
If .Name = "Pfad" Then
Dim tocopy As String = .Value
Dim ordner As String = My.Forms.Form1.element.SelectedItem.ToString
Dim ordarr As String = My.Forms.Form1.cheatliste.SelectedItem.ToString
MsgBox("Kopiere " & My.Forms.Form1.element.SelectedItem.ToString & vbCrLf & _
"nach " & My.Forms.Form1.tmp & ordarr & "\" & My.Forms.Form1.element.SelectedItem.ToString)
If System.IO.Directory.Exists(My.Forms.Form1.tmp & ordarr) = False Then System.IO.Directory.CreateDirectory(My.Forms.Form1.tmp & ordarr)
System.IO.File.Copy(System.IO.Directory.GetCurrentDirectory & tocopy, My.Forms.Form1.tmp & ordarr & "\" & My.Forms.Form1.element.SelectedItem.ToString, True)
If MsgBox("Möchten Sie den Zielordner nun öffnen?", MsgBoxStyle.YesNo, "Ordner öffnen?") = MsgBoxResult.Yes Then
Dim xyz As New Process
xyz.StartInfo.FileName = "Explorer"
xyz.StartInfo.Arguments = My.Forms.Form1.tmp & ordarr
xyz.Start()
End If
End If
End While
End If
End While
End If
End Select
Loop
.Close()
End With
End Sub

Public Sub Search(ByVal s As String)
Dim XMLDATEI As String = System.IO.Directory.GetCurrentDirectory & "\cheats\cheatlist.xml"
Dim sval As String

If My.Forms.Form1.cheatliste.Items.Count <> 0 Then
My.Forms.Form1.cheatliste.Items.Clear()
End If

Dim XMLReader As Xml.XmlReader = New Xml.XmlTextReader(XMLDATEI)
With XMLReader
Do While .Read
Select Case .NodeType
Case Xml.XmlNodeType.Element
If .AttributeCount > 0 Then
While .MoveToNextAttribute
If .Name = "Titel" Then
sval = .Value
If sval.Contains(s) Then
My.Forms.Form1.cheatliste.Items.Add(sval)
End If
End If
End While
End If
End Select
Loop
.Close()
End With
End Sub
End Module
----------------------------------------------------------

So, jetzt seit ihr um einiges schlauer. Niwahr?
*g*

Nüscht Gähn, Gedichte, Leben, nichts

Autor:  Spitfire-21
Irgendwie passiert in der letzten Zeit aber auch gar nüscht.

hab heute aus langer Weile und weil ich nicht schlafen konnte noch paar Gedichte geschrieben.

---> DA Nachlesen
http://animexx.onlinewelten.com/forum/?forum=1&kategorie=2&thread=90475&tseite=1

Ihr könnt da ruhig auch ma wieder was reinschriebseln.
Es muss voller werden.

*gääähn*

nunja... paar was gibts doch noch.
Ich hab endlich meine Bodeenblech-mit-4-Rädern-bewegungsdürf-Bescheinigung.
Dafür ist nun mein Konto leer.

Es hat nich zufällig einer in Chemnitz Arbeit für nen Medienassistenten, mit Kenntnissen in VB2008EP. CSS, PHP... oder?

Naja... wollen wir mal nicht herum Illusionieren.

Wenn ich Glück hab (was mich in letzter Zeit auch irgendwie verlassen hat) bekomme ich einen Job in Chemnitz in nem I-Net-Café & Gamecenter.
Im Grunde ja schon mal in Anfang sich etwas über Wasser zu halten.

Wenn ihr für mich spenden wollt, gerne. Meine Spendenhotline ist... Nee war nur Spaß. ^^;

Ich verabschiede mich ersteinmal für Heute von Euch und wüsche eine Gute Nacht.

Bis später dann Ihr Lieben.

Die Illuminaten sind daran schuld 23, fahrschule, Illuminati, Spitfire-21

Autor:  Spitfire-21
Heute hate ich meine Praktische Führerscheinprüfung...
....durchgefallen...und die Illuminaten sind daran schuld. Ganz einfach.

Man nehme das heutige Datum.
12. August 2009 (=12.08.2009)

Das Jahr lassen wir weg.
12.08.

Jetz die 0 weg
12.8.

Alles schön zusammen ziehen
128

Zahlen 1 und 2 vertauschen
218

8 durch 2 teilen und das Ergebnis wieder durch 2
8/2=4/2=2

Also haben wir 212

1+2=3

Was kommt raus...

23

Muss man da noch etwas sagen...

Alles wird besser

Autor:  Spitfire-21
hATTE HEUTE VOLL ÖDE STÜTZE BEIM GÖPF, aba dafür hab ich auch schon um 11 aus. *g*


Hihi... Morgen Digicam kauf... (Wenn Geld reicht)

Ich will hier raus

Autor:  Spitfire-21
Mach zur Zeit Praktikum bei Teus"R"Us, und es ist Mist.
Ich will hier raus.

ICH WILL HIER RAUS...DIE LEUTE MACHEN MICH BLÖDE IM KOBBE.

Der Funke

Autor:  Spitfire-21
Der Hauch Kap. 6


Der Funke

Der Funke der Liebe von neuem übersprang,
Nun mache ich meinen letzten Gang,
Die Liebe mein, sie ist so stark,
Und dennoch, meine Gefühle zu Dir sind nur karg.

Du musst wissen, ein Teil von mir noch immer liegt auf Eis,
Ich bitte Dich, erwärme mich, mach mich heiß,
Lass die Flamme meines Herzens brennen,
Sonst bald kommt der Tag, an dem ich mich werde erhängen.

Du hast von neuen die Flamme meines Herzens entfacht,
Du liegst hier in meinen Armen, ich liebkose Dich sacht,
Ich spüre in meinem Körper eine unausstehliche Hitze,
Siehst Du mich an, küsst Du mich, merkst Du, wie ich schwitze.

Du wiegst meine Seele in Deinen Händen,
Werde Dir anhand meiner Worte, meine Gefühle Dir senden,
Du, die Du bist, meine Liebe so groß,
Hoffe ich, und lass Dich nie mehr los.


15.02.05 by Spitfire-21

Gemeinsamer Abschied & Neue Liebe, Neues Leben

Autor:  Spitfire-21
Der Hauch Kap. 4


Gemeinsamer Abschied

Ich gehe, wenn Du gehst,
Ich sehe Dich, wie Du am Abgrund des Todes stehst,
Gemeinsam werden wir springen in die Finsternis,
Hinab in den Schlund der Hölle, durch den Höllenriss.

Die Schmerzen werden unerträglich sein,
Doch merke Dir eins, unsere Seelen bleiben rein,
Sind wir erst unten angekommen,
Wird mir werden ganz beklommen.

Da unten gen Tiefen bei Satan,
Werden der Menschen Seelen böses angetan,
Dieses Schicksal uns wird auch ereilen,
Doch noch können wir an unserem Schicksal feilen.

Es muss nicht soweit kommen, springen müssen wir nicht,
Sehn wir doch das Leben einmal aus einer anderen Sicht,
Wir könnten leben, gemeinsame Wege gehen,
Und genießen und schauen und in die gemeinsame Zukunft sehn.


by Spitfire-21 16.02.2005




Der Hauch Kap. 5


Neue Liebe, Neues Leben

Neue Liebe, neues Leben,
All das kann der Herr uns geben,
Doch eines kann er nimmermehr,
Und das belastet mich doch sehr.

Der Weg zum Herzen meiner Geliebten sei mir verwährt,
Wobei ich sie, und sie mich doch so begehrt,
Möchte mit Ihr für immer verweilen,
Und nicht Ungelenkt in der Zeit umhereilen.

Meine Liebe so rein, wie das Licht des Mondes bei Nacht,
Berühre ich sie, und liebkose sie sacht,
Ich will sie halten mein Leben lang,
Der Ruf ihrer Stimme, ihr schöner Gesang.

Es liegt mir noch immer in den Ohren,
Ich weis nicht warum, ich habe sie für immer verloren,
Will sie wiederhaben, um jeden Preis,
Und wenn ich meine Seele verkaufe, dann sei es sie, ich weis.


by Spitfire-21 16.02.2005








[1] [2]
/ 2