Español
Fuente/ Codesnippets

Ausschneiden Ausstanzen Form Puzzle Sprite

 

Julian
Schmidt

KompilierenMarcaSeparación
Randomize
Declare pos_x&, pos_y&, way_x&, way_y&
Var sprite&=Create("hPic",-1,"C:\\Puzzle.bmp")
Var bild&=Create("hNewPic", 185, 234, $FF00FF)
MoveTo RND(%bmpx+1),RND(%bmpy+1)
StartPaint bild&
DrawPic sprite&, 0, 0, -1, RGB(255,255,255)
EndPaint
DrawBackground
DrawPic bild&, (width(%hwnd)-%bmpx)/2, (height(%hwnd)-%bmpy)/2; -1
Deleteobject sprite&
Deleteobject bild&
waitinput
end

Proc DrawBackground

    CLS RGB(200,200,200)
    UsePen 0,10,RGB(128,128,128)

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

        Line 0,100*&loop - 100*&loop,0

    EndWhile

ENDPROC


KompilierenMarcaSeparación
Selección aleatoria
Declarar pos_x&, pos_y&, way_x&, way_y&
Var col&=RGB(128,128,128)
Var sprite&=Crear("HPIC",-1,"C:\\Puzzle.bmp")
Var bild&=Crear("hNewPic", 185, 234, RGB(128,255,255))
MoveTo RND(%bmpx+1),RND(%bmpy+1)
StartPaint bild&
DrawPic sprite&, 0, 0, -1, RGB(255,255,255)
EndPaint
CLS col&

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

    Sleep 10
    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
    CLS col&
    DrawPic bild&, pos_x&, pos_y&; -1

EndWhile

Deleteobject sprite&
Deleteobject bild&
end

...siehe: [...] 

6 kB
Hochgeladen:24.05.2012
Ladeanzahl196
Descargar
 
XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...] 
24.05.2012  
 



In diesem Zusammenhang es vlt. auch el hPic.inc ( [...]  ) interessant.
 
25.05.2012  
 



Zum Quelltext


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

5.734 Views

Untitledvor 0 min.
Heiko Dix30.10.2023
p.specht21.11.2021
R.Schneider20.11.2021
Uwe Lang20.11.2021
Más...

Themeninformationen

Dieses Thema ha 2 subscriber:

iF (1x)
Julian Schmidt (1x)


Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie