EntityType player,PLAYER_TYPE,1

Function EntityPickModeRec(Entity,geometrie,verdecken=1)  ; 'Rec ' steht für Rekursiv
   If Not Entity Return                       ; Wir wollen die Rekursive schleife auch
                                                                                     ;irgendwann verlassen

   EntityPickMode entity,geometrie,verdecken      ; Pickmode setzen
   
   For i = 0 To CountChildren(entity)-1              ;Alle  unterobjekte durchgehen
      ent = GetChild(entity,i)
      EntityPickModeRec(ent,geometrie,verdecken)  ; Auf alle unterobjekte die selbe Funktion
   Next                                 ;anwenden, somit wird auch auf alle unterobjekte unseres unterobjekts
                                       ; die Funktion angewandt
End Function

;Für das verdecken sie hier : http://blitzbase.de/befehle3d/EntityPickMode.htm
;lag übrigens an meiner Funktion ^^, CountChildren(Entity)-1 war falsch, die -1 ist zu viel.

Const gw=1024
Const gh=768
Graphics3D gw,gh, 32, 2


Global Cam = CreateCamera()      ; wir brauchen ne Kamera
CameraRange Cam,0.1,10000        ; is ja nurn test

Global mxs#,mys#


mesh=LoadAnimMesh("C:\Programme\Blitz3D\Samples\Blitz 3D Samples\FlameDuck\Walker\walkanim.3DS")  ; von mir aus auch was anderes^^
ScaleEntity mesh,0.03,0.03,0.03      ; das ding wäre sonst viel zu groß
EntityPickModeRec mesh,2         ; Joa die Funktion halt
PointEntity Cam,mesh            ; Auf mesh gucken


Global sp#=0.3                  ;kamera speed
Global txt$                     ;angezeigter Text


light=CreateLight()               ;es werde licht
PositionEntity light,Rand(-100,100),Rand(100,300),Rand(-100,100)
PointEntity light,mesh


CameraClsColor Cam,128,128,128      ;schwarz is zu dunkel^^
HidePointer                     ;keine Maus bitte

While Not KeyDown(1)         
   
   MoveMouse gw/2,gh/2            ;damit uns die Maus nicht ausm Fenster springt
   
   pick=CameraPick(Cam,gw/2,gh/2)   ;wir wollen auch sehen das die Funktion funktioniert^^
   
   If pick
      txt = "Picked Entity : " + EntityName(pick)
   Else
      txt = "No Entity Picked!"
   EndIf
   
   ;--------------Kamerabewegung---------------------
   If KeyDown(17) Then MoveEntity Cam,0,0,sp
   If KeyDown(31) Then MoveEntity Cam,0,0,-sp
   If KeyDown(30) Then MoveEntity Cam,-sp,0,0
   If KeyDown(32) Then MoveEntity Cam,sp,0,0   
   TurnEntity Cam,mys*0.3,-mxs*0.3,0
   RotateEntity Cam,EntityPitch(Cam),EntityYaw(Cam),0
   ;--------------Kamerabewegung---------------------
   
   
   ;-------------Rest ist denk ich Klar-------------
   RenderWorld
   
   Color 255,0,0
   Oval gw/2-5,gh/2-5,10,10,0
   Color 0,0,255
   Text 20,20,txt
   
   Flip
   
   
   mxs=MouseXSpeed()
   mys=MouseYSpeed()
   ;-------------Rest ist denk ich Klar-------------
Wend
End

;----------Die Funktion-------------------------------
Function EntityPickModeRec(Entity,geometrie,verdecken=1) 
   If Not Entity Then Return
   ; Wenn es das Entity nicht gibt, die Funktion garnicht erst ausführen
   
   EntityPickMode Entity,geometrie,verdecken     
   ;Ganz normal Pickmode Setzen
   
   For i = 0 To CountChildren(Entity)
      ;Geht alle Childs durch
      ent = GetChild(Entity,i)
      ;Child 'kriegen'
      EntityPickModeRec(ent,geometrie,verdecken)
      ;Die selbe Funktion von eben nochmal auf alle Childs ausführen
   Next
   ; Ich hoffe du versteht das jetz^^
End Function