:: SE custom slave delivery

<<nobr>>

<<set $nextButton to "Continue">>
<<set $nextLink to "Scheduled Event">>
<<set $returnTo to "Scheduled Event">>
<<set $showEncyclopedia to 1>><<set $encyclopedia to "Enslaving People">>

<<set $customSlaveOrdered to 0>>

<<set $activeSlave to $customSlave>>

<<set $activeSlave.ID to $IDNumber>>
<<set $IDNumber += 1>>

<<set $activeSlave.weekAcquired to $week>>
<<set $activeSlave.origin to "You purchased her by special order.">>

<<RandomizeAttraction>>
<<set $activeSlave.fetishStrength = random(0,90)>>
<<set $activeSlave.fetish to either("none", "none", "none", "none", "none", "none", "submissive", "cumslut", "humiliation", "buttslut", "boobs", "pregnancy")>>

<<set $activeSlave.sexualFlaw to either("none")>>
<<set $activeSlave.behavioralFlaw to either("none")>>

<<set $activeSlave.devotion = random(-10,10)>>
<<set $activeSlave.trust = random(-10,10)>>

<<NationalityToRace $activeSlave>>
<<NationalityToName $activeSlave>>
<<NationalityToAccent $activeSlave>>

<<if $activeSlave.race is "black">>
	<<set $activeSlave.skin to either("black", "brown", "light brown")>>
	<<set $activeSlave.hColor to either("black", "black", "black", "brown")>>
	<<set $activeSlave.hStyle to either("shoulder-length", "short", "very short", "shaved bald", "crinkled")>>
<<elseif $activeSlave.race is "white">>
	<<set $activeSlave.skin to either("pale", "tanned", "fair")>>
	<<set $activeSlave.eyeColor to either("blue", "brown", "green")>>
	<<set $activeSlave.hColor to either("black", "blonde", "red", "brown")>>
	<<set $activeSlave.hStyle to either("ass-length", "long", "shoulder-length", "short", "very short", "shaved bald")>>
<<elseif $activeSlave.race is "latina">>
	<<set $activeSlave.skin to either("olive", "brown", "light brown", "tanned", "fair")>>
	<<set $activeSlave.hColor to either("black", "black", "brown", "brown")>>
	<<set $activeSlave.hStyle to either("ass-length", "long", "shoulder-length", "short", "very short", "shaved bald")>>
<<elseif $activeSlave.race is "asian">>
	<<set $activeSlave.skin to either("pale", "dark", "light")>>
	<<set $activeSlave.hColor to either("black")>>
	<<set $activeSlave.hStyle to either("ass-length", "long", "shoulder-length", "short", "very short", "shaved bald")>>
<<elseif ($activeSlave.race is "indo-aryan") || ($activeSlave.race is "malay") || ($activeSlave.race is "pacific islander") || ($activeSlave.race is "amerindian")>>
	<<set $activeSlave.skin to either("pale", "dark", "light")>>
	<<set $activeSlave.hColor to either("black")>>
	<<set $activeSlave.hStyle to either("ass-length", "long", "shoulder-length", "short", "very short", "shaved bald")>>
<<elseif ($activeSlave.race is "middle eastern") || ($activeSlave.race is "semitic") || ($activeSlave.race is "southern European")>>
	<<set $activeSlave.skin to either("pale", "dark", "light")>>
	<<set $activeSlave.hColor to either("black")>>
	<<set $activeSlave.hStyle to either("ass-length", "long", "shoulder-length", "short", "very short", "shaved bald")>>
<</if>>

<<set $activeSlave.slaveName to $activeSlave.birthName>>

<<if $activeSlave.anus == 0>>
	<<set $activeSlave.analSkill = 0>>
<</if>>

<<if $activeSlave.balls > 0>>
	<<set $activeSlave.scrotum to $activeSlave.balls >>
<</if>>

<<if $activeSlave.vagina is -1>>
	<<set $activeSlave.vaginalSkill = 0>>
	<<set $activeSlave.clit to 0>>
	<<set $activeSlave.preg to -2>>
	<<if $activeSlave.fetish is "pregnancy">><<set $activeSlave.fetish to "none">><</if>>
<</if>>

<<slaveCost $activeSlave>>
<<set $slaveCost to $slaveCost*2>>

<</nobr>>\
\
A slave dealer has submitted a slave to satisfy the order you posted.

//As usual, the asking price is quite high, to cover the costs of finding a slave to order. In compensation, you can freely decline the slave and keep the order open, or even modify it later.//

<<set $saleDescription to 1>><<include "Long Slave Description">><<set $saleDescription to 0>>

Her price is ¤<<print $slaveCost>>.

<span id="result">
<<if $cash >= $slaveCost>>\
	<<link "Accept the offered slave">>
	<<AddSlave $activeSlave>>
	<<set $cash -= $slaveCost>>
	<<replace "#result">>
	She has been reasonably broken by the dealer that offered her to you. She has also picked up on the fact that she was specially selected, and is a little hopeful that this means she may be treated well. She is now awaiting your instructions.
	<<set $nextLink to "AS Dump">>\
	<<set $returnTo to "Random Nonindividual Event">>\
	<<include "New Slave Intro">>
	<</replace>>
<</link>>
<<else>>\
	//You lack the necessary funds to accept the offered slave.//
<</if>>\
</span>
