Posted BY:tono maryono
Selamat jumpa teman semua! Untuk sekarang ini saya akan memblog bagai mana cara membuat game Playstation Dengan
sebuah software yang tiada lain dan tiada buakan adalah Blitz3d
Software ini sangat Cocok untuk pembuatan game 3D Cuma yah, cocoknya Setandar playstation1.
baiklah kita mulai.
sekarang siapkan sofware tersebut yaitu Blitz3D Vesi berapapun Boleh.
Kita mulai...
klik Star> All Program >blitz3D
Klik>File >Klik>New Dan Copykan code di Bawah:
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; 3D Test: BlitzPlus + Blitz3D
; by: Luis Enrique Braga Ramirez
;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
-------------- decls CODE --------------
--------- Blitz3d+BlitzPluz.decls ------
.lib "User32.dll"
FindWindow%(class$, fenster$):"FindWindowA"
GetActiveWindow%()
SetParent%(hWndChild,hWndNewParent)
ShowWindow% (hwnd%, nCmdShow%): "ShowWindow"
-------------- decls CODE END --------------
-------------- BlitzPlus CODE --------------
---------- BlitzPlus_Blitz3D.EXE -----------
Global Window = CreateWindow("BlitzPlus + Blitz3D" , 0 , 0 , 640 , 520 , Desktop() , 1+4+8 )
Global MainHwnd = GetActiveWindow();User32.dll
SetStatusText(Window,"BlitzPlus + Blitz3D")
Global Menu = WindowMenu( Window )
Global File = CreateMenu( "File" , 0 , Menu )
Global Close = CreateMenu( "Close" , 1 , File )
UpdateWindowMenu Window
ExecFile("Window3D.exe")
Repeat
vwprt = FindWindow("Blitz Runtime Class" , "Window3D");User32.dll
If WaitEvent() = $803 Then End
Until vwprt <> 0
SetParent(vwprt,MainHwnd);User32.dll
SetWindowPos( vwprt , 0 , -2 , -30 , 640 , 480 , 0);User32.dll
ShowWindow% (vwprt ,1) ;User32.dll
Repeat
If WaitEvent()>0 Then
Select EventID()
Case $803
End
Case $1001
Select EventData()
Case 1
End
End Select ;Select EventData()
End Select ;Select EventID()
EndIf
Forever
End ;
-------------- BlitzPlus CODE END --------------
-------------- Blitz3D CODE --------------
-------------- Window3D.EXE --------------
If Windowed3D ()
Graphics3D 640 , 480 , 16 , 2
AppTitle("Window3D")
hwnd = GetActiveWindow() ;User32.dll
ShowWindow% (hwnd ,0) ;User32.dll
SetBuffer BackBuffer()
Else
End
EndIf
Global camera = CreateCamera()
Global light = CreateLight()
Global cube = CreateCube()
CameraViewport camera,0 ,0 , 640 , 480
PositionEntity light,-3,0,3
PositionEntity camera,-3,5,-1
ScaleEntity cube,2,2,2
PointEntity camera,cube
Repeat
TurnEntity cube,0.5,0.5,0.5
UpdateWorld
RenderWorld
Flip
Until FindWindow( "BlitzMax_Window_Class" , "BlitzPlus + Blitz3D" ) = 0 ;User32.dll
End
-------------- Blitz3D CODE END --------------
PLEASE HELP ME TO IMPROVE IT!!!
Kalau Tidak Punya Blitz3D monggo Download DISINI
Untuk Code SLUS Download DISINI
UNTUK SEGALA JURUS BISA DOWNLOAD DISINI
