Graphics 800,600,32
SetBuffer BackBuffer()
SeedRnd MilliSecs()
timer=MilliSecs()
waiter=200
KAnzahl=10
Dim kanjigespeichert(KAnzahl)
;Dim Auswahl(KAnzahl)   <-- Weglassen!!!(Braucht man ja nicht)
Dim kanjis(KAnzahl)
For i=1 To KAnzahl
kanjis(i)=LoadImage(i+".bmp")
Next
auswahl1=1 ;<--Kein Global
sucher=False


While Not KeyDown(1)
 Cls
 DrawImage kanjis(auswahl1),350,250
 
 If MouseDown(1) Then
  sucher= True
 Else
  sucher = False
 EndIf

 If sucher = True Then
  Delay 500
  z=z+1
  If z=KAnzahl Then  Text 10,10,(z=1)
  auswahl1=Kanjisuche(auswahl1)
  kanjigespeichert(z)=auswahl1
 EndIf

 For zz=1 To KAnzahl
  If kanjigespeichert(zz)=auswahl1 Then auswahl1=Kanjisuche(auswahl1)
 Next
 Flip
Wend

Function Kanjisuche(auswahl)
 auswahl=Rand(1,3)
 If auswahl=3 Then auswahl=1
 Return auswahl
End Function