|
|
楼主 |
发表于 2005-12-4 15:32:00
|
显示全部楼层
Re:TV3D引擎的出现难道不是给人用的吗？
BSP是CS的地图，我当然可以用这个资源，那我问你TV3D是用来做什么的？
那你的游戏也不是自己做的了，我告诉你都是我做的，程序几百行，你的代码我是从来都没看过，你大那把茶壶还有那些3D的东西都是抄袭国外网站的程序的，因为你根本不会，
所以你只能在3D方面混，你那个方块是拿别人的游戏改的。
贴几行程序看看是不是我做的，我从来都是以理服人的：
Public Sub LoadTextureRes()
AK47 = TexFac.LoadTexture(App.Path + "\BMP\AK47.bmp", "AK47", , , RGB(19, 50, 80))
GH = TexFac.LoadTexture(App.Path + "\BMP\GH.bmp", "GH", , , RGB(1, 1, 22))
FIRE = TexFac.LoadTexture(App.Path + "\BMP\FIRE.bmp", "FIRE", , , RGB(138, 249, 250))
'天空贴图
TexFac.LoadTexture "bmp\Back.jpg", "Back"
TexFac.LoadTexture "bmp\Front.jpg", "Front"
TexFac.LoadTexture "bmp\Left.jpg", "Left"
TexFac.LoadTexture "bmp\Right.jpg", "Right"
TexFac.LoadTexture "bmp\top.jpg", "Top"
TexFac.LoadTexture "bmp\down.jpg", "down"
End Sub
Private Sub Form_Load()
TV.ShowWinCursor False '隐藏鼠标
Form1.Top = 0: Form1.Left = 0
Form1.AutoRedraw = True
Form1.Height = 600 * 15: Form1.Width = 800 * 15
TV.SetWatermarkParameters TV_WATERMARK_TOPRIGHT, 0.1
Form1.Show
TV.Initialize Form1.hWnd
TV.ResizeFullscreen 800, 600, 16 '满屏幕显示
TV.DisplayFPS = True 'FPS
TV.SetSearchDirectory App.Path
BSP.SetCurvePrecision TV_CURVE_NORMAL
TV.OpenPAKFile "MAP\texture.pak"
BSP.Load "MAP\MAP1.BSP", , , True
TV.ClosePAKFile
BSP.SetParameters True, True, TV_FRONT_CULL
PosX = BSP.GetStartPlayerPosition.x
PosY = BSP.GetStartPlayerPosition.y
PosZ = BSP.GetStartPlayerPosition.z
................................
X1 = 100: z1 = 1620 '位置
X2 = 200: z2 = 1550 '位置
Y1 = Land.GetHeight(X1, z1)
Y2 = Land.GetHeight(X2, z2)
Set TheTree1 = Scene.CreateBillboard(GetTex("TreeTexture"), X1, Y1 + 35, z1, 180, 180)
Set TheTree2 = Scene.CreateBillboard(GetTex("MAN"), X2, Y2 + 70, z2, 32, 98)
.....................
'画天空
Atmosphere.SkyBox_SetTexture GetTex("Front"), GetTex("Back"), GetTex("Left"), GetTex("Right"), GetTex("Top"), GetTex("DOWN")
Atmosphere.Atmosphere_Render
'画人
Land.Render True
Scene.RenderAllMeshes
'----------画AK47枪
Scr.ACTION_Begin2D
If GetAsyncKeyState(VK_LBUTTON) And &H8000 Then Draw2D FIRE, 510, 350, 100, 96
Draw2D AK47, 500, 370, 310, 238
Draw2D GH, 0, 40, 88, 31
Scr.ACTION_End2D
TV.RenderToScreen
..............................
PosSx = PosX
PosSy = PosY
POssz = PosZ
If Inp.IsKeyPressed(TV_KEY_UP) = True Then
PosSx = PosX + Cos(Ang) * TV.TimeElapsed * 0.2
POssz = PosZ + Sin(Ang) * TV.TimeElapsed * 0.2
End If
BSP.SlidingCollision Vector3(PosX, PosY, PosZ), Vector3(PosSx, PosSy, POssz), Ret, 2
..........................
If Inp.IsKeyPressed(TV_KEY_A) = True Then '跳跃
PosSy = PosY + TV.TimeElapsed * 0.2
end if
中间很多省略.......不想公布太多，现在轮到你了......
TV3D的优越性你是可以看到的，我只看了两三天就可以写简单程序了。 |
|
发表于 2005-12-4 15:54:00
