1 package org
.sevenchan
.dongs
.bodyparts
3 import org
.sevenchan
.dongs
.Creature
;
4 import flash
.net
.registerClassAlias
;
5 import org
.sevenchan
.dongs
.enchantment
.Enchantment
;
6 import org
.sevenchan
.dongs
.weapons
.IWeapon
;
11 public class Asshole
implements IBodyPart
13 registerClassAlias
("P_Asshole", Asshole
);
15 public var _name
:String;
16 public var timesFucked
:Number = 0;
17 public var volumeFilled
:Number = 0;
18 public var capacity
:Number = 1500;
19 public var filledWith
:String = "";
20 public var pregCounter
:Number = -1;
21 public var pregnantWith
:Creature
= null;
22 public var _location
:String = "right where it should be";
23 public var _pen
:Boolean = false;
25 public function Asshole
(value
:Number=0,name
:String="")
31 private var _value
:Number;
32 public function get value
():Number {
36 public function get category
():String {
40 public function get name
():String {
44 public function get location
():String { return _location
;}
46 public function impregnate
(balls
:Vector
.<Testicle
>):void {
47 var amtCum
:Number = 0;
48 var enchTxt
:String = "";
49 var semen
:String = balls
[0].semen
;
50 var asshole
:Boolean = true;
52 for (var i
:int = 0; i
< balls
.length
; i
++) {
53 var t
:Testicle
= balls
[i
];
54 amtCum
+=t
.loadMult
* t
.normalLoad
;
58 volumeFilled
= amtCum
;
62 public function get sellDesc
():String { return getDescr
(-1,null); }
64 public function getDescr
(num
:Number, host
:Creature
):String {
65 var tightness
:String = "tight";
66 var filled
:String = "";
67 var stretched
:String = "";
71 filled
= ", "+pregnantWith
.getTypeName
()+"-impregnated"; // Oh god how do i describe this
73 if (filledWith
.length
!= 0)
74 filled
= ", " + filledWith
+ "-filled";
76 if (volumeFilled
> capacity
&& num
>0)
77 stretched
= " (<b>Your belly has swelled to accomodate the sheer volume.</b>)";
81 return o
+tightness
+filled
+ " "+_name
+ " asshole"+((num
>1)?"s":"")+", "+location
+""+stretched
;
85 public function getShortDescr
(withModifier
:Boolean = false):String {
86 var t
:String = "asshole";
91 public function onFailedAttack
(from
:Creature
, to
:Creature
):void{}
92 public function onGoodAttack
(from
:Creature
, to
:Creature
):void { }
94 public function isPenetrated
():Boolean { return _pen
; }
96 private var _weapon
:IWeapon
= null;
97 public function get weapon
():IWeapon
{ return _weapon
; }
98 public function tryEquip
(weap
:IWeapon
):Boolean