Compétition PurePunch Noël 2014

[microdevweb]

Oui majikeyric,

Seven, j'hésite des fois à passé sous Linux....

[kernadec]

bonjour
mise à jour de MANDALAS 3D
version 2
-suppression de la touche "Alt" obsolète
-ajout d'un déplacement simultané des 4 couleurs

Cordialement

[SPH]

Il n'y a que 2 participants ??

[Cool Dji]

Il n'y a que 2 participants ??

Il reste encore 2 semaines : mon petit doigt me dit que l'on va voir d'autres productions...

[falsam]

Actuellement il y a 11 productions.


Le premier à inaugurer la série de code est es_91 (Forum anglais) avec son color picker XMASColors
http://www.purebasic.fr/english/viewtop ... 49#p457249


Majikeyric vous invite à découvrir Snowball.
http://www.purebasic.fr/french/viewtopi ... 93#p169293


zaphod_b (Forum anglais) a publié shooting star (x86 uniquement) pour égayer votre bureau Windows
http://www.purebasic.fr/french/viewtopi ... 28#p169328


Kernadec et son Mandalas 3D
http://www.purebasic.fr/french/viewtopi ... 36#p169336


Electrochrisso (Forum anglais) et son Texture Maker
http://www.purebasic.fr/english/viewtop ... 02#p457702


microdevweb vous présente sa luge prête à dévaler les pistes.
http://www.purebasic.fr/french/viewtopi ... 33#p169533


A son tour, Vera (Forum Anglais) publie un ColorSpektakel's Timeout
http://www.purebasic.fr/english/viewtop ... 15#p457915


Falsam vous propose de voir Snowman Riding on ice
http://www.purebasic.fr/french/viewtopi ... 48#p169548


Ne trouvant pas le sommeil, Ar-S en a profité pour coder Christmas Desktop ScreenSaver
http://www.purebasic.fr/french/viewtopi ... 58#p169558


Drawingbox Sous se titre Raven nous présente une mise en scène illustrant la chanson de Noel Mon bon sapin.
http://www.purebasic.fr/french/viewtopi ... 80#p169580


Essayez de casser un maximum de boules sur la guilande du sapin. C'est ce que vous propose Huibit et La guirlande enchantée
http://www.purebasic.fr/english/viewtop ... 47#p458247

[SPH]

Ha oui, j'oublie le fofo anglais

[falsam]

Abonnes toi aussi à la Communauté francophone autour du langage Pure Basic tu aurais eu des nouvelles sur ton e-mail

Et rien ne t’empêche de consulter ce lien même si tu n'as pas de compte Google+.

[kernadec]

bonjour
Mise à jour du code MANDALAS 3D
à la suggestion "electrochrisso" du forum anglais
j'ai donc modifié le code pour gérer la résolution écran ou un mode fenêtre 1024/768
J'espère qu'il sera approprié pour tous

Cordialement

[microdevweb]

Voila ma petite participation, c'est vraiment très moche, mais ce qui compte c'est de participé non?

Code : Tout sélectionner

;*****************************************************************************
;*
;* XMas 2014 PurePunch contest
;* PureBasic 5.xx or SpiderBasic 1.00 Beta
;* 64 lines of 80 chars of code + 128 lines of data
;*
;* Name     :  Luge
;* Author   : MicrodevWeb
;* Date     : 15/12/2014
;* Notes    : PB 5.31 / Les cadeaux dévalent la pente, attrapes les tous
;*
;*****************************************************************************
UsePNGImageDecoder():InitSprite():InitKeyboard():OpenWindow(0,0,0,800,600,"",1)
OpenWindowedScreen(WindowID(0),0,0,800,600):CatchImage(0,?L)
Macro D(s,x,y,w,h):CreateImage(1,w,h):GrabImage(0,1,x,y,w,h)
CreateSprite(s,w,h,8|4):StartDrawing(SpriteOutput(s))
Box(0,0,w,h,$000000):DrawImage(ImageID(1),0,0):StopDrawing()      
TransparentSpriteColor(s,$000000):EndMacro:CreateSprite(3,200,50,8)      
Macro A(s,x,y,w,h):ZoomSprite(s,w,h):DisplayTransparentSprite(s,x,y):EndMacro      
D(0,10,0,25,35):D(1,42,14,35,50):D(2,12,52,17,17)
Structure p:x.f:y.f:w.f:h.f:v.f:EndStructure:mj.p:NewList mc.p():YY=350
For N=1 To 200:AddElement(mc()):mc()\X=Random(600,200)
mc()\Y=YY+Random(3500,500):Next:mj\x=375:D=0:SC=0
Repeat:E=EventWindow():ExamineKeyboard():FlipBuffers():ClearScreen($FFFFFF)
ForEach mc()
If mc()\y>=(mj\y-100) And mc()\y<=mj\y+700:YY=mc()\y-(mj\y+100)           
If (YY<=160 And YY>100)  And (mc()\x>=(mj\x) And mc()\x<=(mj\x+50))
SC+50:DeleteElement(mc()):Else:A(2,mc()\x,mc()\y-(mj\y+100),34,34):EndIf:EndIf
Next:mj\y+2:If KeyboardPushed(205) And mj\x<=600:mj\x+4: EndIf
If KeyboardPushed(203) And mj\x>=200:mj\x-4:EndIf            
A(0,mj\x+mj\v,100,50,70): D-4: If D<-400:D=0:EndIf
For N=0 To 9:Select N:Case 0,2,4,6,8:X=50:XX=750:Case 1,3,5,7,9:X=100:XX=700
EndSelect:A(1,X,D+(100*N),70,100):A(1,XX,D+(100*N),70,100):Next
LoadFont(0,"Arial",14):StartDrawing(SpriteOutput(3)):Box(0,0,200,50,$8B8B00)
DrawingFont(FontID(0)):DrawText(10,10,"Score: "+Str(SC),$EEF5FF,$8B8B00)
StopDrawing():DisplaySprite(3,600,0)
If mj\y>3800:MessageRequester("Luge","Game over"):End :EndIf
Until KeyboardPushed(1)
DataSection
  L:
    Data.q $0A1A0A0D474E5089,$524448490D000000,$5000000050000000,$EF3F7C0000000304
    Data.q $4D4167040000009E,$51FB7C8EB1000041,$5248632000000093,$8C00000F8700004D
    Data.q $81000052FD00000F,$E90000797D000040,$190000E53C00008B,$0A000077853C73CC
    Data.q $434349504343692F,$656C69666F725020,$5477969DC7480000,$7A77BDCF8716D754
    Data.q $2E937A19D230CDA1,$51041D202EF48030,$0CC300CA18066618,$11114440A8886C4D
    Data.q $A1A30180A0904501,$60A828216288AC48,$A88A30625010480F,$79797C4AD64664A8
    Data.q $DADFBDC7F7E5E5EF,$B59F7BD9F773EF67,$052F2E1F4F24002E,$7A07E02799200296
    Data.q $FDB1D0478557D338,$3000A60180780600,$40C1EE41BEA9E959,$09C8BA7A17372F24
    Data.q $BEFC48010CDE8BFC,$4FFF83A74FE9E865,$5FC80000BE54ACD2,$F9C44B3A4E6CE6C4
    Data.q $33ED8AA414CA4E22,$8946198A24C6A622,$8E6272C4504A2F99,$51D9167D9FA5E45B
    Data.q $9CE2C45B1E64ECCC,$7888F7316CC9D953,$C447C4622390867B,$8B6F88A64E5C1905
    Data.q $5BF115CC98493358,$8A000E9987326C71,$9B1178AC380BB624,$F111740E0FC49888
    Data.q $E6382FB8A4700072,$B943E204B270160B,$02F171B9F366A4A4,$CD6D6A6E8F4B2EBA
    Data.q $8102389332727BA0,$E9B3E4C895933FA1,$00365E4CA9C9292E,$E96D71192CFE678B
    Data.q $1A5A5B5A9A5B22A2,$BAFFA8517E99199A,$0ABD22EDEE2537F8,$ED87F7D68833DCF8
    Data.q $8ACC6000EA52FCAF,$007ECC5B0FEBB36A,$9B0FFF772002B63A,$BF6B7D45240021E6
    Data.q $178979E26879C5F1,$3333338D8C6D5208,$BFA0B891961CB88D,$3DF17D0DFC3A7FEB
    Data.q $CAEE8797BF76F123,$DD717404930A6589,$3D3D3E4229492958,$C43CFF0DD0E2C995
    Data.q $C81A58F3AFF038FF,$A844513C39F0E589,$79BB5138BCB8CA68,$7973A3C29B80AE6C
    Data.q $5A4FEC30FF89A9FF,$35009FF528916B9C,$E7E402A0DD4808CA,$5079120110A2803E
    Data.q $050F83E6FBDFF5DC,$F738B13AA6179BE2,$F88970AEFBFD059F,$1812E71CFB8DCE91
    Data.q $E26B8B19F909674C,$1501240080D0096B,$21817401A01503C8,$37023816C0560330
    Data.q $D60E106081F802B0,$320F80C907881602,$D811400A0CD82E41,$41EA03504A82F605
    Data.q $0D38074027016823,$EE09B83AE0CB802E,$60E7838C04600780,$21610410F301BC06
    Data.q $0B485521E4814432,$B90F640620CC8032,$43450E1420503E41,$16D0B942120F1071
    Data.q $A85AA12A852A08A8,$AE805D053A16FA11,$829A14683DD00342,$A9824C08C3DE857E
    Data.q $D80CC31B0DAC32B0,$1C7035E18386F609,$B84EF0F9C0E7069C,$05F0EDC18F83AE02
    Data.q $C39F811E077C3AF8,$43510D08884008B3,$1121F882E206110C,$4885203647C22C48
    Data.q $2F485D20B4875239,$287791A641190B72,$B6510CA3A2828A0C,$434A858A08544F28
    Data.q $5147512AA315406D,$6A28D42DD41EA8ED,$0DA12B464D09F506,$1C742AF42F6836D0
    Data.q $A037472E805D133A,$E8E3D077D097D0DB,$58C1D186860C1837,$3ACC0498E1313C61
    Data.q $1E7315A600E6314C,$58B162CCC3198033,$6587EB0ED601AC79,$31EC7EEC02D80562
    Data.q $16FB1C7620EC39EC,$B8EE70CCE2A9C447,$35C72B87970F1C08,$79B8137106E2CEE1
    Data.q $C3F7836F0B5E14BC,$BE3D7C12F8D9F1B3,$48279F8E3F037F0B,$0242608476087413
    Data.q $44B842D082A13361,$89D5122445784878,$5889B8972200C4D6,$BE251C42BC4E3C41
    Data.q $48A42E49F490C923,$9E74847493B49092,$936B264C8AF48F74,$B92779016411C91D
    Data.q $8256FC98FC917C91,$D896C125E1246122,$F128312ED1255128,$B924E925A92F1242
    Data.q $E4A4F25CB2473256,$94B694BC2969C90D,$D49554836A53148B,$B48A6959A961A929
    Data.q $74B174B2749FB4A9,$8CAC1949E955F493,$E65F265B0C9B8CB6,$D1420A319945CCB0
    Data.q $7A942D945850B8A0,$A1D5431538CA25CA,$A86FD445A813517A,$B265D9195919D4FD
    Data.q $6467B255B259B2A1,$4B45E69B4D086847,$EF6886D04ED095A2,$B259C25A712F2897
    Data.q $727325C192CB4963,$B942B91C728E728A,$F2E9E5EF723BB956,$E43BE5BBF289F26E
    Data.q $140215F414A0291F,$5698525C2A0E1532,$150B14B22ADA2AA4,$95F4958257DE284F
    Data.q $53EA561D29D69502,$554E50F65156559A,$A6855A79517CAFDE,$5672A652A092A8E2
    Data.q $55CAAF6AA2954A65,$4B2E8CFAA73D532D,$F43DE82BD127A277,$5AA1354F35253519
    Data.q $7A8EBABCDABF5AAD,$0D23FAAB7A9E7A88,$A34CA35623430682,$3357D3555346635B
    Data.q $8B5E16BEF359B357,$6B57AB4FB5AF15A1,$769B7B4C3B475B4E,$4E978E9C8EA4F687
    Data.q $AEB25D43CEB34E8E,$3D6DEE9D6E9A6E83,$DE80EF512F431E8C,$BF5E3F42DF587D4D
    Data.q $C069606C0186FF4A,$D4BD14B030603835,$4361D2DD696F297A,$E1B361866193A192
    Data.q $A8CF28C7C8CD11A8,$F18471A6B185E8C3,$2616264FE35EE36E,$4C654C0F26F52649
    Data.q $6AFE997699E69857,$6DBB32AB32C66FA6,$69DE68DF3777364E,$83B2CE32C19972FE
    Data.q $B62D7C2C505AEECB,$E4B2B4B47C5B7459,$455A69594E58B65B,$7F0CA8330D5B555B
    Data.q $D9DADA358AE33146,$963677EB69F5A37A,$1AD8BF36139B0236,$D72E4ED936DA26DA
    Data.q $4ECC7CBF5E59CE59,$4F62376B57698EDD,$A0E23F643FB68FB7,$A8E27873A874C0E6
    Data.q $D2709C706C76C8E1,$D9C2F4E63A704A73,$62E73CE6DCEF99C4,$EAE22BBCE5DEB2E3
    Data.q $16E326EFDAE85AE1,$3DDD5DD8F6E956E2,$63C2C3C67DD9BDCE,$E7B7A7B44F79C79D
    Data.q $57962F652F61CF6E,$57EB15AB0ACCD7A3,$BD2BBC83BC9378F4,$7CBA7DF0FBE8F89F
    Data.q $AE1F7C7BBE15DF61,$FC07E1D95BC95AD4,$F1D7F23DF8F6FCBC,$1FE013003EFFF34F
    Data.q $373034D034F01550,$14D41514128837B0,$41F824B839D826F4,$32543BA430886E88
    Data.q $35CC2E7431B43234,$F5AAF195646C34AC,$3BC373842B87AEAB,$B3110D11A111B023
    Data.q $691E3D5DEF56DDAB,$4D6746B439105911,$AD26D6156BAB9AD6,$193A8CC51925133D
    Data.q $C0FE8A6E8B0E8E8D,$62BC636731D663F4,$AC7DAC2E586663AA,$638A7B1976476CE7
    Data.q $96C5DAC44CE529C7,$9B89EDC5D9C64EC6,$BAE69F8F2F88778A,$6A133C132FB92B70
    Data.q $2E248F12FD12E612,$A392E326B5258524,$9EBC897864F14F93,$83548194AC949514
    Data.q $BDB49B3491D482D4,$943A437E6F7C3369,$4CFD154053BD26BE,$19A3855B857509F5
    Data.q $3343336F195519F6,$B2FAB2F16749664F,$E7B8E44F6477B3F5,$3BAEB58EB50EBD7C
    Data.q $A77AE8EE73772D57,$BA1B310DA01BB5F5,$C9BE38DFCC6C6A37,$9B89CD84CDD1D363
    Data.q $BD7BCD2BC933C87F,$A6FE72BE574B6C25,$240B9B5B1EADB1FC,$D5B76CDBC305F80A
    Data.q $61DFEF6EE76D476C,$C2EC854F8EFF63BE,$8A1F45E54526456B,$E2AAFD32BED7C559
    Data.q $2C4BFB3BB19D85AB,$1AEDE2ECC2EE0E4B,$6974A968FBB0EDDA,$65ED3DDF1ED8E94E
    Data.q $F6A37BD7B2C2B2F4,$B08FB35E565F2D5E,$73A2A7C2A46FB84F,$C6543FFB5DFEE6BF
    Data.q $56AD6AAE72A9DE57,$607D80773D51DEAA,$9AE51A96C1E3A0F0,$D6EE87B887F79AA2
    Data.q $1F95D769D7B6D47A,$B43EB4FC38CE1CC6,$0A0D8DD7C66BF7BE,$8C8EF08F1F0D450D
    Data.q $D8D568D3DA3C0D1C,$0B370CD254D4A4D8,$8DF9BB1E458EA79B,$ADB52D862D9D37EB
    Data.q $F8F0B8E0E3A2D6B4,$7DE13A1DBFA36FB3,$5A77CB64E324FBA2,$A1DB0ADA51B755DF
    Data.q $918EF88E99F6ECF6,$754E2B5381CEF0CE,$FDF46F7DB576D977,$9EC8CEABA76AD391
    Data.q $E1767F9B384B3929,$A7E7A9F3D9B9CE5C,$7EEA8EEB185DC42F,$3D013DDBC5D57170
    Data.q $7EECB95D2FBC97FD,$762BB9EF53AF62F9,$1AEA7AB9B55F4E57,$7DEDEBCB75C75AE3
    Data.q $D6D0FC583F6D7D16,$E746EAC37EDFD96F,$CE07CB035D9BEB4D,$EB7AE5B85E0C3A0E
    Data.q $BCACEFD7DBAF6DF2,$7238777432143033,$A4BDE4EEFB2EE478,$B07F9FDC67EF2F7B
    Data.q $47A923E161FA21E9,$F7A8FDD71E958FE5,$D75199C8E588EB63,$B18C1E4F4127BED1
    Data.q $F187D3FE94FF9EC6,$13AA13E5A7E4A7FC,$A7DCA7A79366938D,$EA79FC6CFD5B3E6E
    Data.q $AE7FA59F82E9F9F3,$7F1C5FBBE2FBA17E,$FF92FE3335599BE9,$8EAFF257E2D7E172
    Data.q $F67FD67BBAF65EBC,$6F8573F337E49BF1,$FBD778C77D1EDFE5,$EC07E67CC4FDEC3E
    Data.q $793EBB1F7A8F8A87,$1BF0B0BC90B87A7F,$1E290437FBF384F7,$45544C5030000000
    Data.q $8000000080000000,$8080000000808000,$8080808080008000,$FF000000FFC0C0C0
    Data.q $FFFF000000FFFF00,$FFFFFFFFFF00FF00,$09000000C4B11F7B,$3A09000073594870
    Data.q $9264F0013A090000,$584574210000004A,$6F69746165724374,$3200656D6954206E
    Data.q $313A32313A343130,$3A32313A33312035,$0000E52214D53731,$C748544144491603
    Data.q $3E14409B6FBF56ED,$383C1B0652772913,$3C55A5D4412CE86C,$5BDD09FEC74311D8
    Data.q $AFF363D4B048EEA9,$4ED9253C40F22EE1,$97F90C453BDDC1D7,$A4E1F68655086752
    Data.q $8077C80FE01D9C0D,$38F7BBBEF7C7D3C4,$9203AA09E388CF40,$F0048B88351089F8
    Data.q $CD89AA0C9FA09EAE,$D060F36D59F9304C,$11BE313549F83C1B,$F0780A49106A4891
    Data.q $2A545E22C446CC6B,$2AFD162F717108A6,$1055110B910098A2,$32AAB26010B02A49
    Data.q $E9395163E39338CD,$B5D5A5127CA69D34,$24AC38B18315618E,$8C4D5E322C1EF492
    Data.q $77368C50FB388B39,$F8F698C6719CE678,$61B21B23E769E20E,$4CB3AFE26D838831
    Data.q $90DB143BA4D2D532,$295DB8486D7C5878,$B715C9F6F97EEA72,$F74E096D1D7360F9
    Data.q $32381516E37DD75D,$9A44B529753925B6,$B856BD427552C493,$05C9E50FBBAE7AE1
    Data.q $47CF1EEADF1A3B05,$9AC804169C20D367,$BB4ECDB4C49774CE,$69E1A830C263E761
    Data.q $E9CD4D9F9CD2F126,$8D4F50ACA961FE65,$C6A4D62E4833736D,$3665CD3446B17840
    Data.q $D572C8D07702FF3A,$B332BEA5A26A3B9B,$1A1C21E860DFF171,$E79D11FB446A1BD4
    Data.q $1E5B8751CA51CB48,$791A288A267836AF,$2374F25179F70F23,$683C8567A483E668
    Data.q $9D9A6DA42C24A2CB,$23BDF7EC7584287C,$339AB5BB78AC0154,$8554188B465B777E
    Data.q $D735CBCB7BD47B1A,$528FF8AF6AA4748E,$BB8EF6818646891A,$2A4AE641EEF971DD
    Data.q $D644A5A54B2999D5,$06ADD70A5DA1CE83,$5D01D200A67EE02A,$019B40D4D4B28329
    Data.q $476821062299494E,$0CD8F32F7E52594B,$973F8A5D8F03F838,$E18EB514748686A5
    Data.q $8CFE6688D0D2955C,$E5A16622459965CC,$839C932AB39B2B48,$4912B23C03849037
    Data.q $AB2B875986B09132,$F27C1828981A5A57,$AC2156B26D3CBDE9,$2245E8A87096B662
    Data.q $9CBC939BCA69F4A6,$82D5B23A3740167A,$0AEDA091DF964B7A,$21E806D76460593B
    Data.q $41FE5C6FB24CCF9C,$4E9B073CB9290332,$DCFBC5D5F6619DE1,$C222806BD84638BD
    Data.q $EDBB6CF45FB5FF28,$73ADC104A65BB7E7,$4FC4F13CBCCFEE47,$E06E19C00942FC4E
    Data.q $49C3FCCE595F1B88,$F2DED1D4DAFB5FE2,$A6F6BED78A650F52,$9B076C3FE911BCC7
    Data.q $527F44B8FC18C5D4,$264F53D13A90D2AD,$2C0EE3D3B07C6A3B,$DBF9B106A6F141AE
    Data.q $1FBD49E616A8FA4F,$05FD0811E2BC57D2,$A50D0491BD25A2A7,$444E454900000000
    Data.b $AE,$42,$60,$82
EndDataSection

[falsam]

Il faut bien l'admettre .... c'est très moche ... ooops pardon Old School

En tout cas tu as participé et c'est l'essentiel.

C'est ton premier jeu 2D ?

[microdevweb]

Bonjour Falsam,

Non j'ai fais d'autres essais mais rien de bien sérieux. (Faux reconnaître que les contraintes du PurePunch limite pas mal chose)

(Voici d’ailleurs le graphisme de base)

[falsam]

Faux reconnaître que les contraintes du PurePunch limite pas mal chose)

Je confirme !!! J'ai du mal à m'en sortir avec mon code. Va falloir que j'aille à la pêche au maquereau (Houuuuu que c'est nul)

[raven]

Microdevweb sympa ton punch,c'est pas plus moche que ce que j'ai tenté de faire...
a coté du mien, ton punch à la classe

[microdevweb]

Merci raven. C'est encouragent

[Cool Dji]

@microdevweb

Tu fais la grève du code ? il te reste encore des lignes pour ajouter un tas de truc