手残敲了一个'游戏'

uses CRT,dos;

var

Boos,sh,jb,Win:qword;

B:boolean;

H:string;

begin

writeln('手酸游戏[Enter] v1.00');

delay(1000);

clrscr;

writeln('游玩须知:敲击[Enter]攻击输入别的打开商店对怪物的伤害1:1转化为金币{回车继续}');

readln;

writeln('begin!!! 对了输入后敲回车');

delay(100);

Boos:=12345678910;

sh:=1;

repeat

Win:=Boos div sh;

if Boos mod sh<>0 then inc(Win);

writeln(' 公告: 离胜利还有',Win,'下敲击提示你有',jb,'个金币下次是读入哦'); readln(H);

if length(H)=0 then begin jb:=jb+sh;Boos:=Boos-sh; writeln('你伤害了Boos 回车继续'); readln;clrscr;end else begin

CPP

                  writeln('欢迎来到商店 你的攻击值是',sh,'你有',jb,'个金币');
                  
                  writeln('购买初级磨刀石 需要10金币 提伤1点 请按[1]');
                  
                  writeln('购买中级磨刀石 需要100金币 提伤50点 请按[2]');
                  
                  writeln('购买高级磨刀石 需要1000金币 提伤233点 请点[3]');
                  
                  writeln('炼出长生丸 花费1万 伤害提100000 请点[4] ps:因为作者时间问题会改的');
                  
                  writeln('作者的通关证书 花费？？？ 伤害？？？ 点击？？？');
                  
                  writeln('别的=退出');
                  
                  readln(H);
                  
                  if H='1' then if jb>=10 then begin jb:=jb-10; sh:=sh+1;writeln('成功') end
                  
                                        else writeln('钱不够 去攒一攒吧')
                                        
                                        
                          else if H='2' then if jb>=100 then begin jb:=jb-100; sh:=sh+50;writeln('成功') end
                          
                                        else writeln('钱不够 去攒一攒吧')
                                        
                         else if H='3' then if jb>=1000 then begin jb:=jb-1000; sh:=sh+233;writeln('成功') end
                         
                                        else writeln('钱不够 去攒一攒吧')
                                        
                        else if H='4' then if jb>=10000 then begin jb:=jb-10000; sh:=sh+100000;writeln('成功') end
                                        else writeln('钱不够 去攒一攒吧');
                                        
                   if H='xzhXZH' then Boos:=0;
                  delay(1000);
                  
                  clrscr;
                  
                  writeln('你走出了商店发现第二天了 继续打怪吧 回车继续');
                  
                   readln;
                   
                end;

until (Boos<=0);

clrscr;writeln('你打完了Boos 牛x');

delay(10000);

writeln('呵呵,你等了10秒我就送你游戏吧去问宣哲豪吧获取密码是wushi'); delay(30000);

writeln('额你。。。你好吧是wushixzh 真没了bye!!! 回车退出');

delay(5000);

readln;

end.

手残敲了一个'游戏'

讨论操作

回复

相关推荐

手残敲了一个'游戏'