1 package org
.sevenchan
.dongs
.bodyparts
3 import org
.sevenchan
.dongs
.Creature
;
4 import org
.sevenchan
.dongs
.enchantment
.*;
5 import flash
.net
.registerClassAlias
;
10 public class Penis
implements IBodyPart
12 registerClassAlias
("P_Dick", Penis
);
13 public static const HUMAN
:Penis
= new Penis
("human", 5.5, null, null);
14 public var size
:Number = 0;
15 public var sizeMult
:Number = 1;
16 public var _name
:String;
17 public function Penis
(name
:String="",sz
:Number=1,targetEnch
:Enchantment
=null,hostEnch
:Enchantment
=null)
23 public function get name
():String {
27 public function getDescr
(num
:Number, host
:Creature
):String {
28 var sizeDesc
:String = "average";
29 var erectDesc
:String = "flaccid";
32 var lust
:Number = host
.lust
;
33 var sz
:Number = size
* sizeMult
;
35 if (sz
> 100) sizeDesc
= "car-sized, bloated and";
36 else if (sz
> 50) sizeDesc
= "man-sized, bulging and";
37 else if (sz
> 35) sizeDesc
= "huge, pulsing and";
38 else if (sz
> 20) sizeDesc
= "massive";
39 else if (sz
> 10) sizeDesc
= "big";
40 else if (sz
> 7) sizeDesc
= "large";
42 if (lust
>= 100) erectDesc
= "rock-hard, throbbing";
43 else if (lust
>= 75) erectDesc
= "hard";
44 else if (lust
>= 50) erectDesc
= "hardening";
45 else if (lust
>= 25) erectDesc
= "growing";
47 switch(Math.round
(MathUtils
.rand
(0, 3))) {
65 return num
+ " " +sizeDesc
+" "+ erectDesc
+" "+MathUtils
.inchesToFootInches
(sz
)+" "+ name
+ " "+dick
+((num
>1)?"s":"");
67 public function onFailedAttack
(from
:Creature
, to
:Creature
):void{}
68 public function onGoodAttack
(from
:Creature
, to
:Creature
):void{}