Page 2 sur 2

Publié : sam. 13/oct./2007 16:46
par zorg
Frenchy Pilou a écrit :marche nickel ton truc
je suis en 1280*1024, pas moyen d'avoir cette résolution? (même dans une fenêtre plus petite)
Car là le sprite est "grossi" à l'écran et donc on voit chaque pixel comme un petit carré :)
(j'ai pas découpé au mieux juste pour tester :roll:

Le voici en 1280x1024.

Code : Tout sélectionner

;*******************************
;                              ;
;        Serpent-boule         ;
;   Ecrit en PureBasic 4.02    ;
;                              ;
;   par Zorg, le 12/10/2007    ;
;                              ;
;*******************************

If InitSprite()=0 Or InitKeyboard()=0
  MessageRequester("Erreur","Problème avec DirectX",0)
  End
EndIf

;Ouvre un nouvel écran et crée les sprite
OpenScreen(1280,1024,32,"Boule")
CreateSprite(1,1280,1024)
CreateSprite(2,1280,1024)
CreateSprite(3,1280,1024)
CreateSprite(4,1280,1024)
CreateSprite(5,1280,1024)
CreateSprite(6,1280,1024)

;Restore le sprite de la boule
CreateSprite(0,32,31)
StartDrawing(SpriteOutput(0))
Restore Sprite
For y_boule=0 To 30
  For x_boule = 0 To 31
    Read coul
    Plot(x_boule,y_boule,coul)
  Next x_boule
Next y_boule
StopDrawing()
TransparentSpriteColor(0,RGB(255,255,255))

x.w=640
y.w=510
vitesse_x.w=2
vitesse_y.w=-2
min_x.w=0
max_x.w=1280-SpriteWidth(0)
min_y.w=0
max_y.w=1024-SpriteHeight(0)
image.w=1

angle_1.f=0
angle_2.f=#PI

Repeat
    ;Calcul des coordonnées - Formule qui tue pour avoir un dépacement pas trop répétitif
    angle_1=angle_1+0.008
    angle_2=angle_2-0.003
    x=600*(Sin(angle_1)*Cos(angle_2*2)*Sin(angle_1*2+angle_2))+640
    y=180*(Cos(angle_2)-Sin(angle_1*0.5)+Sin(angle_2/2)+Sin(angle_2+Cos(angle_2)*3))+510

    ;Permutation des images de fond et affichage du sprite
    image=image+1
    If image>6
      image=1
    EndIf
    UseBuffer(image)
    DisplayTransparentSprite(0,x,y)
    UseBuffer(#PB_Default)
    DisplaySprite(image,0,0)
    FlipBuffers()
   
    ExamineKeyboard()
Until KeyboardPushed(#PB_Key_All)

UseBuffer(#PB_Default)
;Libération de la mémoire
FreeSprite(0)
FreeSprite(1)
FreeSprite(2)
FreeSprite(3)
FreeSprite(4)
FreeSprite(5)
FreeSprite(6)
End
DataSection
Sprite:
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FCFDFE, $EBF3F8, $E9F0F8, $F7FAFD, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $F6FBFE, $B9DDFE, $88C0FA, $539EEB, $409ADA, $480B8, $D7BC0, $277EC8, $3887C5, $5398C4, $8CB5D3, $E1EAF3, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $EFF9FF, $7BC5FC, $1588F1, $1990FA, $459FFD, $4D9BF7, $37A5E3, $FA8CF, $38B0E0, $1F9CD3, $88DC0, $D85B4, $4192C3, $A60A6, $5191C4, $D2E4F1, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $B3E2FE, $36B4FF, $289EFF, $57FFA, $238DFD, $2087F5, $6EDC, $1192D8, $3DC9ED, $4DCBF7, $44C0ED, $9EC7, $B98BC, $3AA1CB, $2589C0, $1C89C7, $258CC4, $7FB2CD, $F9FAFC, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FEFEFF, $80C8FA, $13A2FD, $3EB4FF, $1E99FF, $7EFF, $308FFF, $1E7BF2, $62D9, $391DD, $3ACAF7, $39C8F9, $4CCEFA, $18B4D8, $9EBD, $C9FC4, $1E9ECE, $2AA4D7, $D93C5, $E7AA7, $3E82A1, $EAF1F4, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $7FBDF5, $309FFB, $C9BFB, $2EA9FF, $1498FF, $128FFF, $2F90FF, $F70ED, $563DA, $994E4, $1FC1F6, $28C4F9, $23C1F0, $21BCE0, $CB0CE, $1FB2D4, $23AFDC, $13A9D8, $96C2, $1D86AF, $337C9D, $5A8FA3, $ECF2F3, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $87C5E7, $74C8, $47FD4, $58DE7, $898F9, $36ACFF, $1F9EFF, $B90FF, $1790FD, $1195F5, $2A0EC, $EAEEA, $34BBEE, $10A5D3, $139DC8, $293BF, $109ECC, $1FA1D2, $17A2D2, $49CC6, $2F95B9, $3698E, $3A738F, $578698, $F9FAFB, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $D3F0FD, $29A9E9, $582CF, $7DCD, $27A7F3, $21ABFE, $51BEFF, $25A2FF, $85FF, $2697FF, $48A9FF, $1697EF, $189FE4, $2CAADD, $B95BB, $C8EAF, $87AE, $1396C7, $1494CF, $895CF, $1096CA, $A7EB0, $5D8E, $135A85, $215F81, $769EAF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FDFEFF, $56DAFE, $56D3FF, $41B1F1, $13A0E1, $3CC0FB, $AA7FB, $23A7FF, $249CFF, $584FF, $298BFF, $388EFE, $1174E0, $B7BCE, $3599CA, $1D8EA6, $158897, $809C, $1B91C1, $148CD0, $84CB, $1A8BC8, $6BA9, $5A94, $115B8E, $1D5C87, $54D74, $D6E0E6, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $A8F0FE, $7D2FF, $46D8FF, $65D0FF, $32B9F0, $50D1FC, $59C9FF, $8EF9, $339AFF, $318BFF, $4690FF, $3C7FF8, $1261D6, $763BC, $1676A5, $7783, $D8180, $798B, $1286B8, $C85CF, $984CD, $1B85C1, $2179B1, $5D95, $95D8F, $C5885, $4570, $5B849D, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $44DAFC, $9CFFD, $B5EB, $23AFE7, $21B2E5, $4ECBF8, $69CBFF, $F81EE, $56A6FF, $9CD5FF, $89B8FF, $3E75E8, $135AC6, $2265B1, $5883, $2E8487, $248880, $87F8D, $318FBD, $1082CC, $1086C7, $238FBD, $1F82AD, $B719A, $C6990, $B6086, $55075, $7496D, $E5ECEF, $FFFFFF
  Data.l $FFFFFF, $E3F3FB, $24BCF6, $19BBF5, $A0D9, $19A6D7, $59BD2, $2DACEB, $3CA4F4, $1D6FDF, $7DBAFF, $C8F9FF, $87B8FA, $2867C7, $1C65B3, $1F6BA1, $C6986, $38888B, $14807E, $7A8C, $F83B0, $1A88C9, $1F94C8, $1293B5, $128DAD, $2288A6, $23809C, $186D8C, $55375, $B4C6F, $9CB6C2, $FFFFFF
  Data.l $FFFFFF, $ABCEF0, $3B9DEE, $48AFF3, $897D0, $26A4CD, $793CA, $399FE9, $3996EE, $1C7AE2, $57A0F9, $78BBFB, $438FD8, $146CAC, $176C9C, $46A89, $127989, $2E868D, $D7984, $14829A, $482AD, $A87BD, $1990BF, $1395B6, $890AF, $986A3, $97A98, $96989, $55175, $3446C, $57849A, $FFFFFF
  Data.l $FFFFFF, $749DE2, $216DD8, $519EEA, $98BC5, $1299BE, $E88C3, $1C82DA, $76CD2, $870DA, $2280E0, $1C80CF, $157EB7, $1D7FA4, $127088, $7080, $1C8492, $258595, $15728D, $1D84A6, $168AB3, $984B3, $7FAD, $188EB3, $1A8FB0, $7FA0, $37294, $46286, $24B73, $3A69, $1A5779, $FFFFFF
  Data.l $FFFFFF, $557CE6, $E60DB, $308ADB, $2A91CB, $1989BE, $2F88D0, $146DD1, $59CB, $59CC, $2370D3, $1973BF, $877A2, $1A8795, $A7583, $56F8B, $147DA2, $1686B4, $A79B2, $2585BD, $E78AF, $1878A9, $2A82AD, $1B78A1, $3182A7, $E7498, $4678B, $85A7E, $2486D, $3D67, $13E64, $FAFBFB
  Data.l $FFFFFF, $4362E3, $245D3, $1A70D0, $3696DA, $158ED0, $982C7, $2389D1, $2381D8, $1977DB, $2C7FE2, $3786DE, $117AC3, $1782B8, $428BBA, $276CA6, $45AA1, $1667B3, $2973BE, $3681C4, $E70AE, $126DA3, $3280A9, $6288, $5668A, $96D8C, $B6684, $95775, $24969, $24467, $24263, $ECF1F3
  Data.l $FFFFFF, $4C5ADE, $932CA, $555C1, $1A80D1, $1889D9, $80C7, $148ECA, $3C99E4, $2283E6, $870E3, $287BED, $4188EF, $1A74DA, $D5BBE, $446DC2, $2355B4, $3EA7, $1153AF, $1160AD, $969A7, $D72A4, $3087A7, $36B87, $6680, $36E85, $D697E, $115D72, $1F5D74, $1A5770, $E4D67, $EFF3F4
  Data.l $FFFFFF, $6B73D6, $1D39BA, $1A58B8, $146EC2, $86EC9, $A71CC, $A71CA, $267BDE, $2B74E9, $1160E6, $135DE7, $1A5DE3, $2261DE, $195DCB, $316AC5, $1558B7, $46A5, $959A8, $969A6, $107FAA, $809F, $248FA4, $A7D8E, $167B8B, $177987, $136E7B, $116573, $35B6C, $145D6F, $306475, $FEFEFE
  Data.l $FFFFFF, $8697D0, $14439F, $2E64AB, $145FAE, $205FC0, $B4CC9, $245D4, $3DD5, $23CD9, $3ADA, $63FD6, $43DCC, $3AC1, $3576D1, $2E83CA, $64AE, $1571AF, $4396C1, $3D9FBD, $2FA1B4, $D94A0, $2797A2, $4808D, $37C88, $2747F, $46B75, $26672, $2626F, $75E6C, $3C7481, $FFFFFF
  Data.l $FFFFFF, $BACDE0, $B6096, $5D93, $1C62AB, $1E4DBB, $223FD3, $142FDD, $112CDC, $142FDA, $1432D5, $203DCF, $193DC3, $B3BB7, $4281CA, $2287BB, $238CB8, $3FA4C2, $47AEC0, $2BA5B3, $21A0A8, $8C91, $E8892, $158190, $7481, $96D78, $26873, $6470, $606E, $5969, $6A949E, $FFFFFF
  Data.l $FFFFFF, $F8FBFC, $42A3BF, $2890B7, $3779C1, $638BB, $B26CC, $D24D4, $1125D3, $F26CF, $B26C9, $1431C5, $1035BC, $234B4, $4A7DC3, $227FAA, $3899B8, $2CA1B8, $28A3B4, $1C9DA9, $20939D, $C7F89, $1C7988, $187084, $6072, $76171, $B6171, $A5D6E, $9596B, $85265, $B0C4CA, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $71C7D7, $3EADD0, $1871BE, $635BD, $D26C4, $26C1, $827C3, $422BF, $18BA, $621B9, $827B7, $2CB2, $3D6BB9, $196E9A, $4395B2, $6889F, $8E9E, $1794A2, $238695, $6476, $166177, $9576F, $12586D, $2566A, $145A6E, $14576B, $145368, $255B6F, $F8F9FA, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $D9EFF5, $2BA5C9, $D77B3, $434A0, $102DAC, $25AB, $1DA9, $218A8, $B19A9, $61DA8, $25A9, $634AC, $1548A3, $115692, $4A8AA9, $208497, $7D8C, $E8593, $247D8A, $115E69, $115461, $95463, $1A5B6A, $135565, $54D5F, $1A5364, $194F60, $89A4AD, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $84C3D8, $318BBB, $854A5, $7339F, $5279F, $209C, $91D9C, $101B9B, $111A9B, $D219B, $142E9D, $113993, $4681, $287291, $388C9C, $77C88, $57786, $116E7B, $3555F, $25059, $195A65, $D525F, $105260, $6495A, $64758, $205868, $F3F6F6, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $F1F7FA, $4A9BBF, $3081B7, $C4FA0, $32F92, $6258F, $15258F, $161F8C, $181F8B, $1B228A, $1F258A, $C3580, $24D77, $15687E, $408B94, $2B838C, $6707B, $5D68, $4F57, $84F57, $A4F57, $2454F, $E4E59, $2414F, $34354, $B4C7CD, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $D0E4EC, $267FA9, $17629C, $94A8F, $33985, $A2E80, $7217A, $11257A, $162679, $1C2476, $113C70, $195B6D, $125D65, $176769, $297377, $1E6B71, $21666C, $145357, $2484B, $474B, $134E52, $E4D53, $54751, $83A3AB, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $BAD4DE, $C6088, $2D6F98, $54E80, $23E76, $326D, $22C69, $E336A, $82A63, $2E516C, $D4C50, $E4B49, $17524F, $55052, $1C5C61, $265D63, $195051, $174C4E, $B484D, $7474B, $C474D, $71969B, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $CADDE3, $3E7A92, $A5777, $94C6F, $53D63, $204A6B, $103D5F, $83959, $29505F, $204B4B, $3532, $3B3B, $4149, $3F4E, $23E4C, $63D46, $43B43, $23B45, $74048, $91A9AC, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $F0F4F5, $6C929F, $1D4D62, $124158, $183E55, $9354C, $8354A, $63746, $234E53, $C3A41, $83844, $174659, $15465F, $F415B, $2354C, $3044, $35626E, $CCD8DA, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $D8DFE2, $6A8390, $D374A, $C3244, $B3444, $23847, $1B4856, $53447, $F3D53, $154764, $D4569, $255172, $5A7A8F, $B2C1C9, $FEFEFE, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $F7F8F9, $BFCACB, $829B9F, $648389, $657F88, $4C697C, $5E7C91, $7D98AD, $A8BCCB, $E9EEF2, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
EndDataSection 

Publié : sam. 13/oct./2007 20:25
par Frenchy Pilou
Merci! 8)
Ah là c'est trop beau! j'ai plus qu'à faire des sprites un peu plus soignés
Et peut-on pousser le bouchon,jusqu'à avoir un sprite d'une taille de 256*256
pour pouvoir mettre des petits truc comme çà? ;)
en fait un sprite réglable suivant l'image que l'on veut placer dans le panier du charmeur de serpents ;)
Image
Je te laisse la surprise de celui-ci (un peu petit) mais cela sera mieux quand il aura des sprites plus grands :lol:
(il est sur fond blanc pour la transparence)

Code : Tout sélectionner

DataSection
Sprite:
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $96B66E, $AAC28E, $AAC28E, $929292, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $EAEAE2, $76966A, $668E36, $8AAE5E, $5A7A26, $4A720E, $262626, $2E2A06, $423616, $E2DEC2, $E2DEC2, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $9EAA8A, $52622A, $4A5E1E, $3A6606, $223A06, $528A06, $4A720E, $467206, $6E561E, $2E2A06, $463A06, $7A6206, $8E763E, $7E6A16, $EAEAE2, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $8A9A7A, $5A5E46, $121A02, $223A06, $223A06, $528A06, $467206, $467206, $223A06, $121A02, $423616, $7A6206, $624E06, $8E7646, $AA9E7E, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $AED2A6, $AED2A6, $2E9E42, $1E7A3A, $323636, $323636, $121A02, $122606, $3A6606, $3A6606, $3A6606, $2E5206, $A0E02, $A0E0E, $7A6206, $7A6206, $7A6206, $423616, $6E561E, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $AED2A6, $62BE6A, $16A22E, $E8A22, $127606, $223A06, $20202, $20202, $121A02, $223A06, $467206, $3A6606, $223A06, $121A02, $20202, $7A6206, $6E561E, $624E06, $624E06, $6A2E06, $A2464E, $A2464E, $A2929A, $BABEBE, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $B2AEAE, $66E2E, $E8A22, $68616, $127606, $127606, $A0E02, $20202, $20202, $122606, $3A6606, $528A06, $2E5206, $A0E02, $20202, $624E06, $463A06, $624E06, $921E06, $860606, $B20A0A, $B2161E, $A2464E, $626262, $A2929A, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $B2AEAE, $B2AEAE, $A0E0E, $E1A16, $66616, $67616, $127606, $127606, $E4E0A, $20202, $20202, $A0E02, $467206, $528A06, $2E5206, $121A02, $20202, $624E06, $624E06, $2E2A06, $624E06, $860606, $860606, $B2161E, $8E0E1A, $420A0A, $AA5E92, $726E6E, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $BABEBE, $4A726E, $563E4A, $E1A16, $20202, $20202, $66616, $68616, $E8A06, $127606, $20202, $20202, $20202, $528A06, $528A06, $467206, $20202, $20202, $463A06, $7A6206, $2E2A06, $860606, $420A0A, $860606, $B20A0A, $420A0A, $3E0A22, $262626, $AA5E92, $EEC6E2
  Data.l $FFFFFF, $FFFFFF, $82C296, $67266, $A463A, $E1A16, $20202, $20202, $20202, $67616, $E8A22, $E8A06, $127606, $20202, $20202, $528A06, $5AA202, $528A06, $A0E02, $20202, $463A06, $624E06, $463A06, $20202, $860606, $20202, $860606, $420A0A, $4E0A32, $5E224A, $823A6A, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $9AB6BA, $A968A, $A6256, $E362E, $E1A16, $A0E0E, $20202, $A0E02, $E8A22, $69616, $1EA606, $20202, $20202, $223A06, $66BE02, $66BE02, $121A02, $20202, $7A6206, $CEBA02, $463A06, $20202, $860606, $1E0602, $6E062A, $4E0A32, $5E063E, $821A62, $821A62, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $A968A, $67266, $A564A, $A463A, $12221E, $20202, $20202, $68616, $AB612, $E9E06, $20202, $20202, $A0E02, $66BE02, $7ADA02, $A0E02, $20202, $463A06, $CEBA02, $624E06, $20202, $860606, $420A0A, $220616, $220616, $5E063E, $9E3A7E, $DEAECE, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $E362E, $67266, $A6256, $A6256, $A6256, $A6256, $E1A16, $20202, $20202, $6B22E, $6D616, $127606, $20202, $20202, $62F602, $8AF602, $223A06, $20202, $121A02, $CEBA02, $624E06, $20202, $860606, $860606, $20202, $4E0A32, $821A62, $C272A2, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $A2929A, $323636, $20202, $20202, $A463A, $67266, $67266, $A463A, $20202, $20202, $67616, $2FA4E, $6EE16, $20202, $20202, $62F602, $8AF602, $467206, $20202, $20202, $CEBA02, $E4E0A, $6421A, $1E0602, $860606, $20202, $5E063E, $C272A2, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $9AB6BA, $668296, $2A5682, $26466E, $60E1E, $20202, $A0E0E, $A968A, $A564A, $A0E0E, $20202, $A0E02, $2FA4E, $E4E0A, $67616, $66E2E, $5EDA02, $8AF602, $7ADA02, $20202, $20202, $CEBA02, $6DA32, $E362E, $A2E4A, $860606, $20202, $72064E, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $A6CEE6, $5EA2DE, $166EAA, $E4E8A, $E4E8A, $A2E4A, $20202, $67266, $6A69A, $A463A, $20202, $20202, $6DA32, $6421A, $2C6BE, $60E1E, $12620A, $8AF602, $8AF602, $20202, $20202, $CEBA02, $6EE16, $A463A, $A2E66, $860606, $20202, $4E0A32, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $A6CEE6, $3682E2, $1A66CE, $E56A2, $E4E8A, $A2E66, $A1636, $A6256, $2B6AE, $A968A, $20202, $20202, $16A22E, $A867A, $1A66CE, $A4E6A, $E4E0A, $8AF602, $8AF602, $20202, $20202, $CEBA02, $121A02, $122606, $A0E02, $860606, $20202, $3E0A22, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $A6CEE6, $5EA2DE, $4276BA, $2A5682, $A2E66, $6164E, $61E66, $A2A22, $6A69A, $A968A, $20202, $20202, $2FE66, $12620A, $A968A, $66616, $E4E0A, $8AF602, $8AF602, $20202, $20202, $CEBA02, $CEBA02, $20202, $20202, $860606, $20202, $3E0A22, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $466692, $26466E, $2A3A52, $60E1E, $61E66, $20202, $A968A, $2CECE, $20202, $20202, $2FE66, $2F22A, $E4E0A, $20202, $121A02, $8AF602, $8AF602, $20202, $20202, $CEBA02, $CEBA02, $20202, $20202, $860606, $420A0A, $56026A, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $668296, $60E1E, $6164E, $20202, $696AE, $2F2EA, $20202, $20202, $2FE66, $2FA4E, $20202, $20202, $A3A06, $8AF602, $8AF602, $20202, $20202, $CEBA02, $CEBA02, $20202, $20202, $AA0666, $D60696, $220616, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $61E66, $2DAEE, $20202, $6421A, $66616, $20202, $2FE66, $2FA4E, $121A02, $20202, $122606, $8AF602, $8AF602, $463A06, $20202, $20202, $D60A02, $D60A02, $20202, $6E062A, $D60696, $4E4E4E, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $20202, $2C6BE, $A2A22, $20202, $2E262, $12620A, $20202, $127606, $5EDA02, $5AA202, $20202, $20202, $DAD202, $DAD202, $20202, $20202, $D60A02, $D60A02, $20202, $20202, $D60696, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $60E1E, $67682, $67682, $20202, $2E262, $AB612, $20202, $A3A06, $5EDA02, $7ADA02, $20202, $20202, $DAD202, $DAD202, $20202, $20202, $D60A02, $D60A02, $20202, $20202, $D60696, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $67682, $2C6BE, $20202, $2E262, $2E262, $20202, $20202, $5EDA02, $7ADA02, $20202, $20202, $DAD202, $DAD202, $121A02, $20202, $921E06, $D60A02, $420A0A, $20202, $C272A2, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $66A69E, $2F2EA, $20202, $2DA4E, $2E262, $20202, $20202, $5EDA02, $5EDA02, $20202, $20202, $CEBA02, $DAD202, $8A7602, $20202, $1E0602, $D60A02, $860606, $20202, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $262626, $20202, $66E2E, $2E262, $20202, $20202, $2EE202, $5EDA02, $121A02, $20202, $624E06, $DAD202, $CEBA02, $20202, $20202, $D60A02, $D60A02, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $20202, $6421A, $2E262, $122606, $20202, $2ED606, $5EDA02, $2E5206, $20202, $A0E02, $DAD202, $DAD202, $20202, $20202, $DA2A02, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $76966A, $2E262, $127606, $20202, $12620A, $5EDA02, $66BE02, $20202, $20202, $DAD202, $DAD202, $20202, $20202, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $2DA4E, $20202, $20202, $5EDA02, $7ADA02, $20202, $20202, $DAD202, $DAD202, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
  Data.l $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF
EndDataSection

Publié : sam. 13/oct./2007 21:01
par comtois
vraiment sympa ton code zorg :)

avec la tête de serpent du pilou ça donne ça
Image

Publié : sam. 13/oct./2007 21:18
par comtois
et voila le code avec la tête

[EDIT]
J'ai raccourci un peu le code.

Code : Tout sélectionner

;*******************************
;                              ;
;        Serpent-boule         ;
;   Ecrit en PureBasic 4.02    ;
;                              ;
;   par Zorg, le 12/10/2007    ;
;                              ;
;*******************************

If InitSprite()=0 Or InitKeyboard()=0
  MessageRequester("Erreur","Problème avec DirectX",0)
  End
EndIf

;Ouvre un nouvel écran et crée les sprite
OpenScreen(320,240,32,"Boule")
For i=1 To 6
  CreateSprite(i,320,240)
Next i

;Restore le sprite de la boule
CreateSprite(0,32,31)
StartDrawing(SpriteOutput(0))
Restore Sprite
For y_boule=0 To 30
  For x_boule = 0 To 31
    Read coul
    Plot(x_boule,y_boule,coul)
  Next x_boule
Next y_boule
StopDrawing()
TransparentSpriteColor(0,RGB(0,255,0))

;Restore le sprite de la tête 1
CreateSprite(7,41,38)
StartDrawing(SpriteOutput(7))
Restore Serpent1
For y_boule=0 To 37
  For x_boule = 0 To 40
    Read coul
    Plot(x_boule,y_boule,coul)
  Next x_boule
Next y_boule
StopDrawing()
TransparentSpriteColor(7,0)

;Restore le sprite de la tête 2
CreateSprite(8,41,38)
StartDrawing(SpriteOutput(8))
Restore Serpent1
For y_boule=0 To 37
  For x_boule = 0 To 40
    Read coul
    Plot(40-x_boule,y_boule,coul)
  Next x_boule
Next y_boule
StopDrawing()
TransparentSpriteColor(8,0)

x.w=150
y.w=140
vitesse_x.w=2
vitesse_y.w=-2
min_x.w=0
max_x.w=320-SpriteWidth(0)
min_y.w=0
max_y.w=240-SpriteHeight(0)
image.w=1

angle_1.f=0
angle_2.f=#PI

Repeat
    ;Calcul des coordonnées - Formule qui tue pour avoir un déplacement pas trop répétitif
    angle_1=angle_1+0.01
    angle_2=angle_2-0.013
    x=120*(Sin(angle_1)*Cos(angle_2*2)*Sin(angle_1*2+angle_2))+150
    y=30*(Cos(angle_2)-Sin(angle_1*0.5)+Sin(angle_2/2)+Sin(angle_2+Cos(angle_2)*3))+110

    ;Permutation des images de fond et affichage du sprite
    image + 1
    If image>6
      image=1
    EndIf
    UseBuffer(image)
    DisplayTransparentSprite(0,x,y)
    UseBuffer(#PB_Default)
    DisplaySprite(image,0,0)
    If Cos(angle_2)>0
      DisplayTransparentSprite(7,x,y)
    Else
      DisplayTransparentSprite(8,x,y)
    EndIf
    FlipBuffers()
   
    ExamineKeyboard()
Until KeyboardPushed(#PB_Key_All)

UseBuffer(#PB_Default)
;Libération de la mémoire
FreeSprite(0)
FreeSprite(1)
FreeSprite(2)
FreeSprite(3)
FreeSprite(4)
FreeSprite(5)
FreeSprite(6)
End

DataSection
Sprite:
  Data.l $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $682728, $712C2E, $712C2E, $712C2E, $712C2E, $712C2E, $712C2E, $6A2627, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00
  Data.l $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $612222, $662624, $53413E, $584343, $5B4344, $5B4344, $5C4444, $5C4746, $584949, $54494B, $534446, $642A2C, $642424, $612020, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00
  Data.l $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $621F1F, $6C2424, $5E3E3E, $7C302C, $8E472E, $713330, $6F3031, $6F3031, $713331, $834B33, $594B49, $54494B, $564749, $594446, $5E4243, $71282A, $6C2424, $612020, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00
  Data.l $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $642020, $722424, $7B2828, $7E2F2A, $924428, $90462A, $614443, $594446, $564749, $564B4B, $594B49, $703131, $6F2C2E, $6D282A, $6D282A, $6A2627, $642424, $523D3E, $6D282A, $632222, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00
  Data.l $FF00, $FF00, $FF00, $FF00, $FF00, $642020, $712424, $712424, $802C24, $B1472C, $843833, $803B37, $7C3B3B, $713B3C, $544F50, $505050, $524E4F, $564749, $66282A, $1F0C0C, $5F1D1D, $1D0707, $100505, $100C0C, $4B3B3C, $6F2627, $642020, $FF00, $FF00, $FF00, $FF00, $FF00
  Data.l $FF00, $FF00, $FF00, $FF00, $662422, $712828, $712624, $371611, $AE4E30, $BD6142, $AA9291, $A89C9E, $A89C9E, $A1969A, $706D6E, $646364, $615B5B, $61504E, $584341, $190C0A, $110505, $4F1919, $50202, $20202, $F0606, $662322, $772624, $682220, $FF00, $FF00, $FF00, $FF00
  Data.l $FF00, $FF00, $FF00, $6D2622, $87432C, $614343, $782F2C, $AC4E31, $A48985, $B4A7A5, $FFFAFD, $FFFFFF, $FFFFFF, $FFFFFF, $FFFCFF, $F4EFF4, $A29392, $B15637, $AC472A, $662420, $D0404, $50202, $30101, $0, $30101, $160605, $933820, $772624, $642020, $FF00, $FF00, $FF00
  Data.l $FF00, $FF00, $6E2723, $A74C31, $664E47, $7A3330, $6F4C44, $B96143, $B4A7A5, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $B79C94, $C25633, $A24927, $712723, $120505, $20101, $0, $0, $0, $50201, $1A0705, $702423, $722424, $621F1F, $FF00, $FF00
  Data.l $FF00, $FF00, $A85236, $9C8380, $6F544F, $AE4F30, $B45B3D, $AC9A96, $FFFAFD, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFF4F6, $E36A49, $C4522C, $B74927, $7A2A24, $441F1F, $50303, $0, $30101, $50202, $30101, $100504, $6F2422, $7C2727, $6E2323, $FF00, $FF00
  Data.l $FF00, $9D462C, $9D8683, $9C8886, $B25636, $A25633, $A18E86, $AEA8AA, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFAFA, $BE9D94, $CA5B36, $C35027, $9F4927, $782C27, $492222, $70404, $0, $C0403, $541D1A, $C0403, $140604, $9E3D22, $802A27, $722424, $621F1F, $FF00
  Data.l $FF00, $A55338, $9E8E88, $775F58, $BA522F, $A55936, $9F908F, $ADACAD, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFAFA, $EC7154, $E35B36, $C8522C, $BD4E27, $944627, $592824, $421F1F, $50303, $0, $100504, $71351D, $100504, $170704, $A44122, $822F27, $7B2727, $6A2222, $FF00
  Data.l $FF00, $8E8282, $9F8F8E, $B95938, $BE5028, $BD5936, $A59391, $B4B1B4, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $BFA29E, $CB5B36, $CA5027, $BF4E27, $9D4727, $7A2E27, $4E2423, $D0505, $20101, $30101, $160605, $61201D, $F0504, $170704, $A84322, $9A4424, $772724, $642020, $FF00
  Data.l $FF00, $908889, $A2908F, $BD5936, $A84E27, $B95636, $A89694, $F6F1F6, $FFFFFF, $FFFFFF, $FFFFFF, $FFFFFF, $FFF0EE, $E76644, $C4522C, $BD4E27, $9E4727, $7D2E27, $562624, $421F1F, $50303, $0, $50202, $561B1B, $5B1D1D, $A0303, $140705, $9F4324, $A24427, $2A100D, $621F1F, $FF00
  Data.l $B15436, $A49493, $A79391, $BC5936, $A14C27, $863E36, $9F9191, $A7A4A7, $B0ADB0, $FEFAFE, $FFFFFF, $FFF4F6, $F17152, $E3542F, $AA5027, $9D4B27, $7E2F27, $6F2624, $462020, $C0505, $20101, $0, $30101, $A0303, $A0303, $50303, $110D0D, $544443, $53423E, $1D0D0C, $642020, $6E2323
  Data.l $CD6342, $F9E3E3, $AE9D9A, $BC5936, $A14E27, $9A5233, $968584, $918E90, $6E6D6E, $9F9A9C, $AE9F9F, $B4938F, $DD5B36, $AC5027, $9E4E27, $904627, $592824, $462020, $D0505, $20101, $0, $0, $0, $0, $0, $40404, $3C3B3C, $4F4446, $642A2C, $230D0D, $6E2323, $7A2627
  Data.l $CA6342, $F6E1DE, $AD9691, $B45331, $944724, $90492C, $7B3C38, $61595B, $848284, $635C5B, $AC593E, $B15637, $9D502F, $9A4B28, $904424, $562823, $43201F, $C0505, $40303, $40404, $20202, $0, $30101, $50202, $70302, $100705, $161211, $463E3E, $642424, $6F2423, $782724, $7B2727
  Data.l $A1593B, $A59089, $A16142, $8F4627, $2F120C, $6E2A27, $594747, $544F50, $595052, $5B4E4E, $5F4C49, $624B46, $624643, $782E28, $682420, $120605, $50303, $20101, $40404, $313031, $60505, $A0303, $110505, $521B1B, $1A0D0C, $8E3E24, $4E3E3C, $110D0C, $170707, $6F2624, $8E422A, $7B2A28
  Data.l $803633, $9C807C, $934F31, $6D2620, $1D0A07, $622728, $564E4F, $564E4F, $702F30, $712F2F, $5B4344, $712F2F, $722A2C, $6D2424, $140505, $30101, $0, $0, $50303, $F0606, $170707, $5F1D1D, $611F1D, $24100D, $59433E, $614942, $7B3E24, $F0605, $140505, $6C2727, $614343, $772C2C
  Data.l $712827, $A4442E, $712A24, $220C0A, $561B1B, $1D1111, $807277, $5F4B4C, $722A2C, $782728, $77282A, $712627, $6E2323, $5F1D1D, $A0303, $0, $30101, $A0303, $170605, $6A231F, $772A27, $722E2C, $351610, $A24323, $A84928, $804224, $190D06, $160605, $632222, $702E2E, $5B4343, $6C2727
  Data.l $FF00, $6C2320, $2C0D0D, $5F1D1D, $110505, $F0606, $612627, $6D282A, $712627, $7A2627, $722424, $642020, $140505, $A0303, $50202, $D0403, $1D0A05, $6C2623, $7B2F2C, $AE472C, $AE4F33, $917B77, $AA4C2F, $9C4724, $8F4323, $200D06, $160605, $642020, $71282A, $5F4443, $80422A, $FF00
  Data.l $FF00, $662220, $712624, $662220, $D0404, $30101, $A0303, $140505, $621F1F, $6E2323, $6E2323, $200A0A, $110505, $D0505, $110A0A, $622624, $9D4328, $A74E33, $967C78, $AE4F33, $6C4C46, $664F4B, $92492F, $802F27, $712623, $230D0A, $682320, $782724, $782E2C, $614343, $682724, $FF00
  Data.l $FF00, $63221F, $8E3E24, $712723, $160605, $30101, $0, $30101, $A0303, $140505, $5F1D1D, $5F1D1D, $5B1D1D, $5C2020, $4F3E3E, $5E4743, $664E44, $665049, $644E4B, $7C302F, $712A2A, $6C2727, $702724, $7A2824, $772624, $772724, $904224, $813027, $904328, $772C28, $612020, $FF00
  Data.l $FF00, $FF00, $712823, $8F4224, $6A2420, $110505, $30101, $0, $0, $30101, $A0303, $D0404, $D0404, $140606, $612423, $804227, $804327, $814328, $712C2A, $712627, $6A2222, $220C0A, $2C110C, $894124, $7E2C27, $812F27, $B24727, $9D4927, $944627, $712723, $FF00, $FF00
  Data.l $FF00, $FF00, $64231F, $8F4224, $7E2E24, $6C2420, $140605, $70404, $A0404, $70303, $30101, $0, $0, $30101, $C0403, $110604, $120704, $1D0C06, $6F2423, $712424, $2E100D, $6D2620, $884223, $914424, $802F27, $984427, $B14627, $833027, $8F4224, $64231F, $FF00, $FF00
  Data.l $FF00, $FF00, $FF00, $6C2420, $914324, $A74324, $582623, $4C2322, $4F2422, $5E201F, $100505, $70404, $50303, $20101, $30101, $A0303, $D0404, $1A0706, $712623, $7D2E24, $8E4324, $904324, $803027, $944627, $803328, $92472A, $803028, $7B2824, $682320, $FF00, $FF00, $FF00
  Data.l $FF00, $FF00, $FF00, $FF00, $6E2620, $8F4327, $772F2C, $712E2C, $85422A, $5B2C28, $532724, $4F2422, $43201F, $D0505, $120605, $63231F, $6D2623, $6F2824, $8E4227, $944627, $984927, $803027, $7F2E27, $924327, $90462A, $664641, $884228, $682320, $FF00, $FF00, $FF00, $FF00
  Data.l $FF00, $FF00, $FF00, $FF00, $FF00, $642423, $594343, $5B4646, $703331, $5E4744, $9E492F, $89462C, $5F2E27, $582723, $5E2A23, $8F4427, $90492E, $684742, $80312A, $823327, $9A4B27, $944627, $7F2E27, $7F2E27, $7D2E28, $722A28, $662422, $FF00, $FF00, $FF00, $FF00, $FF00
  Data.l $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $612627, $544344, $564749, $564C4C, $5B504C, $62504B, $AC5236, $B15336, $B15436, $9A5435, $715244, $B14E2E, $9F4B28, $9E4B27, $9D4C27, $964727, $802F27, $904127, $782724, $642020, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00
  Data.l $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $5F2323, $642A2C, $534446, $54494B, $5E5050, $908180, $988684, $968684, $968280, $B25333, $BC5028, $BC4E27, $B54B27, $984627, $802F27, $8E4124, $712723, $62201F, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00
  Data.l $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $5F2323, $632627, $682E2F, $5C4E4F, $615354, $615354, $64504F, $964C2F, $9E4927, $9C4627, $802E24, $712623, $6D2422, $63221F, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00
  Data.l $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $6A2627, $712C2E, $712C2E, $772C2C, $7C2C28, $7E2C27, $7D2A27, $6F2423, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00, $FF00

serpent1:
Data.l $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $40D15, $A283C, $42039, $F1D27, $131E27, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0
  Data.l $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $101F28, $325169, $4188BD, $54A1DE, $1E6FB2, $3F94CA, $277BB7, $2B80C2, $55A6E7, $5EB0EA, $15496D, $2A5F83, $21455F, $17415F, $153E5E, $711, $6131C, $C1922, $111D24, $913, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0
  Data.l $0, $0, $0, $0, $0, $0, $0, $0, $0, $2F4654, $7BB9DC, $55A0CB, $4688B5, $4286B2, $4085B5, $3D87B8, $3B8EC3, $3A8CC3, $3888C3, $408FD0, $3682B7, $33A62, $1C547F, $358DCF, $2988CF, $2884C8, $217ABE, $247DBE, $4AA2DA, $5BAFE2, $1F6BA1, $1E6CA0, $4F98C6, $25638C, $407, $0, $0, $0, $0, $0, $0
  Data.l $0, $0, $0, $0, $0, $0, $0, $2A414F, $4488B4, $5B9FCA, $65A0C8, $31739D, $347295, $3F7FA4, $30749F, $367DA8, $3B85B2, $3881B1, $488DC0, $1D619D, $2774AB, $367FAF, $3883B8, $1D70B3, $3489C5, $2E80BB, $3D8AC1, $448EC3, $3F93C9, $D5F99, $3383B7, $2977A8, $3C7FAD, $327AAA, $287BAE, $185071, $0, $0, $0, $0, $0
  Data.l $0, $0, $0, $0, $0, $20202, $4F81A3, $63A3CC, $4383A8, $4887AD, $4B8AB2, $3B7EA7, $3E7C9E, $3E80A5, $4B8FB8, $4088B6, $3F7EAA, $4686B2, $4186B5, $14598C, $2A6A99, $2F74AC, $307AB3, $2374A6, $2070A9, $2F7CAF, $216899, $165885, $2D7CB0, $2E7FB2, $2F7BAF, $5DA1D2, $3983B8, $1C699E, $2575A8, $146DA2, $1F5173, $0, $0, $0, $0
  Data.l $0, $0, $0, $0, $0, $398EC2, $3B85B7, $4281AD, $5591B0, $5190B2, $5092BA, $206894, $35749C, $4887B2, $3F84B4, $216A9F, $3571AB, $2E6FA8, $256EA6, $2F7CB3, $337DB1, $387DB8, $3077AF, $408FB4, $3280B3, $3381B3, $317FB1, $1C689C, $1D6593, $165A8B, $14179, $3175AF, $448EC4, $2370A6, $1D6C9D, $2474A0, $2577B1, $1B394C, $0, $0, $0
  Data.l $0, $0, $0, $0, $4E9FC1, $438FB3, $6AA8C7, $5693B7, $518FB7, $4D8DB9, $3D83B2, $3C84B7, $3083C0, $2C7FBC, $2E81BE, $297CBA, $2681B7, $2682B8, $2682B7, $2883B9, $2474A9, $2171AA, $317CAF, $276A8F, $185577, $276B90, $165C8B, $1C699B, $145B8B, $2F78A8, $266EA3, $2B71AA, $2B77AE, $17649B, $3B8AB8, $2273A0, $156094, $328BC3, $112531, $0, $0
  Data.l $0, $0, $0, $0, $99CADE, $6DA4BF, $568FB2, $4F8AB2, $4586B6, $3D81B5, $3178B1, $2974AF, $1B6DAA, $226FA9, $B4E83, $13588A, $216A98, $206293, $2E6A9B, $235A8D, $136292, $2283BC, $1371B1, $2A77B4, $185B85, $A4B76, $216690, $286E97, $1E6795, $186091, $256CA2, $2167A1, $307DB5, $3D75, $115788, $E5885, $19689B, $2171A6, $317BAC, $0, $0
  Data.l $0, $0, $0, $0, $75B3DA, $4B8FBC, $327BB1, $2A74AF, $3376AF, $317DB5, $226EAA, $1D64A3, $3881B4, $2971A3, $3075A3, $397AA6, $2978A7, $2C76A5, $125181, $C4574, $166E9B, $268CC1, $1173B8, $146BB5, $1971B4, $2075B4, $2274AD, $2270A7, $2070A0, $176395, $1A6298, $266BA3, $1E6AA1, $E578D, $13F73, $A4676, $94A7E, $1C6C9F, $2880B8, $0, $0
  Data.l $0, $0, $0, $426A84, $5AA0D1, $428BBF, $2878B4, $2678B5, $3181BA, $2781BA, $1B74AD, $3581BA, $3884B9, $3480B7, $2F7BB2, $2774AD, $1E75B0, $2073AC, $2172A7, $2877AA, $1D6DA5, $176AA4, $196CA6, $1C71AC, $327DB1, $3C82B2, $3376A5, $2F709C, $2875A4, $196696, $2771A1, $246D9E, $2F7DAE, $186599, $115E93, $19669A, $175C92, $A578B, $136BA1, $295169, $0
  Data.l $0, $0, $142A37, $509ACE, $23F6F, $104D7F, $145384, $27689A, $246DA6, $2972AA, $347CB2, $1F68A0, $2D80BE, $287BB8, $1B6DAB, $1C6EAD, $1A72B0, $1B70AC, $1E70A9, $3687BC, $44188, $2874B3, $2775AD, $3181B2, $307AAF, $327AAC, $397DAC, $4383AD, $3F7DA6, $2A6F99, $2B79A1, $2F83A8, $2C7BAD, $3987B8, $408DBE, $2A79AB, $1D699D, $1F6C9F, $2E7CAF, $1C6597, $0
  Data.l $0, $0, $529BCD, $14578C, $84279, $B4173, $28608C, $B3D69, $E4379, $20538B, $1A4E87, $2F73A9, $2782C7, $267DC1, $2077BB, $1B72B7, $1D78B7, $1D76B4, $2077B3, $1F73AC, $1D70AB, $388DC5, $2B7FB9, $2377AF, $146AAF, $196DAF, $2D7EBA, $3A87C0, $3E92BD, $13628F, $105E8C, $2D83AC, $4290BF, $3A88B9, $3F8DBD, $408DBE, $3285B6, $216B9F, $256BA0, $237EB8, $0
  Data.l $0, $22638D, $145884, $2758, $115DA4, $E5A99, $C538E, $125A92, $105990, $53F76, $84579, $3164, $95292, $1D7BC2, $1D7EC9, $2C8BD4, $278DD3, $2482C4, $1F73B0, $3D78, $65181, $3187B6, $277EB9, $1B76B9, $1A71AC, $1D70A7, $2679AE, $2276AE, $D6598, $3B71, $35082, $2478AC, $3D89BA, $4B96C5, $3D8ABB, $3E8ABA, $1E72A6, $1E699F, $2B71A5, $2D85BA, $0
  Data.l $3070A, $228ED6, $2339, $C2A, $1361A2, $B5E9A, $F68A1, $4681, $2407A, $2427E, $44584, $34280, $295E, $3D7F, $3539C, $7478C, $73F7E, $306C, $2458, $2E5C, $1346A, $A3F71, $13469, $54587, $44277, $84D85, $85391, $377C, $2968, $64589, $116396, $14179, $19659A, $3383B2, $165E91, $418FBE, $1D6EA5, $2576AB, $216E9F, $2E80B2, $0
  Data.l $D3657, $1067B3, $D1F, $14, $195E98, $217CB3, $1972AE, $1A6AA9, $1B69AE, $105BA2, $94F97, $1438C, $3A79, $346E, $386C, $E4676, $D507D, $A4E80, $3457D, $4582, $33E7E, $53C71, $33668, $54078, $74983, $64285, $317B, $1F63, $D63A7, $F65B5, $11609D, $235B, $2E67, $34D86, $1F56, $2073A9, $C578F, $2272A7, $2D79AA, $2F82B4, $0
  Data.l $13872, $A5FAA, $A23, $14, $2875A5, $44A1D0, $338CC9, $2E82C6, $1C7AC2, $237EC0, $1065A5, $F619F, $95396, $94E84, $54676, $33C73, $A5A97, $4789, $438C, $24B97, $498A, $95390, $85494, $4690, $1469AB, $509C, $286A, $1B, $21, $2571BA, $1377A, $245F, $2C68, $2660, $14883, $24884, $3B75, $44D85, $2B79AB, $347DAA, $0
  Data.l $3C8B, $1764AE, $43972, $72E, $4094C3, $4396CC, $3A8DCE, $3081C3, $368CBC, $1F7AB3, $1A77B7, $1670B5, $1A6FAC, $3389BF, $F619B, $1060A4, $1169A8, $237DB9, $1F7DBA, $1C7DBF, $1A68B0, $64F95, $3A85, $24798, $551A0, $307A, $E3F, $416, $E, $122D58, $206CAD, $2F73, $3474, $2E6D, $3B7B, $3777, $13772, $74D85, $2472A5, $2D6588, $0
  Data.l $C468C, $2168A9, $4698, $51C48, $4997CC, $468DD0, $3B88CC, $4D9AD0, $4E9AC9, $1973B0, $1D73BC, $1666B3, $2784BE, $217DBC, $1F78BD, $227CC3, $2282C1, $3189C1, $3289C6, $1D78C2, $2078C4, $1B73B9, $2E84BF, $4094C7, $166CB6, $1B51, $E31, $3B597E, $520, $B27, $1D7DBD, $54C91, $22B6D, $3A7C, $3679, $367A, $53F7A, $84C84, $145E95, $D2939, $0
  Data.l $124074, $C4376, $2B6A, $1B5591, $428DC1, $3882C4, $3180C4, $4391CB, $2173B6, $1876BB, $1573BE, $1C75C2, $328DC9, $1D76B9, $2279C1, $2278C3, $1F7DBF, $3389C5, $3085C7, $217CCA, $297EC6, $388DCC, $5DAADD, $3687BA, $2B78B1, $21D44, $61C, $820, $B28, $2184A, $F65A9, $1462A0, $3778, $2060, $3D7E, $4081, $1468A1, $9558B, $23C73, $0, $0
  Data.l $62543, $336A, $43E74, $206DA8, $347FB5, $2D76BB, $2C7BC0, $2577B6, $3581C5, $2580C2, $207DBD, $2179BB, $1F77BC, $1A72BA, $1B70BD, $176CBD, $1470B8, $277BBE, $3286CD, $1D77CA, $2C7DC2, $4494CE, $509CCF, $3784B4, $408EC1, $193C, $16, $623, $31F, $A4384, $65CA7, $2272A8, $2575B3, $2068A6, $3173, $2374B3, $1967A1, $1D6BA3, $A406C, $0, $0
  Data.l $0, $3475, $3577AD, $2979AC, $2B7BB2, $2D76B5, $256EB1, $2772B3, $3983C4, $287DBD, $1E74B3, $1A6DAA, $1F76B6, $287EC4, $257BC5, $247AC4, $2580C1, $398AC6, $3B8ACE, $3486D8, $3485C2, $438EC8, $488FC4, $327FB2, $398ABD, $31B42, $18, $11D46, $32E66, $356A9, $1E5EA6, $3181B6, $3787C5, $3688C6, $73574, $2E7AB5, $2269A1, $2671AD, $C18, $0, $0
  Data.l $0, $53E7C, $3689C0, $3277AA, $1A72AB, $2B73A6, $A4786, $11549D, $A5EA6, $C5DA6, $1568AF, $1B6FB4, $1A6FA9, $1F74BC, $247CC6, $1B77BA, $1F76B2, $4F98CB, $6DA8E0, $4188CE, $3887BF, $5292CB, $4C8EC8, $2B7AB7, $3F84B8, $163B6A, $2C, $2961, $1968, $1767, $52AAE0, $216EAD, $2073B3, $4093CC, $246AA2, $165188, $2873A7, $2272AD, $0, $0, $0
  Data.l $0, $256B9E, $1765A5, $4086BB, $2A7AB3, $20679C, $246AA7, $B5198, $B5BA2, $186DB3, $1F73B9, $1669B0, $1F78BF, $D61B6, $65BB3, $862B2, $753A3, $2A73B3, $5FA0D2, $4B99CC, $408EC6, $3A7EB9, $4588C3, $317FBB, $3380B1, $367CAD, $2466, $1867, $1244, $838, $116099, $12461, $4191CB, $4393CA, $357BB0, $15497D, $3489C0, $A1C27, $0, $0, $0
  Data.l $0, $72B48, $1169AF, $468CC4, $2971AC, $13568C, $1C67A3, $14990, $E60A7, $2479BF, $1E73B9, $1C71B6, $2A80C7, $1163B8, $655AE, $95FB0, $1362B1, $D5295, $4D94C7, $2C7DB3, $2F7FBA, $3075B2, $155896, $2776B2, $3886BC, $2F7EB2, $2E74AC, $7266E, $C3D, $932, $72E66, $276EA8, $114279, $3B89BF, $1C5C90, $296DA1, $5273E, $0, $0, $0, $0
  Data.l $0, $52947, $1E73B6, $488EC6, $1A5D99, $12548D, $1D65A2, $E5A9E, $1E6EB7, $196EB5, $287EC1, $1C72BE, $468DC7, $4491D7, $1165B6, $126BB5, $186AAE, $2069A6, $5095CB, $3983BF, $3B87C0, $2C72AF, $195E9C, $115E9B, $2965A8, $5B99CC, $62ADDB, $2275AD, $82860, $12F, $2575B1, $3479B1, $165284, $2271A3, $125A8D, $276A9A, $0, $0, $0, $0, $0
  Data.l $0, $D3450, $1A6BA3, $6CA7D6, $6FA9DC, $125591, $185D9C, $195FA1, $1862AF, $2578BD, $5298CF, $3C8BD3, $115EA8, $3E8DD0, $3489C9, $2A82C1, $C5691, $1963A0, $5295CE, $5290CA, $4A92CB, $3D88C2, $216DAA, $4890C8, $4087C4, $4891CC, $1C629B, $58A4D6, $144D87, $2E, $3378B0, $175591, $186391, $166492, $1C6594, $0, $0, $0, $0, $0, $0
  Data.l $0, $1A5C8E, $2772A8, $5092C4, $1E619A, $2068A2, $2875B1, $1F6CAE, $2B7DC5, $4E9BD5, $F7F9FF, $91B3E1, $1668B5, $60A3DE, $86BCEB, $5392C2, $34683, $13F7E, $79B5EA, $609DD4, $3983BD, $347FBA, $64A8DD, $4591CA, $F4583, $4191C9, $2960, $55A3D1, $4F9BCC, $1345, $1C6399, $C5187, $165182, $2B7EB3, $81A24, $0, $0, $0, $0, $0, $0
  Data.l $0, $1B598A, $2D78AD, $4C8EC1, $F5791, $3985BC, $2677B4, $2779B7, $3389C9, $4A99D2, $EEF2FF, $93B0E4, $4188D0, $4184C8, $599AD4, $5699D1, $1D6AA5, $B4886, $97CDFE, $6CA7DD, $4790C8, $599FD5, $3E89C2, $4A95CE, $164E86, $3D8EC2, $134E80, $4B9AC4, $4F98C4, $A4071, $1A6596, $2772A1, $1E699E, $B314B, $0, $0, $0, $0, $0, $0, $0
  Data.l $0, $114F7F, $3C8DC1, $3377AD, $1F6DA4, $297AB2, $2577B4, $378CC7, $3A8FCC, $4498D4, $4386C6, $3778C9, $4E8FD2, $428BCD, $3C89CF, $4594D7, $3385BF, $2A6B, $3E83BE, $629FD7, $66AADF, $458DC5, $195A97, $4E99D2, $1D5C91, $4B98C7, $2E6B9C, $559BC6, $25729E, $95280, $F5281, $3383B5, $1213A, $0, $0, $0, $0, $0, $0, $0, $0
  Data.l $0, $2, $3897D2, $639ED3, $347FB5, $3B89BF, $3788C3, $499AD5, $3991CD, $4194D9, $2D7FD3, $2A79D1, $5BA5DD, $3482BF, $57A1D9, $4B98D2, $3583C1, $F5C9E, $3F82C1, $77ADE7, $5BA1D7, $3E89C2, $184B87, $5BA5DC, $2A669A, $6CAAD8, $2A6095, $3474AA, $146595, $2B82B3, $F4A74, $308, $0, $0, $0, $0, $0, $0, $0, $0, $0
  Data.l $0, $0, $E2E45, $559CD8, $5EA0D1, $2F7AB2, $529CD4, $5FA8E1, $65B0E2, $56A2DB, $4B97D6, $428ED2, $7AB8EA, $347DB8, $6EB0E3, $549BD2, $458FC7, $3F87BF, $609AD1, $659CD4, $6FADDD, $5CA0D3, $19538C, $6AACDF, $396CA2, $5E99CA, $F5389, $9548E, $275D8B, $80F14, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0
  Data.l $0, $0, $0, $4498DD, $84B8E7, $3176B0, $549AD3, $78B8ED, $95CCF4, $89C1ED, $97CBF6, $7FB9E7, $84BBEA, $63A1D4, $6DA9DB, $60A1D4, $5195CA, $95C7F5, $588EC4, $6D9DD3, $80B6E2, $68A3D3, $3774A7, $63A1D1, $296DA7, $1F629C, $2068A2, $D314B, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0
  Data.l $0, $0, $0, $102F47, $8BC5F8, $367BB3, $498BC7, $5D9FDA, $599BCC, $5498C7, $90C7EE, $A0D5F7, $91C4EF, $7EB8E4, $3B81B4, $8CBEE7, $7BB5E1, $89BAEA, $538CC1, $8AB5E2, $8FBFE8, $5E98C7, $62A0CE, $3983BA, $2440, $42138, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0
  Data.l $0, $0, $0, $0, $1D5E88, $145E99, $3276B2, $296AAC, $A4998, $185CA9, $A55A2, $1A66B1, $408DCA, $5CACE0, $3F8DC2, $84B7E4, $80B6DB, $8CBAEB, $5691C8, $98C9EA, $89B9EB, $3274AC, $246DA7, $B12, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0
  Data.l $0, $0, $0, $0, $0, $286493, $2D78B6, $1E5F9B, $2264A2, $3279B6, $236CA9, $115D9B, $175FA7, $2879BA, $1561A3, $538FC9, $69A4D1, $3D7EB1, $508CBE, $639ECD, $4E92CE, $205B90, $304350, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0
  Data.l $0, $0, $0, $0, $0, $0, $457597, $225C88, $2A4C6D, $1A3953, $24445C, $1E4E71, $5B9BD2, $2372AA, $A3D4F8, $BED3F4, $185894, $8AC3EC, $60A2D2, $4C8EC8, $102E49, $30506, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0
  Data.l $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $1A3D51, $27648F, $316391, $284658, $92F48, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0
  Data.l $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0, $0
EndDataSection

Publié : sam. 13/oct./2007 22:13
par Kwai chang caine
Tout d'abord bravo à ZORG pour cette belle réalisation.
Il est beau ton serpent COMTOIS, mais il a pas la meme couleur de tete que le corp. 8O
En tout cas y fait peur :D

Publié : sam. 13/oct./2007 22:31
par Frenchy Pilou
Astucieux le mouvement de tête au changement de direction :D
PS Nettement plus beau en résolution 1280*1024 (même si le corps n'est pas de la même couleur que la tête :)

Publié : sam. 13/oct./2007 23:59
par lionel_om
Arf j'ai un bug de OpenScreen : impossible de tester. J'viens de updaté PB en version 4.10 beta 4.
Le debug de OpenScreen me renvoie 0 alors que mon affichage avait bien basculé sur un nouveau screen. Donc ca plante juste après pour les "CreateSprite() : no curent screen" ! :?

Vous avez une solution ? Ou faut que j'ailles dans "rapport de bugs" ?
Lio 8O

Publié : dim. 14/oct./2007 3:20
par Ollivier
démentiel cette tête!

Publié : dim. 14/oct./2007 3:24
par Ollivier
Même s'il y a cet effet étrange dû aux 2 seuls effets pour la tête, je trouve ce codage vraiment admirable.

Publié : dim. 14/oct./2007 9:32
par zorg
Oh mais je vois que mon serpent se développe...

@Lionel_om : Tu devrais essayer une autre résolution comme l'exemple en haut en 1280x1024. Peut-être que ta carte ne supporte pas le 320x240x32 bits.

Publié : dim. 14/oct./2007 11:06
par lionel_om
zorg a écrit :Oh mais je vois que mon serpent se développe...

@Lionel_om : Tu devrais essayer une autre résolution comme l'exemple en haut en 1280x1024. Peut-être que ta carte ne supporte pas le 320x240x32 bits.
C'était un pb de 32 bits (mon portable n'est vraiment pas fait pour les jeux vidéos alors !!!)

Bel effet !!! :wink:

Publié : dim. 14/oct./2007 13:04
par Ar-S
Excellent avec la tête de serpent :)