home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 1
/
FishNMoreVol1.bin
/
more
/
code_examples
/
librar
/
skydrop.c
< prev
next >
Wrap
Text File
|
1989-02-08
|
874b
|
35 lines
/*--------------------------------------*/
/* */
/* SKYDROP(X,X,X) */
/* */
/* Displays a string given in the first */
/* argument by "dropping" it from the */
/* top of the screen. The second and */
/* third arguments are the screen */
/* coordinates of the final destination */
/* of the string. The last argument is */
/* the rate of fall. */
/* */
/*--------------------------------------*/
void skydrop(x,y,string,a)
char *string;
int a,x,y;
{
int j,jj,k,length;
cursor(0);
if (x<0){
clrscr();
x*=-1;
}
length=strlen(string);
for (j=0;j<length;j++){
for (k=0;k<x;k++){
curs_out(k,y+j,string[j],1);
if (k!=0)
curs_out(k-1,y+j,32,1);
for (jj=0;jj<a;jj++);
}
}
cursor(1);
}