| |
| |
|
| - page 1 - |
|
Julian
Schmidt |
|
| |
| |
| |
|
|
| |
| |
| - page 7 - |
|
 | Gibt doch Kopiermodus -1,
umzusetzen entier sans OGL wäre cela garnicht schwer. |
|
| |
| |
| |
|
| |
| |
| - page 8 - |
|
|
Julian
Schmidt | | Jau, seulement comment bekomme je qui Bildteile dans un Puzzleteilform ausgeschnitten (indépendant de qui Bildgröße et Teileanzahl). Wobei im Hintergrund pour Kopiermodus -1 Transparenz gesetzt volonté devrait |
|
| |
| |
| |
|
|
| Na indem Du un Puzzleteil (z.B. dans un hPic) zeichnest et une z.B. schwarze forme
(aussi avec -1) drübermalst et avec cela quasi den überstehenden partie ausstanzt um un
"Sprite" trop conservé. |
|
| |
| |
| |
|
|
Julian
Schmidt | ensuite wird chez mir allerdings qui ausgestanzte Bildteil wiederum par sais ausgefüllt. et pas comment erhofft Transparent.
exposition ici...
CLS
Randomiser
Déclarer pos_x&, pos_y&, way_x&, way_y&
Var sprite&=Créer(«PCSI»,-1,"C:\Puzzle.bmp")
Var bild&=Créer("hNewPic", 190, 243, 0)
MoveTo RND(%bmpx+1),RND(%bmpy+1)
Début de peinture 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
WhileNot iskey(27) or (%Umessage=16)
Cas pos_x&<0 : way_x&=0
Cas pos_x&+%bmpx>width(%hwnd) : way_x&=-1
Cas pos_y&<0 : way_y&=0
Cas pos_y&+%bmpy>height(%hwnd) : way_y&=-1
Cas way_x&<>-1 : pos_x&=pos_x&+1
Cas way_y&<>-1 : pos_y&=pos_y&+1
Cas way_x&=-1 : pos_x&=pos_x&-1
Cas 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
|
 |
| |
| |
| |
|
|
| Buuh!
XProfan 11.2.1.8a.63 Praekompiler [XPSE] Copyright (C) 1998-2010 XProfan.Com, built DE. Dossier: c:\dev\5\test.prf avertissement: Unbekannte Escapesequenz dans Stringkonstante: "C:\Puzz le.bmp" [C]ompile [ I]nterpr [L]ink [R]unPrc Run[E]xe [S]ource [H]ilfe XPSE:> 
plutôt so:
''{$CLEQ}
'URL: https://XProfan.com/intl/de/spiele/schiebe-puzzle-opensource/#bottom
CLS
Randomiser
Déclarer pos_x&, pos_y&, way_x&, way_y&
Var sprite&=Créer(«PCSI»,-1,"C:\\Puzzle.bmp")
Var bild&=Créer("hNewPic", 190, 244, 0)
MoveTo RND(%bmpx+1),RND(%bmpy+1)
Début de peinture 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
WhileNot iskey(27) or (%Umessage=16)
Cas pos_x&<0 : way_x&=0
Cas pos_x&+%bmpx>width(%hwnd) : way_x&=-1
Cas pos_y&<0 : way_y&=0
Cas pos_y&+%bmpy>height(%hwnd) : way_y&=-1
Cas way_x&<>-1 : pos_x&=pos_x&+1
Cas way_y&<>-1 : pos_y&=pos_y&+1
Cas way_x&=-1 : pos_x&=pos_x&-1
Cas 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
 |
|
| |
| |
| |
|
|
Julian
Schmidt | | Es hat sich im Endeffekt dadurch wenig modifié. qui Transparenz fehlt toujours. |
|
| |
| |
| |
|
|
| Solch Minipatch hab je Dir schlicht dit fix zugetraut:
CLS
Randomiser
Déclarer pos_x&, pos_y&, way_x&, way_y&
Var sprite&=Créer(«PCSI»,-1,"C:\\Puzzle.bmp")
Var bild&=Créer("hNewPic", 190, 243, 0)
MoveTo RND(%bmpx+1),RND(%bmpy+1)
Début de peinture 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
 |
|
| |
| |
| |
|
|
Manfred
Barei | allô Julian,
je voudrais iF oui pas trop proche treten  , mais lass es so comme ist, den Schiebepuzzel étions déjà toujours anguleux. 
Siehe Bild.
Salut
Manfred |
|
| |
| 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 | | 23.05.2012 ▲ |
|
| |
|
|
| tout autor oui mon concept...
normale solche Puzzle gibts oui bereits...
imho mais plan keins cela sich dahingehend unterscheidet.
si il es juste net anlegt ensuite ists schlicht une "Option" -
zudem hatte ego aussi déjà comme Denksportkleinaufgabe prévu
bzw. serait mancher es peut-être aussi "Herausforderung" appeler.  |
|
| |
| |
| |
|
|
Julian
Schmidt | | Jup, so vois je cela aussi. si es ensuite im Endeffekt ins Programme einfließt peux je zum aktuellen la date pas dire. |
|
| |
| |
| |
|
|
Manfred
Barei | ok iF, so habe je cela pas gesehen. 
sûrement sollte on versuchen toujours quoi nouveau trop essayer. 
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 ▲ |
|
| |
|
|
| Aus solchen Trouvé entschied je mich autrefois z.B. aussi en supplément un völlig
eigenes Foren-System herzustellen avec verschiedenen Eigenschaften qui
plan de aucun anderen Forensystem vorgebracht volonté ou bien aussi cela
native Profan per nProcs herzustellen. Alles sozusagen "Herausforderungen"
et comment je trouve avec gelungenen Ergebnissen. |
|
| |
| |
| |
|
(929)
Deutsch
English
Français
Español
Italia
