- 注册时间
- 2005-10-3
- 最后登录
- 2008-2-20
②入门
- 积分
- 36
|
我对RM不是很了解,但一直尝试用VB写游戏
用VB开发是一件很有趣的事情,可以实现一切想实现的内容.
以前用VB写一些小软件
最近在研究如何写游戏.我尝试做了四方向卷轴模型,矢量地图模型,帧数控制,循环背景,角色动画,多媒体播放控制.都获得了成功.
所以我觉得用VB写游戏其实不是遥不可及的事情~
有没这方面同好?有机会的话交流交流~我还有很多不明白的东西.
开发环境VB6.0+WIN32API
其实一直想用DX写游戏....但是DX FOR VB的资料实在是太欠缺了,很遗憾啊...哪位朋友有的话是否可以提供给我~
我觉得,只要有好的美工~VB做出的游戏不会逊色于商业游戏.
虽然C的执行效率比较高,但是我并不是写很大型复杂的游戏,所以没有丝毫影响~
下面是我写的一个矢量地图的模型,只用了三种地图元素,图是在RM里用PS偷的 [s:2]
1.写一个地图代码文件
2.文件读写时候的数据类型转换
3.二维数组存取
4.数组对应切割地图元素
程序很短很简单,画面好象FC早期RPG地图....不过画面只是表面现象呵呵,关键是思路不是么~
Private Sub Form_Click()
drawmap1
'Text1.Text = mapno(7, 8)
End Sub
Private Sub Form_Load()
Open "\map1.dat" For Input As #1 '打开事先写好地图代码文件,由1~3数字构成
For i1a = 1 To 8 '分别为二维数组赋值
For i1b = 1 To 8
Line Input #1, mapnos1
If mapnos1 = "1" Then mapnoi = 1 '数据类型转换,便于处理
If mapnos1 = "2" Then mapnoi = 2
If mapnos1 = "3" Then mapnoi = 3
mapno(i1a, i1b) = mapnoi
Next
Next
End Sub
Public Sub drawmap1() '该过程按照二维数组的值拼装地图
For i2a = 1 To 8
For i2b = 1 To 8
If mapno(i2a, i2b) = 1 Then
BitBlt Picmain.hDC, mapx, mapy, 50, 50, Picmap1.hDC, 0, 0, SRCCOPY
End If
If mapno(i2a, i2b) = 2 Then
BitBlt Picmain.hDC, mapx, mapy, 50, 50, Picmap1.hDC, 50, 0, SRCCOPY
End If
If mapno(i2a, i2b) = 3 Then
BitBlt Picmain.hDC, mapx, mapy, 50, 50, Picmap1.hDC, 100, 0, SRCCOPY
End If
mapx = mapx + 50
Next
mapx = 0
mapy = mapy + 50
Next
End Sub |
|