Wie gehe ich vor?

[Chriss]

Hi @ all!
Ich möchte ein Spiel in Delphi Programmieren... mit einem Kollegen zusammen haben wir überlegt, ob es möglich ist, "4 gewinnt" zu programmieren.
Daher die Fragen:
Wie stelle ich es an, dass die "Punkte" (bestimmte Grösse) auch an der Stelle auftauchen, wo ich hinklicke und wie wechsle ich den Spieler? immerhin ist das ja ein Spiel für 2!!!

Ich hoffe, dass man das überhaupt machen kann.... Ein Anstoss, wie ich vorgehen soll, wäre ganz nett!

CYA

Chriss

[70UR157]

also 4gewinnt (ohne ki) zu programmieren ist recht einfach, ich hab des mal für die console programmiert...

zum problem mit dem chipeinwurf: in welche reihe der chip fällt muss du über die relative x-mausposition entscheiden

des andere problem ist keines wenn du sauber funktional programmierst, und dir z.B. mit ner bool merkst wer gerade am zug ist...

solltest du größere probs haben kann ich auch ma nach dem src kramen :)

cu!

[Haegar]

wenn man das mit nem stinggrid macht, kann man da sowas machen wie "wenn maus-click in zelle[x,y] dann chipeinwurf)!
aber wie bestimme ich, wenn möglich, die zelle??

gruss haegar

[70UR157]

man programmiert doch kein 4gewinnt mit nem stringgrid :?

das spiel sollte intern mit einem 2d-array arbeiten, und das ganze z.B. mit Canvas ausgeben (meiner meinung nach)

mfg

[Haegar]

äh naja, war nur so ein gedanke ;)
isses denn nu möglich?

[Keldorn]

Hallo

ich programmier zwar kein 4gewinnt dmait, aber schau dir maousetocell an

Code:

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Var arow,acol:integer;
begin
  StringGrid1.MouseToCell(x,y,acol,arow);
  //kleine Sicherheitprüfung, wenn du außerhalb des zellbereiches geklickt hast
  if (acol<>-1) and (arow<>-1) then label1.caption:=inttostr(acol)+'-'+inttostr(arow);
end;

Mfg Frank