XYplorer Beta Club

Code: Select all

"|:qns" button "qns"
"FIND FILES"
"|:find" button "find"
"Find Labels|:findlabel" button "findlabel",8
"Find Tags|:tagsfind" button "tagsfind"
"-"
"GLOBAL VISUAL FILTER"
"|:gvf" button "gvf"
"Power Filter|:gvf" button "gvf",8
"Settings|:gvf" button "gvf",2
"Filter by comment and tags|:visualfilter" sub "_fct"
"Filter by comment (improved)" sub "_fct2"
"-"
"TYPE AND STATS FILTER"
"|:tsf" button "tsf"
"Settings|:tsf" button "tsf",2

Code: Select all

"Slot Machine"
  $icons = ':meta|:cofi|:favs|:ctb1|:hotlist|:del|:nuke|:paper|:sfs|:ctb1';
  $winner = ':ctb1';

  $iconCount = GetToken($icons, 'Count', '|');

  // Wheels
  $w1 = FormatList($icons, 'x');
  $w2 = FormatList($icons, 'x');
  $w3 = FormatList($icons, 'x');

  // Seeds
  $s1 = Rand(1, $iconCount);
  $s2 = Rand(1, $iconCount);
  $s3 = Rand(1, $iconCount);

  // Cheater/Demo Mode
  //$w1 = ':del|:paper|:nuke|:favs|:meta|:cofi|:ctb1|:sfs|:hotlist|:ctb1';
  //$w2 = ':cofi|:nuke|:sfs|:del|:hotlist|:ctb1|:meta|:ctb1|:paper|:favs';
  //$w3 = ':nuke|:del|:paper|:ctb1|:meta|:favs|:cofi|:sfs|:hotlist|:ctb1'; 
  //$s1 = 6;$s2 = 3; $s3 = 5;  // Adjust for focused item.

  // Spin the Wheels
  $spins = 20;

  $i = 0;
  while ($i < $spins) {
    $p1 = $s1 + $i;
    $p2 = $s2 + $i;
    $p3 = $s3 + $i;

    // Update wheel positions
    foreach ($item, ListPane(), '|') {
      // Works better if the wheels do not all stop at once.
      if ($i < $spins - 4) {
        tagitems('ex1', GetToken($w1, $p1 % $iconCount + 1, '|'), $item);
      }
      if ($i < $spins - 2) {
        tagitems('ex2', GetToken($w2, $p2 % $iconCount + 1, '|'), $item);
      }
      tagitems('ex3', GetToken($w3, $p3 % $iconCount + 1, '|'), $item);
      $p1++;$p2++;$p3++;
    }
    wait 10;
    $i++;
  }

  // Check if focused item is a winner!
  $v = Report('{Extra 1}{Extra 2}{Extra 3}', <focitem>);
  if ($v == StrRepeat($winner, 3)) {
    $i = 0;
    while ($i < 5) {
      tagitems('ex1','',<focitem>);
      tagitems('ex2','',<focitem>);
      tagitems('ex3','',<focitem>);
      wait 250;
      tagitems('ex1',$winner,<focitem>);
      tagitems('ex2',$winner,<focitem>);
      tagitems('ex3',$winner,<focitem>);
      wait 250;
      $i++;
    }
  }