$ping = Ping ( "de.wikipedia.org")
#include "IE.au3"
#include <Array.au3>
if $ping <>0 Then
	$dateiname = @TempDir &"\hangmann.htm"
	$ie= _IECreate()
	_IENavigate($ie, "http://de.wikipedia.org/wiki/Spezial:Random")
	$inhalt = _IEBodyReadHTML($ie)
	$inhalt_arra=StringSplit ( $inhalt,"<!-- start content -->",1)
	$ueberschrift_a = StringSplit ($inhalt_arra[1],"firstHeading",1)
	$ueberschrift_b = StringSplit (StringTrimLeft( $ueberschrift_a[2], 1),"</H1>",1)
	$ueberschrift = $ueberschrift_b[1]
	$zeile_a = StringSplit ( $inhalt_arra[2],"</P>",1)
	$zeile_b = StringSplit ( $zeile_a[1],"<P>",1)
	$zeile_c = StringReplace ( $zeile_b[2], "<B>", "" )
	$zeile_c = StringReplace ( $zeile_c, "</B>", "" )
	$zeile_c = StringReplace ( $zeile_c, "<BR>", "" )
	$zeile_c = StringReplace ( $zeile_c, "<I>", "" )
	$zeile_c = StringReplace ( $zeile_c, "</I>", "" )
	$zeile_c = StringReplace ( $zeile_c, '"', " " )
	$zeile_c = StringReplace ( $zeile_c, "  ", " " )
	$zeile_c = StringReplace ( $zeile_c, "href=", "" )
	$zeile_c = StringReplace ( $zeile_c, "/wiki/", "" )
	$zeile_c = StringReplace ( $zeile_c, "title=", "" )
	$zeile_c = StringReplace ( $zeile_c, "<A", "" )
	$zeile_c = StringReplace ( $zeile_c, "</A>", "" )
	$zeile_c = StringReplace ( $zeile_c, ">", "" )
	$zeile_c = StringReplace ( $zeile_c, $ueberschrift, "" )
	$zeile_d = StringSplit ($zeile_c, ")", 1)
	If $zeile_d[0] == 1 Then
		$zeile = $zeile_c
	Else
		$zeile = $zeile_d[2]
	EndIf
	$beschreibung = StringSplit ( $zeile, " ", 1 )
	$i = 2
	$zahl = $beschreibung[0]
	if StringIsInt ( $beschreibung[0]) == 0 or IsArray ($beschreibung)==0 then Exit
	_ArrayDisplay ( $beschreibung, "0" )
	While $i < $zahl
		;MsgBox(0,"test",$beschreibung[$i])
		if $beschreibung[$i] == $beschreibung[$i-1] OR $beschreibung[$i]=="" Then
			$beschreibung[0] = $beschreibung[0]-1
			$beschreibung = _ArrayDelete ( $beschreibung, $i )
		EndIf
		_ArrayDisplay ( $beschreibung, $i )
		$i = $i +1
	WEnd
	$i = 1
	$start = 1
	$ende = $beschreibung[0]
	While $i < $zahl
		;MsgBox(0,"test",$beschreibung[$i])
		if StringIsLower ($beschreibung[$i]) OR  StringIsDigit($beschreibung[$i]) Then
			
		Else
			If $start == 1 Then
				$start = $i
			elseif $ende == $beschreibung[0] Then
				$ende = $i
			Else
				ExitLoop 
			EndIf
		EndIf
		$i = $i +1
	WEnd
	MsgBox(0,$ueberschrift,_ArrayToString ( $beschreibung, $start-1, $ende+1, " "))
	_IEQuit($ie)
EndIf