Matrix

Backup · Message par **Backup** » sam. 11/nov./2006 13:49

ok ! Merci pour vos test !!

je viens d'actualiser le code ci dessus
pour rajouter un peu de densité (pour Nico

)

dit moi ce que tu en pense !!

par contre j'ai ajouter des vitesses variables, du coup je perd l'effet que je voulais; qu'un emplacement d'écran précis voit défiler les lettres

puisque pour cet effet il faut bloquer la vitesse de descente a 14 ( taille police 14)

si vous préférez des caractères bizard, il suffit de décommenter la ligne 26
et commenter la ligne 27

en tout cas merci pour vos retours

nico · Message par **nico** » sam. 11/nov./2006 14:03

C'est mieux pour moi

; par contre il n'y a pas d'espacement entre deux sprites cote à cote et ça rend pas bien, tu pourrais corriger ça?

J'aurais aimé pouvoir afficher un texte au milieu de l'écran!

Oui je sais, j'en demande beaucoup.

Backup · Message par **Backup** » sam. 11/nov./2006 14:51

.................

nico · Message par **nico** » sam. 11/nov./2006 16:47

Cool, Merci Dobro!

Backup · Message par **Backup** » sam. 11/nov./2006 17:45

ben de rien

Backup · Message par **Backup** » mer. 17/janv./2007 16:16

...................

Backup · Message par **Backup** » mer. 17/janv./2007 16:28

ce soft de Ascii art est symptah
on peut faire ce genre de chose
ps; reculez de 4 pas !

Code : Tout sélectionner

888888888b8888888888888888888888888888888888888888888purl     jv1t.  l
88888888ko4d888888888h2uroek888georji.   vb8888888886flv l     7f44432
8888888888888888888kuj     16wh            uw88888bxvys2l   .jivuryf1t
88888888888dd888888h2l    t4bzi             y8888wdz  1tvt7ivs9ofzepoh
888888888885yd888d172ucvu9gdj                q8wg97 j .u5of1vl  l. log
88888888888888888  tu349k8w9u2yt1lt.ji       .q8gkp94qs3ur7ivcvrti7t2r
88888888888888w8h .ry6bd886vt12y2rrrtv1ji     t31lj1v433ebyufcvitovozu
8888888kgdq4ebkkv 7yew88wr jvrcyqh5az3of2cjj             .5y  c  se2 v
88888887uyuo3ekqi r6k8884r7t2fosbwdkpqzzyurtl             7ii2p  rcqi
8888886..vcuu3h4 26df2ew8w3u9kd8wwdy7 il 7 tu7               .7   hh
88888hc.ji22o3kf uskelzg88h4w88www1    .cqeoo2v.j1         o4fl1 iyoxo
8888k3utllruyzkc y4b3 3w6853888885  lfuz6wzioy2j1t .       cofk5. jq88
888pzfrljtu3hkd3 uspz x8kve2q88pj 25        r3fvfz4e56zo7     .xzqt  j
8883cvtt1c39qhbe u4k892wd2f3x88. 1r.        opoe8ge32rvvv2yl   v2rlr6r
888rvtvvr2ol7vv4luxb8drzkf73v8e1  jucj    i2ussdgp432rrvttl2v. tt re8q
8887j.ivvc7      t3b89v hfj t2cui     .. .i   725b63fuuct17truz88d3i68
888    1vvt      luqw4l vu1  i3o7            y9dwkbp43oyucr2u2f8gdwr9w
888    717t      .26wy7  21    21            qd88gddkhszof2uvtv8884768
888o     i.      juswf1   1      .         iu888gkh93ufqhhz1y2c5etzwwh
888k      .      c2zdyv.  ii              jrs888dhz3c13bphf fycp7 fwb6
8888z            o34d3fcj  7        .tvvtu36d88gb3yf 2szyj   .f8g9h5rh
88888ki          c4d8bzo2r. j        i399hqbk99oo2y2y2rj      .rsk8s.j
888888z          13b8w53y2t .7.    j11rcv7ljljiiitssvl          jx8wqk
8888888gc         lfo4kq433c ty2uyu.       .1uedzt7               lk88
88888888882.     i  y217.vo3yv5bhrrrvrrc22fyzrtt. juv. ltl         vg8
888888w4uy5q4v.  7   5k4  .t3o9whfyyyoyy33saurr7jyoo2rcr117        3k8
888888q5yviil7711c7   .96j     itcucrtlijtii      ji     vl       t888
88888kt.                j3u          jj        t4ot.771t1.       78888
8888kc                    ft          lj..   1s4z3ur2rt7.        28888
588q               jtc.     y7            .yh93ou2r1              8888
b882               it227    v4ui    i 7r3r   uu2r7j               8888
6pk                7cuu1lj   7uqbkkkqay2rcri   .               .688888
dw8              jv2yot        vy333oycvtl.                .1588888888
ww6u             tv2fof         itufu2rvj                  s8888888888
88gz       .    i 1lll7t              i.         vr.       s8888888888
8888668wv                          .7j                     k8888888888
xbw8ww88q2                         7ui                     p8888888888
88sd888888c                   14j                    c     r8888888888
kzg888888885                lu4k888deu                    388888888888
dre88888888wy           .7zdw88488888853c             u33yg88888888888
8er8888888888888888c   r8888888888888d8888byrt        2zq9888888888888
q1l888888888888888g7 .3w88w88888888k8e8888888dj        t4k888888888888
88b688888888888gw8s e8wq88dw8888wg888hr4w8dwwy . 1zr     3888888dw8888
888.h888888888q888ww88w9g888888888888888888wgj 9kxrl    e88w8888888888

cederavic · Message par **cederavic** » mer. 17/janv./2007 17:12

Tu dérive de l'idée principale avec les pseudo du forum Dobro

Tu relance la concurence?

(je déconne hein

)

Sinon, chouette ton code

EDIT :
J'ai repris la derniere version me mon code présent en page 3, avec l'ajout d'un AsciiArt comme Dobro :

Code : Tout sélectionner



InitSprite()
InitMouse()
InitKeyboard()

Structure col
  y.l
  v.l
  len.l
  o.b
EndStructure

Structure colp
  chr.s
  ok.b
EndStructure

Declare init()

OpenScreen(800, 600, 32, "Pure Matrix")

LoadFont(0, "Terminal", 10, #PB_Font_Bold | #PB_Font_HighQuality)

Global Dim col.col(100)
Global Dim colp.colp(100)
Global Dim pseudo.s(127)
Global NewList AsciiArt.s()
Global Dim DrawAscii.colp(101, 101)

For t = 0 To 100
  col(t)\y = Random(800) - 800
  col(t)\v = Random(2) + 4
  col(t)\len = Random(100) + 300
Next

init()

lp.s = UCase(pseudo(0))
plen = Len(lp)

sp = 25 - plen / 2

For x = 0 To 100
  colp(x)\chr = ""
  colp(x)\ok = 1
Next

For xp = sp To sp + plen - 1
  k + 1
  chr.s = Mid(lp, k, 1)
  colp(xp)\chr = chr
  colp(xp)\ok = 0
Next



Repeat

  ExamineKeyboard()
  ExamineMouse()

  ClearScreen(RGB(16, 16, 16))

 
  StartDrawing(ScreenOutput())
    DrawingFont(FontID(0))
    DrawingMode(1)
    
    For x = 0 To 100
    
      
      For y = 0 To 100
        If DrawAscii(x, y)\ok > 0
          FrontColor(RGB(DrawAscii(x, y)\ok * 2, DrawAscii(x, y)\ok * 26, DrawAscii(x, y)\ok * 4))
          DrawText(x * 8, y * 8, DrawAscii(x, y)\chr)
          If DrawAscii(x, y)\ok = 8
            DrawAscii(x, y)\ok = 0
          EndIf
        EndIf
      Next
      col(x)\y + col(x)\v
     
      cy = col(x)\y
      len = col(x)\len

      If cy > 600
        col(x)\y = Random(600) - 1200
        col(x)\v = Random(2) + 4
        col(x)\len = Random(300) + 100
      EndIf
      
      cy2 = cy + len
      
      If cy2 > 600 : cy2 = 600 : EndIf
      
      If cy2 > 0
        DrawAscii(x, cy2 / 8)\ok + 1
      EndIf
      
      For y = cy To cy2 Step 8
        
      
        If y > cy + len - 16
          r = 60
          g = 255
          b = 120
          fc = 1
        Else
          r = 0
          g = ((y - cy) * 100 / len) * 2 + 32
          b = 0
        EndIf

        FrontColor(RGB(r, g, b))
        chr.s = UCase(Chr(Random(255)))
        DrawText(x * 8, y, chr)
        
        If y >= 18 * 2 * 8 And y <= 19 * 2 * 8 And chr = colp(x)\chr
          colp(x)\ok = 1
        EndIf
      Next

   
    Next
   
    ookp = okp
    okp = 1
   
    For x = 0 To 100
      FrontColor(RGB(80, 255, 100))
      DrawingMode(1)
      If colp(x)\ok = 1
        DrawText(x * 8 * 2, 18 * 2 * 8, colp(x)\chr)
      Else
        okp = 0
      EndIf
    Next
   
    If okp = 1
      If ookp = 0
        st = GetTickCount_()
      EndIf
      st2 = GetTickCount_() - st
      If st2 > 2000
     
      cp + 1
      If cp > 127 : cp = 0 : EndIf
      lp.s = UCase(pseudo(cp))
      plen = Len(lp)

      sp = 25 - plen / 2

      For x = 0 To 100
        colp(x)\chr = ""
        colp(x)\ok = 1
      Next
     
      k = 0
     
      For xp = sp To sp + plen - 1
        k + 1
        chr.s = Mid(lp, k, 1)
        colp(xp)\chr = chr
        colp(xp)\ok = 0
      Next
     
      EndIf
    EndIf
   
  StopDrawing()
 
  FlipBuffers()
 
  If MouseDeltaX() Or MouseDeltaY() Or MouseWheel() Or KeyboardPushed(#PB_Key_All) Or IsScreenActive() = 0
    Quit = #True
  EndIf
 
Until Quit

End

Procedure init()
  pseudo(0) = "Fred"
  pseudo(1) = "Polux"
  pseudo(2) = "Artemis"
  pseudo(3) = "comtois"
  pseudo(4) = "yukin"
  pseudo(5) = "Patrick88"
  pseudo(6) = "Oliv"
  pseudo(7) = "Vyc"
  pseudo(8) = "Keph"
  pseudo(9) = "hackotedelaplaque"
  pseudo(10) = "Cinderella"
  pseudo(11) = "filperj"
  pseudo(12) = "MacRain"
  pseudo(13) = "Bernard"
  pseudo(14) = "Denis"
  pseudo(15) = "Snooze"
  pseudo(16) = "Marcus"
  pseudo(17) = "Dr. Dri"
  pseudo(18) = "T€r$@k€n"
  pseudo(19) = "melysoph"
  pseudo(20) = "Pierre"
  pseudo(21) = "Aranoth"
  pseudo(22) = "Ombres"
  pseudo(23) = "Chris"
  pseudo(24) = "gaut"
  pseudo(25) = "leoneo"
  pseudo(26) = "Lukky"
  pseudo(27) = "virtualys"
  pseudo(28) = "Paneric"
  pseudo(29) = "hteamspy"
  pseudo(30) = "Jacqueline ZITO"
  pseudo(31) = "DEF"
  pseudo(32) = "brossden"
  pseudo(33) = "---fred---"
  pseudo(34) = "Crystal Noir"
  pseudo(35) = "cookie"
  pseudo(36) = "Heis Spiter"
  pseudo(37) = "Le Soldat Inconnu"
  pseudo(38) = "Flype"
  pseudo(39) = "pg"
  pseudo(40) = "Marc"
  pseudo(41) = "julien"
  pseudo(42) = "Berikco"
  pseudo(43) = "TnPz"
  pseudo(44) = "Dionyzos"
  pseudo(45) = "killer7"
  pseudo(46) = "Nadrak"
  pseudo(47) = "philipus25110"
  pseudo(48) = "freddix"
  pseudo(49) = "remram44"
  pseudo(50) = "cederavic"
  pseudo(51) = "Orlanth"
  pseudo(52) = "Guimauve"
  pseudo(53) = "TEALC"
  pseudo(54) = "nico"
  pseudo(55) = "ZapMan"
  pseudo(56) = "we7theboss"
  pseudo(57) = "Jacques Stopinski"
  pseudo(58) = "rollmops"
  pseudo(59) = "clauded07"
  pseudo(60) = "mgou"
  pseudo(61) = "[JB]"
  pseudo(62) = "ToX-007"
  pseudo(63) = "Syszz"
  pseudo(64) = "CORBASE"
  pseudo(65) = "gansta93"
  pseudo(66) = "Fiwip"
  pseudo(67) = "KarLKoX"
  pseudo(68) = "Yoop"
  pseudo(69) = "patmaba"
  pseudo(70) = "El_Choni"
  pseudo(71) = "Jenova"
  pseudo(72) = "Nells"
  pseudo(73) = "france"
  pseudo(74) = "newzig"
  pseudo(75) = "Baka"
  pseudo(76) = "flo"
  pseudo(77) = "KiWin"
  pseudo(78) = "Yves Rouquier"
  pseudo(79) = "lionel_om"
  pseudo(80) = "trikar"
  pseudo(81) = "erix14"
  pseudo(82) = "vanago"
  pseudo(83) = "lazy"
  pseudo(84) = "LavaLava"
  pseudo(85) = "Silver"
  pseudo(86) = "Necra"
  pseudo(87) = "Jacobus"
  pseudo(88) = "Sammael"
  pseudo(89) = "aby56"
  pseudo(90) = "Jean-Paul"
  pseudo(91) = "thedoorp"
  pseudo(92) = "sobriquet"
  pseudo(93) = "le_pro_du_pure"
  pseudo(94) = "gilles robert"
  pseudo(95) = "CARTER"
  pseudo(96) = "Patrick"
  pseudo(97) = "chronomancien"
  pseudo(98) = "jbernard13"
  pseudo(99) = "blue"
  pseudo(100) = "Mickey"
  pseudo(101) = "Good07"
  pseudo(102) = "RemyX"
  pseudo(103) = "titimoby"
  pseudo(104) = "Heero"
  pseudo(105) = "Creepy"
  pseudo(106) = "Dobro"
  pseudo(107) = "jblaise.cs"
  pseudo(108) = "DominiqueB"
  pseudo(109) = "bugrane"
  pseudo(110) = "pierre the noob of of bas"
  pseudo(111) = "blackrock"
  pseudo(112) = "rYn0"
  pseudo(113) = "LE_Bassiste_Atitré"
  pseudo(114) = "NoT"
  pseudo(115) = "Yam"
  pseudo(116) = "fweil"
  pseudo(117) = "YourHead[^_-]"
  pseudo(118) = "Galen"
  pseudo(119) = "LOULOU25"
  pseudo(120) = "micke"
  pseudo(121) = "charly"
  pseudo(122) = "garzul"
  pseudo(123) = "Bloutiouf"
  pseudo(124) = "DarkDragon"
  pseudo(125) = "nemo"
  pseudo(126) = "gillespeyrin"
  pseudo(127) = "yann64"
  
  AddElement(AsciiArt())
  AsciiArt() = "&&YY&&&&&&&&&&OO&&&&&YYYYYYYY&&YYYYYrrrrrYYYY&&&&&&&&Y&&&OO&OYr&&&&&&&&&&&YY&&&&YrYYYYY&&&&&&&&&YYYY"
  AddElement(AsciiArt())
  AsciiArt() = "&&&YY&&&&&&&&&&&&&&&&&YYYYYYY&&&O&O&&&&&&&&&&&&&&&&&&YY&OO&&&YY&&&&&&&&&&&YYY&YrrrYY&&&&&&&&&&OOYYYY"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&Y&&&&&&&&&&YYY&&&&&YYYYYYY&&&OO&&&&&OO&&&&&&&&&&&YY&&&&&YrY&&&&&&&&&&&&YYYYrrYYY&&&&&&&&&&O&YYYY"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&YY&&&&O&&&&&YrYY&OO&YYYYYY&&&OO&&&&&O&&&&&&&&&&&&&Y&&&&&YY&&&&&&&&&O&&&&Y&&&Y&YY&&&&&&&&Y&&&YYYY"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&Y&&&&&OO&&&YYYYYY&&&&&YYYY&&&&&&&&&&&&&&&&&&&&&&&&YY&&&Yrrr.&&&&&&&&&&&&Y&&&Y&YY&&YYY&&&Y&&&YYrY"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&&&&&O&&&&YYYYYY&&&&&Y&Y&&YYY&&r.rYY&&&&&&&&&&&&YY&&Yr....Y&&&&&&&&&Y&YY&&&YY&&&YYY&&&Y&&YYYrY"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&&&&&&&&&&&YYYYYYY&&YYYY&&Y&&&Y......rY&&&&&&&&&YY&Y......r&&&&&&&&Y&&&Y&&&YY&YYYY&&&&&&&YYYrY"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&&&&&&&O&&&YYYYYYY&&YYYY&&&&&&..........Y&&&&&&YYYr........Y&&&&&YYYYYYYY&&Y&YYYYY&&&Y&&YYYYrY"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&&&&&&&&&&&&YYYYYYY&&Y&Y&OO&&Y........r...&O&&&&Y..........rY&&&YYYY&YYYY&&Y&YYYY&&&&Y&&YYYYrY"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&&&O&&&&&&&&r...rrYY&&&Y&&&&Y.........rr...Y&&&Y............Y&&YYrY&&Y&YY&&&YYYYY&&&&&&&YYYYrY"
  AddElement(AsciiArt())
  AsciiArt() = "&&Y&&&&&&O&&&&&&&Y.........rYY&&&&r..........rr...Y&r.............YYYrrr.Y&YYYY&&&YYYYY&&&Y&&YYYYYrY"
  AddElement(AsciiArt())
  AsciiArt() = "&YYYY&&&&&&&&&&&&r............rYYY...........rr....r..............rr..r..Y&YYYYY&&YYYY&&&Y&&&&&YYYrY"
  AddElement(AsciiArt())
  AsciiArt() = "&YYYY&&&&&&&&&&&&................r...r........rr.......r.r..........rr....YYrYYY&&YYYY&&&Y&&&&YYYYrY"
  AddElement(AsciiArt())
  AsciiArt() = "&YYYY&&&&&&&&&&&Y....................rr.....rrrrr.....rr.r........rrr.....YYrYYrrYYYYY&&&&&&&&YYYYrY"
  AddElement(AsciiArt())
  AsciiArt() = "&YY&Y&&&&&&&&&&OY............... ....rr..r..rrrrr....rrrr.........rrr.....r...........r&Y&&&&&&&YrrY"
  AddElement(AsciiArt())
  AsciiArt() = "&YY&Y&&&&&&&&&&O&............. .r....rrr.rr.rrrrr....rrrrr.r......rr............rr.....&&O&&&&&&YYrY"
  AddElement(AsciiArt())
  AsciiArt() = "&YYYY&&&&&&&&&&&&..........rr...r....rrr.rrrrrr.r...rrrrrrrr.rr..rrr.........rrrr.. ...Y&O&&&&&&YYYY"
  AddElement(AsciiArt())
  AsciiArt() = "&YYYY&&&&&&&&&&&&r........rrrrrrr....rrrrrrrrrr.r..rrrrrrrrrrr...rrr.......rrrrr.......&&&&&&&&&YrYY"
  AddElement(AsciiArt())
  AsciiArt() = "&YYYY&&&&&&&&YYYYY........rrrrrrrr...rrrrrrrrrrrr.rrrrrrrrrrrr.r.Yr......r.rrrr........&&&&&&&OOYYYY"
  AddElement(AsciiArt())
  AsciiArt() = "&YYYY&&YYYrrr..............rrrrrrr..rrrrrrrYrrrrrrrrrrrrrrrrrrrrrr.....rrrrrrrr........&&&&&&OO&YrYY"
  AddElement(AsciiArt())
  AsciiArt() = "&YYYY&YYrr.rrrrrrrrrr..r....rrrrrr.rrrrrrrrrrrrrrrrrrrrrrrrrrrrrr.rrrrrrrrrrrr........Y&&&&&OO&&YrY&"
  AddElement(AsciiArt())
  AsciiArt() = "rYYYY&Y&Y.....rrrrrrrrrrrrr..rrrrrr.rrrrrrrYYrYrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr........YY&&&OO&&&YrY&"
  AddElement(AsciiArt())
  AsciiArt() = "YYYYY&&&Y........rrrrrrrrrrrr.rrrrrrrrrrrrrYYYYYrrrrrrYYYYrrrrrrrrrrrrrrrrrrrrr.......&YY&Y&&&&YYrY&"
  AddElement(AsciiArt())
  AsciiArt() = "rYrYY&&&&.........rrrrrrrrrrrrrrrrrrrrrrrrYYYYYYYrrrrYYYYYrrrrrrrrrrrrrrrrrrrr.rrr...Y&YY&YYYYYYYY&&"
  AddElement(AsciiArt())
  AsciiArt() = "&&rYY&&&&r..........rrrrrrrrrrrrrrrrYrrrrrYYYYYYYrrrYYYYYYrrrrrrrrrrrrrrr.rrrrrrr....YYYY&YY&YYYYY&&"
  AddElement(AsciiArt())
  AsciiArt() = "&&rYY&&&&Y...r..r....rrrrrrrrrrrrrrYYrrrrrYY&&&&&rrrYY&YYYrrrrrrrrrrrrrrrrrrrrrr....rrYYY&Y&&Y&YYYY&"
  AddElement(AsciiArt())
  AsciiArt() = "&&YYYY&&&&....rr.rr...rrrrrrrrrrrrrrYYrrrrYY&&&&&rrrY&&&&YrrrrrrrrYYrrrrrrrr.r.....rYrYYY&&&Y&&YYYYY"
  AddElement(AsciiArt())
  AsciiArt() = "&&YYYY&&&&&....rrrrrrrrrrrrrrrrrrrrrrY&rrrrY&&&&&Yrr&&&&&YrrrrrrYYYYYrrrrrrr........rrrrrrYYY&&&rYrY"
  AddElement(AsciiArt())
  AsciiArt() = "&O&YYY&&&&&Y....rrrrrrrrrrrrrYYrrrrrrr&&rrrY&&O&&&rr&&&&&YrrrrrYYYYYYYYrrr...rr.............rY&&Yrrr"
  AddElement(AsciiArt())
  AsciiArt() = "Y&&YYY&&&&&&r....rrrrrrrrrrrrrYYYYYrrrY&&rrrY&OOOOrr&O&&&YrrrrY&&&YYYYrrrrrrrrrrrrrrrrrrrr....rY&Yrr"
  AddElement(AsciiArt())
  AsciiArt() = "YrYYYY&&&YYrrr..rrrrrrrrrrrYYYYYYYYYYrrY&&rrr&OOOOYr&OOO&rrrrY&&&&&YYrrrrrrrrrrrrrrrrrrrrr...rrYY&&r"
  AddElement(AsciiArt())
  AsciiArt() = "Yrrrrrr....rrrr..rrrrrrrrrrrYYYYYY&YYYrr&&&rrr&OOO&r&OOO&rrrY&&&&&&Yrrrrrrrrrrrrrrrrrrrr....rYrrYY&Y"
  AddElement(AsciiArt())
  AsciiArt() = "Yrr......rrrrrrrrrrrrrrrrrrrYYYYY&&&&&Yrr&OOYrY&&&&rY&&&Yrrr&&&&&&Yrrrrrrrrrrrrrrrrrrrr.....YYYrrYY&"
  AddElement(AsciiArt())
  AsciiArt() = "r...rrrrrrrrrrrrrrrrrrrrrrrrYYYY&&&&&&&Yrr&&&rrYYYYYYYYYrYrYOOOO&YrrYYYrYYrrrrrrrrrrr......YYrYYrrYY"
  AddElement(AsciiArt())
  AsciiArt() = "rrrrrrrrrrrrrrrrrrYYrrrrrrrrrrYYY&&&&&OOYrYYYYYrY&&&Y&YYrYrYOOOOYrYYYYYYYYrrrrrrrrr...rr..YYYYrYYrrY"
  AddElement(AsciiArt())
  AsciiArt() = "rrrrrrrrrrrrrrrrrrrrYYYYrrrrrrrYYY&OOOOOOYrYYY&rr&YYrY&YYrrY&&OYrY&&&&YYYYYYrrrrrrrrrr...rYYYYYrYYrr"
  AddElement(AsciiArt())
  AsciiArt() = "...rrrrrrrrrrrrrrrrrYYYYYYYYrrrrrYY&OOOOO&YrY&&rrrrrrrrrrrY&YYYr&&&&&YYYYYYrrrrrrrrr....rYY&&&&YYYYY"
  AddElement(AsciiArt())
  AsciiArt() = "...............rrrrrrrYYYYYY&YYrrrrrY&OO&YYYrrrrrrr.rrrrrrYYYrr&OO&&&&YYYYrrrrrrrr.....r&&&&&&YYYYYY"
  AddElement(AsciiArt())
  AsciiArt() = "..........rrr.rrrrrrrrrYYYYY&&&&&&YrrrrYYY&Yrrrrr...r.r.rrrYrrYOOOOO&YYYrrrrrrrrr.....rrrY&Y&&YYYYYY"
  AddElement(AsciiArt())
  AsciiArt() = ".............rrrrrrrrrYYYYYY&&&&&OOOO&YYrrYrr....r......rrrrrYY&OOO&YYYrrrrrrrrrr..rrrrr...rY&YYYrYY"
  AddElement(AsciiArt())
  AsciiArt() = "...............rrrrrrrrrYYYY&&&&&&OOO&YY&Yrrrr......r..r.rrrr&Y&O&YYrrrrrrrrrrr.rrYYrrrrr....rY&&YrY"
  AddElement(AsciiArt())
  AsciiArt() = "&r...........rrrrrrrrrrrrrrrYY&&&&OOO&YY&&Yrrr....rrrrr..r.rrYrrrrrrrrrrrrrrrrYYYrrrrrrrrrr....r&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "&&Yr........rrrrr....rrrrrrrrrrrYYYYYYrYYYrrr.r..rrrr.....rrrrYY&&&&&&&&YYYYYYrrrrrrrrrrrrr......Y&&"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&Yrr..........rrrrrrrrrrrrrrrrrrrrrrYrrrrrrr..rrrr..rrrrrYYY&OO&&&&YYYYrrrrrrrrr..............Y&"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&&Yr.....rrrrrrrrrrrYYYYYYYYYYYrrrrrrrrr.r...r.....rrrrYY&OO&&&YYYYYYrrrrrrrrrr.............rY"
  AddElement(AsciiArt())
  AsciiArt() = "&YY&&&&r...rrrrrrrrrrrrYYYYYYYYY&&&OOOOYY&&Yrrrr.r...r.r.rrrrrrrrrYYYYYrrrrrrrrrrrr................Y"
  AddElement(AsciiArt())
  AsciiArt() = "&YY&&Y...rrrrrrrrrrrYYYYYYYYYYY&&&&OOOO&YY&Yrrrr..r..r..rrrYYYY&Yrrrrrrrrrrrrrrrrrrr..............YY"
  AddElement(AsciiArt())
  AsciiArt() = "&YYYY.rrrrrrrrrrYYYrrrrrrYYYYYY&&&&OOOO&YrrYrrrrrrrrrr.rrrrrrY&OO&&Yrrrrrrrrrrrrrr..............rY&&"
  AddElement(AsciiArt())
  AsciiArt() = "&YYrrrrrrrrrrrrrrrrrrrrYYYYYYYY&&&&&&YrrrYY&&YrrrrrrrrrrYY&YYrrrY&&&&&YYrr................. ..rYY&&&"
  AddElement(AsciiArt())
  AsciiArt() = "YYrrrrrrrrrrrrrrrrrrrrrrYYYYYYYYYYYrrrrY&&YYYYrrYYYrrrrY&&&&&YYrrrrY&YYYYYYYrrrrr.......rrYYY&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "r.....rrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrY&OOOOYrrYYYYrrYrrY&&&&&YYYrrrrrYYYYYrrrrrYYYYYrrrrY&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = ".........rrrrrrrrrrrrrrrrrrrrrrrrrrY&&&OOOYrrYYYYrY&&rrYY&&YYYYYrrrrrrrYYYrrrrrrrrrrrr...Y&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "Yrr....rrrrrrrrrrrrrrrrrrrrrrrrrrYY&&&&&&YrrYOO&rY&OYrrrYYYYYYYYrrrrrr.rrrrrrrrrrrrrrrr...Y&&&&&&&O&"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&Yr.....rrrrrrrrrrrrrrrrrrrrYYYY&&&YrrrY&O&rrY&&YrrrrYYYYYYYrrrrrrr.rrrrrrrrrrrr..rr...Y&&&&&&&Y"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&Yr......rrrrrrrrrrrrrrYYYYYYYYYYrrrr&&&YrrYY&YrrrrrrYYYrYYrrrrrr.rrrrrrrrrrr.........&&&&&&YY"
  AddElement(AsciiArt())
  AsciiArt() = "O&&&&&&&&&Yrr..........rrrYYYrrrYYYYYrrrrrY&&&rrrYYYYrrrrrrrrYYrrrrrrrr..rrrrrrrrrr........ Y&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&O&&YYYrYrrrYYYYYYYYrrrrrrrrrrrrrrrYY&&YrrrrYYYY.rrrrrrrrrrrrrrrr..rrrrrr..rr..........&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&&&YYYYYYrY&&YrrrrrrrrrrrrrrrrrrrrYYYYYrrrrrrYYYrrrrrrrrrrrrrrrrr..rrrrrr............. r&&&O&Y"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&YYrrYYrY&&&&rrrrrrrrrrrrrrrrrrrrYrYYYYrrrrrrYYYYr.rrrrrrrrrrrrr...rr....rrr............&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&YYYYYYYYY&&&YrrrrrrrrrrrrrrrrrrrrYrrYYYrrrrrrrrrYYY...rrrrrrrrrrr..rYr...................Y&&&O&"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&YrYYYYYYYY&&r...r.rrrrrrrrrrrrr.rrrrrrrYrrrrrrrrrrYYrr...rrrrrrrrr..Y&YYrr......  ...rrrrYY&&&OO"
  AddElement(AsciiArt())
  AsciiArt() = "&&YYYYYYYYY&&&&r .....rr.rrrrrrrr..rrrrrrrrrrrrrrrrrrrrrYrr....rrrrrrr.rYY&YY&YYYYYYY&&&&&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "&YrrYYYYYY&&&&&Y.r....r....rr....rrrrrrrrrrrr.rrrrrrrrrrrrrrr..........YYYYYYYYYYYYYYYY&O&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "YrYYYYYYY&&Y&&&&&r...r....r.....rrrrrrrrrrrrr.rrrrrrrrrrrrrrrYYr......rYrrrrYYYYYYYYY&&&&&&&&&&&O&&&"
  AddElement(AsciiArt())
  AsciiArt() = "rY&YYYY&&&&&&YY&&...r.........rrrrrrrrrrrrrrrr..rrrrrrrrrrrr.Yrrrr....YYrYYYYYYY&&&&&&&&Y&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "YYYYY&&&&&&&YrYYY............rr...rrrrrrrrrrrrr.rrrrrrrrrr..rYYr...rYr&YYYYYYYY&&&&&&&&YYY&&O&&&&O&&"
  AddElement(AsciiArt())
  AsciiArt() = "YYYY&&&&&&&&.Y&&r...........YYr....rrrrrrrrrrrrr.rrrrrrrr..rYrrr..rY&&&&&YYYYYY&&&&&&&&YYY&&&OO&&&YY"
  AddElement(AsciiArt())
  AsciiArt() = "YYYrY&&&&&&rY&YY..........rYYYr...rrrrrrrrrrrrrr..........r&rrrrrYY&&&&&&&&&&&YY&&&&&&YY&&&&&&&&YY&&"
  AddElement(AsciiArt())
  AsciiArt() = "YYYrrrrY&YYY&&&Y........rYYY&&r....rrrrr.rrrrrrr.........r&&&YYY&&&&&&&&OO&&&&&&&&&&YYYY&&&&&Y&&Y&&Y"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&YrrY&&&&&&&......rYrYY&&&Y...r.rr...rrrrrrrr ......Y&&&&&&&&&&&&&&OOO&&OOO&&&&YYYYY&&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&&YrrY&&&&r...rYYYY&&&&&Y..........rrrrrrrr.....r&&&&&&&&OO&&&&&&&&&&&&&&&&&&&&YYYY&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&&&&YrrrY&r.rrYY&&&&&&&&&..........rrrrrrrrrYr.r&&&&&&&&&&&&&&&&&&&&YYYYY&&&&&&&&&&&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&&&&&&YrrrYrYY&&&&&&&&&&&Y.........rrrrr..rY&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&O&&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "Y&&&&&&&&&&&YYYrYYYYY&&Y&&&&&&&&..........rr...rY&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&YYYY&&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&&&YYYYYYY&YrrY&&Y&&&&&&&&Y........rr...r&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&YYYYYYY&OOOOOOOOO"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&&YYYYYYY&&&&YrY&&&&&&&&&YYr...........Y&&&&&&&&&&&&&&&&&&&O&O&&&&&&&&&&&&&&&&&&&&&&&&&&&&OOOO"
  AddElement(AsciiArt())
  AsciiArt() = "&&&&&&&YYYYYY&&&O&&&&YYY&&&&&&YY&Y........rY&&&&&&&&OOO&&&&&OO&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "YY&&YYY&Y&YYY&&&O&&YY&&YY&&&YrrYY&r.....r&&&&&&&&OOOOOO&&&&OOOOO&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "YY&&YYYYYY&&&&&&&&&YYYY&&&&Y.rY&&&Yr..rY&&&&&&OOOOOOOOO&&&&OOOOOOO&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "YYYYYYYYYY&&&&&&&YYYYYYYY&YrrY&&&&&&&&Yr&&&OOOOOOOOOOOO&&&&O&&&&OOO&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "Y&YYYY&&&&&&&&&&&YYYYYYYrYrY&YYY&&&&O&Yr&&OOOOOOOOO&&OO&&&&&&&&&&&OO&O&&&&&&&&&&&&&&&O&&&&&&&&&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "rrrrrrrrrYYrrrYYrr.rYr.....rrrrr&&&Yrrrr&&&YrrrrYYYYYY&&&&&&&&&&OOOOOOOO&&&&&&&&&&&&&&&&&&OOOO&&&&&&"
  AddElement(AsciiArt())
  AsciiArt() = "YrrrrYYYYYYYY&YYYYrrrr.rrrYrYYY&&Yr...rY&YrrrrrYY&&&&&&&&&&&&OO&&OOOOOOO&&&&&&&&&&&&&&&&&OOOOO&&&&&&"
  
  ForEach(AsciiArt())
    For x = 0 To 100
      DrawAscii(x, y)\chr = Mid(AsciiArt(), x, 1)
      DrawAscii(x, y)\ok = 0
    Next
    y + 1
  Next
  
  For x = 0 To 100
    col(x)\y = Random(1200) - 800
  Next
EndProcedure

Je n'avais pas commenté le code, mais byzarement il m'a parut archi lisible et comprehensible... peut etre due à ma façon de coder des brouillons?

Backup · Message par **Backup** » mer. 17/janv./2007 20:55

elle est chouette ta version Cederavic

cederavic · Message par **cederavic** » mer. 17/janv./2007 22:08

Merci

Backup · Message par **Backup** » sam. 20/janv./2007 17:05

..............;;

Backup · Message par **Backup** » dim. 21/janv./2007 9:47

ci dessus la version definitive (avec 3 "tableaux")
vitesse de descente normal ....
mettre +de 150 a la variable vitesse pour accelerer le rendu

ajout de couleur, et modification du tableau "Fleur"

cederavic · Message par **cederavic** » dim. 21/janv./2007 10:40

Il n'arrive pas à créer ce sprite ligne 437 :

Code : Tout sélectionner

Resultat = CreateSprite( ligne+#sprite_im, 14*Len(im$(ligne)),14,#PB_Sprite_Texture)

Ducoup ça plante a la ligne du dessous sur la création du sprite 3d...

Backup · Message par **Backup** » dim. 21/janv./2007 10:52

cederavic a écrit :Il n'arrive pas à créer ce sprite ligne 437 :
Code : Tout sélectionner
Resultat = CreateSprite( ligne+#sprite_im, 14*Len(im$(ligne)),14,#PB_Sprite_Texture)
Ducoup ça plante a la ligne du dessous sur la création du sprite 3d...

harf ! je lance toutjours en mode non debugger actif sur Japbe

(soit dit en passant, compillé ça marche !!..

??)

Merci je regarde ça

Backup · Message par **Backup** » dim. 21/janv./2007 11:32

ok c'est corrigé (le dernier listing ci dessus

)

cela provenais du fait que je cherchais a creer un prite a partir d'une ligne vide

im$=""

au lieu de

im$=" "

Merci encore Ced