Converted Paid-Anal to autolink

src/Paid/Paid-Anal.twee

 /* Paid-Anal.twee */
 
-:: canal
-<<nobr>>Poppen für Geld
+:: canal [nobr]
+Poppen für Geld
 <<set $who.canalsex +=1, $who.counter += 1>>
 <hr>
 
-<<if $who.analvirgin == 1>><<takeVirgin $who $student 'anal'>>Anal deflowered!<br><</if>>
-
+<<set $unhide = $who.canalsex>>
 <<if $who.canalsex >= 4>><<set $unhide to random(1, 3)>><</if>>
 
-<<if $who.gender is "male" && $who.canalsex == 1 && $unhide == 0 or $who.gender is "male" && $unhide == 1>>
-
-<<if $who.unterhose == 1 && $who.rock == 1>>
-
-<<if $who.sperm == 1>><</if>>
-
-<<if $who.sperm == 0>><</if>>
-
-<</if>>
-
-<<if $who.unterhose == 1 && $who.rock == 0>>
-
-<<if $who.sperm == 1>><</if>>
-
-<<if $who.sperm == 0>><</if>>
-
-<</if>>
+<<if $who.analvirgin == 1>><<takeVirgin $who $student 'anal'>>Anal deflowered!<br><</if>>
 
-<<set $who.pervers += 1, $who.lust += 1>>
-@@#warn;Status: Perversity +1, Lust +1@@<br>
+<<autoinclude "paid-anal-">>
 <br>
 [[Back to class|clear]]
-<</if>>
-
-<<if $who.gender is "male" && $who.canalsex == 2 && $unhide == 0 or $who.gender is "male" && $unhide == 2>>
-
-<<if $who.unterhose == 1 && $who.rock == 1>>
-
-<<if $who.sperm == 1>><</if>>
-
-<<if $who.sperm == 0>><</if>>
 
-<</if>>
-
-<<if $who.unterhose == 1 && $who.rock == 0>>
-
-<<if $who.sperm == 1>><</if>>
-
-<<if $who.sperm == 0>><</if>>
-
-<</if>>
 
+:: paid-anal-1-male [nobr who.gender==male unhide==1]
+Poppen für Geld sequence 1, male<br>
+<br>
+<<if $who.unterhose == 1 && $who.rock == 1>>You remove $who.his $who.pants and $who.underpants.
+<<elseif $who.unterhose == 1 && $who.rock == 0>>$who.His $who.pants are already off. You remove $who.his $who.underpants.
+<<else>>$who.name is already bare-assed.<</if>><br>
+<br>
+<<incomplete>>
+<br>
+<<if $who.sperm == 1>>$who.name can ejaculate.<</if>>
+<<if $who.sperm == 0>>$who.name cannot ejaculate.<</if>><br>
+<br>
 <<set $who.pervers += 1, $who.lust += 1>>
 @@#warn;Status: Perversity +1, Lust +1@@<br>
-<br>
-[[Back to class|clear]]
-<</if>>
-
-<<if $who.gender is "male" && $who.canalsex == 3 && $unhide == 0 or $who.gender is "male" && $unhide == 3>>
-
-<<if $who.unterhose == 1 && $who.rock == 1>>
-
-<<if $who.sperm == 1>><</if>>
-
-<<if $who.sperm == 0>><</if>>
-
-<</if>>
-
-<<if $who.unterhose == 1 && $who.rock == 0>>
 
-<<if $who.sperm == 1>><</if>>
-
-<<if $who.sperm == 0>><</if>>
-
-<</if>>
 
+:: paid-anal-2-male [nobr who.gender==male unhide==2]
+Poppen für Geld sequence 2, male<br>
+<br>
+<<if $who.unterhose == 1 && $who.rock == 1>>You remove $who.his $who.pants and $who.underpants.
+<<elseif $who.unterhose == 1 && $who.rock == 0>>$who.His $who.pants are already off. You remove $who.his $who.underpants.
+<<else>>$who.name is already bare-assed.<</if>><br>
+<br>
+<<incomplete>>
+<br>
+<<if $who.sperm == 1>>$who.name can ejaculate.<</if>>
+<<if $who.sperm == 0>>$who.name cannot ejaculate.<</if>><br>
+<br>
 <<set $who.pervers += 1, $who.lust += 1>>
 @@#warn;Status: Perversity +1, Lust +1@@<br>
-<br>
-[[Back to class|clear]]
-<</if>>
-
 
-<<if $who.gender is "female" && $who.canalsex == 1 && $unhide == 0 or $who.gender is "female" && $unhide == 1>>
-
-<<if $who.unterhose == 1 && $who.rock == 1>><</if>>
-
-<<if $who.unterhose == 1 && $who.rock == 0>><</if>>
-
-<<if $who.tshirt == 0 && $who.unterhose == 0 && $who.rock == 0>><</if>>
 
+:: paid-anal-3-male [nobr who.gender==male unhide==3]
+Poppen für Geld sequence 3, male<br>
+<br>
+<<if $who.unterhose == 1 && $who.rock == 1>>You remove $who.his $who.pants and $who.underpants.
+<<elseif $who.unterhose == 1 && $who.rock == 0>>$who.His $who.pants are already off. You remove $who.his $who.underpants.
+<<else>>$who.name is already bare-assed.<</if>><br>
+<br>
+<<incomplete>>
+<br>
+<<if $who.sperm == 1>>$who.name can ejaculate.<</if>>
+<<if $who.sperm == 0>>$who.name cannot ejaculate.<</if>><br>
+<br>
 <<set $who.pervers += 1, $who.lust += 1>>
 @@#warn;Status: Perversity +1, Lust +1@@<br>
-<br>
-[[Back to Class|clear]]
-<</if>>
 
-<<if $who.gender is "female" && $who.canalsex == 2 && $unhide == 0 or $who.gender is "female" && $unhide == 2>>
-
-<<if $who.unterhose == 1 && $who.rock == 1>><</if>>
-
-<<if $who.unterhose == 1 && $who.rock == 0>><</if>>
-
-<<if $who.tshirt == 0 && $who.unterhose == 0 && $who.rock == 0>><</if>>
 
+:: paid-anal-1-female [nobr who.gender==female unhide==1]
+Poppen für Geld sequence 1, female<br>
+<<if $who.unterhose == 1 && $who.rock == 1>>Strip her skirt and panties.<</if>>
+<<if $who.unterhose == 1 && $who.rock == 0>>She is wearing only panties. Strip her panties.<</if>>
+<<if $who.tshirt == 1>>She looks very cute wearing just a shirt with nothing on underneath.<</if>>
+<<if $who.tshirt == 0 && $who.unterhose == 0 && $who.rock == 0>>She is already totally naked.<</if>>
+<br>
+<<incomplete>>
+<br>
 <<set $who.pervers += 1, $who.lust += 1>>
 @@#warn;Status: Perversity +1, Lust +1@@<br>
-<br>
-[[Back to Class|clear]]
-<</if>>
 
-<<if $who.gender is "female" && $who.canalsex == 3 && $unhide == 0 or $who.gender is "female" && $unhide == 3>>
 
-<<if $who.unterhose == 1 && $who.rock == 1>><</if>>
-
-<<if $who.unterhose == 1 && $who.rock == 0>><</if>>
+:: paid-anal-2-female [nobr who.gender==female unhide==2]
+Poppen für Geld sequence 2, female<br>
+<<if $who.unterhose == 1 && $who.rock == 1>>Strip her skirt and panties.<</if>>
+<<if $who.unterhose == 1 && $who.rock == 0>>She is wearing only panties. Strip her panties.<</if>>
+<<if $who.tshirt == 1>>She looks very cute wearing just a shirt with nothing on underneath.<</if>>
+<<if $who.tshirt == 0 && $who.unterhose == 0 && $who.rock == 0>>She is already totally naked.<</if>>
+<br>
+<<incomplete>>
+<br>
+<<set $who.pervers += 1, $who.lust += 1>>
+@@#warn;Status: Perversity +1, Lust +1@@<br>
 
-<<if $who.tshirt == 0 && $who.unterhose == 0 && $who.rock == 0>><</if>>
 
+:: paid-anal-3-female [nobr who.gender==female unhide==3]
+Poppen für Geld sequence 3, female<br>
+<<if $who.unterhose == 1 && $who.rock == 1>>Strip her skirt and panties.<</if>>
+<<if $who.unterhose == 1 && $who.rock == 0>>She is wearing only panties. Strip her panties.<</if>>
+<<if $who.tshirt == 1>>She looks very cute wearing just a shirt with nothing on underneath.<</if>>
+<<if $who.tshirt == 0 && $who.unterhose == 0 && $who.rock == 0>>She is already totally naked.<</if>>
+<br>
+<<incomplete>>
+<br>
 <<set $who.pervers += 1, $who.lust += 1>>
 @@#warn;Status: Perversity +1, Lust +1@@<br>
-<br>
-[[Back to class|clear]]
-<</if>>
-
-<</nobr>>