Compétition PurePunch Juillet-Août 2014

[SPH]

Tu devrais avoir honte de nous faire languir ainsi

Je mettrais "A Dobro..." en hommage a dobro au debut de ma demo...

[majikeyric]

Il n'est quand même pas mort!

[SPH]

Il n'est quand même pas mort!

Non heureusement. Mais je pressent qu'il n'abandonnera pas PB.

[graph100]

tiens c'est marrant, j'avais le même pressentiment

Bref, je suis impatient de voir ça demain

[SPH]

Le lien pour la zik, le bmp et le .pb : http://xmas.free.fr/pb/sph_demo2014.zip

Marche mal sur win8. De toute facon , je hais w8...

Code : Tout sélectionner

;*****************************************************************************
;*
;* 22 August 2014 PurePunch contest
;* PureBasic 5.22
;* 50 lines of 80 chars, 2 months delay
;*
;* Name     : Minidemo
;* Author   : SPH
;* Date     : 22 aout 2014
;* Notes    : Marche mal sur w8 que je deteste toujours autant...
;*
;*****************************************************************************
InitSprite():InitMouse():InitKeyboard():#src=0:ExamineDesktops();;;;;;;;;;;;;;;;
ddw=DesktopWidth(0):ddh=DesktopHeight(0):OpenScreen(ddw,ddh,32,"SPH - MiniDemo")
LoadSprite(0,"Datafini.bmp"):DisplaySprite(0,0,0):StartDrawing(ScreenOutput());;
x1.l=Point(0,0)*256+Point(1,0):y1.l=Point(2,0)*256+Point(3,0):x2.l=Point(4,;;;;;
0)*256+Point(5,0):y2.l=Point(6,0)*256+Point(7,0):lf.q=Point(8,0)*256*256*256+;;;
Point(9,0)*256*256+Point(10,0)*256+Point(11,0):CreateFile(#src,"MiniDemo.exe");;
la=0:For xx=x1 To x2:For yy=y1 To y2:coul.l=Blue(Point(xx,yy)):If coul<0;;;;;;;;
coul=256+coul:EndIf:WriteByte(#src,coul):la+1:If la>=lf:CloseFile(#src);;;;;;;;;
Goto ok789:EndIf:Next:Next;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
ok789:;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
StopDrawing():RunProgram("MiniDemo.exe"):End;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Et oui, c'est court mais puissant !!

Enjoy

[Lemaquis]

salut SPH

impossible de testé ton code il manque le fichier "Datafini.bmp"

[SPH]

il manque le fichier "Datafini.bmp"

Et voila, le bug du chemin !!
Normalement, ca devrait marcher mais parfois, pb ne trouve pas le chemin de fichier.
Precise le chemin du bmp "LoadSprite(0,"Datafini.bmp")"

[Ar-S]

ça marche sous w8 je vois pas le soucis.
Par contre, c'est un peu du foutage de gueule tes "50 lignes" avec ton bmp ou tu as planqué ton exe dedans
Tu oublies même de l'effacer à la fin de la demo.

[SPH]

ça marche sous w8 je vois pas le soucis.
Par contre, c'est un peu du foutage de gueule tes "50 lignes" avec ton bmp ou tu as planqué ton exe dedans
Tu oublies même de l'effacer à la fin de la demo.

Mais, je ne m'en cache pas !
Tous les coups sont permis

[Ar-S]

Tous les coups sont permis

C'est pas à moi d'en décider, je donne mon point de vu. Sinon la demo à proprement parlé est sympa. (Bon le rip d'another world est un peu to much^^)

[Lemaquis]

il manque le fichier "Datafini.bmp"

Et voila, le bug du chemin !!
Normalement, ca devrait marcher mais parfois, pb ne trouve pas le chemin de fichier.
Precise le chemin du bmp "LoadSprite(0,"Datafini.bmp")"

c'est bon ça marche mise à part le starField au début le reste est trop moche

[Kwai chang caine]

Il n'est quand même pas mort!

Non heureusement. Mais je pressent qu'il n'abandonnera pas PB.

Quasi personne n'a la force de se desenvouter de PB, même en le quittant pour des langages soit-disant meilleurs, comme au monopoly, il y aura toujours un jour ou on repassera par la case départ, ne serait-ce que pour un salut amplement mérité.
Comme dirait laspales "y'en a qu'ont essayé, mais ils ont eu des problèmes! !!"
Une fois touché par la grâce, et si l'on n'a pas fait une croix sur l'addiction de la prog, on ne peut que revenir un jour ou l'autre a ces racines. .un peu comme les saumons en fait ...
La seule incertitude, reste le temps...

[graph100]

Rooh !

T'aurais au moins pu faire un punch correct

Code : Tout sélectionner

Macro P:Point:EndMacro:LoadImage(0,"Datafini.bmp"):StartDrawing(ImageOutput(0))
x1=P(0,0)<<8+P(1,0):y1=P(2,0)<<8+P(3,0):x2=P(4,0)<<8+P(5,0):y2=P(6,0)<<8+P(7,0)
lf=P(8,0)<<24+P(9,0)<<16+P(10,0)<<8+P(11,0):CreateFile(0,"Min.exe"):l=0;;;;;;;;
For x=x1 To x2:For y=y1 To y2:c.b=Blue(P(x,y)):WriteByte(0,c):l+1:If l>=lf;;;;;
CloseFile(file):Break 2:EndIf:Next:Next:StopDrawing():RunProgram("Min.exe"):End

C'est quoi cette façon d'ouvrir une fenêtre et de d'initialiser le clavier ? (dis-moi que tu as fait ça pour tromper les gens qui ont pas compris le fonctionnement du code !)

Sinon, bah la démo est sympa, c'est dommage que tu n’aies pas cherché à cacher un peu plus les données dans l'exe (t'avais quand même 50lignes pour essayer)
de façon à dégrader le moins possible l'image !

Dans la démo, le moment avec la bagnole, t'as fait ça quand ? (parce que t'as pas fait ça juste pour la démo, petit malin !)
Ça t'embêterai de poster un code avec ce truc ensuite ? (après le punch)

Tu nous as fait une bonne blague SHP

[Ar-S]

Graph100... https://www.youtube.com/watch?v=ACNPxKhxAjM
Culte

[Lemaquis]

c'est moche pour l"époque