var _str_separator = ' ';STRING* _str_temp = "";var _strpos = 0;

//THIS FUNCTION (str_replace) WAS TAKEN FROM STRIO.C

STRING* str_replace(STRING* str, char* original, char* replacement)
{
 var start = str_stri(str,original);
 if (start)
 {
  str_cpy(_str_temp,str);	
  str_trunc(str,str_len(str)-start+1);
  str_clip(_str_temp,start+str_len(original)-1);
  str_cat(str,replacement);
  str_cat(str,_str_temp);
  return str;
 }
 return NULL;
}

function movie(STRING* FL, PANEL* P)
{
 var i;
 STRING* SPRITE_str[500];STRING* Num[500];
 for(i=0;i<500;i++)
 {
  Num[i]=str_create("");
  SPRITE_str[i]=str_create("&n&%fl%");
  str_for_num(Num[i],i);
  str_replace(SPRITE_str[i], "%fl%", Fl);
  str_replace(SPRITE_str[i], "&n&", Num[i]);
 }
 while(1)
 {
  for(i=0;i<500;i++)
  {
   P.bmap = bmap_create(SPRITE_str[i]);
   wait(1);
  }
  wait(1);
 }
}
PANEL X;
function main()
{
 X = pan_create("flags = SHOW;", 99);
 movie(.tga,X);
}