Prozent1 = 250 ;Die Gewichtungen der Plätze in Promille
Prozent2 = 199
Prozent3 = 156
Prozent4 = 119
Prozent5 = 88
Prozent6 = 63
Prozent7 = 43
Prozent8 = 28
Prozent9 = 17
Prozent10 = 11
Prozent11 = 8
Prozent12 = 7
Prozent13 = 6
Prozent14 = 5
MsgBox , 4, , Mannschaften aus einer Datei lesen?
IfMsgBox, Yes
{
FileSelectFile, textDatei , 3, , Wähle Ranking Datei aus, Text (*.txt) ;Textdatei mit der Liste der Mannschaften
If textDatei =
Exit
Loop, Read, %textDatei% ;Mannschaften aus der Textdatei einlesen und in Variablen Speichern
{
Mannschaft%A_Index% = %A_LoopReadLine%
}
}
IfMsgBox, No
Loop, 30
{
InputBox, Mannschaft%A_Index% , ,Bitte den Namen der Mannschaft %A_Index% eingeben
If Mannschaft%A_Index% =
Exit
}
Platznummer = 1
Loop ;Bestimmung der Drei Mannschaften in der Ziehung
{
Loop ;"Los ziehen", bei 1001 wird neu gezogen
{
Random, Zufallszahl, 1, 1001
If Zufallszahl < 1001
Break
}
Temp = 0
Loop ;Gucken, welcher Mannschaft das gezogene Los gehört
{
Temp += Prozent%A_Index%
If Zufallszahl < %Temp%
{
Temp := 31 - A_Index
If Mannschaft%Temp% = ;Falls die Mannschaft schon gezogen wurde -> ein neues Los ziehen
Break
Platz%Platznummer% := Mannschaft%Temp% ;gezogene Mannschaft auf dem zugehörigen Platz sichern
Mannschaft%Temp% =
Platznummer += 1
Break
}
}
If Platznummer = 4 ;Wenn 3 Mannschaften ausgewählt wurden -> fertig
Break
}
Ergebnis = %Platz1%`n%Platz2%`n%Platz3% ;Die ersten 3 Plätze speichern
Loop, 30 ;Zusammenbau der fertigen Liste
{
Temp := 31 - A_Index
Temp2 := Mannschaft%Temp%
If Temp2 !=
Ergebnis = %Ergebnis%`n%Temp2%
}
MsgBox , 4, , Ergebnis in einer Datei speichern?
IfMsgBox, Yes
{
FileSelectFile, textDatei , 18, , Datei zum Speichern der Liste angeben, Textdatei (*.txt) ;Falls die Liste gespeichert werden soll, wird ein "Datei speichern" Dialog geöffnet
FileDelete, %textDatei%
FileAppend, %Ergebnis%, %textDatei%
}
MsgBox, %Ergebnis% ;Ausgabe der Liste