Page 7 sur 22
Re: Compétition PurePunch Juillet-Août 2014
Publié : sam. 12/juil./2014 21:52
par SPH
Oui, des codes anonymes, ca me parait mieux
Re: Compétition PurePunch Juillet-Août 2014
Publié : sam. 12/juil./2014 22:58
par 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...
Re: Compétition PurePunch Juillet-Août 2014
Publié : dim. 13/juil./2014 16:55
par falsam
SPH sur un autre thread a raison !!: Le code peut être en pb 5.30
djes a écrit :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.
Re: Compétition PurePunch Juillet-Août 2014
Publié : dim. 13/juil./2014 20:04
par 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
Re: Compétition PurePunch Juillet-Août 2014
Publié : lun. 14/juil./2014 9:14
par Backup
en examinant le code de NickTheQuick sur le forum anglais, je suis tombé sur cette Macro
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 :
, ben ça remplace par : St
artDrawing
alors que s'il utilise :
.. ça remplace par :St
optDrawing
en clair, je viens de comprendre l'utilité des Macro avec paramètre ...
Re: Compétition PurePunch Juillet-Août 2014
Publié : lun. 14/juil./2014 9:27
par kernadec
bonjour
merci Dobro
d'avoir relevé cette astuce macro de NickTheQuick
c'est très très intéressant
Cordialement
Re: Compétition PurePunch Juillet-Août 2014
Publié : lun. 14/juil./2014 11:35
par 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
Re: Compétition PurePunch Juillet-Août 2014
Publié : mar. 15/juil./2014 9:13
par 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 !
Re: Compétition PurePunch Juillet-Août 2014
Publié : mar. 15/juil./2014 10:10
par 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 ?
Re: Compétition PurePunch Juillet-Août 2014
Publié : mar. 15/juil./2014 11:41
par Backup
ben non , car tu peux présenter des codes 5.22 ..
Re: Compétition PurePunch Juillet-Août 2014
Publié : mar. 15/juil./2014 12:15
par Cool Dji
Oui, mais ils ne pourront pas visualiser (et donc noter) les prods en version 5.30
Re: Compétition PurePunch Juillet-Août 2014
Publié : mar. 15/juil./2014 12:40
par 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.
Re: Compétition PurePunch Juillet-Août 2014
Publié : mar. 15/juil./2014 13:30
par djes
Cool Dji a écrit :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 !
Re: Compétition PurePunch Juillet-Août 2014
Publié : mar. 15/juil./2014 15:50
par Backup
djes a écrit :Cool Dji a écrit :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
Re: Compétition PurePunch Juillet-Août 2014
Publié : ven. 18/juil./2014 15:18
par doudouvs
graph100 a écrit :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