自己写了个1079行的小游戏

分享
IAM_LEgend LV 7 @ 2010-07-16 20:45:59

扑克牌赌博小游戏几个月前编的今天突然心血来潮更新了一下午加了银行功能游戏性更强了于是想和大家共享下哈哈：D 游戏内帮助命令 -he

源代码同程序打包下载：

http://www.brsbox.com/filebox/down/fc/32966999308af796b64c470915a12670

刚开始玩5人战很容易直接破产…建议选3或4人玩…

ccw630 LV 10 @ 2009-10-31 21:43:32

VIJOS的测评机名字真好听：

Evolution SmdCn=进化的smdcn

Edogawa Conan=江户川柯南
赫敏·格兰杰 LV 10 @ 2009-10-31 21:42:19

God bless......

周二的考试不能太难......

我是在bless这个......
ccw630 LV 10 @ 2009-10-31 21:40:15

你估计是得甲流了不然干吗老是God bless?上帝保佑？
IAM_LEgend LV 7 @ 2009-10-31 21:38:55

别在这里版聊了貌似要被冰。

最后引用3楼的话：

赌博行运一条龙，大小全家我通杀
Jeff Michael LV 6 @ 2009-10-31 21:38:46

我们班成灾区了，还放了7天的假，作业那个多啊…………

不过还是花了时间在oi上……
赫敏·格兰杰 LV 10 @ 2009-10-31 21:37:05

我没得甲流......

好奇而已.......

该死的校医......
IAM_LEgend LV 7 @ 2009-10-31 21:35:52

貌似我要去考noip的理工大学有4、50例甲流了~估计正纠结呢有可能要换地方考
ccw630 LV 10 @ 2009-10-31 21:35:33

甲流？假瘤？个位数。你是不是得了甲流？
赫敏·格兰杰 LV 10 @ 2009-10-31 21:33:16

orz......

God Bless......

对了顺便问一句各位的所在地甲流情况怎么样
ccw629 LV 4 @ 2009-10-31 21:31:41

禁止连续发帖。。。

是lsss

大小写那个么是我懒得编小写了，开始时就直接准备按caps lock好了
IAM_LEgend LV 7 @ 2009-10-31 21:27:54

lss是ccw的程序~
ccw630 LV 10 @ 2009-10-31 21:25:29

不错啊lss

值得鼓励，毕竟是才刚学编程
IAM_LEgend LV 7 @ 2009-10-31 21:24:47

顺便晒下我的未完成作品（会有部分bug）

http://www.1000sun.com/blog/UploadFiles/2009-8/817141470.rar

哈这个程序好有爱啊命令要用大写……一开始输入小写b老把我踢出去=。=
赫敏·格兰杰 LV 10 @ 2009-10-31 21:23:53

orz 楼上所有大牛，我就算了

God Bless......
梦ぁ柯 LV 6 @ 2009-10-31 21:23:10

我疯了,把刚刚学编程时写的东西拿出来晒下,诸位莫笑

#include

#include

using namespace std;

int main(int argc, char *argv[])

{

cout
Jeff Michael LV 6 @ 2009-10-31 21:18:37

ls…………

是研究生2年纪吗？…………

orz。。。
破晓Daybreak LV 8 @ 2009-10-31 21:18:21

赫敏大牛也出现了 ii~`~`Orz 烧香膜拜

这句话命途多舛，一直提示禁止连续发帖……
ccw630 LV 10 @ 2009-10-31 21:16:53

555 本人才6年级...
赫敏·格兰杰 LV 10 @ 2009-10-31 21:15:49

God Bless......

我晕了......
IAM_LEgend LV 7 @ 2009-10-31 21:14:38

哦~ 谢谢，原来就是ascll。我一开始就用的那个，不过黑桃和梅花显示效果不好就改成笑脸（#1 or 2?）了，主要是看大图案么。

解释下游戏，虽然本人就叫范威没错了=。= 不过游戏里的大财主范威的确智商不高……如果遇到的话，机遇和挑战并存哦，他会掏出很大的赌资……

另外银行利息是以打完一盘（打跑至少一个对手）的话算一天，每天按利率（在-2%~5%随机）给一次利息。利息查询里只能显示最近一天获得的利息，不过实际利息会直接计入存款，也算个小小的bug吧，今天更新的没细考虑。
赫敏·格兰杰 LV 10 @ 2009-10-31 21:12:43

额......
Jeff Michael LV 6 @ 2009-10-31 21:10:07

lss注意一下，那是java，不是pascal，至少ccw的是java……

本人就是lsss
ccw630 LV 10 @ 2009-10-31 21:08:24

用法是write(#3);

也可以写write(chr(3));

3=红心 4=方块 5=梅花 6=黑桃
赫敏·格兰杰 LV 10 @ 2009-10-31 21:07:28

对啊

我貌似p只会编a+b......

orz......
hwze66 LV 8 @ 2009-10-31 21:06:28

orz ccw630和lz

好强，java我半个字都看不懂…………

这才是编程的最高境界——编软件
IAM_LEgend LV 7 @ 2009-10-31 21:04:00

啊！祈祷不要悲剧到冻结吧=。= 、

ccw630

花色要换种，ascii码里有的，把什么制表符都换成#3 #4 #5 #6四种花色好了

( 2009-10-31 20:58:52 )

fivestar...

这个怎么用直接在源码里打#3吗
ccw630 LV 10 @ 2009-10-31 21:01:31

是这样吗？我还想让vijos能提交java代码呢

我写了个java游戏编码

onClipEvent (load) {

thrust = 60;

decay = .97;

maxSpeed = 30;

}

onClipEvent (enterFrame) {

sp=100;

if ((Key.isDown(Key.DELETEKEY))and (sp>=10)){

_rotation += 90;

sp-=10;

}

if ((Key.isDown(Key.END))and (sp>=10)){

_rotation -= 90;

sp-=10;

}

if ((Key.isDown(Key.INSERT))and(sp>=8)){

_rotation=0;

_x -= 20;

sp-=8;

}

if ((Key.isDown(Key.HOME))and(sp>=8)){

_rotation=0;

_x += 20;

sp-=8;

}

if ((Key.isDown(Key.PGUP))and(sp>=10)){

_rotation=0;

_y -= 100;

sp-=10;

}

if ((Key.isDown(Key.PGDN))and(sp>=10)){

_rotation=0;

_y += 100;

sp-=10;

}

if (Key.isDown(Key.CONTROL)and(sp>=50)) {

maxSpeed=45;

xspeed=45;

yspeed=45

sp-=50;

}

if (Key.isDown(Key.ENTER)and(sp>=30)){

_rotation=0;

_x+=100;

maxSpeed=60;

xspeed=60;

yspeed=60;

sp-=30;

}

if (Key.isDown(Key.RIGHT)) {

_rotation += 15;

}

if (Key.isDown(Key.LEFT)) {

_rotation -= 15;

}

if (Key.isDown(Key.SPACE)) {

xspeed=0;

yspeed=0;

sp=sp-10;

}

if ((Key.isDown(Key.SHIFT)) and (Key.isDown(Key.RIGHT))){

_rotation += 30;

maxSpeed=20;

sp=sp-10;

maxSpeed=30;

}

if ((Key.isDown(Key.SHIFT)) and (Key.isDown(Key.LEFT))){

_rotation -= 30;

maxSpeed=20;

sp=sp-10;

maxSpeed=30;

}

if (Key.isDown(Key.UP)) {

xSpeed += thrust*Math.sin(_rotation*(Math.PI/180));

ySpeed += thrust*Math.cos(_rotation*(Math.PI/180));

flames._visible = 1;

} else {

xSpeed *= decay;

ySpeed *= decay;

flames._visible = 0;

}

if (Key.isDown(Key.DOWN)) {

xSpeed -= thrust*Math.sin(_rotation*(Math.PI/180));

ySpeed -= thrust*Math.cos(_rotation*(Math.PI/180));

flames._visible = 1;

} else {

xSpeed *= decay;

ySpeed *= decay;

flames._visible = 0;

}

speed = Math.sqrt((xSpeed*xSpeed)+(ySpeed*ySpeed));

if (speed>maxSpeed) {

xSpeed *= maxSpeed/speed;

ySpeed *= maxSpeed/speed;

}

_y -= ySpeed;

_x += xSpeed;

if (_y700) {

_y = 700;

maxSpeed=30;

}

if (_x980) {

_x = 980;

maxSpeed=30;

}

}
赫敏·格兰杰 LV 10 @ 2009-10-31 21:01:14

恩。。。

我不想悲剧重演

orz......
hwze66 LV 8 @ 2009-10-31 20:58:52

这不属于学习范围吧…………

所以人太多会被冻结吧…………
ccw630 LV 10 @ 2009-10-31 20:58:52

花色要换种，ascii码里有的，把什么制表符都换成#3 #4 #5 #6四种花色好了
IAM_LEgend LV 7 @ 2009-10-31 20:58:21

解决窗口下字太小的方法，在标题栏点右键属性，里面有窗口大小和字体大小的选项。

我用的xp系统不知道在vista或者vin7下是什么效果，我记得以前编的弹弹堂外挂，在vista下显示效果会有差别。
赫敏·格兰杰 LV 10 @ 2009-10-31 20:55:24

有意思，我看看
IAM_LEgend LV 7 @ 2009-10-31 20:54:07

哈谢谢大家支持！

那个链接是百度上随便找了个网盘，应该还能下已测，点后面下载页就可以了。

全屏是个失误，从来没全屏玩过，不过我不会搞哈，貌似是不同的编码问题吧，我原先想把pas里直接读到的ascll码用来花色结果无法显示，从网上找到的widows特殊符号又都是全角的。呵呵虽然难看了点不过整体图形还是可以识别的，不幸中之万幸吧。
ccw630 LV 10 @ 2009-10-31 20:50:55

配置问题吧
zhh1993 LV 10 @ 2009-10-31 20:36:08

为什么我下载不了……
sutank2009 LV 8 @ 2009-10-31 20:33:38

有关全屏……

全屏之后花色显示异常，不知能否解决，窗口化的时候字太小（本人近视+散光）。
ccw630 LV 10 @ 2009-10-31 18:58:50

顶起
ccw630 LV 10 @ 2009-10-31 18:46:11

牛们顺便帮我找BUG
ccw630 LV 10 @ 2009-10-31 18:34:03

额

好难玩

玩pascal的比java的难多了

顺便晒下我的未完成作品（会有部分bug）

http://www.1000sun.com/blog/UploadFiles/2009-8/817141470.rar

未完成作品2（graph）

http://www.1000sun.com/blog/UploadFiles/2009-10/108903371.rar
地地道道的人 LV 10 @ 2009-10-31 18:27:37

呵呵，还不错

辛苦了。
ccw630 LV 10 @ 2009-10-31 18:21:32

主要是耐心
zhh1993 LV 10 @ 2009-10-31 18:15:45

我去看看……
neaolee LV 8 @ 2009-10-31 18:10:15

牛啊

有图有音乐还有游戏性，我顶你个肺啊，你不牛谁牛，大家都来玩下，还挺难

赌博行运一条龙，大小全家我通杀
IAM_LEgend LV 7 @ 2009-10-31 18:00:31

获得至尊宝后会出现隐藏的游戏图像至尊宝猴哦~希望大家都能见到它！