...
RenderWorld
....

If leiste=1 Then ;Menü
   playericon=LoadImage(\"player.jpg\")
   DrawImage playericon,400,600
 

   Color (0),(0),(0)
   Rect 380,630,40,40,0
   Rect 430,630,40,40,0
   Rect 480,630,40,40,0
   Rect 530,630,40,40,0
   Rect 580,630,40,40,0

   SetFont fntArialB
   Text 380,600,\"Zwerg\" + \" Level 1 \" ,False,False
   Rect 840,610,40,40,0
   Line 860,650,860,660
   .......
   Else
   FreeImage playericon
   End If

    Flip
	 
   Wend
   ClearWorld
  
   End

...Hier käme die While Hauptschleife also schreiben wir sie mal hin:

While Not KeyHit(1)

If KeyDown(17)=1 Then WireFrame 1  ;Taste w
   If KeyDown(31)=1 Then WireFrame 0  ; Taste s
   If KeyDown( 60 )=True Then zoom#=zoom#-0.1;zoom  
   If KeyDown( 59 )=True Then zoom#=zoom#+0.1;zoom 
   If KeyDown(61)= True Then leiste=1;Leiste an
   If KeyDown(62)=True Then leiste=0;Leiste aus

   If zoom#<1 Then 
	 zoom#=1 
   End If
   If zoom#>100 Then 
	 zoom#=100 
   End If
   CameraZoom cam,zoom# 


   UpdateWorld
   RenderWorld
   
   Text 400,100,\"Spielerposition:\" + \"X: \" +EntityX(Spieler) +\" Y: \"+EntityY(Spieler) +\" Z: \"+EntityZ(Spieler)
   Text 400,200,\"Kameraposition:\"+ \"X: \" +EntityX(cam) +\" Y: \"+EntityY(cam) +\" Z: \"+EntityZ(cam)
   Text 100,100,\"Gerenderte Dreiecke: \" + TrisRendered() 

   If EntityInView(castle,cam)=1 Then 
   ShowEntity castle
   Text 100,150,\"akt.Mesh: Burg : wird gerendert\"
   Else
   HideEntity castle
   End If

   For i=1 To 20
   If EntityInView(baum(i),cam)=1 Then 
   ShowEntity baum(i)
   Text 100,350,\"akt.Mesh: sichtbare Bäume werden gerendert\"
   Else
   HideEntity baum(i)
   End If
   Next

   For t=1 To 8
   If EntityInView(zombie_gegner(t),cam)=1 Then 
   ShowEntity zombie_gegner(t)
   Text 100,450,\"akt.Mesh: sichtbare Zombies werden gerendert \"
   Else
   HideEntity zombie_gegner(t)
   End If
   Next

   If treffer=True Then
   Text 200,600,\"Treffer!!\"
   Else
   Text 200,600,\"Kein Treffer!!\"
   End If

   If leiste=1 Then ;Menü
   playericon=LoadImage(\"player.jpg\")
   DrawImage playericon,400,600

   

   

   Color (139),(90),(43)
   Rect 0,600,1024,168,1 

   Color (0),(0),(0)
   Rect 380,630,40,40,0
   Rect 430,630,40,40,0
   Rect 480,630,40,40,0
   Rect 530,630,40,40,0
   Rect 580,630,40,40,0

   SetFont fntArialB
   Text 380,600,\"Zwerg\" + \" Level 1 \" ,False,False
   Rect 840,610,40,40,0
   Line 860,650,860,660
   Line 820,680,840,680
   Line 880,680,900,680
   Rect 780,660,40,40,0
   Rect 900,660,40,40,0
   Rect 840,660,40,40,0
   Line 860,700,820,720
   Line 860,700,900,720
   Rect 800,720,40,40,0
   Rect 880,720,40,40,0

   SetFont fntArialB_2
   Text 390,680,\"F6\",False,False
   Text 440,680,\"F7\",False,False
   Text 490,680,\"F8\",False,False
   Text 540,680,\"F9\",False,False
   Text 590,680,\"F10\",False,False
   Text 10,620,\"Energie: 100\",False,False
   Text 10,640,\"Mana: 0\", False,False
   Text 10,660,\"Kraft: 1\",False,False
   Text 10,680,\"Geschwindigkeit: 5\" , False , False
   Text 10,700,\"Geschick: 10 \",False,False
   Text 10,720,\"Verteidigung: 1-2\"
   Text 10,740,\"Schaden: 1-2 \"
   Text 200,740,\"Inventar: ->\",False,False
   Rect 300,720,40,40,0
   Rect 350,720,40,40,0
   Rect 400,720,40,40,0
   Rect 450,720,40,40,0
   Rect 500,720,40,40,0
   Rect 550,720,40,40,0
   Rect 600,720,40,40,0
   Rect 650,720,40,40,0
   Rect 700,720,40,40,0
   Else
   FreeImage playericon
   End If

   Color (0),(255),(0)
   Rect MouseX(),MouseY(),20,20
   ;Text 100,100 ,\"angeklickt: \"+EntityName$(name)
   frames=frames+1
   If MilliSecs()-render_time=>1000 Then fps=frames : frames=0 : render_time=MilliSecs()	
   Text 0,0,fps
	 
	  
	 Flip
	 
   Wend
   ClearWorld
  
   End

Habs jetz allerdings n bisschen aus dem Zusammenhang gerissen
da kommt normalerweise noch mehr aber das sollte zur
Illustration reichen

Irgendwelche Vorschläge??