码迷,mamicode.com
首页 > 其他好文 > 详细

Pascal游戏 大富翁MUD

时间:2014-07-14 10:07:03      阅读:166      评论:0      收藏:0      [点我收藏+]

标签:os   for   div   re   type   c   

大富翁MUD Pascal源码 Chaobs改编自百度网友作品

此源码非Chaobs原创,但转载时请仍注明出处。

估计90后以后就没有孩子知道MUD了。

program wxtw; 
uses crt; 
type 
     zbdy=record 
     x,y:integer; end; 
var n,i,x,y,t,sjs:integer;    ml:char; 
zb: array [1..12] of zbdy; 
begin 
   randomize; 
   sjs:=random(3); 
   zb[1].x:=15; zb[1].y:=15; 
   clrscr; 
   gotoxy(zb[1].x,zb[1].y); 
   write(‘☆‘); 
   delay(100); 
   zb[2].x:=1; zb[2].y:=20; 
   gotoxy(zb[2].x,zb[2].y); 
   write(‘◎‘); 
   zb[10].x:=18; zb[10].y:=20; 
   gotoxy(zb[10].x,zb[10].y); 
   write(‘◎‘); 
   zb[11].x:=36; zb[11].y:=20; 
   gotoxy(zb[11].x,zb[11].y); 
   write(‘◎‘); 
   zb[12].x:=53; zb[12].y:=20; 
   gotoxy(zb[12].x,zb[12].y); 
   write(‘◎‘); 
   zb[3].x:=1; zb[3].y:=5; 
   gotoxy(zb[3].x,zb[3].y); 
   write(‘◎‘); 
   zb[4].x:=18; zb[4].y:=5; 
   gotoxy(zb[4].x,zb[4].y); 
   write(‘◎‘); 
   zb[5].x:=36; zb[5].y:=5; 
   gotoxy(zb[5].x,zb[5].y); 
   write(‘◎‘); 
   zb[6].x:=53; zb[6].y:=5; 
   gotoxy(zb[6].x,zb[6].y); 
   write(‘◎‘); 
   zb[7].x:=1+sjs; zb[7].y:=1+sjs; 
   gotoxy(zb[7].x,zb[7].y); 
   write(‘△‘); 
   zb[8].x:=40+sjs; zb[8].y:=10+sjs; 
   gotoxy(zb[8].x,zb[8].y); 
   write(‘△‘); 
   zb[9].x:=1+sjs; zb[9].y:=20+sjs; 
   gotoxy(zb[9].x,zb[9].y); 
   write(‘△‘); 
   gotoxy(zb[1].x+8,zb[1].y-2); 
   write(‘五星大逃亡1.0版‘); 
   gotoxy(zb[1].x+3,zb[1].y-1); 
   write(‘回车键开始游戏 Chaos荣誉出品 For Games by Gamers!‘); 
   gotoxy(zb[1].x+3,zb[1].y); 
   write(‘操作 上:I   下:K   左:J   右:L   ‘); 
   gotoxy(zb[1].x+3,zb[1].y+1); 
   write(‘注意:碰到边框将会结束!!!‘); 
   readln; 
   repeat 
   if   keypressed=true then begin 
   ml:=readkey; 
   case ml of 
   ‘i‘: begin 
        zb[1].y:=zb[1].y-1; 
        clrscr; 
        gotoxy(zb[1].x,zb[1].y);write(‘☆‘); 
        end; 
   ‘k‘: begin 
        zb[1].y:=zb[1].y+1; 
        clrscr; 
        gotoxy(zb[1].x,zb[1].y); 
        write(‘☆‘); 
        end;

 ‘j‘ :begin 
        zb[1].x:=zb[1].x-1; 
        clrscr; 
        gotoxy(zb[1].x,zb[1].y); 
        write(‘☆‘); 
        end; 
   ‘l‘ :begin 
        zb[1].x:=zb[1].x+1; 
        clrscr; 
        gotoxy(zb[1].x,zb[1].y); 
        write(‘☆‘); 
        end; end; end else begin 
   clrscr; 
   if zb[2].x<=70 then 
   zb[2].x:=zb[2].x+1 else zb[2].x:=1; 
   gotoxy(zb[2].x,zb[2].y); 
   write(‘◎‘); 
   if zb[3].x<=70 then 
   zb[3].x:=zb[3].x+1 else zb[3].x:=1; 
   gotoxy(zb[3].x,zb[3].y); 
   write(‘◎‘); 
   if zb[4].x<=70 then 
   zb[4].x:=zb[4].x+1 else zb[4].x:=1; 
   gotoxy(zb[4].x,zb[4].y); 
   write(‘◎‘); 
   if zb[5].x<=70 then 
   zb[5].x:=zb[5].x+1 else zb[5].x:=1; 
   gotoxy(zb[5].x,zb[5].y); 
   write(‘◎‘); 
   if zb[6].x<=70 then 
   zb[6].x:=zb[6].x+1 else zb[6].x:=1; 
   gotoxy(zb[6].x,zb[6].y); 
   write(‘◎‘); 
   if zb[10].x<=70 then 
   zb[10].x:=zb[10].x+1 else zb[10].x:=1; 
   gotoxy(zb[10].x,zb[10].y); 
   write(‘◎‘); 
   if zb[11].x<=70 then 
   zb[11].x:=zb[11].x+1 else zb[11].x:=1; 
   gotoxy(zb[11].x,zb[11].y); 
   write(‘◎‘); 
   if zb[12].x<=70 then 
   zb[12].x:=zb[12].x+1 else zb[12].x:=1; 
   gotoxy(zb[12].x,zb[12].y); 
   write(‘◎‘); 
   gotoxy(zb[1].x,zb[1].y); 
   write(‘☆‘); 
   sjs:=random(11); if sjs=2 then begin 
   if zb[7].x<zb[1].x then zb[7].x:=zb[7].x+1; 
   if zb[7].x>zb[1].x then zb[7].x:=zb[7].x-1; 
   if zb[7].y<zb[1].y then zb[7].y:=zb[7].y+1; 
   if zb[7].y>zb[1].y then zb[7].y:=zb[7].y-1; 
   gotoxy(zb[7].x,zb[7].y); 
   if ((zb[8].x=zb[7].x))   and ((zb[8].y=zb[7].y))   or ((zb[9].x=zb[8].x)   and (zb[9].y=zb[8].y)) or ((zb[7].x=zb[9].x)   and (zb[7].y=zb[9].y)) 
   then gotoxy(zb[7].x-1,zb[7].y-1); 
   write(‘△‘);    end else begin   gotoxy(zb[7].x,zb[7].y); 
   write(‘△‘);   end; 
   sjs:=random(11); if sjs=0 then begin 
   if zb[8].x<zb[1].x then zb[8].x:=zb[8].x+1; 
   if zb[8].x>zb[1].x then zb[8].x:=zb[8].x-1; 
   if zb[8].y<zb[1].y then zb[8].y:=zb[8].y+1; 
   if zb[8].y>zb[1].y then zb[8].y:=zb[8].y-1; 
   gotoxy(zb[8].x,zb[8].y); 
   if ((zb[8].x=zb[7].x))   and ((zb[8].y=zb[7].y))   or ((zb[9].x=zb[8].x)   and (zb[9].y=zb[8].y)) or ((zb[7].x=zb[9].x)   and (zb[7].y=zb[9].y)) 
   then gotoxy(zb[8].x-1,zb[8].y-1); 
   write(‘△‘); end else begin    gotoxy(zb[8].x,zb[8].y); 
   write(‘△‘); end; 
   sjs:=random(11); if sjs=5 then begin 
   if zb[9].x<zb[1].x then zb[9].x:=zb[9].x+1; 
   if zb[9].x>zb[1].x then zb[9].x:=zb[9].x-1; 
   if zb[9].y<zb[1].y then zb[9].y:=zb[9].y+1; 
   if zb[9].y>zb[1].y then zb[9].y:=zb[9].y-1; 
   gotoxy(zb[9].x,zb[9].y); 
   if ((zb[8].x=zb[7].x))   and ((zb[8].y=zb[7].y))   or ((zb[9].x=zb[8].x)   and (zb[9].y=zb[8].y)) or ((zb[7].x=zb[9].x)   and (zb[7].y=zb[9].y)) 
   then gotoxy(zb[9].x-1,zb[9].y-1); 
   write(‘△‘);   end else begin    gotoxy(zb[9].x,zb[9].y); 
   write(‘△‘); end; 
   for i:=2 to 12 do if (zb[1].x=zb[i].x)   and (zb[1].y=zb[i].y) then begin 
   clrscr; 
   writeln(‘逃亡失败!回车键退出‘); 
   readln; 
   halt;        end; 
   delay(20); end; 
   until ml=‘q‘;  
end. 

 

Pascal游戏 大富翁MUD,布布扣,bubuko.com

Pascal游戏 大富翁MUD

标签:os   for   div   re   type   c   

原文地址:http://www.cnblogs.com/Chaobs/p/3837476.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!