冥蓝炎的个人资料 - RAT

冥蓝炎冥蓝炎

关注数: 11 粉丝数: 39 发帖数: 287 关注贴吧数: 1

瑞中宿舍有厕所和阳台吗？电脑怎样？有小卖部吗急求！（要提前招）温一中去过几次，电脑一般，打我的世界比较卡（信息学考试把u盘带过去），宿舍还行（冬令营），小卖部差的要死（坑钱又没货），瑞中没逛过，想知道这些小消息，谢谢。（注：厕所指每个宿舍有一个）

有谁知道算24的程序吗就是输入四个字，然后过程写出来的那种。输入：6 6 6 6 输出： 6+6=12 12+6=18 18+6=24. 谢了！

仅仅用crt,能不能做到同时做两件事？就是像字符魔塔一样，一个指向性的技能释放时候人可以走位。我每次做都是技能射玩了才能走。还有就是怎么做人机？求大神解决。

说直话崔立不管有没有发明出来永动机，发明了也没人要，随便买个太阳能电池板性价比不知道高出几倍，商业前途为0

小游戏【持续跟新】暑假了无聊做一个关于对战的。还是只有crt；目前这个版本简直比贪吃蛇还无聊，因为只编了几个小时。我会陆续更新的。希望不要又成为一个坟贴。

lol崩溃也被裁决？电脑好好的，莫名延迟上万，Lol被强制关掉，还有一个弹窗，有炸弹人，什么什么wrong的，都是英文，应该是错误反馈，都是英文反馈个毛线，关了重连，裁决。。这裁决还有缺陷，要看是恶意挂机还是意外吧，不过这应该很难编起来。

【非正经】新游戏讨论（大妈请勿进入） Pascal版炉石传说这个我相信最少8个人会编写吧。。。我想问问就是关于人机方面，怎样做才能使电脑不显得那么蠢，就像五子棋电脑一样有什么方法吗？

【小游戏】高级的石头剪刀布（有人物有技能）同学玩三国杀玩上瘾，为了躲过班主任自制了一副，后来发现手牌很难批发，就改为石头剪刀布定胜负，赢一次选择一人扣血，每个人物都有不同的技能。为了好写直接把英雄联盟的人物搬了过来，画风不忍直视，因此我做了一个简单的小游戏，目前1.0.0只有四个人物而且只有被动，人机8血没技能。（这TM就是你世界1.4.0拖更的理由（没错））

【讨论】有谁会编写LOL吗（弱智版）（非水贴，我是认真的）理想很丰满，现实很残酷，一般人基本上用Pascal不会这些（比如我）：1.同时做某件事（比如一起writeln不分先后）（目的是你走位人机也会走位而不是你走一步我走一步） 2.绘图（这尼玛老复杂了） 3.动鼠标（这……） 4.给予电脑人性思想（思维详见孙子兵法：敌退我进敌进我退） 5.联机（艹）。做到一点的已经是高手了，两点是大湿，三点是牛逼没有之一四点：神。五点：这尼玛都会了还来Pascal吧干嘛。但是团结就是力量，每个人都可以尽力……但可能仅仅以我的实力引来大神也没有几个，所以希望有人重开一贴，讨论这东西，当然画质可以烂到渣，二维没事，人物是个圈也没事。（瞧我这说法，别人不认为我水贴才怪呢，所以这贴沉也不奇怪）

【游戏】（自我感觉良好）：世界。玩过魔塔都应该明白。CRT单元上接一个沉贴，一个类似魔塔的东西，这次带来的1.2.4版本修复几乎所有Bug，十分耐玩（只要你愿意）

一个类似魔塔的东西我虽然到处水贴，但还是参考了一些程序（魔塔、坦克大战）的，虽然很多看不懂，所以只参考了画风，我只用了crt，所以写起来So麻烦，map我直接放程序里了……

明天考试了，谁来发答案坐等到明天九点，等等好像没说那个地区算了没事没事

一些简短有趣的程序不是水贴，在此先发链接，进度条动画，对有些游戏增加一点点神秘感 http://yun.baidu.com/s/1dDsbIJf?fid=411491507926492

谁能给我一个简单调用外部图片的程序（单元）我就问一句还有谁？看了许多大神输出图片，膜拜后发现顺序理不清，各种出错搞不懂……谁能帮我？自从上次用GRAPH激动不已的时候发现画画好麻烦，调外部图片好麻烦，有没有设么东西一句话搞定？这不是水贴，这是楼主无耻的占楼！

一个惊天动地的小程序你们知道贾维斯么

一个小游戏（还要很久）第一次发，我是新手，现在只在graph绘图，一个简单的人物图：看名字就知道 uses graph; procedure MasterYI; var gd,gm,i:integer; begin gd:=detect; initgraph(gd,gm,''); setbkcolor(31); cleardevice; SetFillStyle(1,16); fillellipse(300,300,100,100); SetFillStyle(1,10); fillellipse(320,280,15,15); fillellipse(360,280,15,15); fillellipse(300,315,15,15); fillellipse(340,315,15,15); fillellipse(380,315,15,15); fillellipse(320,350,15,15); fillellipse(360,350,15,15); setcolor(16); for i:=270 to 300 do line(i,700,i+220,800); for i:=500 to 530 do line(i,800,i-30,900); for i:=270 to 300 do line(i,700,i-100,900); for i:=270 to 300 do line(i,400,i-100,600); for i:=270 to 300 do line(i,400,i+80,600); setcolor(10); for i:=670 to 700 do line(i,400,i-300,600); SetFillStyle(1,16); for i:=280 to 590 do bar(280,i+60,300,i+120); readln; end; begin MasterYI; end.

1 下一页