Graphics3D 1280,960,16,1

camera=CreateCamera()
light=CreateLight(2)



MoveEntity light,-40,-20,-40
RotateEntity light,1,1,1

CameraClsColor camera,0,0,0
CameraRange camera,.1,100
MoveEntity camera,0,20,-80









hanf=LoadAnimMesh("GFX\hemp.b3d")
MoveEntity hanf,0,0,10


hanf2=LoadAnimMesh( "gfx\hemp.b3d" )
MoveEntity hanf2,-40,0,30

hanf3=LoadAnimMesh( "gfx\hemp.b3d")
MoveEntity hanf3,-50,0,0

ScaleEntity hanf,0.5,0.5,0.5
ScaleEntity hanf2,0.5,0.5,0.5
ScaleEntity hanf3,0.5,0.5,0.5


kiff=LoadAnimMesh( "gfx\oldman.b3d")
MoveEntity kiff,-20,0,0

palme1=LoadAnimMesh ("gfx\palm5.b3d")
MoveEntity palme1,-20,25,40



busch1=LoadAnimMesh( "gfx\bush2.b3d" )
MoveEntity busch1,20,0,20



busch2=LoadAnimMesh( "gfx\bush3.b3d" )
MoveEntity busch2,-45,0,20

If Not Animating( kiff )
Animate kiff,1,.3,seq,10



ExtractAnimSeq kiff,0,30
ExtractAnimSeq kiff,31,10
ExtractAnimSeq kiff,101,116









   ;create cloud planes (ripped straight out of Marks examples)
cl=LoadTexture( "gfx\clouds.bmp",2 )
ScaleTexture cl,500,500
p=CreatePlane()
EntityTexture p,cl
EntityFX p,1
PositionEntity p,50,60,50
p=CopyEntity( p )
RotateEntity p,0,0,180






   ;create cloud planes (ripped straight out of Marks examples)
tex=LoadTexture( "gfx\moss.bmp",1 )
ScaleTexture tex,50,50
p=CreatePlane()
EntityTexture p,tex
EntityFX p,1
PositionEntity p,50,0.1,0
p=CopyEntity( p )
RotateEntity p,0,0,180





listener=CreateListener(listener)

music=LoadSound("gfx\quit.wav")

vogel=LoadSound("gfx\day.wav")
LoopSound vogel
PlaySound vogel



While Not KeyHit(1)





   If KeyHit(2)=1 Then enable=1-enable
   WireFrame enable










   If KeyDown(208) Then MoveEntity camera,0,0,-0.5
   If KeyDown(200) Then MoveEntity camera,0,0,0.5
   
   If KeyDown(203) Then yaw#=yaw#+1
   If KeyDown(205) Then yaw#=yaw#-1



   If MouseHit(1) Then EmitSound (music,camera)





RotateEntity camera,pitch#,yaw#,roll#






UpdateWorld

RenderWorld


 



Color 255,0,0 Text 480,0,"Ich bin ein kleiner Kifferopa, hahahahaha"
Color 0,255,150 Text 480,20,"Ich ziehe durch die Insel und säe meinen Hanf."
Color 255,255,0 Text 480,40,"Und krieg ´nen Krampf."

Color 255,255,255 Text 830,800,"Nummerntaste 1     =         Gitterlinien an/aus"
Color 255,255,255 Text 830,820,"Taste nach oben, unten, links und rechts   =   Steuerung"
Color 255,255,255 Text 830,840,"Tastenblock über den Pfeiltasten      = Hintergrundfarbe"

Color 255,255,0 Text 40,935,"***     kiff     ***"
Color 0,255,255 Text 1215,10,"V.  1.10"
Color 0,255,0 Text 500,940,"w.w.kroener@t-online.de"

Color 0,0,255 Text 1100,940,"2004 by Marcel Kröner"


If KeyDown(211)=True And red#>0 Then red#=red#-1
If KeyDown(210)=True And red#<255 Then red#=red#+1
If KeyDown(207)=True And green#>0 Then green#=green#-1
If KeyDown(199)=True And green#<255 Then green#=green#+1
If KeyDown(209)=True And blue#>0 Then blue#=blue#-1
If KeyDown(201)=True And blue#<255 Then blue#=blue#+1






CameraClsColor camera,red#,green#,blue#


Color 0,255,0

Text 60,20,"Red: "+red#
Text 60,40,"Green: "+green#
Text 60,60,"Blue: "+blue#




Flip



Wend

EndIf