Hilfe bei Random

Local $sas = "asas"
   Local $Pos = Random(1,5,1)



  if $Pos = "1" then
	 $sas = "a"
  ElseIf $Pos = 2 Then
	 $sas = "b"
  ElseIf $Pos = 3 Then
	 $sas = "c"
  ElseIf $Pos = 4 Then
	 $sas = "z"
  ElseIf $Pos = 5 Then
	 $sas = "x"
	 EndIf


	 MsgBox(0,"asas" & $sas)




   Sleep(500)

Local $sas = "hh"
   Local $bas = "ada"
   Local $mo = "s"
   Local $Pos = Random(1,5,1)
   Local $Pos2 = Random(1,5,1)
   Local $Pos3 = Random(1,2342,1)
  if $Pos = "1" then
	 $sas = "a"
  ElseIf $Pos = 2 Then
	 $sas = "b"
  ElseIf $Pos = 3 Then
	 $sas = "c"
  ElseIf $Pos = 4 Then
	 $sas = "z"
  ElseIf $Pos = 5 Then
	 $sas = "x"
	 EndIf


 if $Pos2 = "1" then
	 $bas = "a"
  ElseIf $Pos2 = 2 Then
	 $bas = "b"
  ElseIf $Pos2 = 3 Then
	 $bas = "c"
  ElseIf $Pos2 = 4 Then
	 $sas = "z"
  ElseIf $Pos2 = 5 Then
	 $bas = "x"
  EndIf




   if $Pos = "1" then
	 $mo = "a"
  ElseIf $Pos = 2 Then
	 $mo = "b"
  ElseIf $Pos = 3 Then
	 $mo = "c"
  ElseIf $Pos = 4 Then
	 $mo = "z"
  ElseIf $Pos = 5 Then
	 $mo = "x"
	 EndIf


Sleep(9000)


Send($sas & $ bas & $mo)