#cs ----------------------------------------------------------------------------

 Scriptversion:     0.1
 AutoIt Version:    3.3.6.1
 Author:            Anonym

 Script Function:   ask.fm Fragebot

 Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

HotKeySet("{F5}","_Exit")

Sleep(5000)

While 1

$anrede = "Hallo, "
$einleitung = "ich wollte schon immer folgendes wissen: "
$frage = "Magst du "
$objekt = "Pandabären?"

$zufallszahl = Random(0,9,1)

if $zufallszahl == 1 Then
    $anrede = "Hallo, "
EndIf

if $zufallszahl == 2 Then
    $anrede = "Guten Morgen, "
EndIf

if $zufallszahl == 3 Then
    $anrede = "Schönen guten Abend, "
EndIf

if $zufallszahl == 4 Then
    $anrede = "Mahlzeit, "
EndIf

if $zufallszahl == 5 Then
    $anrede = "Ich grüße dich, "
EndIf

if $zufallszahl == 6 Then
    $anrede = "Grüß Gott, "
EndIf

if $zufallszahl == 7 Then
    $anrede = "Buenos Dias Senora, "
EndIf

if $zufallszahl == 8 Then
    $anrede = "Gegrüßet seid ihr, "
EndIf

if $zufallszahl == 9 Then
    $anrede = "Madame, "
EndIf

;-----------------------------------------------------------------------------------------

$zufallszahl = Random(0,9,1)

if $zufallszahl == 1 Then
    $einleitung = "ich wollte schon immer folgendes wissen: "
EndIf

if $zufallszahl == 2 Then
    $einleitung = "folgendes beschäftigt mich schn seid längerem: "
EndIf

if $zufallszahl == 3 Then
    $einleitung = "ich hoffe du kannst mir auskunft über folgende Frage geben: "
EndIf

if $zufallszahl == 4 Then
    $einleitung = "ich denke diese Frage interresiert nicht nur mich: "
EndIf

if $zufallszahl == 5 Then
    $einleitung = "mit der Antwort auf diese Frage kannst du die Menschheit um einen Großen schritt nach vorne bringen: "
EndIf

if $zufallszahl == 6 Then
    $einleitung = "einer Frage die mich all zu oft beschäftigt: "
EndIf

if $zufallszahl == 7 Then
    $einleitung = "schon immer wollte ich wissen was du darauf Antworten würdest: "
EndIf

if $zufallszahl == 8 Then
    $einleitung = "hier eine kleine, aber dennoch wichtige Frage an dich: "
EndIf

if $zufallszahl == 9 Then
    $einleitung = "was ist deine Antwort auf folgende Frage: "
EndIf

;-----------------------------------------------------------------------------------------

$zufallszahl = Random(0,9,1)

if $zufallszahl == 1 Then
$frage = "Magst du "
EndIf

if $zufallszahl == 2 Then
$frage = "Isst du gerne "
EndIf

if $zufallszahl == 3 Then
$frage = "Wie findest du "
EndIf

if $zufallszahl == 4 Then
$frage = "Was magst du besonderst an "
EndIf

if $zufallszahl == 5 Then
$frage = "Was würdest du als erstes mit folgendem ding machen: "
EndIf

if $zufallszahl == 6 Then
$frage = "Ist es das, was du schon immer wolltest: "
EndIf

if $zufallszahl == 7 Then
$frage = "Wie sehr wünscht du dir "
EndIf

if $zufallszahl == 8 Then
$frage = "Wie viel würdest du bezahlen für "
EndIf

if $zufallszahl == 9 Then
$frage = "Was würdest du machen wenn du ein Anonymes Geschenk aufmachst und folgendes drinnen wäre: "
EndIf

;-----------------------------------------------------------------------------------------

$zufallszahl = Random(0,9,1)

if $zufallszahl == 1 Then
    $objekt = "Schokolade?"
EndIf

if $zufallszahl == 2 Then
    $objekt = "Bäume?"
EndIf

if $zufallszahl == 3 Then
    $objekt = "50 Liter Kraftsoff?"
EndIf

if $zufallszahl == 4 Then
    $objekt = "3 Flaschen Alkohol?"
EndIf

if $zufallszahl == 5 Then
    $objekt = "Tomaten?"
EndIf

if $zufallszahl == 6 Then
    $objekt = "Salzsträuer?"
EndIf

if $zufallszahl == 7 Then
    $objekt = "Hundehaufen?"
EndIf

if $zufallszahl == 8 Then
    $objekt = "Cheesburger?"
EndIf

if $zufallszahl == 9 Then
    $objekt = "Pandabären?"
EndIf


$text = $anrede & $einleitung & $frage & $objekt

MouseClick("Left","404","449")
Sleep(1000)
Send ($text)
Sleep(1000)
MouseClick("Left","1011","494")
Sleep(1000)
MouseClick("Left","889","449")

WEnd

Func _Exit()
    Exit
    EndFunc