ka mir war langweilig vielleicht lernt jemand was dabei
[autoit]Dim $1 = 0
Dim $2 = 0
$amount = InputBox("Amount of passes", "Type in a number!")
If StringRegExp($amount, "[^0-9]", "") = 1 Or $amount = "" Or $amount = 0 Then
MsgBox(0,"Error", "Only numbers and at least 1")
Else
For $i = 1 To $amount
$a = Random(1,2,1)
ToolTip("calculating... "&(($i*100)/$amount)&"%")
If $a = 1 Then $1+=1
If $a = 2 Then $2+=1
Next
ToolTip("")
MsgBox(64,"Result", "1 occured: "&$1&@CRLF&"2 occured: "&$2)
EndIf