游戏开发论坛

 找回密码
 立即注册
搜索
查看: 3677|回复: 11

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

[复制链接]

77

主题

485

帖子

486

积分

中级会员

Rank: 3Rank: 3

积分
486
发表于 2008-11-6 22:26:00 | 显示全部楼层 |阅读模式
转眼一年过去了.其实在游戏方面什么也没学.
我用VB找到一个赚钱的方法.

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

77

主题

485

帖子

486

积分

中级会员

Rank: 3Rank: 3

积分
486
 楼主| 发表于 2008-11-6 22:28:00 | 显示全部楼层

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

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

77

主题

485

帖子

486

积分

中级会员

Rank: 3Rank: 3

积分
486
 楼主| 发表于 2008-11-6 22:31:00 | 显示全部楼层

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

如何做一个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

大概就是这样。

77

主题

485

帖子

486

积分

中级会员

Rank: 3Rank: 3

积分
486
 楼主| 发表于 2008-11-6 22:35:00 | 显示全部楼层

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

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

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

77

主题

485

帖子

486

积分

中级会员

Rank: 3Rank: 3

积分
486
 楼主| 发表于 2008-11-6 22:40:00 | 显示全部楼层

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

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

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

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

270

主题

6442

帖子

6446

积分

论坛元老

Rank: 8Rank: 8

积分
6446
发表于 2008-11-7 08:12:00 | 显示全部楼层

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

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

12

主题

733

帖子

734

积分

高级会员

Rank: 4

积分
734
发表于 2008-11-15 22:12:00 | 显示全部楼层

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

教主果然实贱

61

主题

1429

帖子

1430

积分

金牌会员

Rank: 6Rank: 6

积分
1430
发表于 2008-11-15 22:25:00 | 显示全部楼层

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

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

教主果然实贱


这个论坛最贱就是你!

1

主题

46

帖子

46

积分

注册会员

Rank: 2

积分
46
发表于 2008-11-17 13:54:00 | 显示全部楼层

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

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

11

主题

747

帖子

752

积分

高级会员

Rank: 4

积分
752
发表于 2008-11-18 11:13:00 | 显示全部楼层

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

贱得实在,叫实践。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

作品发布|文章投稿|广告合作|关于本站|游戏开发论坛 ( 闽ICP备17032699号-3 )

GMT+8, 2026-1-20 21:16

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表