Pascal小游戏 随机函数
一个被人写滥了的小程序,新手学习,Pascal By Chaobs
初学者可以用它来学习随机函数的运用,当然你完全可以自己写一个随机函数。
var
player1,player2:longint;
a,b,l,o,i,v:longint; w:boolean;
begin
randomize;
write('A=');readln(player1);
write('B=');readln(player2);
b:=1;
i:=1;
while(player1>0)and(player2>0)do
begin
if i=1 then
begin
a:=random(101)+1;
if a<=70 then
begin
writeln('A against B,B has ',a,' damage.');
player2:=player2-a;
end;
if (a>70)and(a<=80) then
begin
o:=random(30);
writeln('A thumping B,B has ',a*2+o,' damage.');
player2:=player2-a*2;
end;
if (a>80)and(a<=85) then
begin
o:=random(120);
writeln('A restored ',a*2+o-50,' points.');
player1:=player1+a*2+o-50;
end;
if (a>85)and(a<=90) then
begin
writeln('A launched combo. ');
l:=100;
w:=true;
while w do
begin
o:=random(71);
writeln('B has ',o,' damage.');
player2:=player2-o;
if l<random(80) then w:=false;
l:=l-random(15);
end;
end;
if (a>90)and(a<=95) then
begin
o:=random(300);
writeln('A launch from exploding!');
writeln('A has ',o div 2,' damage.');
writeln('B has ',o+10,' damage.');
player1:=player1-o div 2;
player2:=player2-(o+10);
end;
if (a>95)and(a<=97) then
begin
writeln('A midicine,restore ',400,' points!');
player1:=player1+400;
end;
if (a>97)and(a<=100) then
begin
o:=random(100)+100;
writeln('A vampire ',o,' points.');
player1:=player1+o;
player2:=player2-o;
end;
if (a=101) then
begin
writeln('A colossus heaven boxing! ');
l:=100;
o:=random(20)+1;
for v:=1 to 100 do
begin
writeln('B has ',v*o,' damage.');
player2:=player2-v*o;
if l<random(80) then break;
l:=l-random(15);
end;
end;
i:=2;
if player1<0 then player1:=0;
if player2<0 then player2:=0;
writeln(' A ',player1);
writeln(' B ',player2);
readln;
end;
if i=2 then
begin
a:=random(101)+1;
if a<=70 then
begin
writeln('B against A,A has ',a,' damage.');
player1:=player1-a;
end;
if (a>70)and(a<=80) then
begin
o:=random(30);
writeln('B thumping A,A has ',a*2+o,' damage.');
player1:=player1-a*2;
end;
if (a>80)and(a<=85) then
begin
o:=random(120);
writeln('B restored ',a*2+o-50,' points.');
player2:=player2+a*2+o-50;
end;
if (a>85)and(a<=90) then
begin
writeln('B launched combo. ');
l:=100;
w:=true;
while w do
begin
o:=random(71);
writeln('A has ',o,' damage.');
player1:=player1-o;
if l<random(80) then w:=false;
l:=l-random(15);
end;
end;
if (a>90)and(a<=95) then
begin
o:=random(300);
writeln('B launch from exploding!');
writeln('B has ',o div 2,' damage.');
writeln('A has ',o+10,' damage.');
player2:=player2-o div 2;
player1:=player1-(o+10);
end;
if (a>95)and(a<=97) then
begin
writeln('B midicine,restore ',400,' points!');
player2:=player2+400;
end;
if (a>97)and(a<=100) then
begin
o:=random(100)+100;
writeln('B vampire ',o,' points.');
player2:=player2+o;
player1:=player1-o;
end;
if (a=101) then
begin
writeln('B colossus heaven boxing! ');
l:=100;
o:=random(20)+1;
for v:=1 to 100 do
begin
writeln('A has ',v*o,' damage.');
player1:=player1-v*o;
if l<random(80) then break;
l:=l-random(15);
end;
end;
i:=1;
if player1<0 then player1:=0;
if player2<0 then player2:=0;
writeln(' A ',player1);
writeln(' B ',player2);
readln;
end;
end;
writeln;
if player1>player2 then writeln('A WIN!')
else if player2>player1 then writeln('B WIN!')
else writeln('DRAW');
readln;
end.
Pascal小游戏 随机函数的更多相关文章
- Pascal小游戏 不要消灭星星
不要消灭星星 Pascal小游戏 Chaobs改编自pascal吧 控制台小游戏嘛,就当是练习一下结构化的写法. program wxtw; uses crt; type zbdy=reco ...
- Pascal小游戏 文件的产生
一个整人的Pascal小程序 运行之后硬盘里面会有一大堆垃圾,当然更好的方法当然不是这样做! var a,b,c,d:char;beginfor a:='0' to '9' dofor b:='0' ...
- Pascal小游戏 双人射击
一个双人的游戏 Pascal源码附上 只要俩人不脑残,一下午玩不完...又是控制台游戏中的一朵奇葩. Free Pascal 射击游戏 Program shooting_game; uses crt; ...
- Pascal小游戏之奇葩的RPG
Pascal吧友作品 一个小RPG Chaobs转载 varplife,plifemax,patt,pre:integer;gr,ex,exmax:integer;alife,alife1,aatt, ...
- Pascal小游戏 俄罗斯方块怀旧版
俄罗斯方块怀旧版(注释版) {$APPTYPE GUI}{$MODE DELPHI}program WinPiece; usesWindows; constAppName = 'WinPiece';p ...
- Pascal小游戏 打飞机
一个经典的打飞机游戏(1)Pascal代码 十分经典,有一种街机的感觉 奇葩青年的又一控制台神作. uses crt; type list=record ty,ax:integer; ...
- Pascal小游戏 井字棋
一个很经典的井字棋游戏 Pascal源码Chaobs奉上 注意:1.有的FP版本不支持汉语,将会出现乱码.2.别想赢电脑了,平手不错了. 井字过三关: program TicTacToe; uses ...
- Pascal小游戏 贪吃蛇
一段未完成的Pascal贪吃蛇 说这段代码未完成其实是没有源代码格式化,FP中一行最多只有255字符宽. uses crt; const screenwidth=50; screenheight=24 ...
- Pascal小游戏 俄罗斯方块
俄罗斯方块已经成为了和“Hello World”一样的程序了吧? 不要直接复制,可能需要事先 Format. program cube;uses crt,graph,dos;var gd,gm:sma ...
随机推荐
- 运行npm update等命令出错后如何分析问题根源
我今天工作时,在当前前端项目工作目录下执行命令npm update 结果遇到如下错误:registry error parsing json npm ERR! Unexpected token < ...
- Ruby SSL_connect returned=1 errno=0 state=SSLv3 read server certificate B:
最近使用ruby-china的源连接不上 使用gem update遇到这个问题, 原来是ruby没有包含SSL证书,所以Https的链接被服务器拒绝. 解决方法很简单,首先在这里下载证书(http:/ ...
- iOS开发:小技巧积累
1.获取全局的Delegate对象,这样我们可以调用这个对象里的方法和变量: [(MyAppDelegate*)[[UIApplication sharedApplication] delegate] ...
- IOS 九宫格算法
@interface ViewController () @property (nonatomic,strong) NSArray *apps; //获取.plist数据 @end @implemen ...
- framework7 手风琴页面有滚动条时再次点开手风琴item滑动里面内容消失的解决方法
在手风琴的ul外面的div加入最小高度min-height:1000px,问题解决 示例代码: <div class="list-block accordion-list" ...
- testng失败重跑
重跑失败场景 1.要添加两个文件 背景:因为这里只是想单独展示失败的重跑的案例,所以先暂时把app这块的运行注释掉,只跑一个简单的demo,就一个简单类,类中就3个测试方法,失败重跑的原理是,运行方法 ...
- Android(java)学习笔记69:短信发送器
1. 一般我们第一步都是先创建这个main.xml布局文件,这是良好的习惯: <?xml version="1.0" encoding="utf-8"?& ...
- 2019.03.09 ZJOI2019模拟赛 解题报告
得分: \(20+0+40=60\)(\(T1\)大暴力,\(T2\)分类讨论写挂,\(T3\)分类讨论\(40\)分) \(T1\):天空碎片 一道神仙数学题,貌似需要两次使用中国剩余定理. 反正不 ...
- Java 文件切割工具类
Story: 发送MongoDB 管理软件到公司邮箱,工作使用. 1.由于公司邮箱限制附件大小,大文件无法发送,故做此程序用于切割大文件成多个小文件,然后逐个发送. 2.收到小文件之后,再重新组合成原 ...
- 使用jdk进行数据迁移(sqlite迁移mysql)
直接粘贴代码 注意:rewriteBatchedStatements=true(加快连接速度) package com.wbg; import org.omg.Messaging.SYNC_WITH_ ...