Page 14 sur 22

Re: Compétition PurePunch Juillet-Août 2014

Publié : jeu. 21/août/2014 21:45
par SPH
falsam a écrit :Tu devrais avoir honte de nous faire languir ainsi :mrgreen:
Je mettrais "A Dobro..." en hommage a dobro au debut de ma demo...

Re: Compétition PurePunch Juillet-Août 2014

Publié : jeu. 21/août/2014 21:58
par majikeyric
Il n'est quand même pas mort! :mrgreen:

Re: Compétition PurePunch Juillet-Août 2014

Publié : jeu. 21/août/2014 22:17
par SPH
majikeyric a écrit :Il n'est quand même pas mort! :mrgreen:
Non heureusement. Mais je pressent qu'il n'abandonnera pas PB.

Re: Compétition PurePunch Juillet-Août 2014

Publié : jeu. 21/août/2014 22:44
par graph100
tiens c'est marrant, j'avais le même pressentiment :lol:

Bref, je suis impatient de voir ça demain :D

Re: Compétition PurePunch Juillet-Août 2014

Publié : ven. 22/août/2014 5:37
par 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 :mrgreen:

Re: Compétition PurePunch Juillet-Août 2014

Publié : ven. 22/août/2014 6:31
par Lemaquis
salut SPH

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

Re: Compétition PurePunch Juillet-Août 2014

Publié : ven. 22/août/2014 6:46
par SPH
Lemaquis a écrit :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")"

Re: Compétition PurePunch Juillet-Août 2014

Publié : ven. 22/août/2014 7:06
par 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 :roll:
Tu oublies même de l'effacer à la fin de la demo.

Re: Compétition PurePunch Juillet-Août 2014

Publié : ven. 22/août/2014 7:15
par SPH
Ar-S a écrit :ç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 :roll:
Tu oublies même de l'effacer à la fin de la demo.
Mais, je ne m'en cache pas !
Tous les coups sont permis :wink:

Re: Compétition PurePunch Juillet-Août 2014

Publié : ven. 22/août/2014 8:48
par Ar-S
SPH a écrit : Tous les coups sont permis :wink:
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^^)

Re: Compétition PurePunch Juillet-Août 2014

Publié : ven. 22/août/2014 9:04
par Lemaquis
SPH a écrit :
Lemaquis a écrit :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

Re: Compétition PurePunch Juillet-Août 2014

Publié : ven. 22/août/2014 9:08
par Kwai chang caine
SPH a écrit :
majikeyric a écrit :Il n'est quand même pas mort! :mrgreen:
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 ... 8O
La seule incertitude, reste le temps... :wink:

Re: Compétition PurePunch Juillet-Août 2014

Publié : ven. 22/août/2014 9:19
par graph100
Rooh !

T'aurais au moins pu faire un punch correct :lol:

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 :lol:

Re: Compétition PurePunch Juillet-Août 2014

Publié : ven. 22/août/2014 9:42
par Ar-S

Re: Compétition PurePunch Juillet-Août 2014

Publié : ven. 22/août/2014 9:56
par Lemaquis
c'est moche pour l"époque :mrgreen: