Monkeys

[molli]

hey
und zwar habe ich im mom in der schule in informatik delphi
da einige von euch (so habe ich das mitbekommen) informatiker sind wollte ich einfach mal anfragen ob mir wer bei einem für euch kleinem problem helfen könnte ???

vielen dank im voraus
_________________
Wenn ihr auch nachts um vier Uhr noch mit jemanden sprechen wollt schreibt mich an ^^

[Anzeige]

[Mjolner]

Umpf, also mit C oder PL8 könnte ich vielleicht aushelfen aber Delphi kann ich leider nicht. Wenn dein Problem nicht wirklich von der Sprache abhängt, sondern vom Algorithmus, kannst Du hier aber mal schreiben, was Du genau brauchst ...

[molli]

es ist so das ein "spiel" zu progrmmieren ist
ich habe mir nun so ne art space impact ausgesucht

mit hilfe eines zählers kann ich auch schon schießen dieser zähler hält aber immer für den schon laufenden schuß an wenn man nochmal schießt weiß jemand wie man das ändern kann ??? also das im prinzip der zähler auch für den alten schuß zu ende läuft ???
_________________
Wenn ihr auch nachts um vier Uhr noch mit jemanden sprechen wollt schreibt mich an ^^

[Siebenberger]

1.) Die sollen Euch was Gscheits beibringen und net Delphi ... *grummel*
2.) Könntest Du Dein Problem nochmal beschreiben? Ich kann zwar lesen, was da steht, aber verstehen, was Du eigentlich willst, tu ich nicht.

[molli]

mhhh hast du skype ??? das geht villt etwas besser
_________________
Wenn ihr auch nachts um vier Uhr noch mit jemanden sprechen wollt schreibt mich an ^^

[Siebenberger]

Nö.

[molli]

das ist eindeutig oke es ist so:
ich habe nun schonmal den beginn eines spiels programmiert hierbei soll ein raumschiff nach dem muster von space impact andere raumschiffe abschießen inzwischen bin ich beim schießen angelangt einen schuß kann ich schon abgeben allerdings ist an diesen ein timer gekoppelt damit der schuß sich auch bewegt, wenn ich nun erneut schieße hält der erste schuß an da der timer dann nur für den zweiten schuß weiter läuft wie funktioniert es nun das ich mehrere schüße gleichzeitig abgeben kann ohne das einer von diesen anhält

zum abschluß der bisherige quelltext:


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, jpeg;

type
TForm1 = class(TForm)
Timer1: TTimer;
Image1: TImage;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Timer1Timer(Sender: TObject);

private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;
x1,y1: integer;

implementation

{$R *.dfm}



procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = ord (vk_right)) then Image1.Left := Image1.Left +10;
if (key = ord (vk_left)) then Image1.Left := Image1.Left -10;
if (key = ord (vk_up)) then Image1.Top := Image1.Top -10;
if (key = ord (vk_down)) then Image1.Top := Image1.Top +10;
if (key = ord (vk_space)) then

begin
y1 := image1.top - 1;
x1 := image1.Left + 23;
timer1.Enabled := true;


end;


end;


procedure TForm1.Timer1Timer(Sender: TObject);

begin

begin

Form1.canvas.Brush.Color := clblack ;
Form1.canvas.Pen.Color := clblack ;
Form1.canvas.Ellipse(x1,y1,x1+5,y1+10);

y1 := y1 - 10;

Form1.canvas.Brush.Color := clgreen ;
Form1.canvas.Pen.Color := clgreen ;
Form1.canvas.Ellipse(x1,y1,x1+5,y1+10);

end;

end;


end.
_________________
Wenn ihr auch nachts um vier Uhr noch mit jemanden sprechen wollt schreibt mich an ^^

[Siebenberger]

Ähem ... hatte nach meinem "Nö" diesen Thread völlig vergessen und ihn erst jetzt zufällig wieder entdeckt. Ich nehme mal an, daß sich das erledigt hat, oder?

[molli]

jop hat es sich ^^
_________________
Wenn ihr auch nachts um vier Uhr noch mit jemanden sprechen wollt schreibt mich an ^^

[Mjolner]

[molli]

nein noch is gar nichts raus ^^ mein lehrer hat sich dann dazu entschlossen das Schießen mit mehreren schüßen hintereinander allen zu erklären ^^
_________________
Wenn ihr auch nachts um vier Uhr noch mit jemanden sprechen wollt schreibt mich an ^^

[Siebenberger]