XProfan

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

- Página 7 -

Gibt doch Kopiermodus -1,

umzusetzen bastante sin OGL wäre el garnicht schwer.

- Página 8 -

Julian
Schmidt

Jau, sólo como bekomme Yo el Bildteile en un Puzzleteilform ausgeschnitten (unabhängig de el Bildgröße y Teileanzahl). Wobei en el Hintergrund para Kopiermodus -1 Transparenz gesetzt voluntad debería

XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

Na indem Usted una Puzzleteil (z.B. en una hPic) zeichnest y una z.B. schwarze Form
(auch con -1) drübermalst y así quasi el überstehenden Teil ausstanzt en una
"Sprite" a obtener.

Kompilieren Marca Separación

Julian
Schmidt

Dann se en me allerdings el ausgestanzte Bildteil wiederum por Weiß ausgefüllt. Und no como erhofft Transparent.
Schau hier...

CLS
Selección aleatoria
Declarar pos_x&, pos_y&, way_x&, way_y&
Var sprite&=Crear("HPIC",-1,"C:\Puzzle.bmp")
Var bild&=Crear("hNewPic", 190, 243, 0)
MoveTo RND(%bmpx+1),RND(%bmpy+1)
StartPaint bild&

whileloop 1000

    USEP 0,3,RND(256*256*256)
    LineTo RND(%bmpx+1),RND(%bmpy+1)

EndWhile

DrawPic sprite&, 0, 0, -1, 0
EndPaint
Usermessages 16

Sinestar encargado iskey(27) or (%Umessage=16)

    Case pos_x&<0 : way_x&=0
    Case pos_x&+%bmpx>width(%hwnd) : way_x&=-1
    Case pos_y&<0 : way_y&=0
    Case pos_y&+%bmpy>height(%hwnd) : way_y&=-1
    Case way_x&<>-1 : pos_x&=pos_x&+1
    Case way_y&<>-1 : pos_y&=pos_y&+1
    Case way_x&=-1 : pos_x&=pos_x&-1
    Case way_y&=-1 : pos_y&=pos_y&-1
    DrawBackground()
    DrawPic bild&, pos_x&, pos_y&; 0

EndWhile

Deleteobject sprite&
Deleteobject bild&

Proc DrawBackground

    USEP 0,10,RGB(128,128,128)

    whileloop Int((width(%hwnd)+height(%hwnd))\100)

        Line 0,100*&bucle - 100*&bucle,0

    EndWhile

ENDPROC

puzzle.bmp	47 kB

Hochgeladen:	23.05.2012

Ladeanzahl:
		Descargar

Kompilieren Marca Separación

Buuh!

XProfan 11.2.1.8a.63 Praekompiler [XPSE]
Copyright (C) 1998-2010 XProfan.Com, built DE.

Expediente: c:\dev\5\test.prf
Warnung: Unbekannte Escapesequenz en Stringkonstante: "C:\Puzz
le.bmp"

[C]ompile [ I]nterpr [L]ink [R]unPrc Run[E]xe [S]ource [H]ilfe

XPSE:>

Eher así:

''{$CLEQ}
'URL: https://XProfan.com/intl/de/spiele/schiebe-puzzle-opensource/#bottom
CLS
Selección aleatoria
Declarar pos_x&, pos_y&, way_x&, way_y&
Var sprite&=Crear("HPIC",-1,"C:\\Puzzle.bmp")
Var bild&=Crear("hNewPic", 190, 244, 0)
MoveTo RND(%bmpx+1),RND(%bmpy+1)
StartPaint bild&

whileloop 1000

    USEP 0,3,RND(256*256*256)
    LineTo RND(%bmpx+1),RND(%bmpy+1)

EndWhile

DrawPic sprite&, 0, 0, -1
EndPaint
Usermessages 16

Sinestar encargado iskey(27) or (%Umessage=16)

    Case pos_x&<0 : way_x&=0
    Case pos_x&+%bmpx>width(%hwnd) : way_x&=-1
    Case pos_y&<0 : way_y&=0
    Case pos_y&+%bmpy>height(%hwnd) : way_y&=-1
    Case way_x&<>-1 : pos_x&=pos_x&+1
    Case way_y&<>-1 : pos_y&=pos_y&+1
    Case way_x&=-1 : pos_x&=pos_x&-1
    Case way_y&=-1 : pos_y&=pos_y&-1
    DrawBackground()
    DrawPic bild&, pos_x&, pos_y&; 0

EndWhile

Deleteobject sprite&
Deleteobject bild&

Proc DrawBackground

    USEP 0,10,RGB(128,128,128)

    whileloop Int((width(%hwnd)+height(%hwnd))\100)

        Line 0,100*&bucle - 100*&bucle,0

    EndWhile

ENDPROC

puzzle.bmp	6 kB

Hochgeladen:	23.05.2012

Ladeanzahl:
		Descargar

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

Julian
Schmidt

Lo ha se en el Endeffekt dadurch wenig verändert. El Transparenz fehlt siempre todavía.

Kompilieren Marca Separación

Solch Minipatch tener Yo Usted schlicht dijo fix zugetraut:

CLS
Selección aleatoria
Declarar pos_x&, pos_y&, way_x&, way_y&
Var sprite&=Crear("HPIC",-1,"C:\\Puzzle.bmp")
Var bild&=Crear("hNewPic", 190, 243, 0)
MoveTo RND(%bmpx+1),RND(%bmpy+1)
StartPaint bild&

whileloop 1000

    USEP 0,3,RND(256*256*256)
    LineTo RND(%bmpx+1),RND(%bmpy+1)

EndWhile

DrawPic sprite&, 0, 0, -1
EndPaint
DrawBackground()
DrawPic bild&, 0,0,-1
Deleteobject sprite&
Deleteobject bild&
waitinput

Proc DrawBackground

    USEP 0,10,RGB(128,128,128)

    whileloop Int((width(%hwnd)+height(%hwnd))\100)

        Line 0,100*&bucle - 100*&bucle,0

    EndWhile

ENDPROC

zwischenablage01.png	38 kB

Hochgeladen:	23.05.2012

Ladeanzahl:
		Descargar

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

Manfred
Barei

¡Hola Julian,

Yo möchte IF sí no a nahe treten

, aber lass lo ya que es, el Schiebepuzzel waren ya siempre eckig.

Siehe Bild.

Saludo
Manfred

schiebepuzzel.jpg	17 kB

Hochgeladen:	23.05.2012

Ladeanzahl:
		Descargar

Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

Darum sí mi Concepto...

normale solche Puzzle gibts sí ya...

imho aber eben keins el se dahingehend unterscheidet.

Wenn él lo igual sauber anlegt entonces ists schlicht una "Option" -

zudem hatte ego auch ya como Denksportkleinaufgabe angedacht

o. sería mancher lo tal vez auch "Herausforderung" nennen.

Julian
Schmidt

Jup, así Veo el auch. Ob lo entonces en el Endeffekt en el Programa einfließt kann Yo para aktuellen Zeitpunkt no sagen.

24.05.2012 ▲

Manfred
Barei

ok IF, así Yo el no gesehen.

Seguro debería uno versuchen siempre qué neues a probieren.

gruß

Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |

27.05.2012 ▲

XProfan X2
Vista (TM) Home Premium, SP2, Core(TM)2 Duo P8600 @ 2.40GHz

Aus solchen Gründen entschied Yo mich damals z.B. auch a una völlig
propio Foren-Sistema herzustellen con verschiedenen Características el
eben de keinem otro Forensystem vorgebracht voluntad oder auch el
native Profano por nProcs herzustellen. Alles sozusagen "Herausforderungen"
y cómo Yo finde con gelungenen Ergebnissen.

29.05.2012 ▲