home *** CD-ROM | disk | FTP | other *** search
/ Geek Games #12 / GEGA012.iso / eroticos / SpeedStripPoker.swf / scripts / frame_1 / DoAction.as
Text File  |  2006-01-17  |  631b  |  30 lines
  1. function GameInit()
  2. {
  3.    level = 1;
  4.    yermunny = 300;
  5.    hermunny = 500;
  6.    tellTarget(moneyflasher)
  7.    {
  8.       gotoAndPlay(1);
  9.    }
  10. }
  11. function dealnewhand()
  12. {
  13.    card1 = int(Math.random() * 13) + 1;
  14.    card2 = int(Math.random() * 13) + 1;
  15.    suit1 = int(Math.random() * 4);
  16.    suit2 = int(Math.random() * 4);
  17.    while(suit1 == suit2)
  18.    {
  19.       suit2 = int(Math.random() * 4);
  20.    }
  21.    _root.yercard.gotoAndStop(card1 + 2 + suit1 * 13);
  22.    _root.hercard.gotoAndStop(2);
  23.    gotoAndStop(2);
  24. }
  25. demo = 1;
  26. GameInit();
  27. getUrl("FSCommand:showmenu", "false");
  28. getUrl("FSCommand:allowscale", "false");
  29. stop();
  30.