<原创>最简易的纯代码坦克大战
效果图
不到350行
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using System.Threading;
namespace WindowsApplication87
{
/// <summary>
/// Made by wartim 2009.10.12
/// var 1.0.0.0
/// </summary>
public partial class Form1 : Form
{
static int HEIGHT = 300;
static int WIDTH = 300;
Bitmap OrgBmp = new Bitmap(WIDTH, HEIGHT);
List<Tank> Tanks = new List<Tank>();
UserTank UTank = null;
List<Bullet> Bullets = new List<Bullet>();
PictureBox PB = new PictureBox();
public Form1()
{
InitializeComponent();
this.Size = new Size(WIDTH, HEIGHT);
this.FormBorderStyle = FormBorderStyle.FixedDialog;
this.KeyPreview = true;
this.KeyDown += new KeyEventHandler(Form1_KeyDown);
using (Graphics G = Graphics.FromImage(OrgBmp))
G.FillRectangle(new SolidBrush(this.BackColor), this.ClientRectangle);
PB.Parent = this;
PB.Dock = DockStyle.Fill;
PB.Image = OrgBmp;
for (int i = 0; i < 5; i++)
{
Tanks.Add(new Tank(Color.Blue, this.BackColor));
Thread.Sleep(100);
}
UTank = new UserTank(Color.Red, this.BackColor);
Thread T = new Thread(new ThreadStart(RunThread));
T.IsBackground = true;
T.Start();
}
void Form1_KeyDown(object sender, KeyEventArgs e)
{
switch (e.KeyCode)
{
case Keys.Up: UTank.ChangeDirection(Direction.UP); UTank.Move(); break;
case Keys.Down: UTank.ChangeDirection(Direction.DOWN); UTank.Move(); break;
case Keys.Left: UTank.ChangeDirection(Direction.LEFT); UTank.Move(); break;
case Keys.Right: UTank.ChangeDirection(Direction.RIGHT); UTank.Move(); break;
case Keys.Space: Bullets.Add(new Bullet(Color.Black, UTank)); break; // 发射子弹
}
}
void RunThread()
{
try
{
int Start = Environment.TickCount;
Random R = new Random();
int KillCount = 0, DeathCount = 0;
while (true)
if (Environment.TickCount - Start > 100)
{
Bitmap CacheBmp = new Bitmap(OrgBmp);
for (int i = 0; i < Tanks.Count; i++)
{
Tanks[i].Move();
Tanks[i].Draw(ref CacheBmp);
if (R.Next(10) == 0) // 电脑发子弹是10分之一的可能
Bullets.Add(new Bullet(Color.Red, Tanks[i]));
}
UTank.Draw(ref CacheBmp);
List<Bullet> TempBullets = new List<Bullet>();
for (int i = 0; i < Bullets.Count; i++)
{
if (Bullets[i].ObjStep != -1)
{
Rectangle Test = new Rectangle(Bullets[i].Postion.X - 10, Bullets[i].Postion.Y - 10, 20, 20);
bool IsKilled = false;
for (int j = 0; j < Tanks.Count; j++)
if (Test.Contains(Tanks[j].Postion))
{
if (Bullets[i].Owner == UTank)
{
KillCount++;
IsKilled = true;
Tanks[j] = new Tank(Color.Blue, this.BackColor);
}
break;
}
if (!IsKilled)
if (Test.Contains(UTank.Postion))
if (Bullets[i].Owner != UTank)
{
DeathCount++;
IsKilled = true;
break;
}
if (!IsKilled)
TempBullets.Add(Bullets[i]);
}
}
Bullets = new List<Bullet>(TempBullets);
for (int i = 0; i < Bullets.Count; i++)
{
Bullets[i].Move();
Bullets[i].Draw(ref CacheBmp);
}
Monitor.Enter(CacheBmp);
using (Graphics G = Graphics.FromImage(CacheBmp))
{
G.DrawString("杀敌数： " + KillCount.ToString() + " 死亡数： " + DeathCount.ToString(), this.Font,
Brushes.Black, new PointF(0, 0));
}
Monitor.Exit(CacheBmp);
this.Invoke(new SetImage(DoSetImage), new Object[] { CacheBmp });
Start = Environment.TickCount;
}
}
catch
{
// 忽略程序退出异常
}
}
[/code]
[解决办法]
顶了...
[解决办法]
good,加个精~~
[解决办法]
学习了，一定要顶。
[解决办法]
呵呵, 楼主这个有创意
[解决办法]
支持
[解决办法]
顶。。。。
[解决办法]
厉害
[解决办法]
把打包源文件地址发下
回去看下
[解决办法]
ding shang qu
------解决方案--------------------
呵呵,好久没玩了,支持
[解决办法]
呵呵 厉害
[解决办法]
顶 一下！！
[解决办法]
不顶不行啊。
[解决办法]
顶你一个啊。。。
[解决办法]
在做点美工就更好了，呵呵
[解决办法]
up
[解决办法]
顶
[解决办法]
学习
[解决办法]
顶兰州
[解决办法]
up
[解决办法]
[解决办法]
顶了。兰州好雅兴。
[解决办法]
学习。。。。
[解决办法]
顶后看
[解决办法]
收藏。以后慢慢看
[解决办法]
赞~这么简陋！
[解决办法]
回去学习
[解决办法]
[解决办法]
好，支持
[解决办法]
发现这游戏真是高难度- =
玩了不到1分钟死了10+次，杀敌1
然后出了个错误
************** 异常文本 **************
System.InvalidOperationException: 对象当前正在其他地方使用。
学习下代码
[解决办法]
学习了
[解决办法]
加个背景也好么
就一白板？
黑背景，然后坦克颜色和子弹颜色调一下，好很多。。。
[解决办法]
顶，学习下载了，确实很厉害
[解决办法]
这个不错。
[解决办法]
楼主厉害
[解决办法]
有创意.不得不强烈支持.
[解决办法]
楼主厉害
[解决办法]
厉害
[解决办法]
下代码
[解决办法]
顶楼主!!
[解决办法]
.
[解决办法]
强烈支持.
[解决办法]
8错！
------解决方案--------------------
顶！
[解决办法]
学习下
[解决办法]
好得意吖
[解决办法]
很强大。。。
[解决办法]
学习!
[解决办法]
拿回家学习，谢谢楼主贡献了
[解决办法]
DING
[解决办法]
顶！
[解决办法]
厉害！up
[解决办法]
学习中！！！
[解决办法]
ding shang qu
[解决办法]
谢谢分享
[解决办法]
童年
[解决办法]
顶了...
[解决办法]
这样也可以！！！！
[解决办法]
顶.
[解决办法]
很好，很强大
[解决办法]
OK!
[解决办法]
支持一下
[解决办法]
楼主厉害
[解决办法]
不错哦
[解决办法]
好强好羡慕 ( ⊙o⊙ )~~~
[解决办法]
收藏
[解决办法]
厉害啊，楼主，学习啦.
[解决办法]
学习了
[解决办法]
哇
[解决办法]
很棒啊，加油，LZ！
[解决办法]
[解决办法]
呵呵
[解决办法]
谢谢分享，参考了！！！
[解决办法]
谢谢
[解决办法]
谢谢哈
收了
[解决办法]
干净啊！
[解决办法]
学习了。。。
[解决办法]
牛人啊
[解决办法]
呵呵, 楼主这个有创意
------解决方案--------------------
收藏了
[解决办法]
d
[解决办法]
这儿确实很火啊……强！
[解决办法]
学习一下
[解决办法]
mark
[解决办法]
up
[解决办法]
赞一个
[解决办法]
不错呀，这个现在上班都没心思搞这些东西了
[解决办法]
强
[解决办法]
UP！顶了！
[解决办法]
不错
[解决办法]
顶一个~~~~
[解决办法]
很强大啊
[解决办法]
为什么vs2003里编译报错：
List <Tank> Tanks = new List <Tank>();
UserTank UTank = null;
List <Bullet> Bullets = new List <Bullet>();
这段报错：类、结构或接口成员声明中的 标记"<"无效
[解决办法]
兰州强大丫
[解决办法]
ding
[解决办法]
nr