~beaky/wacs/trunk

« back to all changes in this revision

Viewing changes to tools/wacsgenvid

  • Committer: beaky
  • Date: 2023-10-24 18:29:30 UTC
  • Revision ID: svn-v4:4196e993-711f-0410-950c-c89e1d26c723:trunk:3025
Updates to make A=All Girl, D=BDSM set types work better.

Show diffs side-by-side

added added

removed removed

Lines of Context:
4
4
#    (formerly known as genvideo)
5
5
#
6
6
#    (C) Copyright 2006,2007,2008,2009,2010,2011,2013,2014,2015,2016,2017,2018,
7
 
#                  2019,2020,2021 B King
 
7
#                  2019,2020,2021,2023 B King
8
8
#    This file is part of WACS.
9
9
#
10
10
#    WACS is free software; you can redistribute it and/or modify
645
645
                $aesetflag = "L";
646
646
                $kwsattr .= " lesbian";
647
647
        }
 
648
        if( id_get_flag eq "A" || $catflag eq "A" )
 
649
        {
 
650
                # another lesbian case, again not usually picked up by keyword
 
651
                $aesetflag = "A";
 
652
                $kwsattr .= " lesbian fff";
 
653
        }
648
654
        if( $catflag eq "G" )
649
655
        {
650
656
                # the group orgy includes straight sex, so it may have