来发布一个弱游戏：鼠标游戏
具体来说就是双方分别操控左右键狂按，中间滚轮能把双方清零

uses winmouse,graph;
var a,b,x,y,m,n:longint;gm,gd:integer;s,ss:string;
begin
gd:=8;initgraph(gm,gd,'');
a:=0;b:=0;n:=0;
settextstyle(1,0,10);
repeat
bar(1,1,700,500);
str(a,s);str(b,ss);
outtextxy(5,400,s);outtextxy(355,400,ss);
repeat
getmousestate(x,y,m);
until m>0;
case m of
1:a:=a+1;
2:b:=b+1;
3:begin a:=a+1;b:=b+1;end;
4:if n<3 then begin n:=n+1;a:=a+b;b:=a-b;a:=a-b;end;
end;
repeat
getmousestate(x,y,m);
until m=0;
if a=100 then begin outtextxy(300,100,'LEFT');readln;halt;end;
if b=100 then begin outtextxy(300,100,'RIGHT');readln;halt;end;
until false;
end.

自顶一次

险些把这个坑忘了：
贴代码：uses winmouse,graph;
var a,b,x,y,m,n:longint;gm,gd:integer;s,ss:string;
begin
gd:=8;initgraph(gm,gd,'');
a:=0;b:=0;n:=0;
settextstyle(1,0,10);
repeat
bar(1,1,700,500);
str(a,s);str(b,ss);
outtextxy(5,400,s);outtextxy(355,400,ss);
repeat
getmousestate(x,y,m);
until m>0;
case m of
1:a:=a+1;
2:b:=b+1;
3:begin a:=a+1;b:=b+1;end;
4:if n<3 then begin n:=n+1;a:=a+b;b:=a-b;a:=a-b;end;
end;
repeat
getmousestate(x,y,m);
until m=0;
if a=100 then begin outtextxy(300,100,'LEFT');readln;halt;end;
if b=100 then begin outtextxy(300,100,'RIGHT');readln;halt;end;
until false;
end.