还记得海子的游戏比赛吗?

happyking

转眼一年过去了.其实在游戏方面什么也没学.
我用VB找到一个赚钱的方法.

游戏方面没长进,你们准备好吗?

happyking

这一年基本是虚度的,但还是有所收获.

happyking

如何做一个2D游戏？  制作：HappyKing
我们把屏幕想像成一个棋盘，上面有很多方格子。在格子里放不同数字，1.代表草地
2.墙 3.玩家 4.虫子 在程序里有一个二维数组表示。
Dim Ground(200)(200) as integer
初始化时画一片草地和墙
Dim i as long,j as long
for i=0 to 300
for j=0 to 300
Ground(i)(j)=1  '设置草地
next i
next j
Ground(5)(5)=2  '设置一堵墙
Ground(5)(6)=2
Ground(5)(7)=2
Ground(5)(8)=2
玩家就在这个棋盘中运动，运动时判断下个格子是草地还是墙，能不能过去？
通过格子中的值来处理碰撞判断。

玩家在格子里跑不流畅，有多个格子表示玩家，跑起来流畅。

如何设置运动间隔?
Private Declare Function GetTickCount as "kernel32" () as long
Dim TimeRate as long

Sub GameLoop()
TimeRate=GetTickCount()  '全局时间

'判断是运动间隔?
Static StartTime as long
IF GetTickCount()-StartTime>1000 then  '如果大于一秒就运动
Move()
StartTime=TimeRate
End IF
End Sub
  
如果在游戏中设置多个怪物？
我们可以用类定义一个怪物，然后设置它运动方式。用类的继承性，做出多个怪物。
再添加不同属性让怪物有不同特色。

Class Chicken  
public x as long
public y as long
public color as long
public sub show()  
End Class

dim RedChicken as new chicken
with RedChicken
.color=vbred
.x=55
.y=55
end with

dim BlackChicken as new chicken
with BlackChicken
.color=vbblack
.x=11
.y=22
end with

大概就是这样。

happyking

争吵是浪费生命.我们应该一起创造价值.
比如写一个教程,从VB的基本语法,到DX的调用.
然后把各种东西组织,写一些2D,3D的游戏.

应该让VB的游戏编程后继有人.

happyking

最近看<李小龙传奇>挺有感觉.小龙在美国学习各门各派的功夫,要创立自己的武学,叫截拳道.

我们要做的事很多,培养新人,将自己对游戏的认识,总结起来.

做不同的2D游戏,然后分析代码的重用,有哪些是重复.做成一个库就是引擎.

游戏之家站长

就是两个字-----实践

打酱油的

教主果然实贱

使命召唤

打酱油的: Re:还记得海子的游戏比赛吗?

教主果然实贱

这个论坛最贱就是你!

有屎之家

看看我的贱名吧。你们都差远呢。

jnmao

贱得实在，叫实践。