DGL • Thema anzeigen - Mauszeiger in der Mitte (egoshooter)

Mauszeiger in der Mitte (egoshooter)

Moderator: DGL-Team

Seite 1 von 1

[ 2 Beiträge ]

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Ogguzhan

Betreff des Beitrags: Mauszeiger in der Mitte (egoshooter)

Verfasst: Mo Jun 03, 2013 09:31

DGL Member

Registriert: Do Mai 23, 2013 11:05
Beiträge: 13
Programmiersprache: Delphi

Also ich hab das Problem das ich meine Kamera wie in einem Egoshooter durch Bewegung der Maus steuern möchte.
Dazu muss ja der Mauszeiger in der Mitte fixiert werden aber die Bewegungen trotzdem noch eingelesen werden können.
Ideal wäre wenn ich nicht die absolute, sondern die relative Mausbewegung (z.b. 7 pixel nach rechts) einlesen könnte aber delphi diese nicht ausführt... wenn ich den Mauszeiger nämlich nur ausblende (meine 1. Idee) findet ja spätestens am Bildschirmrand keine Bewegung mehr statt...

Mfg Ogguzhan

Nach oben

Ida

Betreff des Beitrags: Re: Mauszeiger in der Mitte (egoshooter)

Verfasst: Mo Jun 03, 2013 09:47

DGL Member

Registriert: Mi Apr 13, 2011 22:05
Beiträge: 218
Programmiersprache: Lazarus/FPC

Ich mach das so das ich den Mauszeiger in der Mitte des Bildschirms halte. Sobald er über einen gewissen Bereich draussen ist kommt er wieder in die Mitte zurück.

Mein Code dazu:

Code:

  
  mausempf := 7; //Mausempfindlichkeit
  getcursorpos(p);  // Aktuelle Mausposition in p schreiben.  P besteht aus p.x und p.y für die Mauskoordinaten
 
  br := Form1.width div 2;
  hö := Form1.Height div 2;
 
//yrot ist die links-rechts Bewegung der Kamera beim Egoshooter.
//xrot die rauf-Runter-Sicht.
//Hier wird geschaut in welche Richtung sich die Maus seit dem letzten Frame bewegt hat. OldMPos ist dabei die Position des vorigen Frame.
//Die entsprechende Bewegung wird direkt übernommen.
  if OldMPos.X < p.X then
    yrot := yrot + Abs(OldMPos.X - p.X) / mausempf;
  if OldMPos.X > p.X then
    yrot := yrot - Abs(OldMPos.X - p.X) / mausempf;
  if (OldMPos.Y > p.Y) then
    xrot := xrot - Abs(OldMPos.Y - p.Y) / mausempf;
  if (OldMPos.Y < p.Y) then
    xrot := xrot + Abs(OldMPos.Y - p.Y) / mausempf;
 
  getcursorpos(OldMPos);
 
  // Maus im Mittelbereich vom Bildschirm halten. Wenn sie über einen gewissen Bereich raushüpft wird sie wieder auf 0 gesetzt.
  if p.X < br - 99 then
  begin
    SetCursorPos(br + 99, p.Y);
    OldMPos.X := br + 100;
  end
  else if p.X >= br + 99 then
  begin
    SetCursorPos(br - 99, p.Y);
    OldMPos.X := OldMPos.X - 200;
  end
  else if p.Y < hö - 100 then
  begin
    SetCursorPos(p.X, hö + 99);
    OldMPos.Y := OldMPos.Y + 200;
  end
  else if p.Y >= hö + 100 then
  begin
    SetCursorPos(p.X, hö - 99);
    OldMPos.Y := OldMPos.Y - 200;
  end;
 
  // Beschränkungen beim Rauf-Runter-Schaun. Der Spieler kann seinen Kopf ja nicht nach oben drehen bis das Genick bricht.
  if xrot > 80 then
    xrot := 80;
  if xrot < -80 then
    xrot := -80;
 
 

Den Mauszeiger verschwinden lässt du übrigens mit:
windows.ShowCursor(false);

_________________
Ich teile manchmal heimlich durch Null. - Alber Einstein

Nach oben

Seite 1 von 1

[ 2 Beiträge ]

Foren-Übersicht » Programmierung » Einsteiger-Fragen

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 22 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.