graphics3d 1280, 800
setbuffer backbuffer()

DIM mshnme$(1000)
DIM sx#(1000)
DIM sy#(1000)
DIM sz#(1000)
DIM rx#(1000)
DIM ry#(1000)
DIM rz#(1000)
DIM px#(1000)
DIM py#(1000)
DIM pz#(1000)
Dim msh(1000)

camera = createcamera()
PositionEntity camera,100,15,900
camerarange camera, 1, 100

light = createlight()

terrain = loadterrain("hmp.bmp")
TerrainDetail terrain,4000,True
ScaleEntity terrain,1,50,1
Terrainshading terrain, 1
Entitytexture terrain, loadtexture("grid.bmp", 256+2)
Ambientlight 255, 255, 255
EntityPickMode terrain, 2

fkimg=loadimage("fk.bmp")
MidHandle fkimg
ctrl=loadImage("ctrl.bmp")
MaskImage ctrl, 255, 0, 255

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


o = 0
obj=ReadFILE("objekte.txt")
 While not Eof(obj)
  o = o + 1
  mshnme$(o)=ReadLine$(obj)
  sx#(o)=readINT (obj)
  sy#(o)=readINT (obj)
  sz#(o)=readINT (obj)
  rx#(o)=readINT (obj)
  ry#(o)=readINT (obj)
  rz#(o)=readINT (obj)
  px#(o)=readINT (obj)
  py#(o)=readINT (obj)
  pz#(o)=readINT (obj)
   msh(o)=LoadMesh(mshnme$(o))
  ScaleEntity msh(o), sx#(o), sy#(o), sz#(o)
  RotateEntity msh(o), rx#(o), ry#(o), rz#(o)
  PositionEntity msh(o), px#(o), py#(o), pz#(o)
  EntityType msh(o), 2
  EntityPickMode msh(o), 2
 Wend
closefile obj

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;nmsh=LoadMesh(nent$)
  ;ScaleEntity nmsh, nsx#, nsy#, nsz#
  ;RotateEntity nmsh, nrx#, nry#, nrz#
  ;PositionEntity nmsh, npx#, npy#, npz#
   nmsh=msh(1)
   nsx#=sx#(1)
   nsy#=sy#(1)
   nsz#=sz#(1)
   npx#=px#(1)
   npy#=py#(1)
   npz#=pz#(1)
   nrx#=rx#(1)
   nry#=ry#(1)
   nrz#=rz#(1)
   nmshnme$=mshnme$(1)
   curr = 1

MoveMouse GraphicsWidth()/2, GraphicsHeight()/2
while not keyhit(28)
EntityColor nmsh, 255, 64, 64
;b# = b# + 2
;a# = SIN(b#)*64+128

if keydown(200) moveentity camera, 0, 0, 1
if keydown(208) moveentity camera, 0, 0, -1
if keydown(42) g# = .1 else g# = 1
if keydown(30) npx# = npx# - g#
if keydown(32) npx# = npx# + g#
if keydown(31) npz# = npz# - g#
if keydown(17) npz# = npz# + g#
if keydown(44) npy# = npy# - g#/10
if keydown(45) npy# = npy# + g#/10
if keydown(2) nry# = nry# - g#
if keydown(3) nry# = nry# + g#
if keydown(4) nrx# = nrx# - g#
if keydown(5) nrx# = nrx# + g#
if keydown(6) nrz# = nrz# - g#
if keydown(7) nrz# = nrz# + g#
if keydown(59) Entitytexture terrain, loadtexture("grid.bmp", 256+2): EntityAlpha terrain, 1
if keydown(60) Entitytexture terrain, loadtexture("grasgrid2.bmp"): EntityAlpha terrain, 0.8
if keydown(61) Entitytexture terrain, loadtexture("gras.bmp"): EntityAlpha terrain, 1
if keydown(36) nsx# = nsx# + g#/100
if keydown(38) nsx# = nsx# - g#/100
if keydown(23) nsz# = nsz# + g#/100
if keydown(50) nsz# = nsz# - g#/100
if keydown(51) nsy# = nsy# + g#/100
if keydown(52) nsy# = nsy# - g#/100
if keyhit(16) wf = 1 - wf
wireframe wf

If Keydown(15)

 ins$=INPUT("Welches Objekt einfügen?")
 test=LoadMesh(ins$)
 if test<>0 then
  o = o + 1
   sx#(o) = 1
   sy#(o) = 1
   sz#(o) = 1
   px#(o) = EntityX#(camera)
   py#(o) = Entityy#(camera)
   pz#(o) = Entityz#(camera)

   mshnme$(o)=ins$
  msh(o)=LoadMesh(mshnme$(o))
  ScaleEntity msh(o), sx#(o), sy#(o), sz#(o)
  RotateEntity msh(o), rx#(o), ry#(o), rz#(o)
  PositionEntity msh(o), px#(o), py#(o), pz#(o)
  EntityType msh(o), 2
  EntityPickMode msh(o), 2
 endif
 freeentity test
 flushkeys
endif


If keydown(29) then
   fk = 1
   CameraPick (camera, graphicsWidth()/2, graphicsheight()/2)
   picked = pickedentity()
   For u = 1 to o
      if msh(u) = picked then
        if msh(curr) <> msh(u) then
            EntityColor nmsh, 255, 255, 255
            msh(curr)=nmsh
            sx#(curr)=nsx#
            sy#(curr)=nsy#
            sz#(curr)=nsz#
            px#(curr)=npx#
            py#(curr)=npy#
            pz#(curr)=npz#
            rx#(curr)=nrx#
            ry#(curr)=nry#
            rz#(curr)=nrz#
            mshnme$(curr)=nmshnme$
            curr = u
            name$ = mshnme$(u)
            nmsh=msh(u)
            nsx#=sx#(u)
            nsy#=sy#(u)
            nsz#=sz#(u)
            npx#=px#(u)
            npy#=py#(u)
            npz#=pz#(u)
            nrx#=rx#(u)
            nry#=ry#(u)
            nrz#=rz#(u)
            nmshnme$=mshnme$(u)
         Endif   
      endif

   next
   if terrain = picked then name$ = "Terrain"
   if picked = 0 then name$ = "<nothing>"
else
   fk = 0
endif


ScaleEntity nmsh, nsx#, nsy#, nsz#
RotateEntity nmsh, nrx#, nry#, nrz#
PositionEntity nmsh, npx#, npy#, npz#

;if keydown(200) moveentity camera, 0, 1, 0
if keydown(1) END

x = x + MouseYSpeed()
If x > 360 then x = x - 360
If x < -360 then x = x + 360
y = y - MouseXSpeed()
If y > 360 then y = y - 360
If y < -360 then y = y + 360
RotateEntity camera, x, y, 0
MoveMouse GraphicsWidth()/2, GraphicsHeight()/2
RENDERWORLD
Text 1, 20, name$

if fk=1 DrawImage fkimg, graphicsWidth()/2, GraphicsHeight()/2
DrawImage ctrl, 0, GraphicsHeight()-50

Flip
wend

            msh(curr)=nmsh
            sx#(curr)=nsx#
            sy#(curr)=nsy#
            sz#(curr)=nsz#
            px#(curr)=npx#
            py#(curr)=npy#
            pz#(curr)=npz#
            rx#(curr)=nrx#
            ry#(curr)=nry#
            rz#(curr)=nrz#
            mshnme$(curr)=nmshnme$


obj=WriteFILE("objekte.txt")

For w = 1 to o
WriteLine obj, mshnme$(w)
WriteINT obj, sx#(w)
WriteINT obj, sy#(w)
WriteINT obj, sz#(w)
WriteINT obj, rx#(w)
WriteINT obj, ry#(w)
WriteINT obj, rz#(w)
WriteINT obj, px#(w)
WriteINT obj, py#(w)
WriteINT obj, pz#(w)
next

;WriteLine obj, nent$
;WriteINT obj, nsx
;WriteINT obj, nsy
;WriteINT obj, nsz
;WriteINT obj, nrx
;WriteINT obj, nry
;WriteINT obj, nrz
;WriteINT obj, npx
;WriteINT obj, npy
;WriteINT obj, npz
closefile obj