Compétition PurePunch Juillet-Août 2014

[SPH]

Oui, des codes anonymes, ca me parait mieux

[Backup]

perso je m'en fout, je participe pour le Fun ..

je sais tres bien que le fait de proposer pleins de codes, ne m'avantagera pas
je pense a un truc, ou je réutilise un vieux code que je met en Punch
c'est deja amusant ... pour moi j'ai deja gagné ça ...
en fait je m'en fiche de ne pas avoir de votes.. je ne suis pas politique


de plus , ça me permet de mettre en lumière les Bug de mon Editeur donc c'est deja tout benef

le fait que ce soit anonyme ne serai pas une bonne idée... car cela retirerai l’éventuel chalenge
de faire plus mieux bien ...
on se connais informatiquement...savoir que c'est untel qui a fait le code permet aussi de se situer
c'est plutot stimulant...

[falsam]

SPH sur un autre thread a raison !!: Le code peut être en pb 5.30

Le programme sera fait en Purebasic version 5.22 MINIMUM

Ar-s va être content. Son souci de position dans un fichier sonore va se résoudre.

[Ar-S]

J'ai vu ça C'est ma faute je n'ai qu'a savoir lire..
Du coup j'ai fait autrement, j'ai même modifié mon fichier son donc je vais surement rester en 5.22..
A suivre selon motive/temps

[Backup]

en examinant le code de NickTheQuick sur le forum anglais, je suis tombé sur cette Macro

Code : Tout sélectionner

Macro j(a):St#a#Drawing(:EndMacro

ma première réaction a été , mais comment ça peut marcher, pour faire StartDrawing, il manque le "RT"

pis en regardant de plus pres, c'est tres malin
car s'il utilise :

Code : Tout sélectionner

 j(art)

, ben ça remplace par : StartDrawing
alors que s'il utilise :

Code : Tout sélectionner

 j(op)

.. ça remplace par :StoptDrawing

en clair, je viens de comprendre l'utilité des Macro avec paramètre ...

[kernadec]

bonjour
merci Dobro
d'avoir relevé cette astuce macro de NickTheQuick
c'est très très intéressant

Cordialement

[Backup]

allez ... pour le 14 juillet
mise en Punch de mon Screensaver "Matrix"

vous pouvez compiler en "Matrix.scr" et le poser dans le dossier "Windows"
de cette façon il sera dispo dans la liste des ScreenSaver Windows

si vous le testez sans compiler , lancez le et ne bougez plus la souris

Code : Tout sélectionner

;***********************************************
;Titre  :*Matrix_original
;Auteur  : Dobro
;Date  :14/07/2014
;Heure  :11:19:17
;Version Purebasic :  PureBasic 5.22 LTS (Windows - x86)
;Version de l'editeur :EPB V2.58
; Libairies necessaire : Aucune 
;***********************************************
Enumeration:#Window_0:#code:#Text_0:EndEnumeration:nbrsprite=18:taille_fonte=10
Dim ysprite(1000):Dim de(1000):Dim nom$(nbrsprite):Dim index(nbrsprite)
Dim y(nbrsprite):sprite=1:#Police=1:Param.s=Left(ProgramParameter(),2)
If Param="/p":End:EndIf:GetCursorPos_(SoOri.POINT):ShowCursor_(0)
InitSprite():FontID = LoadFont(#Police,"arial",taille_fonte, #PB_Font_Bold )
ExamineDesktops():EcranX =DesktopWidth(0):EcranY=DesktopHeight(0)
OpenWindow(1,0,0,EcranX,EcranY,"Matrix",#PB_Window_BorderLess ):StickyWindow(1,
1):OpenWindowedScreen(WindowID(1),0,0,EcranX,EcranY,1,0,0)
For reserv=1 To nbrsprite:nom$(reserv)=Space(30) :Next reserv
For spr=1 To nbrsprite:CreateSprite(spr,24,27*Len(nom$(spr)),0):
For chaine=33 To 58:car$=Chr(chaine+Random(223)):y(spr)=y(spr)+27
StartDrawing(SpriteOutput(spr)):BackColor($0):c=c+10:If c>255:c=20:EndIf
If chaine=58:c=0:EndIf:FrontColor(RGB(0,c,0)):If chaine=57:FrontColor($82FF82)
EndIf:DrawingFont(FontID):DrawText(0,y(spr),car$):long = TextWidth(nom$(1))
StopDrawing():Next chaine:Next spr:xrez=Int(EcranX/27):Dim col(xrez)
For t=1 To EcranX Step 27:col(h)=t:h+1:du: :Next t:indexc=0:For ind=1 To xrez
ysprite(ind)=-(long*2)-Random(long*10):If Col<>EcranX:indexc=indexc+1
de(ind)=col(ind):Else:indexc=0:EndIf:Next ind:indexc=0:pseud=255:Repeat
RandomSeed(Random(255)):For ind=1 To xrez:If ysprite(ind)>EcranY
ysprite(ind)=-(2+long*2)-Random(long*2):EndIf:spr=spr+1:If spr>nbrsprite:spr=1
EndIf:ysprite(ind)=ysprite(ind)+Random(8)+2:
DisplaySprite(spr,de(ind),ysprite(ind)):Next ind:If pseud>=380:pseud=254:EndIf
If dobro=0:StartDrawing( ScreenOutput()):BackColor($0):FrontColor($7800)
DrawingFont(FontID):DrawText(EcranX-200,EcranY-35,"By Dobro"):StopDrawing()
EndIf:FlipBuffers():ClearScreen($0):GetCursorPos_(So.POINT)
Until WindowEvent()=13116 Or So\x<>SoOri\x Or So\Y<>SoOri\Y:ShowCursor_(1)
; Epb

[graph100]

Bon j'ai mis à jour mon code pour aller sur Linux et Mac, mais ca m'a obligé à en poster un second spécifique à linux / mac.

Tout ça à cause de la taille des constantes !

[Cool Dji]

Hello,

5.3 autorisée, ok mais ça ferme la porte à ceux qui n'ont pas la version payante, non ?

ps1 : j'avance assez bien sur ma prod, héhéhé
ps2 : G-Rom, j'aurais plutôt parié sur toi avec une prod en 3D...tu peux pas faire un truc qu'arrache la tête ?

[Backup]

ben non , car tu peux présenter des codes 5.22 ..

[Cool Dji]

Oui, mais ils ne pourront pas visualiser (et donc noter) les prods en version 5.30

[Ar-S]

Oui bah pour le punch on a qu'a fournir un exe en plus du code comme ça tout le monde pourra tester.

[djes]

Oui, mais ils ne pourront pas visualiser (et donc noter) les prods en version 5.30

Les gens qui concourent doivent imaginer ce qu'ils risquent, au niveau du multiplateforme, des fichiers téléchargés sur le net, de la version de PB, de la même façon que de l'intérêt de leur production, de la qualité de la réalisation, de la primeur, de l'effet de surprise, etc. ! Je n'ai pas envie de trop encadrer, je trouve ça pénalisant, contraignant, et forcément ça favoriserait plutôt certains que d'autres. Pour l'instant les réalisations sont aussi variées que les profils des membres, c'est très riche !

[Backup]

c'est très riche !

ou c'est clair, entre les Master Mind, les effets d'ecran, les Anglais/allemands sont finalement bien motivés

[doudouvs]

Et le lot du 1er envois du paté ! Ça motive ça dit-donc ! Merci au sponsor (comment vous l'avez trouvé ? La boite a quelqu'un sur le forum ?)

Je ne te le fais pas dire ! Et ce n'est pas fini (stay tuned!). C'est un membre du forum qui ne veut pas donner son nom, je ne sais pas si je peux donner son pseudo...
------------------------------

si pas de problème c'est moi, au début je voulais offrir une bouteille de Rhum histoire de faire des Punch, me suis dit "je souhaite pas être coupable d'un alcoolisme" donc en accord avec @Djes je suis parti sur un truc de Geek que nous sommes.


Avant d'avoir des questions pourquoi je fait ca, ou ce trouve mon intérêt a offrir quelque chose alors que je n'ai rien avoir avec purbasic -- il n'y en a pas aucun, je dit juste que j'apprécie la communauté, que certain mon donner un coup de main de pouce , une façons de vous remercier, rien de plus rien de moins.


Bonne chance à tous