nebunie

program unjoc;
uses crt;
var k:char;
right,exit:boolean;
n,i:byte;
speed:word;
score,time:longint;


procedure init;
begin
speed:=5;
time:=100;
score:=0;
end;

begin
init;
exit:=false;
n:=1;
right:=true;
repeat
while not keypressed do
  begin
  for i:=1 to 49 do begin
  if n in [30..50] then textcolor(yellow) else textcolor(white);
  gotoxy(n-1,i);write(' ');gotoxy(n,i); write(char(3)); gotoxy(n+1,i);write(' ');
  end;
  if right then begin if n<79 then n:=n+1 else begin {capat dr}
                                              right:=false;
                                              sound(800);delay(10);nosound;
                                              end;
                                              end
          else if n>1 then n:=n-1 else begin {capat stf}
                                        right:=true;
                                        sound(400);delay(10);nosound;
                                        end;
  delay(speed);time:=time-1;
  end;
k:=readkey;
case k of
  #27: exit:=true;
  'p': if n in [30..50] then time:=time+10 else time:=time-10;
  end;
until exit;
end.

http://e-castig.com/index.php?r=Rx9l

program unjoc;
uses crt;
var k:char;
right,exit:boolean;
n,i:byte;
speed:word;
score,time:longint;


procedure init;
begin
clrscr;
speed:=5;
time:=100;
score:=0;
end;

procedure drawstats;
begin
gotoxy(1,1);
writeln(time,'  ');
gotoxy(1,2);
writeln(score,'  ');
gotoxy(1,3);
writeln(speed,'  ');
end;



procedure step;
  begin
  textcolor(white);
  drawstats;
  for i:=1 to 49 do begin
  if n in [30..50] then textcolor(yellow) else textcolor(white);
  gotoxy(n-1,i);write(' ');gotoxy(n,i); write(char(3)); gotoxy(n+1,i);write(' ');
  end;
  if right then begin if n<79 then n:=n+1 else begin {capat dr}
                                              right:=false;
                                              sound(800);delay(10);nosound;
                                              end;
                                              end
          else if n>1 then n:=n-1 else begin {capat stf}
                                        right:=true;
                                        sound(400);delay(10);nosound;
                                        end;
  delay(speed);time:=time-1;
  end;


procedure keys;
begin
k:=readkey;
case k of
  #27: exit:=true;
  'p': if n in [30..50] then time:=time+10 else time:=time-10;
  end;
end;


begin
init;
exit:=false;
n:=1;
right:=true;
repeat
while not keypressed do step;
keys;
until exit;
end.

{sa se creeze un simulator al unor puncte cu sarcina electrostatica.
punctele pot fi de 2 tipuri, statice si dinamice si pot avea sarcina de la
-100 pana la 100, real.
Cand 2 puncte se intalnesc, fac schimb de sarcina si se comporta ca atare.}
program electrostatic;
uses crt;
type punct=record
    x,y:real;
    s:integer;
    dir:0..360;
    speed:real;
    dyn:0..1;
    end;
var x,y:array[1..100] of punct;
i,j,n:integer;
f:text;
sim,esc:boolean;

procedure init;
begin
assign(f,'date.pun');
reset(f);
readln(f,n);
for i:=1 to n do begin
  with x[i] do readln(f,x,y,s,dir,speed,dyn);
  y[i]:=x[i];
  end;
close(f);
end;

procedure keys;
var k:char;
begin
if keypressed then
  k:=readkey;
  case k of
  #27:esc:=true;
  's': sim:=not sim;
  end;
end;

procedure draw;
begin
gotoxy(1,1);writeln(n);
for i:=1 to n do
  with x[i] do begin
  gotoxy(trunc(x),trunc(y));if s>0 then write('+') else write('-');
  end;
end;






procedure step;
begin
for i:=1 to n do begin
    for j:=1 to n do begin

    end;
    x[i]:=y[i];
end;
sim:=not sim;
draw;
end;

begin
init;
draw;
repeat
keys;
if sim then step;
until esc;
writeln;writeln;writeln;
end.

program unjoc;
uses crt;
var k:char;
setscore,music,right,exit:boolean;
n,i:byte;
speed:word;
score,time:longint;
c:char;

procedure init;
begin
clrscr;
randomize;
music:=false;
speed:=8;
time:=1000;
score:=0;
exit:=false;
c:='p';
end;

procedure drawstats;
begin
gotoxy(1,1);
writeln(time,'  ');
gotoxy(1,2);
writeln(score,'  ');
gotoxy(1,3);
writeln(speed,'  ');
gotoxy(1,4);
write('PRESS ');textcolor(cyan);write(c);
end;



procedure step;
begin
textcolor(white);
drawstats;
inc(score);
for i:=1 to 49 do begin
  if n in [30..50] then textcolor(yellow) else textcolor(white);
  gotoxy(n-1,i);write(' ');gotoxy(n,i); write(char(3)); gotoxy(n+1,i);write(' ');
  end;
if right then begin if n<79 then n:=n+1 else begin {capat dr}
                                              right:=false;
                                              if music then sound(800);
                                              delay(10);nosound;
                                              end;
                                              end
          else if n>1 then n:=n-1 else begin {capat stf}
                                        right:=true;
                                        if music then sound(400);
                                        delay(10);nosound;
                                        end;
delay(speed);time:=time-1;
if random(50)=1 then right:=not right;
if random(500)=1 then c:=char(ord(random(27)+96));
if time<=0 then begin
              setscore:=true;
              exit:=true;
              end;
end;


procedure keys;
begin
k:=readkey;
case k of
  #27: exit:=true;
  else if (k=c) and (n in [30..50]) then time:=time+100 else time:=time-50;
  end;
if speed in [7..12] then inc(speed,random(3)-1);
if random(2)=1 then right:=not right;
end;

procedure drawscore;
begin
clrscr;
gotoxy(1,20);writeln('You ran out of time. Your score was ',score);
end;

begin
init;
exit:=false;
n:=1;
right:=true;
repeat
step;
if keypressed then keys;
until exit;
if setscore then begin drawscore;
                      readln
end;
end.