tastatur umgang

[shmia]

Sorry, aber ich kann's mir nicht verkeifen:

Delphi-Quellcode:

Procedure SinglePop;
begin
  meinStift.runter; 
  meinStift.bewegeUm(-80); 
  meinStift.hoch; 
  meinStift.bewegeUm(80); 
end;

procedure Poppen;
begin
  while not (meinStift.Status in [psLeer, psSchlapp]) do
  begin
     SinglePop;
     if Random > 0.8 then
        PlaySound('YeahBaby.WAV')
     else
        PlaySound('OHHH.WAV');
  end;
end;