home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Puzzle / frog_day.swf / scripts / DefineSprite_245 / frame_3 / DoAction.as
Encoding:
Text File  |  2007-03-20  |  1.4 KB  |  71 lines
  1. if(my_name eq "")
  2. {
  3.    my_name = "-----";
  4. }
  5. if(wordbank.substr("1","1") ne ",")
  6. {
  7.    wordbank = "," add wordbank add ",";
  8. }
  9. comma = "0";
  10. r = length(wordbank);
  11. count = "1";
  12. while(r >= count)
  13. {
  14.    if(wordbank.substr(count,"1") eq ",")
  15.    {
  16.       comma += "1";
  17.       set("num" add comma,count);
  18.    }
  19.    count += "1";
  20. }
  21. count = "1";
  22. while(comma >= count)
  23. {
  24.    set("bad" add count,wordbank.substr(eval("num" add count) + "1",eval("num" add (count + "1")) - eval("num" add count) - "1"));
  25.    count += "1";
  26. }
  27. badwords = comma - "1";
  28. short = my_name;
  29. length = length(short);
  30. l = "1";
  31. while(length >= l)
  32. {
  33.    set("w" add l,ord(short.substr(l,"1")));
  34.    if(eval("w" add l) >= "65" and "90" >= eval("w" add l))
  35.    {
  36.       set("w" add l,chr(eval("w" add l) + "32"));
  37.    }
  38.    else
  39.    {
  40.       set("w" add l,chr(eval("w" add l)));
  41.    }
  42.    l += "1";
  43. }
  44. l = "1";
  45. short = "";
  46. while(length >= l)
  47. {
  48.    short = short add eval("w" add l);
  49.    l += "1";
  50. }
  51. m = "1";
  52. n = length(my_name);
  53. while(badwords >= m)
  54. {
  55.    if(n >= length(eval("bad" add m)))
  56.    {
  57.       v = "1";
  58.       while(n - length(eval("bad" add m)) + "1" >= v)
  59.       {
  60.          if(short.substr(v,length(eval("bad" add m))) eq eval("bad" add m))
  61.          {
  62.             my_name = word_replacer;
  63.          }
  64.          v += "1";
  65.       }
  66.    }
  67.    m += "1";
  68. }
  69. loadVariables(score_keeper,"","POST");
  70. gotoAndPlay(19);
  71.