; monster erstellen
Dim monster(100)
monster(0)=CreateCube()
ScaleEntity monster(0),30,30,30
PositionEntity monster(0),500,-33,500
For mon=0 To 100
 monster(mon)=CopyEntity(monster(0))
 xmon=Rand(-5000,5000)
 zmon=Rand(-5000,5000)
 PositionEntity monster(mon),xmon,-33,zmon
 EntityType monster(mon),3
 EntityPickMode monster(mon),2
Next

dim feld(50)

for i=0 to 50
   repeat
      wert=rand(0,100)
      weitergehts=true
      for ii=0 to i
         if feld(ii)=wert then weitergehts=false
      next
   until weitergehts
   feld(i)=wert
next

dim feld(3,3)

for x=1 to 3
   for y=1 to 3
      repeat
         wert=rand(1,9)
         weitergehts=true
         for xx=1 to 3
            for yy=1 to 3
               if feld(xx,yy)=wert then  weitergehts=false
            next
         next    
      until weitergehts
      feld(x,y)=wert
   next
next

for x=1 to 3
   s$=""
   for y=1 to 3
      s$=s$+feld(x,y)+" "
   next
   print s$
next

waitkey()

x=-2
z_v=-1
Dim feld(anzf+1)
Dim feld_var(anzf+1)
 feld(0)=CreateCube()
 feld_var(0)=1
 PositionEntity feld(0),-5,0,0
For felder=1 To anzf
feld(felder)=CopyEntity(feld(0))
feld_var(felder)=0
 x=x+2
 z_v=z_v+1
 If z_v=anzr Then
  z=z+2
  z_v=0
  x=0
 EndIf
PositionEntity feld(felder),x,0,z
Next

Dim stein(anzh+1)
 stein(0)=CreateCube()
 PositionEntity stein(0),-5,2,0
 EntityColor stein(0),255,0,0
For platz=1 To anzh
 stein(platz)=CopyEntity(stein(0))
.nochmal
 f=Rand(1,anzf)
 If feld_var(f)=1 Then Goto nochmal
 hx=EntityX(feld(f))
 hz=EntityZ(feld(f))
 PositionEntity stein(platz),hx,2,hz
feld_var(f)=1
Next