Serpent infini

zorg · Message par **zorg** » sam. 13/oct./2007 16:46

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

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

Frenchy Pilou · Message par **Frenchy Pilou** » sam. 13/oct./2007 20:25

Merci!

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

Je te laisse la surprise de celui-ci (un peu petit) mais cela sera mieux quand il aura des sprites plus grands

(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

comtois · Message par **comtois** » sam. 13/oct./2007 21:01

vraiment sympa ton code zorg

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

comtois · Message par **comtois** » sam. 13/oct./2007 21:18

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

Kwai chang caine · Message par **Kwai chang caine** » sam. 13/oct./2007 22:13

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.

En tout cas y fait peur

Frenchy Pilou · Message par **Frenchy Pilou** » sam. 13/oct./2007 22:31

Astucieux le mouvement de tête au changement de direction

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

lionel_om · Message par **lionel_om** » sam. 13/oct./2007 23:59

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

Ollivier · Message par **Ollivier** » dim. 14/oct./2007 3:20

démentiel cette tête!

Ollivier · Message par **Ollivier** » dim. 14/oct./2007 3:24

Même s'il y a cet effet étrange dû aux 2 seuls effets pour la tête, je trouve ce codage vraiment admirable.

zorg · Message par **zorg** » dim. 14/oct./2007 9:32

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.

lionel_om · Message par **lionel_om** » dim. 14/oct./2007 11:06

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 !!!

Ar-S · Message par **Ar-S** » dim. 14/oct./2007 13:04

Excellent avec la tête de serpent