Code: Alles auswählen
;
;PB 5.21
;sowas wie ein Tuch
;
;Orginal Code von bobobo
IncludeFile "Screen3DRequester.pb"
Define.f KeyX, KeyY, MouseX, MouseY
#CameraSpeed = 1
If InitEngine3D(3)
Add3DArchive("Data/Textures", #PB_3DArchive_FileSystem)
Add3DArchive("Data/Models" , #PB_3DArchive_FileSystem)
Add3DArchive("Data/Scripts" , #PB_3DArchive_FileSystem)
Add3DArchive("Data/Packs/desert.zip", #PB_3DArchive_Zip)
Add3DArchive("Data/GUI", #PB_3DArchive_FileSystem)
Parse3DScripts()
InitSprite()
InitKeyboard()
InitMouse()
maxx=30
maxy=30
linienan=0
Structure Entities
id.l
x.f
y.f
z.f
meshid.l
matid.l
scalex.l
scaley.l
scalez.l
phys.l
lineid1.l
lineid2.l
EndStructure
Dim Netz.Entities(maxx,maxy) ;Netz 10*10
NewList ent.Entities()
If Screen3DRequester()
CreateMaterial(0, LoadTexture(0, "Dirt.jpg"))
CreateMaterial(1, LoadTexture(1, "doscarte.png"))
;CreateSphere(0, 0.2,3,3)
CreateCube(0,0.8)
CreateSphere(1,4)
For x=0 To maxx
For y=0 To maxy
Netz(x,y)\id=id
Netz(x,y)\lineid1=id
Netz(x,y)\lineid2=id+(maxx*maxy*2) ; hier Addition eines Wertes, damit es eindeutig wird (bei größeren Netzen anpassen)
id+1
Netz(x,y)\x=x
Netz(x,y)\y=y
Netz(x,y)\z=0
Netz(x,y)\meshid=MeshID(0)
If y<maxy
Netz(x,y)\phys=#PB_Entity_BoxBody
Netz(x,y)\matid=MaterialID(1)
Else
If x=maxx-2 Or x=2
Netz(x,y)\phys=#PB_Entity_StaticBody
Else
Netz(x,y)\phys=#PB_Entity_BoxBody
EndIf
Netz(x,y)\matid=MaterialID(0)
EndIf
CreateEntity(Netz(x,y)\id,Netz(x,y)\meshid,Netz(x,y)\matid,Netz(x,y)\x,Netz(x,y)\y,Netz(x,y)\z)
EntityPhysicBody(Netz(x,y)\id,Netz(x,y)\phys)
Next y
Next x
For x=0 To maxx-1
For y=0 To maxy
pj=PointJoint(#PB_Any,EntityID(Netz(x,y)\id),0,0,0,EntityID(Netz(x+1,y)\id),-1,0,0)
SetJointAttribute(pj,#PB_PointJoint_Damping,1)
SetJointAttribute(pj,#PB_PointJoint_Tau,0)
Next y
Next x
For x=0 To maxx
For y=0 To maxy-1
pj=PointJoint(#PB_Any,EntityID(Netz(x,y)\id),0,0,0,EntityID(Netz(x,y+1)\id),0,-1,0)
SetJointAttribute(pj,#PB_PointJoint_Damping,1)
SetJointAttribute(pj,#PB_PointJoint_Tau,0)
Next y
Next x
CreateCamera(0, 0, 0, 100, 100)
MoveCamera(0, 0, 4, 22,1)
CameraLookAt(0, 0, 0, 0)
SkyBox("desert07.jpg")
wg.f=-0.981
WorldGravity(wg)
Debug wg.f
Repeat
Screen3DEvents()
WorldGravity(wg)
If linienan=1
For x=0 To maxx-1
For y=0 To maxy
CreateLine3D(netz(x,y)\lineid1,EntityX(Netz(x,y)\id),EntityY(Netz(x,y)\id),
EntityZ(Netz(x,y)\id),#Red,EntityX(Netz(x+1,y)\id),
EntityY(Netz(x+1,y)\id),EntityZ(Netz(x+1,y)\id),#Green)
Next y
Next x
For x=0 To maxx
For y=0 To maxy-1
CreateLine3D(netz(x,y)\lineid2,EntityX(Netz(x,y)\id),EntityY(Netz(x,y)\id),
EntityZ(Netz(x,y)\id),#Blue,EntityX(Netz(x,y+1)\id),
EntityY(Netz(x,y+1)\id),EntityZ(Netz(x,y+1)\id),#Yellow)
Next y
Next x
EndIf
If ExamineMouse()
MouseX = -MouseDeltaX() * 1* 0.05
MouseY = -MouseDeltaY() * 1 * 0.05
EndIf
If ExamineKeyboard()
If KeyboardPushed(#PB_Key_Space)
ApplyEntityImpulse(Netz(maxx/2,maxy/2)\id,0,0,-20)
EndIf
If KeyboardReleased(#PB_Key_B)
CreateEntity((maxy+1)*(maxx+1)+1,MeshID(1),0,CameraX(0),CameraY(0),CameraZ(0))
EntityPhysicBody((maxy+1)*(maxx+1)+1, #PB_Entity_SphereBody,10 )
ApplyEntityImpulse((maxy+1)*(maxx+1)+1,CameraDirectionX(0)*2000,CameraDirectionY(0)*2000,CameraDirectionZ(0)*2000)
EndIf
If KeyboardPushed(#PB_Key_Subtract)
wg.f=wg.f-0.1
Debug wg
EndIf
If KeyboardPushed(#PB_Key_Add)
wg.f=wg.f+0.1
;WorldGravity(wg)
Debug wg
EndIf
If KeyboardPushed(#PB_Key_R)
For x= 0 To maxx
For y=0 To maxy
MoveEntity(Netz(x,y)\id,x,y,z,#PB_Absolute)
;ScaleEntity(ye3, 1, 2, 2)
Next y
Next x
EndIf
If KeyboardPushed(#PB_Key_Left)
KeyX = -#CameraSpeed
ElseIf KeyboardPushed(#PB_Key_Right)
KeyX = #CameraSpeed
Else
KeyX = 0
EndIf
If KeyboardPushed(#PB_Key_Up)
KeyY = -#CameraSpeed
ElseIf KeyboardPushed(#PB_Key_Down)
KeyY = #CameraSpeed
Else
KeyY = 0
EndIf
EndIf
RotateCamera(0, MouseY, MouseX, 0, #PB_Relative)
MoveCamera (0, KeyX, 0, KeyY)
RenderWorld()
Screen3DStats()
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape) Or Quit = 1
EndIf
Else
MessageRequester("Error", "The 3D Engine can't be initialized",0)
EndIf
End
