Picbox Move - Kartenspiel

Damon_Kronski

Hallo zusammen

Gibt es eine fertige UDF, welche man für ein Kartenspiel verwenden könnte? EIgentlich benötige ich nur eine Funktion, welche eine Pic-Box von A nach B animiert verschiebt.

Kennt jmd etwas in der Richtung? Oder eine sehr sehr einfache "Cardgame Engine"?

Vielen Dank
Damon

**alpines**

Ich versteh nicht wo das Problem ist, schreib dir doch die Funktion selber.
Wenn du möchtest das es von Position A,B nach X,Y wandelt nimm doch einfach GUICtrlSetPos!

[autoit]

Func _GUICtrlMove($hCtrl, $iX, $iY, $iX_, $iY_, $iStepX = 1, $iStepY = 1, $iSleep = 20)
If ($iStepX = 0 or $iStepY = 0) or ($iX < $iX_ and $iStepX < 0) or ($iY < $iY_ and $iStepY < 0) or ($iX > $iX_ and $iStepX > 0) or ($iY > $iY_ and $iStepY > 0 ) Then Return -1

[/autoit][autoit][/autoit][autoit]

While $iX <> $iX_ and $iY <> $iY_
If $iY <> $iY_ Then $iY += $iStepY
If $iX <> $iX_ Then $iX += $iStepX
GUICtrlSetPos($hCtrl, $iX, $iY)
Sleep($iSleep)
WEnd
EndFunc

[/autoit]

Die Funktion hab ich 0815 zusammengewürfelt, sie funktioniert, aber hat bestimmt einige Fehler, die kannst du ja ersetzen.
Nebenbei gemerkt, die Funktion ist grausam schlecht, aber du kannst dir ja damit vorstellen wie man es besser machen könnte, das Grundgerüst steht ja schonmal.
Der verschiebt das falsch aber man sieht einigermaßen was hier gemeint ist (hoffentlich).

Damon_Kronski

Vielen Dank für die schnelle Antwort.

Jedoch muss ich hier warten bis das Verschieben fertig ist. Ich möchte aber zBsp zwei Boxen gleichzeitig oder zeitlich überlapend verschieben...

Jedoch habe ich GDI+ entdeckt... Doch bei der Bewegung zeichnen sich Verzerrungen/Striche hinter dem BIld ab. Kennt jmd eine lösung dazu?

[autoit]

$img = _GDIPlus_ImageLoadFromFile("back.jpg")
$img2 = _GDIPlus_ImageLoadFromFile("back.jpg")
$graph = _GDIPlus_GraphicsCreateFromHWND($gui)
$Bitmap = _GDIPlus_BitmapCreateFromGraphics(400, 400, $graph)
$hBuffer = _GDIPlus_ImageGetGraphicsContext($Bitmap)
_GDIPlus_GraphicsDrawImageRect($hBuffer, $img2, 0,0, 70,90)

[/autoit][autoit][/autoit][autoit]

$y = 0
for $x = 0 to 80 step 4
_GDIPlus_GraphicsClear($hBuffer)
_GDIPlus_GraphicsDrawImageRect($hBuffer, $img, $x,$y, 70,90)
_GDIPlus_GraphicsDrawImage($graph,$bitmap,0,0)
Next

[/autoit]

**BugFix**

Kartenspiel? -- Schau mal hier: https://autoit.de/index.php?page…74248#post74248