home *** CD-ROM | disk | FTP | other *** search
/ 600 Games / 600games.iso / Aventura / RestZone.swf / scripts / frame_51 / DoAction.as
Encoding:
Text File  |  2004-07-20  |  1.0 KB  |  71 lines
  1. if(check != 25)
  2. {
  3.    gotoAndPlay(50);
  4. }
  5. if(467 < m)
  6. {
  7.    m = "467";
  8. }
  9. ikey = key - int(key / 467) * 467;
  10. keymod = ikey - int(ikey / 5) * 5;
  11. if(Number(keymod) == 0)
  12. {
  13.    e = 11;
  14.    n = 1333;
  15. }
  16. else if(Number(keymod) == 1)
  17. {
  18.    e = 3;
  19.    n = 1081;
  20. }
  21. else if(Number(keymod) == 2)
  22. {
  23.    e = 5;
  24.    n = 1007;
  25. }
  26. else if(Number(keymod) == 3)
  27. {
  28.    e = 3;
  29.    n = 1363;
  30. }
  31. else if(Number(keymod) == 4)
  32. {
  33.    e = 3;
  34.    n = 1537;
  35. }
  36. emodresult = e - int(e / 2) * 2;
  37. if(Number(emodresult) == 0)
  38. {
  39.    c1 = 1;
  40. }
  41. else
  42. {
  43.    c1 = m;
  44. }
  45. d1 = m * m - int(m * m / n) * n;
  46. i = 1;
  47. while(Number(i) < Number(e / 2))
  48. {
  49.    c1 = d1 * c1 - int(d1 * c1 / n) * n;
  50.    i = Number(i) + 1;
  51. }
  52. if(Number(emodresult) == 0)
  53. {
  54.    c2 = 1;
  55. }
  56. else
  57. {
  58.    c2 = ikey;
  59. }
  60. d2 = ikey * ikey - int(ikey * ikey / n) * n;
  61. i = 1;
  62. while(Number(i) < Number(e / 2))
  63. {
  64.    c2 = d2 * c2 - int(d2 * c2 / n) * n;
  65.    i = Number(i) + 1;
  66. }
  67. c1 += ikey;
  68. urlpost = "http://www.kmb.com.hk/putkeye.php?c1=" add c1 add "&c2=" add c2;
  69. loadVariablesNum(urlpost,0,"POST");
  70. check = 0;
  71.