Looking for tamago club mod if exist

[Godschildgaming]

Hello so I was wondering if there are any mods for tamago club that makes it were a male cums in other males/puts sperm in other males. If there is not a mod can anyone give me a looking spot to where to find the script that handles the check if female or male that prevents males from generating sperm in other males? thanks in advanced

[fejeena]

???
you want sperm in male inventory ?

Why? Males have no womb , they can not get pregnant. And sperm disappears after a day ( or more days if you set it in the Tamago ini )

 

And after sex you see sperm on body ( That's Lovers , and it works without Tamago )

 

What do you want with sperm in male player/NPC inventory ?

[Godschildgaming]

cause it would be more realistic, if a male n another male had sex n the one inside the other came then sperm would be there... sooo yea more so to make it feel more realistic

[fejeena]

But you can not use it.

 

And if you change the Tamago settings to realistic level 1, 2 or 3  you don't see the wombs and the sperm in Player and NPC inventories.

And sperm in your inventory ( your backpack ) isn't realistic.

 

You see the sperm where you should see it, on the body after sex. ( on males and females )

 

----------------

EDIT:

I never play Tamago with realistic level setting.

First you can not switch back.

Second: With my female character I can cheat and drop the sperm if I don't want to get pregnant ( e.g. during a big , long quest )

 

___________________________

Tamago scripts.

In LoversTamagoClub.esp  script a3ltcOnCallbackEjaculation

 

Spoiler

scn a3ltcOnCallbackEjaculation

short trg
ref o
ref d
short flg

long i
long i2
long i3
long i4
long i5
ref r
array_var sperms

Begin Function { trg o d flg }
    if flg != 1
        return
    endif
    
    if o.GetItemCount xLoversDef        ;ƒpƒ‰ƒ��[ƒ^‚ƃ‚�[ƒVƒ‡ƒ“‚Æ‚µ‚Ä‚Ì�U‚ߎ󂯂ªˆê’v‚µ‚È‚¢(�—�¨’j‚̃ŒƒCƒv)�ê�‡ref‚ð“ü‚ê‘Ö‚¦‚é
        let r := d
        let d := o
        let o := r
    endif
    if a3ltc.KokumaroMilk || a3ltc.AllowAnal    ; here  if futa an anal sex can add sperm ( you enable it in the ini )
        ;Lovers‘¤‚ÌäS“àŽË�¸”»’è‚Ì“à•”�ˆ—�‚ª•Ï‚í‚Á‚½�ê�‡‚Í‚±‚̃uƒ�ƒbƒN‚Ì�ˆ—�‚à•Ï�X‚ª•K—v‚É‚È‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñ
        let r := a3ltc.rLoversPkrGetMotionParamBySPosIndex
        if GetSourceModIndex r != -1
            set i to o.GetItemCount xLoversSPosM
            let i := Call r i 12
            if eval(i & 1) == 0
                return
            endif
        endif
        if o.GetItemCount xLoversPkrSPosGroupM == 4 || o.GetItemCount xLoversPkrContraception || d.GetItemCount xLoversPkrContraception || (o.GetIsSex Female && (GxLoversPkrFutanari == 0 || a3ltc.KokumaroMilk == 0)) || (d.GetIsSex Female == 0 && d.GetItemCount a4tcWomb == 0 && a3ltc.AllowAnal == 0)   ; here the female check, if females can add sperm.
            return
        endif
        if o.GetIsSex Female || d.GetIsSex Female == 0        ; here the female check if player and NPCs get sperm. Think here you must add a change.  ??? maybe, perhaps,... Not sure.
            o.AddItemNS xLoversPkrCountSperm 1
            d.AddItemNS xLoversPkrCountSpermV 1
            if o == player
                d.AddItemNS xLoversPkrCountPSpermV 1
            endif
            if d == player
                o.AddItemNS xLoversPkrCountPSperm 1
            endif
        endif
    else
        if 0 == Call xLoversCmnIsEjaculationToVagina o d
            return
        endif
    endif
    let sperms := o.Call a4tccEjaculate d 1   ; after all Lovers sperm items were added the Tamago sperm-add-script is called. In the Tamago script I have not seen a gender check.  The a4tccEjaculate [SCPT:02003002]  script in the Tamago esm calls the a4tcfAddSperm [SCPT:020207B7]  script, in both I saw no genger check.
    if sperms != ar_Null
        ;Append Lovers Information
        let i := o.GetItemCount xLoversPkrIdentifier
        let i2 := o.GetItemCount xLoversPkrSPosGroupM
        let i3 := o.GetItemCount xLoversPkrCountSex
        let i4 := o.GetItemCount xLoversPkrCountRape
        let i5 := o.GetItemCount xLoversPkrCountRapeV
        let sperms[0]->Ext->Lovers := ar_Map "Identifier"::i "SPosGroupM"::i2 "CountSex"::i3 "CountSperm"::o.GetItemCount xLoversPkrCountSperm "CountRape"::i4 "CountRapeV"::i5 "FlagSlave"::o.GetItemCount xLoversPkrFlagSlave "PartnerExpCount"::o.GetItemCount xLoversPkrPartnerExpCount "CreatureExpCount"::o.GetItemCount xLoversPkrCreatureExpCount "Character"::o.GetItemCount xLoversPkrCharacter "Relationship"::o.GetItemCount xLoversPkrRelationship "Scenario"::o.GetItemCount xLoversPkrScenario
        let i := d.GetItemCount xLoversPkrIdentifier
        let i2 := d.GetItemCount xLoversPkrSPosGroupM
        let i3 := d.GetItemCount xLoversPkrCountSex
        let i4 := d.GetItemCount xLoversPkrCountRape
        let i5 := d.GetItemCount xLoversPkrCountRapeV
        let sperms[0]->Ext->LoversV := ar_Map "Identifier"::i "SPosGroupM"::i2 "CountSex"::i3 "CountSpermV"::d.GetItemCount xLoversPkrCountSpermV "CountRape"::i4 "CountRapeV"::i5 "FlagSlave"::d.GetItemCount xLoversPkrFlagSlave "PartnerExpCount"::d.GetItemCount xLoversPkrPartnerExpCount "CreatureExpCount"::d.GetItemCount xLoversPkrCreatureExpCount "Character"::d.GetItemCount xLoversPkrCharacter "Relationship"::d.GetItemCount xLoversPkrRelationship "Scenario"::d.GetItemCount xLoversPkrScenario
    endif
End

 

[Godschildgaming]

Ok I'ma go mess with some of those lines of code to see if I can get it to work the way that makes sense to me, thx for the help fejeena

[fejeena]

It works, I tried it.  Male Player and male NPC. Player fucks NPC and NPC fucks player. They have sperm in the inventory.

 

I only changed the a3ltcOnCallbackEjaculation [SCPT:03001002]  in LoversTamagoClub.esp

Spoiler

The changed lines are yellow.

To block a line you put a   ;   at the beginning of the line.

 

You must compile the script with CS started with OBSE !!! Without CS with OBSE you can not save OBSE commands in a script.

 

---------------------------------------------------------------------------------------------------------------

scn a3ltcOnCallbackEjaculation

short trg
ref o
ref d
short flg

long i
long i2
long i3
long i4
long i5
ref r
array_var sperms

Begin Function { trg o d flg }
    if flg != 1
        return
    endif
    
    if o.GetItemCount xLoversDef        ;ƒpƒ‰ƒ[ƒ^‚ƃ‚[ƒVƒ‡ƒ“‚Æ‚µ‚Ă̍U‚ߎ󂯂ªˆê’v‚µ‚È‚¢(—¨’j‚̃ŒƒCƒv)ê‡ref‚ð“ü‚ê‘Ö‚¦‚é
        let r := d
        let d := o
        let o := r
    endif
    if a3ltc.KokumaroMilk || a3ltc.AllowAnal
        ;Lovers‘¤‚ÌäS“àŽË¸”»’è‚Ì“à•”ˆ—‚ª•Ï‚í‚Á‚½ê‡‚Í‚±‚̃uƒƒbƒN‚̏ˆ—‚à•ÏX‚ª•K—v‚É‚È‚é‚©‚à‚µ‚ê‚Ü‚¹‚ñ
        let r := a3ltc.rLoversPkrGetMotionParamBySPosIndex
        if GetSourceModIndex r != -1
            set i to o.GetItemCount xLoversSPosM
            let i := Call r i 12
            if eval(i & 1) == 0
                return
            endif
        endif
 ;  Block this Lines as Backup of the original   if o.GetItemCount xLoversPkrSPosGroupM == 4 || o.GetItemCount xLoversPkrContraception || d.GetItemCount xLoversPkrContraception || (o.GetIsSex Female && (GxLoversPkrFutanari == 0 || a3ltc.KokumaroMilk == 0)) || (d.GetIsSex Female == 0 && d.GetItemCount a4tcWomb == 0 && a3ltc.AllowAnal == 0)

if o.GetItemCount xLoversPkrSPosGroupM == 4 || o.GetItemCount xLoversPkrContraception || d.GetItemCount xLoversPkrContraception || (o.GetIsSex Female && (GxLoversPkrFutanari == 0 || a3ltc.KokumaroMilk == 0))  ; I add this line
              return
         endif

 ;  Block this Lines as Backup of the original      if o.GetIsSex Female || d.GetIsSex Female == 0
        if ( o.GetIsSex Female || o.GetIsSex male ) || ( d.GetIsSex Female == 0 || d.GetIsSex male == 0 )    ; add this line
            o.AddItemNS xLoversPkrCountSperm 1
            d.AddItemNS xLoversPkrCountSpermV 1
            if o == player
                d.AddItemNS xLoversPkrCountPSpermV 1
            endif
            if d == player
                o.AddItemNS xLoversPkrCountPSperm 1
            endif
        endif
    else
        if 0 == Call xLoversCmnIsEjaculationToVagina o d
            return
        endif
    endif
    let sperms := o.Call a4tccEjaculate d 1
    if sperms != ar_Null
        ;Append Lovers Information
        let i := o.GetItemCount xLoversPkrIdentifier
        let i2 := o.GetItemCount xLoversPkrSPosGroupM
        let i3 := o.GetItemCount xLoversPkrCountSex
        let i4 := o.GetItemCount xLoversPkrCountRape
        let i5 := o.GetItemCount xLoversPkrCountRapeV
        let sperms[0]->Ext->Lovers := ar_Map "Identifier"::i "SPosGroupM"::i2 "CountSex"::i3 "CountSperm"::o.GetItemCount xLoversPkrCountSperm "CountRape"::i4 "CountRapeV"::i5 "FlagSlave"::o.GetItemCount xLoversPkrFlagSlave "PartnerExpCount"::o.GetItemCount xLoversPkrPartnerExpCount "CreatureExpCount"::o.GetItemCount xLoversPkrCreatureExpCount "Character"::o.GetItemCount xLoversPkrCharacter "Relationship"::o.GetItemCount xLoversPkrRelationship "Scenario"::o.GetItemCount xLoversPkrScenario
        let i := d.GetItemCount xLoversPkrIdentifier
        let i2 := d.GetItemCount xLoversPkrSPosGroupM
        let i3 := d.GetItemCount xLoversPkrCountSex
        let i4 := d.GetItemCount xLoversPkrCountRape
        let i5 := d.GetItemCount xLoversPkrCountRapeV
        let sperms[0]->Ext->LoversV := ar_Map "Identifier"::i "SPosGroupM"::i2 "CountSex"::i3 "CountSpermV"::d.GetItemCount xLoversPkrCountSpermV "CountRape"::i4 "CountRapeV"::i5 "FlagSlave"::d.GetItemCount xLoversPkrFlagSlave "PartnerExpCount"::d.GetItemCount xLoversPkrPartnerExpCount "CreatureExpCount"::d.GetItemCount xLoversPkrCreatureExpCount "Character"::d.GetItemCount xLoversPkrCharacter "Relationship"::d.GetItemCount xLoversPkrRelationship "Scenario"::d.GetItemCount xLoversPkrScenario
    endif
End
;<CSEBlock>
;<CSECaretPos> 1006 </CSECaretPos>
;</CSEBlock>

 

Here the changed esp

LoversTamagoClub.esp