制作游戏代码
Dim game(3,2),i,j,result,num '定义二维数组 二维长度3, 一维长度2
Dim fso ,ws,f ,logFileWrite,logFileRead, fileStr,flag,flagFailNum, flagIndex ' 定义日志文件
set ws = CreateObject("wscript.shell")
Set fso = CreateObject("scripting.filesystemobject")
If fso.fileexists("C:\Users\18190\Desktop\vbs\测试\game_log.txt") Then
Else
Set f = fso.createtextfile("C:\Users\18190\Desktop\vbs\测试\game_log.txt",true)
'If fso.fileexists("C:\Users\18190\Desktop\vbs\测试\game_log.txt") Then
' Set logFileWrite = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\测试\game_log.txt",8,true)
' logFileWrite.writeLine "数字猜猜猜小游戏-游戏日志"
' end if
End If
For i=0 To 2 ' 关卡赋值
For j=4 To 5
game(i,j-4)= i*3+j
Next
Next
'For i=0 To 2
' For j=0 To 1
'MsgBox "game("i","j"): " game(i,j)
'Next
'Next
' 选择操作
Dim cnum, failNum, sucFlag,t
failNum =0
sucFlag =0
Do While 1=1
If sucFlag=1 Then
Exit Do
End if
If failNum =3 Then
MsgBox "您有连续三次操作失误,系统将直接退出..."
Exit do
end if
cnum = InputBox( "欢迎来到 数字猜猜猜小游戏 请选择操作:"chr(10)" 1.注册 2.登录 3.退出","数字猜猜猜小游戏")
If cnum ="" Then
cnum = "-1"
End if
Select Case cnum
Case 1
' 账户注册
Dim juname, upwd,regStr
regStr = ""
do while regStr = ""
uname = InputBox("请输入注册账号: ","数字猜猜猜小游戏-注册")
upwd = InputBox("请输入注册密码: ","数字猜猜猜小游戏-注册")
If uname "" Then
If upwd "" Then
regStr = uname"#"upwd
Else
regStr =""
MsgBox "您输入的注册账号密码有误,请重新输入"
End If
Else
regStr =""
MsgBox "您输入的注册账号密码有误,请重新输入"
End If
If regStr "" Then
If fso.fileexists("C:\Users\18190\Desktop\vbs\测试\game_user.txt") Then
Set logFileWrite = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\测试\game_user.txt",8,true)
t= Year(now)"-"month(now)"-"day(now)" " Hour(now)":"minute(now)":"second(now)
'logFileWrite.WriteBlankLines 1
logFileWrite.writeLine regStr " "t
logFileWrite.close
MsgBox "注册成功!"
exit do
else
Set f = fso.createtextfile("C:\Users\18190\Desktop\vbs\测试\game_user.txt",true)
If fso.fileexists("C:\Users\18190\Desktop\vbs\测试\game_user.txt") Then
Set logFileWrite = fso.OpenTextFile("C:\Users\18190\Desktop\vbs\测试\game_user.txt",8,true)
logFileWrite.writeLine "数字猜猜猜小游戏-用户数据"
logFileWrite.writeLine regStr
logFileWrite.close
MsgBox "注册成功!"
exit do
end if
End If
end if
loop
'wscript.sleep 1000
case 2
vb小游戏源代码
Rem 窗体创建三个单选框按钮，Option1、Option2、Option3
Private Sub Form_Activate()
Option1.Caption = "石头"
Option2.Caption = "剪刀"
Option3.Caption = "布"
Option1.Value = False
Option2.Value = False
Option3.Value = False
End Sub
Private Sub Option1_Click()
Randomize
Select Case Int(3 * Rnd)
Case 0: MsgBox "对方也出石头！继续！"
Case 1: MsgBox "哈哈！你赢了！对方出的是剪刀！奖励你一个苹果！"
Case 2: MsgBox "你输了！对方出的是布哦！不好意思，苹果给对方了哈！"
End Select
Option1.Value = False
End Sub
Private Sub Option2_Click()
Randomize
Select Case Int(3 * Rnd)
Case 0: MsgBox "你输了！对方出的是石头哦！不好意思，苹果给对方了哈！"
Case 1: MsgBox "对方也出剪刀！继续！"
Case 2: MsgBox "哈哈！你赢了！对方出的是布！奖励你一个苹果！"
End Select
Option2.Value = False
End Sub
Private Sub Option3_Click()
Randomize
Select Case Int(3 * Rnd)
Case 0: MsgBox "哈哈！你赢了！对方出的是石头！奖励你一个苹果！"
Case 1: MsgBox "你输了！对方出的是剪刀哦！不好意思，苹果给对方了哈！"
Case 2: MsgBox "对方也出布！继续！"
End Select
Option3.Value = False
End Sub
如何自制游戏？
大致方法/步骤
通过参考不同的游戏，写出想要制作的游戏的剧情和脚本。
游戏的种类有多种，根据自己喜欢的游戏种类，通过参考不同的游戏，写出要制作游戏的剧情和脚本。
2 根据游戏的剧情和脚本，使用手绘软件绘制游戏人物的图形和背景。
接着，根据游戏的剧情和脚本，使用手绘软件绘制游戏人物的图形和背景。可以使用多种手绘软件相结合，提高手绘的效果。
3 通过建模的软件把平面图形创建为立体模型效果。
有多种建模软件，可以通过建模的软件把平面图形创建为立体模型效果。比如使用常用的建模软件3dmax软件。
4 熟悉游戏制作软件的操作，这样制作游戏的效率高些。
游戏制作的软件有多种，比如用Unity3D开发游戏，熟悉游戏制作软件的操作，这样制作游戏的效率高些。
5 创建一个游戏的项目工程，在制作游戏时方便查找。
根据游戏的设计，创建一个游戏的项目工程。这样把游戏中所使用的资源文件和模型都放在一个目录下，在制作游戏时方便查找。
6 把创建好的模型导入到游戏制作软件中，构建游戏场景。
接着，可以把创建好的模型导入到游戏制作软件中，构建游戏场景。比如可以把3dmax软件创建的多种模型导入到Unity3D软件中。
7 在游戏制作软件使用透视与正交摄像机来查看场景。
不同的游戏场景需要使用不同的角度来查看，可以创建透视或正交摄像机来查看游戏场景。比如在Unity3D软件中添加摄像机。这样可以象游戏者的视角一样看物体和场景。
8 根据游戏的设计，添加合适的背景音乐与台词语音。
好的游戏都会有独特的音乐背景，游戏人物的语音生效有特点。可以请朋友帮忙添加合适的背景音乐与台词语音。
9 使用游戏制作的软件进行代码编写，并进行测试。
当游戏中的前台资源都整理好后，通过使用游戏制作的软件进行代码编写，用面向对象的方式封装不同类。比如在Unity3D可以使用编辑器，编写和运行游戏。好的游戏需要不断的测试，这样制作出来的游戏才稳定，不会出错。
10 全流程的测试游戏，找到不足的地方进行修改调整。
当游戏基础测试结束后，需要全流程的测试游戏，找到不足的地方进行修改调整。这样制作出来的游戏才经典。
11 分享和发布制作好的游戏，体验游戏设计和制作的乐趣。
当游戏制作好了，需要分享给朋友们，这样可以体验游戏设计和制作的乐趣。还可以听听游戏玩家给的建议，不断修改一下游戏设计中所没有的场景和脚步，使制作的游戏越来越好玩了
自己如何制作小游戏?
《自己动手制作小游戏》说明:一直在玩别人做的FLASH游戏么?现在给你个机会大显身手!来吧，制作自己的游戏!只是刚来时需要熟悉一下制作流程，
NEW是开始制作新游戏，点下去，用鼠标在蓝色区增加障碍，右下角是关数可设，下边有个SPECS按钮，里面有游戏非常详细的设置项，按加减号即可。上边还可以写上你的名字游戏名字，分数设定等。全部设置好了之后按MENU，点一下出现的按钮，会出现空白处很多文字，这个可以复制下来留存，然后按右边的钮，再点右边的PLAY，哈哈，竟然可以玩自己制作的游戏啦!!真是好神奇啊!
记得把自己制作游戏复制下来的文字保存，在一开始的界面有个LOAD,在空白处贴上这些文字，就可以再次重玩你自己制作的游戏啦!还可以把这个复制下来发给别人分享哦!
至于第三个按钮GO,可以玩玛里奥，索尼克之类的经典的小游戏啦!
回答者:741625911
用C++编写的小游戏源代码
以下是贪吃蛇源代码：
#includeiostream.h
#includewindows.h
#includetime.h
#includestdlib.h
#includeconio.h
#define N 21
void gotoxy(int x,int y)//位置函数
{
COORD pos;
pos.X=2*x;
pos.Y=y;
SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE),pos);
}
void color(int a)//颜色函数
{
SetConsoleTextAttribute(GetStdHandle(STD_OUTPUT_HANDLE),a);
}
void init(int apple[2])//初始化函数（初始化围墙、显示信息、苹果）
{
int i,j;//初始化围墙
int wall[N+2][N+2]={{0}};
for(i=1;i=N;i++)
{
for(j=1;j=N;j++)
wall[i][j]=1;
}
color(11);
for(i=0;iN+2;i++)
{
for(j=0;jN+2;j++)
{
if(wall[i][j])
cout"■";
else cout"□" ;
}
coutendl;
}
gotoxy(N+3,1);//显示信息
color(20);
cout"按 W S A D 移动方向"endl;
gotoxy(N+3,2);
color(20);
cout"按任意键暂停"endl;
gotoxy(N+3,3);
color(20);
cout"得分："endl;
apple[0]=rand()%N+1;//苹果
apple[1]=rand()%N+1;
gotoxy(apple[0],apple[1]);
color(12);
cout"●"endl;
}
int main()
{
int i,j;
int** snake=NULL;
int apple[2];
int score=0;
int tail[2];
int len=3;
char ch='p';
srand((unsigned)time(NULL));
init(apple);
snake=(int**)realloc(snake,sizeof(int*)*len);
for(i=0;ilen;i++)
snake[i]=(int*)malloc(sizeof(int)*2);
for(i=0;ilen;i++)
{
snake[i][0]=N/2;
snake[i][1]=N/2+i;
gotoxy(snake[i][0],snake[i][1]);
color(14);
cout"★"endl;
}
while(1)//进入消息循环
{
tail[0]=snake[len-1][0];
tail[1]=snake[len-1][1];
gotoxy(tail[0],tail[1]);
color(11);
cout"■"endl;
for(i=len-1;i0;i--)
{
snake[i][0]=snake[i-1][0];
snake[i][1]=snake[i-1][1];
gotoxy(snake[i][0],snake[i][1]);
color(14);
cout"★"endl;
}
if(kbhit())
{
gotoxy(0,N+2);
ch=getche();
}
switch(ch)
{
case 'w':snake[0][1]--;break;
case 's':snake[0][1]++;break;
case 'a':snake[0][0]--;break;
case 'd':snake[0][0]++;break;
default: break;
}
gotoxy(snake[0][0],snake[0][1]);
color(14);
cout"★"endl;
Sleep(abs(200-0.5*score));
if(snake[0][0]==apple[0]snake[0][1]==apple[1])//吃掉苹果后蛇分数加1，蛇长加1
{
score++;
len++;
snake=(int**)realloc(snake,sizeof(int*)*len);
snake[len-1]=(int*)malloc(sizeof(int)*2);
apple[0]=rand()%N+1;
apple[1]=rand()%N+1;
gotoxy(apple[0],apple[1]);
color(12);
cout"●"endl;
gotoxy(N+5,3);
color(20);
coutscoreendl;
}
if(snake[0][1]==0||snake[0][1]==N||snake[0][0]==0||snake[0][0]==N)//撞到围墙后失败
{
gotoxy(N/2,N/2);
color(30);
cout"失败！！！"endl;
for(i=0;ilen;i++)
free(snake[i]);
Sleep(INFINITE);
exit(0);
}
}
return 0;
}参考资料：从C++吧看来的
如何制作小游戏，我想制作一个小游戏，该怎样做呢？
你可以先去【绘学霸】网站找“游戏设计/游戏制作”板块的【免费】视频教程-【点击进入】完整入门到精通视频教程列表： www.huixueba.net/web/AppWebClient/AllCourseAndResourcePage?type=1tagid=307zdhhr-11y04r-418311888
想要系统的学习可以考虑报一个网络直播课，推荐CGWANG的网络课。老师讲得细，上完还可以回看，还有同类型录播课可以免费学（赠送终身VIP）。
自制能力相对较弱的话，建议还是去好点的培训机构，实力和规模在国内排名前几的大机构，推荐行业龙头：王氏教育。
王氏教育全国直营校区面授课程试听【复制后面链接在浏览器也可打开】： www.huixueba.com.cn/school/3dmodel?type=2zdhhr-11y04r-418311888
在“游戏设计/游戏制作”领域的培训机构里，【王氏教育】是国内的老大，且没有加盟分校，都是总部直营的连锁校区。跟很多其它同类型大机构不一样的是：王氏教育每个校区都是实体面授，老师是手把手教，而且有专门的班主任从早盯到晚，爆肝式的学习模式，提升会很快，特别适合基础差的学生。
大家可以先把【绘学霸】APP下载到自己手机，方便碎片时间学习——绘学霸APP下载： www.huixueba.com.cn/Scripts/download.html
怎么编写游戏代码
编写程序一定要先有思路就跟做饭一定先有食材一样思路是慢慢想出来的自己的程序要有什么功能这个功能会用到什么组件或命令说下外挂外挂没人教的话只能自己想去网上搜别人的外挂源码然后反复看有些源码更换成最新的基址跟偏移还是可以用的可以尝试更换基址测试一下多加些群跟别人讨论奉劝某些连易语言都不会安装的菜鸟加别人扣扣别上去就问外挂怎么做外挂原理种类都研究过吗没有就不要去烦别人了(这样的烧饼我一天遇到了两个格半俩一点不会的那半个还懂一点点)菜鸟玩E遇到问题先去度娘搜搜不到在自己仔细想想然后再去问别人玩E从基础教程看吧不解释了
