uses crt;
var
a,b,d,i,x,y,qqx,sb,hp,hh,dd,pp,gg,aa,cv,ww,bb,mn,bn,hj,tt:longint;
f:real;
s:boolean; q,ch,d1:char; mm,ff:string;a1,a2:real;
begin
gotoxy(1,1);clrscr;
write('Password:');
while true do
begin
s:=true;
ch:=readkey;
case ch of
#8:begin
x:=wherex;
y:=wherey;
if x=1 then
begin
dec(y);
x:=qqx;
end else
if (x>1)and((x>10)or(y>1)) then dec(x);
gotoxy(x,y);
write(' ');
gotoxy(x,y);
s:=false;
ff:=copy(mm,1,length(mm)-1);
mm:=ff;
end;
#13,#10:begin
writeln; s:=false;
if mm='0428' then
begin
writeln('Yes!');
readln;
break;
end
else
begin
write('No!'); mm:='';
end;
end;
end;
if s then begin mm:=mm+ch; write('*'); end;
end;
clrscr;
begin
d:=100;
hp:=100;
ww:=1;
writeln('N:Lot Out');
writeln('SameGames');
repeat
if (bb<>0) and (bb mod 10=0) then begin bb:=bb-10;ww:=ww+1;end;
writeln('Money:',d,' yuan');
writeln('Food:',hp);
writeln('experience:',bb);
writeln('grade:',ww);
if cv=2 then writeln('VIP');
if cv=3 then writeln('SVIP');
readln(q);
clrscr;
writeln('What game?');
writeln('1:Draw a lottery or raffle (10 yuan)');
writeln('2:Make money (? yuan)');
writeln('3:Food (? yuan)');
writeln('4:Cheat');
writeln('5:Sleep');
writeln('6:Daily English');
writeln('7:Empty');
if ww>=10 then writeln('8:start up business');
readln(b);
clrscr;
case b of
1:
begin
f:=trunc(random(50));
d:=d-10;
if f<=25
then d:=d+50
else begin writeln('No!');readln;clrscr;end;
end;
2:
begin
writeln('1:Make car');
writeln('2:Boss');
writeln('3:Dishwasher');
readln(sb);
case sb of
1:begin d:=d+200;hp:=hp-20;bb:=bb+5;end;
2:begin d:=d+500;hp:=hp-50;bb:=bb+10;end;
3:begin d:=d
+3
0;hp:=hp-1;bb:=bb+2;end;
end;
clrscr;
end;
3:
begin
writeln('1:apple (5 yuan)');
writeln('2:VIP apple (20 yuan)');
writeln('3:hot dog (10 yuan)');
writeln('4:VIP hot dog (25 yuen)');
writeln('5:pig (100 yuan)');
writeln('6:food (300 yuan)');
writeln('7:VIP food (500 yuan)');
writeln('8:SVIP food (800 yuan)');
readln(hh);
case hh of
1:begin d:=d-5;hp:=hp+30;end;
2:begin d:=d-20;hp:=hp+50;end;
3:begin d:=d-10;hp:=hp+40;end;
4:begin d:=d-25;hp:=hp+45;end;
5:begin d:=d-100;hp:=hp+80;end;
6:begin d:=d-300;hp:=hp+250;end;
7:begin d:=d-500;hp:=hp+350;end;
8:begin d:=d-800;hp:=hp+700;end;
end;
clrscr;
end;
4:
begin
readln(gg);
if gg=123456 then begin
writeln('cheat');
d:=d+20000;
hp:=hp+10000;
cv:=2;
ww:=50;
end;
if gg=234567 then begin
writeln('S cheat');
d:=d+50000;
hp:=hp+20000;
cv:=3;
ww:=120;
end;
readln;
clrscr;
end;
5:hp:=hp-30;
6:
begin
aa:=trunc(random(6));
case aa of
1:writeln('When ambition ends, happiness begins.');
2:writeln('The early bird get the worm.');
3:writeln('A year is spring, a day hour in the morning is worth two in the evening.');
4:writeln('Is the rainbow after the rain');
5:writeln('Ha!Ha!');
6:writeln('Q:1+1=? A:2!');
end;
readln;
clrscr;
end;
7:
begin
readln;
clrscr;
end;
end;
if ww>120 then begin writeln('You are win!');readln;q:='N';end;
until(q='N') or (d<=0) or (hp<=0) or (mn=1);
end;
end.

我玩过了，特无聊

就这还申精，神经吧

这名字好！

真的好无聊

这密码多少？？