cam=CreateCamera()
is_setup_layer(cam)

licht=CreateLight()
RotateEntity licht,90,0,0
;mesh und Surface erstellen
mesh=is_create_mesh()
surface=CreateSurface (mesh)

;by silbersufer logo erstellen
silbersurferlogo=is_create_surface(mesh,"silbersurfer.png",2)
silbersurfer=is_create_bob(silbersurferlogo,256,256)
is_grab_image(silbersurfer,0,0,256,256)
is_automid_bob(silbersurfer)

; Pacman erstellen
pacmanpic=is_create_surface(mesh,"pacman.png",2)
pacman=is_create_bob(pacmanpic,256,256)
is_grab_image(pacman,0,0,256,256)
is_automid_bob(pacman)
is_draw_bob(pacman,400,300)
is_alpha_bob(pacman,1)

; Is Bob logo erstellen
logo=is_create_surface(mesh,"isbob.png",2)
isboblogo=is_create_bob(logo,256,256)
is_grab_image(isboblogo,0,0,256,256)
is_automid_bob(isboblogo)


;1000 Sterne erstellen
starpic=is_create_surface(mesh,"star.png",1+2)
Dim star(1000)
For i=0 To 1000
   star(i) =is_create_bob(starpic,32,32)
   is_draw_bob(star(i),Rnd(0,800),Rnd(0,600))
   is_rotate_bob(star(i),Rnd(-6,6))
   is_move_bob(star(i),Rnd(1,3),0,0)
   is_automid_bob(star(i))
   is_color_bob(star(i),Rnd(10,255),Rnd(10,255),Rnd(10,255))
   is_alpha_bob(star(i),.3)
Next
is_grab_image(starpic,0,0,512,512)



speedx=1
speedy=2
rotate#=.5
Repeat   
   ;Sterne updaten
   For i=0 To 1000
      If is_bob_x(star(i))>832
         is_set_x(star(i),-32)
         is_set_y(star(i),Rnd(0,600))
      EndIf
      is_automate_bob(star(i))
   Next
   ;Logo Is bob Zeichnen
   is_draw_bob(isboblogo,700,90)
   ;by Silbersurfer Zeichnen
   is_draw_bob(silbersurfer,128,580)   
   ;Pacman Zeichnen
   x=x+speedx : y=y+speedy
   is_draw_bob(pacman,x,y)
   is_rotate_bob(pacman,rotate)   
   If is_Bob_x(pacman)>800 Then speedx=-speedx :rotate=-rotate
   If is_Bob_x(pacman)<0 Then speedx=-speedx :rotate=-rotate
   If is_Bob_y(pacman)>600 Then speedy=-speedy
   If is_Bob_y(pacman)<0 Then speedy=-speedy
   ;alles rendern
   UpdateWorld
   RenderWorld

   WaitTimer (tr)
   Flip 0
Until KeyHit(1)
End