搜索
首页 电脑/网络 程序设计

pascal怎么编用鼠标点的游?

pascal怎么编用鼠标点的游戏

全部回答

2014-12-14

129 0
    var ch2:char; tf,bosstf:boolean; name:string; jd,qn:longint; t,boss,hpboss,bossatt,ene,n,eneatt,my,myatt,hpmy,hpene:integer; i,j,i1,j1,x,y:integer; ch:char; dt:array[0。
    。11,0。。11] of string; procedure hpfirst; begin my:=400; hpmy:=400; myatt:=350; qn:=10; jd:=10; ene:=350; hpene:=350; eneatt:=300; boss:=10000; hpboss:=10000; bossatt:=5000; end; procedure hpfull; begin inc(hpmy,30); my:=hpmy; inc(hpene,30); ene:=hpene; inc(myatt,10); inc(eneatt,20); if t=10 then begin inc(qn); inc(jd);end; end; procedure beg; begin write('制作人:刘志健。
    '); readln; write('公布网站:bbs。oifans。cn'); readln; write('用户名:liuzhijian'); readln; writeln; writeln; write('游戏开始?'); readln; end; procedure map; begin for i:=1 to 10 do for j:=1 to 10 do begin if j<>10 then write(dt[i,j]); if j=10 then writeln(dt[i,j]); end; end; procedure input; begin writeln('骑士:',name,' 你的体力:',my); writeln('H:帮助,M:移动,B:挑BOSS:'); readln(ch); end; procedure help; begin writeln('@是没敌人的,*是有敌人的,~是自己,!是宝物。
    '); writeln('潜能可以伤3倍的血,绝对必杀是必杀招,起初各有十次,后来每战斗十次各加1个。
    '); readln; end; procedure full; begin my:=hpmy; ene:=hpene; end; procedure enem; var ch:string; begin repeat writeln('敌人出现!!!!'); writeln('A普通攻击,B使用潜能,C绝对必杀'); readln(ch); if bosstf then begin if (ch='a') or (ch='A') then dec(boss,myatt); if ((ch='b') or (ch='B')) and (qn<>0) then dec(boss,myatt*3); if ((ch='c') or (ch='C')) and (jd<>0) then dec(boss,boss); if boss0) then dec(ene,myatt*3); if ((ch='c') or (ch='C')) and (jd<>0) then dec(ene,ene); if ene1; if my<=0 then exit; if boss<=0 then exit; full;hpfull; end; procedure move; var ch2:string; begin map; writeln('W是上,A是左,S是下,D是右'); 《赠人玫瑰手有余香,祝您好运一生一世,如果回答有用,请点“好评”,谢谢^_^!》。

类似问题换一批

热点推荐

热度TOP

相关推荐
加载中...

热点搜索 换一换

电脑/网络
程序设计
硬件
电脑装机
互联网
操作系统/系统故障
笔记本电脑
反病毒
百度
软件
程序设计
程序设计
VB
数据库
C/C++
汇编语言
JAVA相关
VC++
C#/.NET
其他编程语言
举报
举报原因(必选):
取消确定举报