战网鼠标点不了？战网鼠标点不了

卸载，重装，包换删除cache，删除appdata下面的battle.net, 安装路径下的battle.net

pascal怎么编用鼠标点的游？pascal怎么编用鼠标点的游戏

??');

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是右');

《赠人玫瑰手有余香，祝您好运一生一世，如果回答有用，请点“好评”，谢谢^_^!》。