XProfan

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

- Page 7 -

gives still Kopiermodus -1,

umzusetzen integrally without OGL would the not at all heavy.

- Page 8 -

Julian
Schmidt

Jau, only How I get The Bildteile in a Puzzleteilform ausgeschnitten (independent of the Bildgröße and Teileanzahl). where in the background for Kopiermodus -1 transparency staid go should

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

well because You one Puzzleteil (z.B. into hPic) draw and a z.B. black shape
(too with -1) drübermalst and so quasi whom überstehenden part ausstanzt for a
"Sprite" to obtain.

Julian
Schmidt

Then by me though the ausgestanzte Bildteil against through white ausgefüllt. and not How erhofft Transparent.
look here...

Compile Mark Separation

CLS
Randomize
Declare pos_x&, pos_y&, way_x&, way_y&
Var sprite&=Create("HPIC",-1,"C:\Puzzle.bmp")
Var bild&=Create("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
User Messages 16

WhileNot 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*&loop - 100*&loop,0

    EndWhile

ENDPROC

puzzle.bmp	47 kB

Hochgeladen:	05/23/12

Downloadcounter:
		Download

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

Buuh!

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

File: c:\dev\5\Test.prf
warning: Unknown Escapesequenz in Stringkonstante: "C:\Puzz
le.bmp"

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

XPSE:>

sooner so:

Compile Mark Separation

''{$ CLEQ}
'URL: https://XProfan.com/intl/de/Games/schiebe-puzzle-opensource/#bottom
CLS
Randomize
Declare pos_x&, pos_y&, way_x&, way_y&
Var sprite&=Create("HPIC",-1,"C:\\Puzzle.bmp")
Var bild&=Create("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
User Messages 16

WhileNot 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*&loop - 100*&loop,0

    EndWhile

ENDPROC

puzzle.bmp	6 kB

Hochgeladen:	05/23/12

Downloadcounter:
		Download

Julian
Schmidt

it has itself in the Endeffekt therefore little changed. The transparency missing still.

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

such Minipatch Have I you crept said fix zugetraut:

Compile Mark Separation

CLS
Randomize
Declare pos_x&, pos_y&, way_x&, way_y&
Var sprite&=Create("HPIC",-1,"C:\\Puzzle.bmp")
Var bild&=Create("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*&loop - 100*&loop,0

    EndWhile

ENDPROC

zwischenablage01.png	38 kB

Hochgeladen:	05/23/12

Downloadcounter:
		Download

Manfred
Barei

Hello Julian,

i want iF Yes not To near zurück

, but lass it as it is, whom Schiebepuzzel were always angularly.

See Image.

Greeting
Manfred

schiebepuzzel.jpg	17 kB

Hochgeladen:	05/23/12

Downloadcounter:
		Download

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

therefore Yes my idea...

normal such Puzzle Gibts Yes already...

imho but even keins the itself dahingehend distinguish.

If it it same tidy anlegt then ists crept a "Option" -

additionally having ichs already as Denksportkleinaufgabe angedacht

or. would some it Perhaps too "Herausforderung" name.

Julian
Schmidt

Jup, so I see the too. whether it then in the Endeffekt in that Program einfließt can I to that actually Time not say.

05/24/12 ▲

Manfred
Barei

ok iF, so have I not seen.

sure ought to one try always what new To try.

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 |

05/27/12 ▲

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

from such Found determined I then z.B. too to a completely
own Forums-system produce with different properties The
even of keinem others Forensystem vorgebracht go or the
native Profan by nProcs produce. everything sozusagen "Herausforderungen"
and How I find with gelungenen Ergebnissen.

05/29/12 ▲