Forums PureBasic - Français
https://www.purebasic.fr/french/
Il reste encore 2 semaines : mon petit doigt me dit que l'on va voir d'autres productions...SPH a écrit :Il n'y a que 2 participants ??
Le premier à inaugurer la série de code est es_91 (Forum anglais) avec son color picker XMASColors Majikeyric vous invite à découvrir Snowball. zaphod_b (Forum anglais) a publié shooting star (x86 uniquement) pour égayer votre bureau Windows Kernadec et son Mandalas 3D Electrochrisso (Forum anglais) et son Texture Maker microdevweb vous présente sa luge prête à dévaler les pistes. A son tour, Vera (Forum Anglais) publie un ColorSpektakel's Timeout Falsam vous propose de voir Snowman Riding on ice Ne trouvant pas le sommeil, Ar-S en a profité pour coder Christmas Desktop ScreenSaver Drawingbox Sous se titre Raven nous présente une mise en scène illustrant la chanson de Noel Mon bon sapin. Essayez de casser un maximum de boules sur la guilande du sapin. C'est ce que vous propose Huibit et La guirlande enchantée
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
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)microdevweb a écrit :Faux reconnaître que les contraintes du PurePunch limite pas mal chose)
