PureBasic Forums - English

Code: Select all

material mtl_fence_01_S
{
	technique
	{
		pass
		{
			ambient 0.588 0.588 0.588 1 
			diffuse 0.588 0.588 0.588 1 
			specular 0 0 0 1 10 
			scene_blend one one_minus_src_alpha 
			cull_hardware none 
			cull_software none

			texture_unit 
			{
				texture mtl_fence_01.dds 
			}
		}
	}
}
material mtl_pod_01_S3
{
	technique
	{
		pass
		{
			ambient 0.588 0.588 0.588 1 
			diffuse 0.588 0.588 0.588 1 
			specular 0 0 0 1 10 
			scene_blend one one_minus_src_alpha 

			texture_unit 
			{
				texture mtl_pod_01.dds
			}
		}
	}
}
material prop_barbwire3_S
{
	technique
	{
		pass
		{
			ambient 0.588 0.588 0.588 1 
			diffuse 0.588 0.588 0.588 1 
			specular 0 0 0 1 10 
			scene_blend one one_minus_src_alpha 
			cull_hardware none 
			cull_software none

			texture_unit 
			{
				texture prop_barbwire3.dds
			}
		}
	}
}

Code: Select all

material mtl_fence_01_S
{
   technique
   {
      pass
      {
         ambient 0.588 0.588 0.588 1
         diffuse 0.588 0.588 0.588 1
         specular 0 0 0 1 10
         scene_blend one one_minus_dest_alpha
         cull_hardware none
         cull_software none

         texture_unit
         {
            texture mtl_fence_01.dds
         }
      }
   }
}
material mtl_pod_01_S3
{
   technique
   {
      pass
      {
         ambient 0.588 0.588 0.588 1
         diffuse 0.588 0.588 0.588 1
         specular 0 0 0 1 10
         scene_blend one one_minus_dest_alpha

         texture_unit
         {
            texture mtl_pod_01.dds
         }
      }
   }
}
material prop_barbwire3_S
{
   technique
   {
      pass
      {
         ambient 0.588 0.588 0.588 1
         diffuse 0.588 0.588 0.588 1
         specular 0 0 0 1 10
         scene_blend one one_minus_dest_alpha
         cull_hardware none
         cull_software none

         texture_unit
         {
            texture prop_barbwire3.dds
         }
      }
   }
}

Code: Select all

material mtl_fence_01_S
{
	technique
	{
		pass
		{
			cull_hardware none
			cull_software none
			scene_blend alpha_blend
			depth_write off

			texture_unit 
			{
				texture mtl_fence_01.dds
			}
		}
	}
}
material mtl_pod_01_S3
{
	technique
	{
		pass
		{
			texture_unit 
			{
				texture mtl_pod_01.dds
			}
		}
	}
}
material prop_barbwire3_S
{
	technique
	{
		pass
		{
			cull_hardware none
			cull_software none

			scene_blend alpha_blend
			depth_write off

			texture_unit 
			{
				texture prop_barbwire3.dds
			}
		}
	}
}

Code: Select all

material Transparent
{
   receive_shadows off
   transparency_casts_shadows off
   technique Default
   {
      pass Main
      {
         ambient 0.8 0.8 0.8 0.8
         specular 0 0 0 0 0
         emissive  0.8 0.8 0.8 0.8

         cull_hardware none
         cull_software none
         scene_blend alpha_blend 
         
         alpha_rejection greater 128 
         depth_write on 

         
         texture_unit
         {
             //CHANGE Spark1.png to a texture that has some alpha.
            texture Spark1.png -1
         }         
      }
   }
}

Code: Select all

;PRESS Escape to exit

#CameraSpeed = 1

Define.f KeyX, KeyY, MouseX, MouseY

If InitEngine3D()

  InitSprite()
  InitKeyboard()
  InitMouse()
  ExamineDesktops()
  
DeskWid=DesktopWidth(0)
DeskHei=DesktopHeight(0)

Add3DArchive("C:\Script", #PB_3DArchive_FileSystem);####SET THE PATH TO YOUR MATERIAL SCRIPT.
Add3DArchive("C:\Texture", #PB_3DArchive_FileSystem);####SET THE PATH TO YOUR TEXTURE THAT THE MATERIAL SCRIPT USES.

 If OpenWindow(0, 0, 0, DeskWid, DeskHei, "Alpha to Shadow", #PB_Window_ScreenCentered)
  If OpenWindowedScreen(WindowID(0), 0, 0, DeskWid, DeskHei, 0, 0, 0)
    
    Parse3DScripts()
    
    GetScriptMaterial(BoxMaterial, "Transparent")
    
    BoxMesh=CreateCube(#PB_Any,40)
    BoxEntity=CreateEntity(#PB_Any,MeshID(BoxMesh),MaterialID(BoxMaterial),0,-15,0)
    
    PlaneTexture=CreateTexture(#PB_Any,32,32)
    StartDrawing(TextureOutput(PlaneTexture))
      Box(0,0,32,32,RGB(0,0,255))
    StopDrawing()
    
    PlaneMaterial=CreateMaterial(#PB_Any, TextureID(PlaneTexture))
    
    PlaneMesh=CreatePlane(#PB_Any,10000,10000,10,10,10,10)
    PlaneEntity=CreateEntity(#PB_Any,MeshID(PlaneMesh),MaterialID(PlaneMaterial),0,-40,0)
    EntityRenderMode(PlaneEntity,0)
    
    CreateCamera(0, 0, 0, 100, 100)
    MoveCamera(0, -50, 0, 100, #PB_Absolute)
    CameraLookAt(0,0,0,0)

    CreateLight(0,RGB(255,255,255),500,500,200)
    
    WorldShadows(#PB_Shadow_TextureAdditive, 0, RGB(127, 127, 127), 4096)
    
    Repeat
            
      If ExamineMouse()
        MouseX = -MouseDeltaX() * #CameraSpeed * 0.05
        MouseY = -MouseDeltaY() * #CameraSpeed * 0.05
      EndIf  
      
      If ExamineKeyboard()
        
        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()

      FlipBuffers()
    Until KeyboardPushed(#PB_Key_Escape) 
  EndIf
 EndIf
Else
  MessageRequester("Error", "The 3D Engine can't be initialized", 0)
EndIf
  
End