scene.org File Archive

File download

<root>­/­parties­/­2003­/­buenzli03­/­mmul/sexy_potatoes_2.zip

File size:
637 928 bytes (622.98K)
File date:
2003-08-31 23:02:45
Download count:
all-time: 1 136

Preview

  • sexy potatoes 2.txt 2.17K
  • sexy potatoes 2.xm 1.06M

file_id.diz

#include <windows.h>                                                          
#include <stdio.h>                                                            
#include <math.h>                                                             
#include <time.h>                                                             
                                                                       int    
                                                    a,                  b=    
                                                  80                    *25   
                                                 ,c=               0;   void  
                                                main              (){    char 
                                                p[               2003   ];FILE
                           *F=fopen              (              __FILE__,"rb")
                          ;      fread      (p   ,1,             b,F);;fclose 
                                      (F);    typedef             CHAR_INFO   
                                       ci;ci*q=new/**/ci           [b];while  
                                           (1){for(c=0;c<333       ;){float   
                                             n=3.1416*(1+float(c++)/666)      
                                               ,y=25,x=80;while(x>0&&y>       
                                               0){int/**/g=(int)y*80+         
                        /*asx*/                  x,d=clock()/100&1;           
                           q[g].Char          .AsciiChar=54;d=fmod(           
                     n,        0.2)>=    0.1?d:!d;q[g].Attributes=d           
                      ?204:0;x+=cos(n);y+=sin(n);}}for(a=270;a<b;)if          
                       (p[a++]>32){*(char*)&q[a]=p[a];q[a].Attributes         
                          =0;}SMALL_RECT/*stil*/sr={0,0,80,25};COORD          
                                 m={80,25},o={0,0};WriteConsoleOutput(        
                                    GetStdHandle(   -11 ), q,m,o ,&sr         
                                                 )      ;   }      }


sexy potatoes 2
the return.

med/mandarine 2003
xm compo bunzli 12