Triple Triad Sex Tweaks

[hothot995]

On 3/16/2026 at 4:15 AM, shardoom said:

Every game the opponent has better cards than me now, and pulls off moves I don't understand.

Not only do I not get sex, I'm not even able to win...

 

This isn't really sex mode, this is hard mode. lol

 

Is there any chance you could release a version without the tweaks, just the happy ending?

 

Haha yeah!

I also feel like this version is really difficult. With all the combinations like Plus and Combo, I often get wiped out instantly.

 

Is there any way to disable the random feature?

It feels like if the random part were removed, this mod would be perfect.

 

Thanks!

[damix0000]

I third that. Would love to see a version without tweaks with only paying with sex after losing.

[hothot995]

I tried modifying the script myself, but I kept failing.

Could the author please make a simplified version of the script, or maybe someone who knows how to edit it could help?

What I actually want is something like:
3 strong cards, 1 medium card, and 1 weak card.

The script is located in:
TT_Skyrim_QuestScript.pex

 

   
Function ChooseRandomPlayerCards() 

    Utility.Wait(0.2)
    TT_PlayerChestScript.GoToState("Busy")
    
    MiscObject lastCard
    cardsLvl1 = new MiscObject[128]
    cardsLvl3 = new MiscObject[128]
    cardsLvl5 = new MiscObject[128]
    cardsLvl7 = new MiscObject[128]
    cardsLvl9 = new MiscObject[128]
    cardsCount = new int[5]

    Int iFormIndex = TT_PlayerCardsChest.GetNumItems()
    While iFormIndex > 0
        iFormIndex -= 1
        Form kForm = TT_PlayerCardsChest.GetNthForm(iFormIndex)
        if kForm
            MiscObject card = kForm as MiscObject
            if card && card != lastCard
                lastCard = card
                int cardLevel = Math.Ceiling(card.GetGoldValue() / 10) as int
                ; Debug.trace("[ddtriad] Player card: " + card.GetName() + " level: " + cardLevel + " value: " + card.GetGoldValue())

                if cardLevel <= 2
                    cardsLvl1[cardsCount[0]] = card
                    cardsCount[0] = cardsCount[0] + 1
                elseif cardLevel <= 4
                    cardsLvl3[cardsCount[1]] = card
                    cardsCount[1] = cardsCount[1] + 1
                elseif cardLevel <= 6
                    cardsLvl5[cardsCount[2]] = card
                    cardsCount[2] = cardsCount[2] + 1
                elseif cardLevel <= 8
                    cardsLvl7[cardsCount[3]] = card
                    cardsCount[3] = cardsCount[3] + 1
                else
                    cardsLvl9[cardsCount[4]] = card
                    cardsCount[4] = cardsCount[4] + 1
                endif
            endif
        endif
    EndWhile            
    
    Debug.trace("[ddtriad] Player card count: " + cardsCount)
    if cardsCount[0] < 5
        ; not enough cards
        debug.MessageBox("You need at least 5 low level cards to play.")
        CancelGame = true
        EndGameC()
        return
    endif

    int slot = 0
    int i = 4
    While slot < 5
        if cardsCount > 0
            int count = cardsCount
            if count > 0
                int rCardIx = Utility.RandomInt(0, count - 1)
                MiscObject card 
                if i == 4
                    card = cardsLvl9[rCardIx]
                elseif i == 3
                    card = cardsLvl7[rCardIx]
                elseif i == 2
                    card = cardsLvl5[rCardIx]
                elseif i == 1
                    card = cardsLvl3[rCardIx]
                else
                    card = cardsLvl1[rCardIx]
                endif
                ChoosePlayerCard(slot, card, i)
                slot += 1
                
                if i == 0 ; avoid duplicate low level cards
                    cardsLvl1[rCardIx] = cardsLvl1[count - 1]
                    cardsCount = cardsCount - 1
                endif
            endif
        endif
        if i > 0
            i -= 1
        endif
    EndWhile
    
    Utility.Wait(0.2) 
    
    Int Ia = -1
    While Ia < 4
        Ia += 1
        TT_PlaceCard.Play(PlayerRef)
        TT_PlayerHandActivators[Ia].Enable()
        Utility.Wait(0.2)
    EndWhile
    
    Utility.Wait(0.5)
    
    Int Iz = -1
    While Iz < 4
        Iz += 1
        TT_PlaceCard.Play(PlayerRef)
        TT_OpponentHandStatics[Iz].Enable()
        Utility.Wait(0.2)
    EndWhile
    ;TT_PlayerChestScript.GoToState("GameActive")
    PlayerChoosesCardsB() 
EndFunction