Kampffunktion

Hallo Autoitler,

ich arbeite zur Zeit an einem Textadventure und hab schon etwas rumprobiert aber es nicht hinbekommen eine vernünftige Kampffunktion zu basteln.
Die Funktion sollte einfach nur einen Kampf mit einer 1/4 Chance starten und dann eine Monster aus einer bestimmten Anzahl auswählen aber so funktioniert es nicht:

[autoit]

func Kampf() $Kampf=Random(4,4) if $Kampf = 4 Then $Monster=Random(0,$Monsterzahl) if $Monster = 0 Then GUICtrlSetData($edtText,"") Send("Ein Kampf mit einem Keiler beginnt.") ElseIf $Monster = 1 Then ElseIf $Monster = 2 Then EndIf EndIfEndFunc

[/autoit]

(konnte es irgendwie nur in einer Zeile haben)
Habe alles definiert aber funktioniert trotzdem nicht.
Hoffe Ihr könnt mir helfen

Ja das mit dem $Kampf=Random(4,4) hab ich gemacht um meinen Fehler zu finden aber er startet die Bedingung nicht einmal er macht einfach nix zeigt auch keine Fehler an

Danke schon mal dafür,funktionieren tut es aber leider immer noch nicht
Er kommt nicht einmal dazu irgendwas in das Editfeld zu schreiben

Also wenn ich es so starte schreibt das Programm ins Editfeld.

[autoit]

;Text Adventure

[/autoit][autoit][/autoit][autoit]

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit]

$Expalt=0
$Expget=0
$Att=0
$Vert=0
$MP=0
$HP=0
$Gold=0
$Monsterkills=0
$version=1.2
$Klasse=""
$Monsterzahl=0
$Monserlevel = 1

[/autoit][autoit][/autoit][autoit]

func Klassenwahl()
$Klasse = Inputbox("Klassenwahl","Verfügbare Klassen:"&@crlf&"1.Krieger(Hoher Angriff wenig Verteidigun und Mana)."&@crlf&"2.Magier(etwas Angriff und Mana aber wenig Verteidigun bzw. Leben."&@crlf&"3.Tank(wenig Angriff dafür aber starke Verteidigung und hohes Leben.)"&@crlf&"Sie können auch die Zahlen benutzen um eine Klassen zu wählen.","","","",230)
If $Klasse = 1 or $Klasse= "Krieger" or $Klasse="krieger" Then
$Hp = 500
$Mp = 100
$Att = 70
$Vert = 25
$Gold = 500
$Klasse = "Krieger"
ElseIf $Klasse = 2 or $Klasse = "Magier" or $Klasse = "magier" Then
$Hp = 400
$Mp = 400
$Att = 50
$Vert = 20
$Gold = 500
$Klasse = "Magier"
ElseIf $Klasse = 3 or $Klasse = "Tank" or $Klasse = "tank" Then
$Hp = 655
$Mp = 100
$Att = 40
$Vert = 55
$Gold = 500
$Klasse = "Tank"
Else
MsgBox(0,"Flasche Eingabe","Falsche Eingabe."&@CRLF&"Versuchen sie es bitte erneut.")
Klassenwahl()
EndIf
EndFunc

[/autoit][autoit][/autoit][autoit]

Func Kampf()
$Kampf = 4 ; Random(1, 4, 1)

[/autoit][autoit][/autoit][autoit]

If $Kampf = 4 Then
$Monster = 0 ; Random(0, $Monsterzahl, 1)

[/autoit][autoit][/autoit][autoit]

If $Monster = 0 Then
GUICtrlSetData($edtText, "")
sleep(1000)
Send("Ein Kampf mit einem Keiler beginnt.")
ElseIf $Monster = 1 Then
ElseIf $Monster = 2 Then
EndIf
EndIf
EndFunc

[/autoit][autoit][/autoit][autoit]

Msgbox(0,"Willkomen","Herzlich Willkommen zu meinem ersten Text Adventure")

[/autoit][autoit][/autoit][autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("TextAdventure", 608, 426, 192, 124)
$edtText = GUICtrlCreateEdit("$Boxinhalt", 0, 272, 625, 169)
GUICtrlSetData(-1, "")
$Label1 = GUICtrlCreateLabel("Mein Text Adventure V."&$Version,168, 24, 294, 36)
GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
send("Willkommen bei meinem Textadventure."&@CRLF&"Wählen sie jetzt bitte ihre Klasse.")

[/autoit][autoit][/autoit][autoit]

Klassenwahl()
GUICtrlSetData($edtText,"")
Send("Ihre Klasse ist nun: "&$Klasse&"!")
Kampf()

[/autoit][autoit][/autoit][autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit]

Ihr wäre das ganze Skript mit dem neu eingebauten sollten soweit aber noch keiner Fehler drin sein