Compétition PurePunch Noël 2014

[kernadec]

Bonjour
merci Ar-s pour le partage

Merci djes
Ok, dans l'archive la version 2014-final fonctionnne en mode unicode!
Merci pour la carte postale
c'est pas des flocons qui tombent, mais des buches!
un mixe avec le code de Ar-s serait fun

joyeux noël

[djes]

Bonjour
merci Ar-s pour le partage

Merci djes
Ok, dans l'archive la version 2014-final fonctionnne en mode unicode!
Merci pour la carte postale
c'est pas des flocons qui tombent, mais des buches!
un mixe avec le code de Ar-s serait fun

joyeux noël

Oui, il y a un souci sous Windows XP avec l'unicode ou la transparence, je ne sais pas (je n'ai plus de xp). Si quelqu'un avait 5 mns pour regarder, vu que le source est assez simple...

[djes]

Il est temps de voter ! http://www.purebasic.fr/french/viewtopi ... =8&t=15013

[Cool Dji]

Arghhh, j'ai cru que la date limite était au 31 décembre...

[Cool Dji]

Mon PurePunch que je comptais finir ces jours-ci avant le 31
il manque les collisions des tirs...

Code : Tout sélectionner

Macro M:Macro:EndMacro:M SI:SaveImage:End#M:M RM:Random:End#M:M CR:Create:End#M
M N:Next:End#M:M EF:EndIf:End#M:M D:Drawing:End#M:M P:Particle:End#M:PZ.f=50  ;
pt=128:Dim CX(5000):Dim CZ(5000):Dim CY.f(5000):Dim CE(5000):Dim TE(10)       ;
Dim TX.f(10):Dim TY.f(10):Dim TZ.f(10):Dim TV.f(10):Dim TH.f(10):Dim FX.f(50) ;
Dim FZ.f(50):U=RGB(255,255,255):M RA:Radian:End#M:M V:Body:End#M:InitSound()  ;
InitEngine3D():InitSprite():InitMouse():InitKeyboard():M MA:Material:End#M    ;
M W:AntialiasingMode:End#M:M G:Image:End#M:M E:Entity:End#M:cbr=RGB(255,0,0)  ;
W(#PB_#W#_x6):V=RGB(50,50,50):OpenScreen(1024,768,32,""):CR#Cube(2,20)        ;
UsePNG#G#Decoder():CatchSprite(0,?me):W=RGB(150,150,150):M SC:Static:End#M  ;
CR#Sphere(3,1,9,9):CR#Sphere(4,6,20,20):CR#Sphere(5,4,20,20):M O:OutPut:End#M
For j=0 To 3:CR#Texture(j,512,512):CR#MA(j,TextureID(j)):CR#G(j,512,512,32)   ;
Start#D(G#O(j)):Box(0,0,512,512,W):Box(1,1,510,510,V):For i=0 To 5000         ;
c=RM(200):Plot(RM(511),RM(511),RGB(c,c,c)):N:If j=2:Box(0,0,512,512,cbr):EF   ;
If j=3:Box(0,0,512,512,u):M MH:MeshID:End#M:M PH:Physic:End#M:For i=0 To 50   ;
Circle(RM(511),RM(511),RM(50),(RGB(240,240,240))):N:EF:Stop#D()               ;
Start#D(Texture#O(j)):Draw#G(G#ID(j),0,0):Stop#D():N:CR#MA(4,TextureID(2))    ;
MA#BlendingMode(4,#PB_#MA#_Add):i=0:j=0:For x=-25 To 25:For z=-25 To 25       ;
CX(j)=x*20:CZ(j)=z*20:CY(j)=-10:o=rm(50):If o<5:CE(j)=1:ElseIf o=6:If i<49:i+1
CR#E(9+i,MH(4),MA#id(3),x*20,4,z*20):CR#E(i+59,MH(5),MA#id(3),x*20,10,z*20)  
FX(i)=x*20:FZ(i)=z*20:E#Ph#V(9+i,#PB_#E#_#SC#V)
E#Ph#V(i+59,#PB_#E#_#SC#V):Ef:Ef:CR#E(500+j,MH(2),MA#id(1),CX(j),CY(j),CZ(j))
E#Ph#V(500+j,#PB_#E#_#Sc#V):j+1:N:N:For j=0 To 9:CR#E(j,MH(3),MA#id(2))
E#Ph#V(j,#PB_#E#_Sphere#V):CR#P#Emitter(j,1,1,1,0):P#MA(j,MA#id(4))
P#TimeToLive(j,0.1,0.5):P#EmissionRate(j,20):P#Size(j,2,2):P#ColorRange(j,u,u)
Hide#E(j,1):Hide#P#Emitter(j,1):N:For j=1290 To 1310:CE(j)=0:N
CR#Sprite(3,106,106):CR#G(8,106,106):CR#Camera(0,0,0,100,100)
MoveCamera(0,0,0,0):Fog(W,255,200,500):CameraBackColor(0,W)
InitMovie():CR#File(1,"t.mid"):WriteData(1,?ms,?me-?ms):CloseFile(1)
CR#Sprite(1,1,1):Start#D(Sprite#O(1)):Box(0,0,1,1,U):Stop#D()
LoadMovie(0,"t.mid"):Repeat:If MovieStatus(0)=0:If MoviePlay=#False
PlayMovie(0,ScreenID()):MoviePlay=1:Ef:ElseIf MovieStatus(0)>0:MoviePlay=0
Ef:ExamineMouse():ExamineKeyboard():PH.f-MouseDeltaX()*0.1
PV.f-MouseDeltaY()*0.1:If PV<0:PV=0:Ef:If PV>45:PV=45:Ef:ve=0
If KeyboardPushed(#PB_Key_Up):Ve=2:Ef:If KeyboardPushed(#PB_Key_Down):Ve=-1:Ef
OPY.f=PY.f:OPX.f=PX.f:OPZ.f=PZ:PY-(Ve*Cos(RA(PH))):PX-(Ve*Sin(RA(PH)))
collision=RayCollide(PX,PZ,PY,PX,PZ-10, PY):If collision>0:PZ=PickY()+5:Else
PZ-5:Ef:r.f=Sin(RA(PH))*5:k.f=Cos(RA(PH))*5
E=RayCollide(PX+r,PZ,PY+k,PX-r,PZ,PY-k):If E>0:Ve=0:PY=OPY:PX=OPX:PZ=OPZ:Ef
 For j=100 To 130:X1=RM(500)-250+PX:Y1=RM(500)-250+PY
   CR#Line3D(j,X1,0,Y1,W,X1,800-RM(700),Y1,V):N
  ct-1:If ct<0
If MouseButton(#PB_MouseButton_Left):ct=10:j=0:Repeat:If TE(j)=0:TE(j)=1
TX(j)=PX:TY(j)=PY:TZ(j)=PZ:TH(j)=PH:TV(j)=PV:Hide#E(j,0):Hide#P#Emitter(j,0) 
j=9:Ef:j+1:Until j=10:Ef:Ef:For j=0 To 9:If TE(j)=1:TX(j)-Sin(RA(TH(j)))*9
TZ(j)+Sin(RA(TV(j)))*9:TY(j)-Cos(RA(TH(j)))*9:Move#E(j,TX(j),TZ(j),TY(j),0)
Move#P#Emitter(j,TX(j),TZ(j),TY(j),0):EndIf:Next
  Start#D(G#O(1)):Box(128,128,256,2,0)
Box(128,128,2,256,0):Box(128,384,256,2,0):Box(384,128,2,256,0):pt+10:If pt>384;
pt=135:Ef:Box(pt,128,5,2,U):Box(512-pt,384,5,2,U):Box(128,512-pt,2,5,U) ;
Box(384,pt,2,5,U):Stop#D():Start#D(Texture#O(1)):Draw#G(G#ID(1),0,0)        ;
Stop#D():For j=0 To 5000:If CE(j)=1 And CY(j)<10:CY(j)+0.1                    ;
Move#E(500+j,CX(j),CY(j),CZ(j),0):Ef:N:RotateCamera(0,PV,PH,0,0)              ;
MoveCamera(0,PX,PZ,PY,0):RenderWorld():Start#D(G#O(8)):Box(0,0,106,106,V)     ;
For j=0 To 106 Step 4:Line(0,j,106,1,W):Line(j,0,1,106,W):N:For j=0 To 49     ;
Box(53+FX(j)/10,53+FZ(j)/10,2,2,u):N:Box(53+PX/10,53+PY/10,2,2,RGB(255,0,0))  ;
Stop#D():Start#D(Sprite#O(3)):Draw#G(G#ID(8),0,0):Stop#D()                    ;
RotateSprite(3,PH,#PB_Absolute):DisplaySprite(3,200-53,200-53)                ;
DisplaySprite(0,0,400):ClipSprite(0,0,0,im,10):im-1:If im<0:im=1024:Ef        ;
For j=0 To 20:DisplaySprite(1,im+RM(5),405+RM(16)-8)                          ;
DisplaySprite(1,im+RM(8),405+RM(10)-5):DisplaySprite(1,im+RM(11),405+RM(6)-3):N
FlipBuffers():Until KeyboardPushed(#PB_Key_Escape)                            ;
  
  
DataSection:ms:  
Data.q $060000006468544D,$544DE00106000100,$FF00200000006B72,$206B636172540703
Data.q $2A2C0A0351FF0031,$081803050458FF00,$544D002FFF00DC8B,$FF00D30000006B72
Data.q $206B636172540703,$010B7F7F0FF00031,$0403030203090101,$348128C000F70400
Data.q $3C7F4B903C7F07B0,$3C7F4C9000404B80,$3C7F4B9000404C80,$3C7F4C9000404B80
Data.q $3C7F4B9000404C80,$3C7F4C9000404B80,$3C7F4B9000404C80,$3C7F4C9000404B80
Data.q $3C7F4B9000404C80,$3C7F4C9000404B80,$3C7F4B9000404C80,$3C7F4C9000404B80
Data.q $3C7F4B9000404C80,$3C7F4C9000404B80,$3C7F4B9000404C80,$3C7F4C9000404B80
Data.q $3C7F4B9000404C80,$3C7F4C9000404B80,$3C7F4B9000404C80,$3C7F4C9000404B80
Data.q $787F509000404C80,$2FFF689E84405080,$0300006B72544D00,$6172540703FF003C
Data.q $883CC10031206B63,$2C912C827F07B174,$917081402C81787F,$7081402C81787F2C
Data.q $78402F81787F2F91,$78403181787F3191,$81402C81787F2C91,$402C81787F2C9170
Data.q $2A81787F2A917081,$2B81787F2B917840,$2C81787F2C917840,$81787F2C91708140
Data.q $787F2F917081402C,$787F319178402F81,$787F2C9178403181,$7F2C917081402C81
Data.q $2A917081402C8178,$2B9178402A81787F,$2C9178402B81787F,$917081402C81787F
Data.q $7081402C81787F2C,$78402F81787F2F91,$78403181787F3191,$81402C81787F2C91
Data.q $402C81787F2C9170,$2A81787F2A917081,$2B81787F2B917840,$2C81787F2C917840
Data.q $81787F2C91708140,$787F2F917081402C,$787F319178402F81,$787F2C9178403181
Data.q $7F2C917081402C81,$2A917081402C8178,$2B9178402A81787F,$2C9178402B81787F
Data.q $917081402C81787F,$7081402C81787F2C,$78402F81787F2F91,$78403181787F3191
Data.q $81402C81787F2C91,$402C81787F2C9170,$2A81787F2A917081,$2B81787F2B917840
Data.q $2C81787F2C917840,$81787F2C91708140,$787F2F917081402C,$787F319178402F81
Data.q $787F2C9178403181,$7F2C917081402C81,$2A917081402C8178,$2B9178402A81787F
Data.q $2C9178402B81787F,$917081402C81787F,$7081402C81787F2C,$78402F81787F2F91
Data.q $78403181787F3191,$81402C81787F2C91,$402C81787F2C9170,$2F81787F2F917081
Data.q $3081787F30917840,$31913C4707B13C40,$917081403181787F,$3481403881787F38
Data.q $3C7F2C913C4407B1,$00402C813C4507B1,$007F3891784607B1,$78403881784707B1
Data.q $81403181787F3191,$403881787F389170,$2C81787F2C917081,$3881787F38917840
Data.q $3181787F31917840,$81787F3891708140,$787F2C9170814038,$787F389178402C81
Data.q $007F07B178403881,$81403181787F3191,$403181787F319170,$3481787F34917081
Data.q $07B1007F36917840,$2C9178403681787F,$917081402C81787F,$7081402C81787F2C
Data.q $78402F81787F2F91,$78403181787F3191,$81402C81787F2C91,$402C81787F2C9170
Data.q $2A81787F2A917081,$2B81787F2B917840,$2C81787F2C917840,$81787F2C91708140
Data.q $787F2F917081402C,$787F319178402F81,$787F339178403181,$7F33917081403381
Data.q $3491708140338178,$369178403481787F,$339178403681787F,$915884403381787F
Data.q $9100402C81787F2C,$82402C8158847F2C,$72544D002FFF30C4,$03FF00FC0100006B
Data.q $33206B6361725407,$7F07B2348139C200,$4782787F47922CAF,$4482787F44920040
Data.q $8204877F3F920040,$82787F47923C403F,$82787F4492004047,$04877F3E92004044
Data.q $787F47923C403E82,$787F449200404782,$877F3D9200404482,$7F3B923C403D8204
Data.q $7F3D9200403B8278,$44924087403D8278,$927081404482787F,$7081404482787F44
Data.q $78404782787F4792,$78404982787F4992,$81404482787F4492,$404482787F449270
Data.q $4282787F42927081,$4382787F43927840,$4482787F44927840,$82787F409248A440
Data.q $82787F3D92004040,$04877F389200403D,$787F40923C403882,$787F3D9200404082
Data.q $877F379200403D82,$7F40923C40378204,$7F3D920040408278,$7F369200403D8278
Data.q $34923C4036820487,$369200403482787F,$B20487403682787F,$92003107B23C3107
Data.q $B23C3107B23C513F,$823C3107B23C3107,$B23C3107B200403F,$92003107B23C3107
Data.q $B23C3107B23C513E,$823C3107B23C3107,$B23C3107B200403E,$92003107B23C3107
Data.q $823C3107B23C5138,$B23C3107B2004038,$B200513F923C3107,$78403F8270813107
Data.q $403E827081513E92,$4038827851389278,$3F827081513F9278,$827081513E927840
Data.q $827851389278403E,$5085513F92784038,$007F07B200403F82,$81404B8278514B92
Data.q $404B8278514B9270,$4C8278514C927081,$4E8278514E927840,$4B8278514B927840
Data.q $8278513F92588440,$5884513F9200403F,$2FFF30C482403F82,$0500006B72544D00
Data.q $6172540703FF008C,$07B9748834206B63,$07B93C3A07B93C3A,$07B93C3A07B93C3A
Data.q $1F99003A07B93C3A,$07B93C7F3B99007F,$1F8900403B893C3A,$3B99003A07B90040
Data.q $3B893C3A07B93C7F,$3F99003A07B90040,$3F893C3B07B93C7F,$1F99003B07B90040
Data.q $07B93C7F3B99007F,$1F8900403B893C3B,$3B99003B07B90040,$3B893C3B07B93C7F
Data.q $4099003B07B90040,$40893C3B07B93C7F,$1F99003B07B90040,$07B93C7F3B99007F
Data.q $1F8900403B893C3B,$3F99783B07B90040,$3B89787F3B99007F,$3B9978403F890040
Data.q $1F89787F1F99007F,$3B9900403B890040,$3F9900403B89787F,$3B9900403F89787F
Data.q $1F89787F1F99007F,$3B9900403B890040,$409900403B89787F,$3B9900404089787F
Data.q $1F89787F1F99007F,$3B9978403B890040,$3F89787F3F99007F,$1F9978403B890040
Data.q $3B89787F3B99007F,$3B9900401F890040,$3F9900403B89787F,$1F9900403F89787F
Data.q $3B89787F3B99007F,$3B9900401F890040,$409900403B89787F,$1F9900404089787F
Data.q $3B89787F3B99007F,$3F9978401F890040,$3B89787F3B99007F,$3B9978403F890040
Data.q $1F89787F1F99007F,$3B9900403B890040,$3F9900403B89787F,$3B9900403F89787F
Data.q $1F89787F1F99007F,$3B9900403B890040,$409900403B89787F,$2F9900404089787F
Data.q $2D9900402F893C7F,$289900402D893C7F,$2B993C4028893C7F,$299900402B893C7F
Data.q $2699004029893C7F,$39993C4026893C7F,$3F9978403989787F,$3B9900403F89787F
Data.q $409978403B89787F,$3B9900404089787F,$3F9978403B89787F,$3B9978403F89787F
Data.q $3F9978403B89787F,$3B9900403F89787F,$409978403B89787F,$3B9900404089787F
Data.q $3F9978403B89787F,$3B9978403F89787F,$3F9978403B89787F,$3B9900403F89787F
Data.q $409978403B89787F,$3B9900404089787F,$3F9978403B89787F,$3B9978403F89787F
Data.q $3F9978403B89787F,$3B9900403F89787F,$409978403B89787F,$3B9900404089787F
Data.q $3B9978403B89787F,$3B9978403B89787F,$3F9978403B89787F,$3B9900403F89787F
Data.q $409978403B89787F,$3B9900404089787F,$3B9978403B89787F,$3B9978403B89787F
Data.q $3F9978403B89787F,$3B9900403F89787F,$409978403B89787F,$3B9900404089787F
Data.q $3B9978403B89787F,$3B9978403B89787F,$3F9978403B89787F,$3B9900403F89787F
Data.q $409978403B89787F,$3B9900404089787F,$3B9978403B89787F,$3B9978403B89787F
Data.q $3F9978403B89787F,$3B9900403F89787F,$409978403B89787F,$3B9900404089787F
Data.q $3B9978403B89787F,$3B9978403B89787F,$3F9978403B89787F,$3B9900403F89787F
Data.q $409978403B89787F,$3B9900404089787F,$3B9978403B89787F,$3B9978403B89787F
Data.q $3F9978403B89787F,$3B9900403F89787F,$409978403B89787F,$3B9900404089787F
Data.q $3B9978403B89787F,$996882403B89787F,$9900403F89787F3F,$9978403B89787F3B
Data.q $9900404089787F40,$9978403B89787F3B,$9978403F89787F3F,$9978403B89787F3B
Data.q $9900403F89787F3F,$9978403B89787F3B,$9900404089787F40,$9978403B89787F3B
Data.q $9978403F89787F3F,$9978403B89787F3B,$9900403F89787F3F,$9978403B89787F3B
Data.q $9900404089787F40,$9978403B89787F3B,$9978403F89787F3F,$9978403B89787F3B
Data.q $9900403F89787F3F,$9978403B89787F3B,$9900404089787F40,$9978403B89787F3B
Data.q $9978403F89787F3F,$9978403F89787F3F,$9900404089787F40,$9978403F89787F3F
Data.q $9900404089787F40,$9978404089787F40,$9978403F89787F3F,$9978403F89787F3F
Data.q $9900404089787F40,$9978403F89787F3F,$9900404089787F40,$9978404089787F40
Data.q $9978403F89787F3F,$9978403F89787F3F,$9900404089787F40,$9978403F89787F3F
Data.q $9900404089787F40,$9978404089787F40,$9978403F89787F3F,$9978403B89787F3B
Data.q $9900403F89787F3F,$9978403B89787F3B,$9900404089787F40,$9978403B89787F3B
Data.q $6882403B89787F3B,$004040893C7F4099,$004040893C7F4099,$004040893C7F4099
Data.q $004040893C7F4099,$004040893C7F4099,$004040893C7F4099,$004040893C7F4099
Data.q $824040893C7F4099,$72544D002FFF00CA,$03FF001C0100006B,$35206B6361725407
Data.q $7F509320D638C300,$5093708140508378,$937081405083787F,$9378405383787F53
Data.q $9378405583787F55,$7081405083787F50,$81405083787F5093,$404E83787F4E9370
Data.q $404F83787F4F9378,$405083787F509378,$404783787F479378,$404483787F449300
Data.q $4F8350857F4F9300,$83787F4793708140,$83787F4493004047,$50857F4E93004044
Data.q $7F47937081404E83,$7F44930040478378,$7F4D930040448378,$4C9300404D835085
Data.q $4B9300404C83787F,$9300AD404B83787F,$9300404783787F47,$9300404483787F44
Data.q $00404F8340877F4F,$00404783787F4793,$00404483787F4493,$404E8340877F4E93
Data.q $404783787F479300,$404483787F449300,$4D8340877F4D9300,$83787F4E93008F40
Data.q $58847F509300404E,$2FFF30C482405083:Data.b $00:me:
Data.q $0A1A0A0D474E5089,$524448490D000000,$0900000000040000,$6326840000000001
Data.q $59487009000000F5,$0B0000130B000073,$0000189C9A000113,$0000414D41670400
Data.q $00009351FB7C8EB1,$00004D5248632000,$000083800000257A,$0000E9800000FFF9
Data.q $000060EA00003075,$5F926F170000983A,$4449E701000046C5,$6EBF94C4DA785441
Data.q $9005967FC61030DB,$C7635962E874389B,$1DA61F405A9C46AC,$04E529C43428146B
Data.q $52E8C7900877D088,$45A1DAF0B6323240,$503C2C44A643A325,$017D045CA0756C85
Data.q $77DDDF3FBC8F2073,$E6A33CBB8E3A0E38,$94CE6076533F3923,$1985F8342CB22457
Data.q $BF7BFB05F8917E45,$985FABE3FF948F98,$F4919AC3D237B018,$F656491F39FFCA30
Data.q $E5AED25989857A46,$B049EA4B5F1F2E5A,$AA73CD3D4902694D,$65C81340354FDAE9
Data.q $5B1E31D69B6EBBA5,$007F02D2E26AD280,$603D93BBDFB9A3D8,$DDBFE5FF9743B0F7
Data.q $3B696DA0E069D003,$FB6FEC4FB4D9FF68,$95113880C0FC8EA7,$631796913BC96915
Data.q $932AA28490D6309D,$955D7A7240849D53,$7B0300D0A12F8309,$510493880FB2A201
Data.q $79A1421E9F864259,$335861A853D4D40E,$9DA728D21DADBC43,$1980034F5D618068
Data.q $2CD1A680963341E0,$5ECCD3600A91FD2B,$8D80089A08BAAE64,$DDCA66682BC9D50B
Data.q $00DE7AFBA362B19A,$293855239F3447AA,$420752B7B2C5D807,$44680965C1078E4C
Data.q $EBE300C67BC97D89,$01C084A0C0025BE2,$7A28839E586DCE84,$9E2C090F09AD209C
Data.q $293B9FBEAABC1E50,$27E81CD7B6E61806,$44598014F638F188,$555915C91743468D
Data.q $4D19B733D67AC869,$A4B4459A5DEE2BF6,$B241F31B64AEB899,$9E18BB25D06BB469
Data.q $9EAB8A7605BEFDDD,$B1760177C00AD5F0,$D8E0C015523133BA,$CA50A80001DFC0FF
Data.q $000000D6C841C13B,$6042AE444E454900:Data.b $82:  EndDataSection

[Ar-S]

Dommage Dji mais c'est déjà bien fun. Manque aussi les déplacements latérales. Indispensable pour du fps.
Prends le temps de le finir en DéPunché, ça serait bien instructif.

[djes]

Ah oui, c'est dommage, c'est vrai que le 31 aurait été plus logique, mais je pensais ainsi mettre un peu de pression supplémentaire.

[Ar-S]

Coté pression mission réussi je te rassure Djes

[djes]

[Cool Dji]

Hop,

Voici ma production hors concours puisque je confonds 31 et 24
Sorry Ar-s, pas pu mettre les déplacements latéraux (vraiment plus de place), j'ai même enlevé la marche arrière...

Code : Tout sélectionner

Macro M:Macro:EndMacro:M SI:SaveImage:End#M:M RM:Random:End#M:M CR:Create:End#M
M N:Next:End#M:M EF:EndIf:End#M:M D:Drawing:End#M:M P:Particle:End#M:PZ.f=50
M S:Sprite:End#M:M K:Camera:End#M:M KY:Keyboard:End#M:M EM:Emitter:End#M
pt=128:Dim CX(5000):Dim CZ(5000):Dim CY.f(5000):Dim CE(5000):Dim TE(10)
Dim TX.f(10):Dim TY.f(10):Dim TZ.f(10):Dim TV.f(10):Dim TH.f(10):Dim FX.f(50)
Dim FZ.f(50):U=RGB(255,255,255):M RA:Radian:End#M:M V:Body:End#M:Dim FO(50)
InitEngine3D():Init#S():InitMouse():Init#KY():M MA:Material:End#M:
M W:AntialiasingMode:End#M:M G:Image:End#M:M E:Entity:End#M:cbr=RGB(255,0,0)  ;
W(#PB_#W#_x6):V=RGB(50,50,50):OpenScreen(1024,768,32,""):CR#Cube(2,20)        ;
UsePNG#G#Decoder():Catch#S(0,?me):W=RGB(150,150,150):M SC:Static:End#M  ;
CR#Sphere(3,1,9,9):CR#Sphere(4,6,20,20):CR#Sphere(5,4,20,20):M O:OutPut:End#M
For j=0 To 3:CR#Texture(j,512,512):CR#MA(j,TextureID(j)):CR#G(j,512,512,32)   ;
Start#D(G#O(j)):Box(0,0,512,512,W):Box(1,1,510,510,V):For i=0 To 5000         ;
c=RM(200):Plot(RM(511),RM(511),RGB(c,c,c)):N:If j=2:Box(0,0,512,512,cbr):EF   ;
If j=3:Box(0,0,512,512,u):M MH:MeshID:End#M:M PH:Physic:End#M:For i=0 To 50   ;
Circle(RM(511),RM(511),RM(50),(RGB(240,240,240))):N:EF:Stop#D():InitMovie()              ;
Start#D(Texture#O(j)):Draw#G(G#ID(j),0,0):Stop#D():N:CR#MA(4,TextureID(2))    ;
MA#BlendingMode(4,#PB_#MA#_Add):i=0:V=0:For x=-25 To 25:For z=-25 To 25       ;
CX(V)=x*20:CZ(V)=z*20:CY(V)=-10:o=rm(50):If o<5:CE(V)=1:ElseIf o=6:If Q<49:Q+1
CR#E(9+Q,MH(4),MA#id(3),x*20,4,z*20):CR#E(Q+59,MH(5),MA#id(3),x*20,10,z*20)  
FX(Q)=x*20:FZ(Q)=z*20:E#Ph#V(9+Q,#PB_#E#_#SC#V):E#Ph#V(Q+59,#PB_#E#_#SC#V):Ef
Ef:CR#E(500+V,MH(2),MA#id(1),CX(V),CY(V),CZ(V)):E#Ph#V(500+V,#PB_#E#_#Sc#V):V+1
N:N:For j=0 To 9:CR#E(j,MH(3),MA#id(2)):E#Ph#V(j,#PB_#E#_Sphere#V):Hide#E(j,1)
CR#P#EM(j,1,1,1,0):P#MA(j,MA#id(4)):P#TimeToLive(j,0.1,1):P#EmissionRate(j,20)
P#Size(j,2,2):P#ColorRange(j,u,u):Hide#P#EM(j,1):N:For j=1290 To 1310:CE(j)=0:N
Fog(W,255,200,500):CR#G(8,106,106):CR#K(0,0,0,100,100):CR#S(3,106,106)
CR#File(1,"t.mid"):WriteData(1,?ms,?me-?ms):CloseFile(1):CR#S(1,1,1)
Start#D(S#O(1)):Box(0,0,1,1,U):Stop#D():K#BackColor(0,W):LoadMovie(0,"t.mid")
Repeat:If MovieStatus(0)=0:If MoviePlay=#False:PlayMovie(0,ScreenID())
MoviePlay=1:Ef:ElseIf MovieStatus(0)>0:MoviePlay=0:Ef:ExamineMouse()
Examine#KY():PH.f-MouseDeltaX()*0.1:PV.f-MouseDeltaY()*0.1:If PV<0:PV=0:Ef
If PV>45:PV=45:Ef:ve=0:If KY#Pushed(#PB_Key_Up):Ve=2:Ef:OY.f=PY.f:OX.f=PX.f
OZ.f=PZ:PY-(Ve*Cos(RA(PH))):PX-(Ve*Sin(RA(PH)))
If RayCollide(PX,PZ,PY,PX,PZ-10,PY)>0:PZ=PickY()+5:Else:PZ-5:Ef
r.f=Sin(RA(PH))*5:b.f=Cos(RA(PH))*5:If RayCollide(PX+r,PZ,PY+b,PX-r,PZ,PY-b)>0
Ve=0:PY=OY:PX=OX:PZ=OZ:Ef:For j=100 To 130:X1=RM(500)-250+PX:Y1=RM(500)-250+PY
CR#Line3D(j,X1,0,Y1,W,X1,800-RM(700),Y1,V):N:ct-1:If ct<0
If MouseButton(#PB_MouseButton_Left):ct=10:j=0:Repeat:If TE(j)=0:TE(j)=1
TX(j)=PX:TY(j)=PY:TZ(j)=PZ:TH(j)=PH:TV(j)=PV:Hide#E(j,0):Hide#P#EM(j,0) 
j=9:Ef:j+1:Until j=10:Ef:Ef:For j=0 To 9:If TE(j)=1:For i=1 To Q
If FO(i)=0 And Sqr(Pow(FX(i)-TX(j),2)+Pow(5-TZ(j),2)+Pow(FZ(i)-TY(j),2))<10
TE(j)=0:Hide#E(j,1):Hide#P#EM(j,1):FO(i)=1:Move#E(9+i,0,-99,0,0):Hide#E(59+i,1)
EF:N:TX(j)-Sin(RA(TH(j)))*9:TZ(j)+Sin(RA(TV(j)))*9:TY(j)-Cos(RA(TH(j)))*9
Move#E(j,TX(j),TZ(j),TY(j),0):Move#P#EM(j,TX(j),TZ(j),TY(j),0)
For l=0 To V:If CE(l)=1 And TZ(j)<10
If Sqr(Pow(CX(l)-TX(j),2)+Pow(CZ(l)-TY(j),2))<10:TE(j)=0:Hide#E(j,1)
Hide#P#EM(j,1):EndIf:EndIf:Next
If Abs(TX(J))>900 Or Abs(TY(j))>900 Or Abs(TZ(j))>900:TE(j)=0:Hide#E(j,1)
Hide#P#EM(j,1):Ef:Ef:N:Start#D(G#O(1)):Box(128,128,256,2,0)
Box(128,128,2,256,0):Box(128,384,256,2,0):Box(384,128,2,256,0):pt+10:If pt>384;
pt=135:Ef:Box(pt,128,5,2,U):Box(512-pt,384,5,2,U):Box(128,512-pt,2,5,U) ;
Box(384,pt,2,5,U):Stop#D():Start#D(Texture#O(1)):Draw#G(G#ID(1),0,0)        ;
Stop#D():For j=0 To 5000:If CE(j)=1 And CY(j)<10:CY(j)+0.1                    ;
Move#E(500+j,CX(j),CY(j),CZ(j),0):Ef:N:Rotate#K(0,PV,PH,0,0)              ;
Move#K(0,PX,PZ,PY,0):RenderWorld():Start#D(G#O(8)):Box(0,0,106,106,V)     ;
For j=0 To 106 Step 4:Line(0,j,106,1,W):Line(j,0,1,106,W):N:For j=1 To Q
If FO(j)=0:Box(53+FX(j)/10,53+FZ(j)/10,2,2,u):Ef:N
Box(53+PX/10,53+PY/10,2,2,RGB(255,0,0))  ;
Stop#D():Start#D(S#O(3)):Draw#G(G#ID(8),0,0):Stop#D()                    ;
Rotate#S(3,PH,#PB_Absolute):Display#S(3,200-53,200-53)                ;
Display#S(0,0,400):Clip#S(0,0,0,im,10):im-1:If im<0:im=1024:Ef        ;
For j=0 To 20:Display#S(1,im+RM(5),405+RM(16)-8)                          ;
Display#S(1,im+RM(8),405+RM(10)-5):Display#S(1,im+RM(11),405+RM(6)-3):N
FlipBuffers():Until KY#Pushed(#PB_Key_Escape)                            ;
DataSection:ms:  
Data.q $060000006468544D,$544DE00106000100,$FF00200000006B72,$206B636172540703
Data.q $2A2C0A0351FF0031,$081803050458FF00,$544D002FFF00DC8B,$FF00D30000006B72
Data.q $206B636172540703,$010B7F7F0FF00031,$0403030203090101,$348128C000F70400
Data.q $3C7F4B903C7F07B0,$3C7F4C9000404B80,$3C7F4B9000404C80,$3C7F4C9000404B80
Data.q $3C7F4B9000404C80,$3C7F4C9000404B80,$3C7F4B9000404C80,$3C7F4C9000404B80
Data.q $3C7F4B9000404C80,$3C7F4C9000404B80,$3C7F4B9000404C80,$3C7F4C9000404B80
Data.q $3C7F4B9000404C80,$3C7F4C9000404B80,$3C7F4B9000404C80,$3C7F4C9000404B80
Data.q $3C7F4B9000404C80,$3C7F4C9000404B80,$3C7F4B9000404C80,$3C7F4C9000404B80
Data.q $787F509000404C80,$2FFF689E84405080,$0300006B72544D00,$6172540703FF003C
Data.q $883CC10031206B63,$2C912C827F07B174,$917081402C81787F,$7081402C81787F2C
Data.q $78402F81787F2F91,$78403181787F3191,$81402C81787F2C91,$402C81787F2C9170
Data.q $2A81787F2A917081,$2B81787F2B917840,$2C81787F2C917840,$81787F2C91708140
Data.q $787F2F917081402C,$787F319178402F81,$787F2C9178403181,$7F2C917081402C81
Data.q $2A917081402C8178,$2B9178402A81787F,$2C9178402B81787F,$917081402C81787F
Data.q $7081402C81787F2C,$78402F81787F2F91,$78403181787F3191,$81402C81787F2C91
Data.q $402C81787F2C9170,$2A81787F2A917081,$2B81787F2B917840,$2C81787F2C917840
Data.q $81787F2C91708140,$787F2F917081402C,$787F319178402F81,$787F2C9178403181
Data.q $7F2C917081402C81,$2A917081402C8178,$2B9178402A81787F,$2C9178402B81787F
Data.q $917081402C81787F,$7081402C81787F2C,$78402F81787F2F91,$78403181787F3191
Data.q $81402C81787F2C91,$402C81787F2C9170,$2A81787F2A917081,$2B81787F2B917840
Data.q $2C81787F2C917840,$81787F2C91708140,$787F2F917081402C,$787F319178402F81
Data.q $787F2C9178403181,$7F2C917081402C81,$2A917081402C8178,$2B9178402A81787F
Data.q $2C9178402B81787F,$917081402C81787F,$7081402C81787F2C,$78402F81787F2F91
Data.q $78403181787F3191,$81402C81787F2C91,$402C81787F2C9170,$2F81787F2F917081
Data.q $3081787F30917840,$31913C4707B13C40,$917081403181787F,$3481403881787F38
Data.q $3C7F2C913C4407B1,$00402C813C4507B1,$007F3891784607B1,$78403881784707B1
Data.q $81403181787F3191,$403881787F389170,$2C81787F2C917081,$3881787F38917840
Data.q $3181787F31917840,$81787F3891708140,$787F2C9170814038,$787F389178402C81
Data.q $007F07B178403881,$81403181787F3191,$403181787F319170,$3481787F34917081
Data.q $07B1007F36917840,$2C9178403681787F,$917081402C81787F,$7081402C81787F2C
Data.q $78402F81787F2F91,$78403181787F3191,$81402C81787F2C91,$402C81787F2C9170
Data.q $2A81787F2A917081,$2B81787F2B917840,$2C81787F2C917840,$81787F2C91708140
Data.q $787F2F917081402C,$787F319178402F81,$787F339178403181,$7F33917081403381
Data.q $3491708140338178,$369178403481787F,$339178403681787F,$915884403381787F
Data.q $9100402C81787F2C,$82402C8158847F2C,$72544D002FFF30C4,$03FF00FC0100006B
Data.q $33206B6361725407,$7F07B2348139C200,$4782787F47922CAF,$4482787F44920040
Data.q $8204877F3F920040,$82787F47923C403F,$82787F4492004047,$04877F3E92004044
Data.q $787F47923C403E82,$787F449200404782,$877F3D9200404482,$7F3B923C403D8204
Data.q $7F3D9200403B8278,$44924087403D8278,$927081404482787F,$7081404482787F44
Data.q $78404782787F4792,$78404982787F4992,$81404482787F4492,$404482787F449270
Data.q $4282787F42927081,$4382787F43927840,$4482787F44927840,$82787F409248A440
Data.q $82787F3D92004040,$04877F389200403D,$787F40923C403882,$787F3D9200404082
Data.q $877F379200403D82,$7F40923C40378204,$7F3D920040408278,$7F369200403D8278
Data.q $34923C4036820487,$369200403482787F,$B20487403682787F,$92003107B23C3107
Data.q $B23C3107B23C513F,$823C3107B23C3107,$B23C3107B200403F,$92003107B23C3107
Data.q $B23C3107B23C513E,$823C3107B23C3107,$B23C3107B200403E,$92003107B23C3107
Data.q $823C3107B23C5138,$B23C3107B2004038,$B200513F923C3107,$78403F8270813107
Data.q $403E827081513E92,$4038827851389278,$3F827081513F9278,$827081513E927840
Data.q $827851389278403E,$5085513F92784038,$007F07B200403F82,$81404B8278514B92
Data.q $404B8278514B9270,$4C8278514C927081,$4E8278514E927840,$4B8278514B927840
Data.q $8278513F92588440,$5884513F9200403F,$2FFF30C482403F82,$0500006B72544D00
Data.q $6172540703FF008C,$07B9748834206B63,$07B93C3A07B93C3A,$07B93C3A07B93C3A
Data.q $1F99003A07B93C3A,$07B93C7F3B99007F,$1F8900403B893C3A,$3B99003A07B90040
Data.q $3B893C3A07B93C7F,$3F99003A07B90040,$3F893C3B07B93C7F,$1F99003B07B90040
Data.q $07B93C7F3B99007F,$1F8900403B893C3B,$3B99003B07B90040,$3B893C3B07B93C7F
Data.q $4099003B07B90040,$40893C3B07B93C7F,$1F99003B07B90040,$07B93C7F3B99007F
Data.q $1F8900403B893C3B,$3F99783B07B90040,$3B89787F3B99007F,$3B9978403F890040
Data.q $1F89787F1F99007F,$3B9900403B890040,$3F9900403B89787F,$3B9900403F89787F
Data.q $1F89787F1F99007F,$3B9900403B890040,$409900403B89787F,$3B9900404089787F
Data.q $1F89787F1F99007F,$3B9978403B890040,$3F89787F3F99007F,$1F9978403B890040
Data.q $3B89787F3B99007F,$3B9900401F890040,$3F9900403B89787F,$1F9900403F89787F
Data.q $3B89787F3B99007F,$3B9900401F890040,$409900403B89787F,$1F9900404089787F
Data.q $3B89787F3B99007F,$3F9978401F890040,$3B89787F3B99007F,$3B9978403F890040
Data.q $1F89787F1F99007F,$3B9900403B890040,$3F9900403B89787F,$3B9900403F89787F
Data.q $1F89787F1F99007F,$3B9900403B890040,$409900403B89787F,$2F9900404089787F
Data.q $2D9900402F893C7F,$289900402D893C7F,$2B993C4028893C7F,$299900402B893C7F
Data.q $2699004029893C7F,$39993C4026893C7F,$3F9978403989787F,$3B9900403F89787F
Data.q $409978403B89787F,$3B9900404089787F,$3F9978403B89787F,$3B9978403F89787F
Data.q $3F9978403B89787F,$3B9900403F89787F,$409978403B89787F,$3B9900404089787F
Data.q $3F9978403B89787F,$3B9978403F89787F,$3F9978403B89787F,$3B9900403F89787F
Data.q $409978403B89787F,$3B9900404089787F,$3F9978403B89787F,$3B9978403F89787F
Data.q $3F9978403B89787F,$3B9900403F89787F,$409978403B89787F,$3B9900404089787F
Data.q $3B9978403B89787F,$3B9978403B89787F,$3F9978403B89787F,$3B9900403F89787F
Data.q $409978403B89787F,$3B9900404089787F,$3B9978403B89787F,$3B9978403B89787F
Data.q $3F9978403B89787F,$3B9900403F89787F,$409978403B89787F,$3B9900404089787F
Data.q $3B9978403B89787F,$3B9978403B89787F,$3F9978403B89787F,$3B9900403F89787F
Data.q $409978403B89787F,$3B9900404089787F,$3B9978403B89787F,$3B9978403B89787F
Data.q $3F9978403B89787F,$3B9900403F89787F,$409978403B89787F,$3B9900404089787F
Data.q $3B9978403B89787F,$3B9978403B89787F,$3F9978403B89787F,$3B9900403F89787F
Data.q $409978403B89787F,$3B9900404089787F,$3B9978403B89787F,$3B9978403B89787F
Data.q $3F9978403B89787F,$3B9900403F89787F,$409978403B89787F,$3B9900404089787F
Data.q $3B9978403B89787F,$996882403B89787F,$9900403F89787F3F,$9978403B89787F3B
Data.q $9900404089787F40,$9978403B89787F3B,$9978403F89787F3F,$9978403B89787F3B
Data.q $9900403F89787F3F,$9978403B89787F3B,$9900404089787F40,$9978403B89787F3B
Data.q $9978403F89787F3F,$9978403B89787F3B,$9900403F89787F3F,$9978403B89787F3B
Data.q $9900404089787F40,$9978403B89787F3B,$9978403F89787F3F,$9978403B89787F3B
Data.q $9900403F89787F3F,$9978403B89787F3B,$9900404089787F40,$9978403B89787F3B
Data.q $9978403F89787F3F,$9978403F89787F3F,$9900404089787F40,$9978403F89787F3F
Data.q $9900404089787F40,$9978404089787F40,$9978403F89787F3F,$9978403F89787F3F
Data.q $9900404089787F40,$9978403F89787F3F,$9900404089787F40,$9978404089787F40
Data.q $9978403F89787F3F,$9978403F89787F3F,$9900404089787F40,$9978403F89787F3F
Data.q $9900404089787F40,$9978404089787F40,$9978403F89787F3F,$9978403B89787F3B
Data.q $9900403F89787F3F,$9978403B89787F3B,$9900404089787F40,$9978403B89787F3B
Data.q $6882403B89787F3B,$004040893C7F4099,$004040893C7F4099,$004040893C7F4099
Data.q $004040893C7F4099,$004040893C7F4099,$004040893C7F4099,$004040893C7F4099
Data.q $824040893C7F4099,$72544D002FFF00CA,$03FF001C0100006B,$35206B6361725407
Data.q $7F509320D638C300,$5093708140508378,$937081405083787F,$9378405383787F53
Data.q $9378405583787F55,$7081405083787F50,$81405083787F5093,$404E83787F4E9370
Data.q $404F83787F4F9378,$405083787F509378,$404783787F479378,$404483787F449300
Data.q $4F8350857F4F9300,$83787F4793708140,$83787F4493004047,$50857F4E93004044
Data.q $7F47937081404E83,$7F44930040478378,$7F4D930040448378,$4C9300404D835085
Data.q $4B9300404C83787F,$9300AD404B83787F,$9300404783787F47,$9300404483787F44
Data.q $00404F8340877F4F,$00404783787F4793,$00404483787F4493,$404E8340877F4E93
Data.q $404783787F479300,$404483787F449300,$4D8340877F4D9300,$83787F4E93008F40
Data.q $58847F509300404E,$2FFF30C482405083:Data.b $00:me:
Data.q $0A1A0A0D474E5089,$524448490D000000,$0900000000040000,$6326840000000001
Data.q $59487009000000F5,$0B0000130B000073,$0000189C9A000113,$0000414D41670400
Data.q $00009351FB7C8EB1,$00004D5248632000,$000083800000257A,$0000E9800000FFF9
Data.q $000060EA00003075,$5F926F170000983A,$4449E701000046C5,$6EBF94C4DA785441
Data.q $9005967FC61030DB,$C7635962E874389B,$1DA61F405A9C46AC,$04E529C43428146B
Data.q $52E8C7900877D088,$45A1DAF0B6323240,$503C2C44A643A325,$017D045CA0756C85
Data.q $77DDDF3FBC8F2073,$E6A33CBB8E3A0E38,$94CE6076533F3923,$1985F8342CB22457
Data.q $BF7BFB05F8917E45,$985FABE3FF948F98,$F4919AC3D237B018,$F656491F39FFCA30
Data.q $E5AED25989857A46,$B049EA4B5F1F2E5A,$AA73CD3D4902694D,$65C81340354FDAE9
Data.q $5B1E31D69B6EBBA5,$007F02D2E26AD280,$603D93BBDFB9A3D8,$DDBFE5FF9743B0F7
Data.q $3B696DA0E069D003,$FB6FEC4FB4D9FF68,$95113880C0FC8EA7,$631796913BC96915
Data.q $932AA28490D6309D,$955D7A7240849D53,$7B0300D0A12F8309,$510493880FB2A201
Data.q $79A1421E9F864259,$335861A853D4D40E,$9DA728D21DADBC43,$1980034F5D618068
Data.q $2CD1A680963341E0,$5ECCD3600A91FD2B,$8D80089A08BAAE64,$DDCA66682BC9D50B
Data.q $00DE7AFBA362B19A,$293855239F3447AA,$420752B7B2C5D807,$44680965C1078E4C
Data.q $EBE300C67BC97D89,$01C084A0C0025BE2,$7A28839E586DCE84,$9E2C090F09AD209C
Data.q $293B9FBEAABC1E50,$27E81CD7B6E61806,$44598014F638F188,$555915C91743468D
Data.q $4D19B733D67AC869,$A4B4459A5DEE2BF6,$B241F31B64AEB899,$9E18BB25D06BB469
Data.q $9EAB8A7605BEFDDD,$B1760177C00AD5F0,$D8E0C015523133BA,$CA50A80001DFC0FF
Data.q $000000D6C841C13B,$6042AE444E454900:Data.b $82:  EndDataSection

[falsam]

Bonjour.

Pourrais je abuser en demander à ceux qui sont sous environnement Mac ou Linux de bien tester mon Punch et me signaler ce qui ne fonctionne pas ?

Le lien de mon Punch
http://www.purebasic.fr/french/viewtopi ... 48#p169548

[Mindphazer]

Bonjour Falsam
Sur OSX (Mavericks), PB 5.31 x64 ou 5.24 x64, j'ai une belle erreur "à la ligne 60, le #movie spécifié n'est pas initialisé"

[Good07]

Bonjour Falsam,

Sur OSX Yosemite même erreur ligne 60 avec PB 5.31 x64.

[Mindphazer]

... Et tout pareil sur Yosemite...

[falsam]

@Mindphazer, Good07 merci de vous attarder sur ce souci.

Pouvez vous enregistrer le code dans un dossier et relancer mon code ?