| eye pricker von ??? |
| Hi! hier kann man sehen was passiert wenn man mit langeweile und ungenauen ziel vor augen codet :shock: : [code:1:52b9a12fc3] ; Author: pride ; Datum: 28.09.2002 ; Thema: eye pricker ; Zeit: 22:26:45 Dim X(100), Y(100) For i = 0 To 100 X(i) = Rnd(0,800) Y(i) = Rnd(0,600) Next msg$ = "Das ist ein kleiner test der seeeeeeeehr gesund für die augen ist... " Graphics 800,600,16,1 SetBuffer BackBuffer() Repeat ClsColor(Rand(0,255),Rand(0,255),Rand(0,255)) Cls wnk =(wnk + 20) Mod 360 msgy =20+Cos(wnk)*1 Color(0,0,0) Text 150,msgy,msg$ For i = 0 To 100 Color(255,255,255) Oval X(i)+scroll_x, Y(i), Rnd(0,40),Rnd(0,100),Rnd(0,1) Color(255,0,255) Rect X(Rnd(0,i)), Y(Rnd(0,i)), Rnd(0,40),Rnd(0,100) scroll_x = scroll_x + 3 If scroll_x > 50 scroll_x = 0 scroll_x = scroll_x + 3 EndIf Next Flip Until KeyHit(1) End [/code:1:52b9a12fc3] |
| von ??? |
| Toll! Das wollte ich schon immer mal haben... :wink: :-p |
| von Triton |
| argh, nachdem ich mir das 2 minuten angetan habe, sah ich so aus: [img:8e4c68848f]http://home.arcor.de/silizium3/pic/klapse.gif[/img:8e4c68848f] :shock: |
| von ??? |
| du scheinst gefallen an diesem bild gefunden zu haben, triton ;) @pride: woher hast du eigentlich den code von meinem aktuelen projekt? ;))))) |
| von ??? |
| :lol: ihr seid irgendwie fies... :D Was habt ihr denn? Der Code ist doch schön! Sehr einfach, aber er kommt von Herzen. Das ist es doch das einzige, was zählt, oder nicht? |
| von ??? |
| hm... vielleicht sollte ich noch ne kleine warnung schreiben das kinder unter 15 es sich nicht sehen dürfen, könnte zu gehirn schäden führen :lol: |