Re: Compétition PurePunch Juillet-Août 2014
Publié : jeu. 21/août/2014 21:45
Je mettrais "A Dobro..." en hommage a dobro au debut de ma demo...falsam a écrit :Tu devrais avoir honte de nous faire languir ainsi
Forums PureBasic - Français
https://www.purebasic.fr/french/
Je mettrais "A Dobro..." en hommage a dobro au debut de ma demo...falsam a écrit :Tu devrais avoir honte de nous faire languir ainsi
Non heureusement. Mais je pressent qu'il n'abandonnera pas PB.majikeyric a écrit :Il n'est quand même pas mort!
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 voila, le bug du chemin !!Lemaquis a écrit :il manque le fichier "Datafini.bmp"
Mais, je ne m'en cache pas !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![]()
Tu oublies même de l'effacer à la fin de la demo.
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^^)SPH a écrit : Tous les coups sont permis
SPH a écrit :Et voila, le bug du chemin !!Lemaquis a écrit :il manque le fichier "Datafini.bmp"
Normalement, ca devrait marcher mais parfois, pb ne trouve pas le chemin de fichier.
Precise le chemin du bmp "LoadSprite(0,"Datafini.bmp")"
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é.SPH a écrit :Non heureusement. Mais je pressent qu'il n'abandonnera pas PB.majikeyric a écrit :Il n'est quand même pas mort!
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