?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Python parser added.
[18plus-7leafadventure.git] / src / org / sevenchan / dongs / Creature.as
blobb7f377ec3d210fb57b608b060171ff66767904d7
1 package org.sevenchan.dongs
2 {
3 import flash.net.*;
4 import org.sevenchan.AdventureController;
5 import org.sevenchan.dongs.bodyparts.*;
6 import org.sevenchan.dongs.clothing.Clothing;
7 import org.sevenchan.dongs.clothing.ClothingType;
8 import org.sevenchan.dongs.creature.*;
9 import org.sevenchan.dongs.enchantment.*;
10 import org.sevenchan.dongs.enchantment.events.*;
11 import org.sevenchan.dongs.screens.*;
12 import org.sevenchan.dongs.weapons.IWeapon;
13
14 /**
15 * It's alive!
16 * @author Harbinger
17 */
18 public class Creature
19 {
20 registerClassAlias("ECreature", Creature);
21
22 // Characteristics
23 public var customized:Boolean = false;
24 public var ownName:String = "Blah Blah"; // Who am I?
25 public var height:Number = 0.0; // How tall am I?
26 public var build:Build = Build.AVG; // How fat am I?
27 public var material:Material = Material.NO_MATERIAL_MODIFIER; // What am I made of?
28 public var hair:Hair = Hair.BALD; // His/her/hir hair is...
29 public var skin:Skin = new Skin("human"); // His/her/hir hair is...
30 public var _gender:Gender = Gender.ASEXUAL; // Boy, Girl, Neither, Both?
31 public var sexualPreference:SexualPreference = SexualPreference.ASEXUAL; // Straight, Gay, ASexual, Bi?
32
33 private var mGenderInitialized:Boolean = false;
34
35 // Stats (CACHED VALUES)
36 public var _level:int = 0; // In comparison to standard human being. No attacking rats for 20 levels.
37 private var d_level:int = 0; // Delta
38 public var _strength:int = 1; // Damage caused in case of a successful attack.
39 public var _speed:int = 1; // Chance of dodging [0-1]. defending.speed-attacking.speed = relative chance of dodging.
40 public var _intellect:int = 1; // Smartness. Opens dialog trees and gives hints.
41 public var _lust:int = 1; // Slowly increases over time, eliminated by masturbation or smecks. Some battles are nonsexual and will not affect lust, others will slightly increase it based on ((number of balls x ball hormone output)+(number of vaginas * vagina hormone output)* sensitivity).
42 public var _sensitivity:Number = 0; // 0-1, 0 being not sensitive
43 public var _HP:int = 100; //100*(level*0.02)
44 public var _XP:int = 0; // 50*(level*0.5)
45 public var _mana:int = 0; // Magic shit, increases over time, especially near relaxing places.
46 public var _gold:int = 0; // Currency
47
48 // Collections
49 // What magic/techniques can I use?
50 public var _abilities:Object = new Object();
51 // How many, and what type of assholes do I possess?
52 public var _assholes:Vector.<Asshole> = new Vector.<Asshole>();
53 // Needed to attack. Tentacles are ok.
54 public var _arms:Vector.<Arm> = new Vector.<Arm>();
55 // Testes (Cum and pregnancy options)
56 public var _balls:Vector.<Testicle> = new Vector.<Testicle>();
57 // Boobs (fuckable)
58 public var _breasts:Vector.<Breast> = new Vector.<Breast>();
59 // Penises (Pleasure options, testes required for preggo/cum stuff)
60 public var _dicks:Vector.<Penis> = new Vector.<Penis>();
61 // What kinds of effects am I suffering/benefiting from?
62 public var enchantments:Object = new Object();
63 // How many/what kinds of eyes do I have?
64 public var _eyes:Vector.<Eye> = new Vector.<Eye>();
65 // What stuff am I carrying?
66 public var inventory:Vector.<Item> = new Vector.<Item>();
67 // Legs or locomotive tentacles or some other propulsion. (NONE = CAN'T MOVE OR DODGE)
68 public var _legs:Vector.<Leg> = new Vector.<Leg>();
69 // Places to put babies if the "father" has a penis and doesn't know the FALCON PUNCH. Anal pregnancy is okay but only with dicks with that flag.
70 public var _vaginas:Vector.<Vagina> = new Vector.<Vagina>();
71 // For flight.
72 public var _wings:Vector.<Wing> = new Vector.<Wing>();
73 // Explored locations
74 public var explored:Vector.<String> = new Vector.<String>();
75
76 public var clothing:Vector.<Clothing> = new Vector.<Clothing>();
77
78 /**
79 * Do stats scale with the PC (false) or stay the same (true)?
80 * Mostly useful for bosses.
81 */
82 public var staticStats:Boolean = false;
83
84 public var main:AdventureController = null;
85
86 protected var abilityUseProbability:Number = 1;
87 protected var turnsToLose:int = 0;
88
89 public function Creature()
90 {
91 trace("Creature.init()");
92 clearFuckingEverything();
93
94 _gold = MathUtils.rand(0, 50);
95 _mana = maxMana;
96 }
97
98 /**
99 * IF YOU ADD ANY NEW VARIABLES TO THIS CLASS, RESET THEM TO DEFAULT VALUES HERE!
100 */
101 private function clearFuckingEverything():void {
102 _level = 0; // In comparison to standard human being. No attacking rats for 20 levels.
103 d_level = 0; // Delta
104 _strength = 1; // Damage caused in case of a successful attack.
105 _speed = 1; // Chance of dodging [0-1]. defending.speed-attacking.speed = relative chance of dodging.
106 _intellect = 1; // Smartness. Opens dialog trees and gives hints.
107 _lust = 1; // Slowly increases over time, eliminated by masturbation or smecks. Some battles are nonsexual and will not affect lust, others will slightly increase it based on ((number of balls x ball hormone output)+(number of vaginas * vagina hormone output)* sensitivity).
108 _sensitivity = 0; // 0-1, 0 being not sensitive
109 _HP = 100; //100*(level*0.02)
110 _XP = 0; // 50*(level*0.5)
111 _mana = 0; // Magic shit, increases over time, especially near relaxing places.
112 _gold = 0; // Currency
113
114 _abilities = new Object();
115 _assholes = new Vector.<Asshole>();
116 _arms = new Vector.<Arm>();
117 _balls = new Vector.<Testicle>();
118 _breasts = new Vector.<Breast>();
119 _dicks = new Vector.<Penis>();
120 enchantments = new Object();
121 _eyes = new Vector.<Eye>();
122 inventory = new Vector.<Item>();
123 _legs = new Vector.<Leg>();
124 _vaginas = new Vector.<Vagina>();
125 _wings = new Vector.<Wing>();
126 explored = new Vector.<String>();
127 clothing = new Vector.<Clothing>();
128 }
129
130 public function addBreast():Breast
131 {
132 trace("USING CREATURE.ADDBREAST INSTEAD OF OVERRIDING");
133 return null;
134 }
135
136 /**
137 * IT'S A TRAP
138 * @return What the gender LOOKS like, given what you can see with clothing.
139 */
140 public function getApparentGender():Gender
141 {
142 var canSeeDick:Boolean = false;
143 var canSeeBalls:Boolean = false;
144 var canSeeBoobs:Boolean = false;
145 var canSeeVag:Boolean = false;
146
147 for each (var d:Penis in dicks)
148 {
149 if (d == null)
150 continue;
151 if (!d.isConcealedBy(this, clothing))
152 {
153 trace(d.getDescr(1, this), "gave", getTypeName(), "away");
154 canSeeDick = true;
155 break;
156 }
157 }
158
159 for each (var t:Testicle in balls)
160 {
161 if (t == null)
162 continue;
163 if (!t.isConcealedBy(this, clothing))
164 {
165 trace(t.getDescr(1, this), "gave", getTypeName(), "away");
166 canSeeBalls = true;
167 break;
168 }
169 }
170
171 for each (var b:Breast in breasts)
172 {
173 if (b == null)
174 continue;
175 if (!b.isConcealedBy(this, clothing))
176 {
177 trace(b.getDescr(1, this), "gave", getTypeName(), "away");
178 canSeeBoobs = true;
179 break;
180 }
181 }
182
183 for each (var v:Vagina in vaginas)
184 {
185 if (v == null)
186 continue;
187 if (!v.isConcealedBy(this, clothing))
188 {
189 trace(v.getDescr(1, this), "gave", getTypeName(), "away");
190 canSeeVag = true;
191 break;
192 }
193 }
194 var masc:Boolean = canSeeDick || canSeeBalls;
195 var fem:Boolean = canSeeBoobs || canSeeVag;
196 if (masc && fem)
197 return Gender.HERM;
198 if (masc && !fem)
199 return Gender.MALE;
200 if (!masc && fem)
201 return Gender.FEMALE;
202 return Gender.MALE;
203 }
204
205 public function breastDelta(delta:Number, mult:Boolean):void
206 {
207 for (var i:int = 0; i < _breasts.length; i++)
208 if (!mult)
209 _breasts[i].size += (delta);
210 else
211 _breasts[i].milkMult
212 }
213
214 public function dickDelta(delta:Number, mult:Boolean):void
215 {
216 for (var i:int = 0; i < _dicks.length; i++)
217 if (mult)
218 _dicks[i].sizeMult += (delta);
219 else
220 _dicks[i].size += (delta);
221 }
222
223 public function testicleDelta(delta:Number, mult:Boolean):void
224 {
225 for (var i:int = 0; i < _balls.length; i++)
226 if (mult)
227 _balls[i].loadMult += (delta);
228 else
229 _balls[i].normalLoad += (delta);
230 }
231
232 public function addEnchantment(ench:Enchantment):String
233 {
234 var story:String = ench.onInit(this);
235 if (!ench.cancelAddition)
236 this.enchantments[ench.getID()] = ench;
237 return story;
238 }
239
240 public function setupBody():void
241 {
242 initialGenderSetup();
243 CONFIG::debug
244 {
245 if (this._arms.length == 0)
246 trace("[WARNING] ", this.getTypeName(), " has no arms!");
247 if (this._assholes.length == 0)
248 trace("[WARNING] ", this.getTypeName(), " has no anuses!");
249 if (this._gender.hasDick && this._balls.length == 0)
250 trace("[WARNING] ", this.getTypeName(), " has no balls!");
251 if (this._breasts.length == 0)
252 trace("[WARNING] ", this.getTypeName(), " has no breasts!");
253 if (this._gender.hasDick && this._dicks.length == 0)
254 trace("[WARNING] ", this.getTypeName(), " has no dick!");
255 if (this._eyes.length == 0)
256 trace("[WARNING] ", this.getTypeName(), " has no eyes!");
257 if (this._legs.length == 0)
258 trace("[WARNING] ", this.getTypeName(), " has no legs!");
259 if (this._gender.hasVag && this._vaginas.length == 0)
260 trace("[WARNING] ", this.getTypeName(), " has no vag!");
261 }
262 }
263
264 public function initialGenderSetup():void
265 {
266 mGenderInitialized = true;
267 }
268
269 public function yourMove(cs:CombatScreen, ply:Creature):void
270 {
271 if ((turnsToLose > 0) || notifyEnchantments(new CombatTurnEvent(cs, ply)))
272 {
273 InfoScreen.push("<p>The " + getTypeName() + " cannot attack!</p>");
274 return;
275 }
276 if (turnsToLose > 0)
277 {
278 turnsToLose--;
279 }
280 if (MathUtils.lengthOf(abilities) > 0 && MathUtils.rand(0, abilityUseProbability) == 0)
281 {
282 var ab:Ability = Ability(MathUtils.getRandomObjectEntry(abilities));
283 if (this.mana < ab.manaCost)
284 {
285 InfoScreen.push("<p>The " + getTypeName() + " tried to use " + ab.name + " but is too exhausted!</p>");
286 return;
287 }
288 if (ab.activate(this, ply))
289 {
290 this.mana -= ab.manaCost
291 return;
292 }
293 }
294 cs.tryAttack(this, ply);
295 return;
296 }
297
298 public function addDick(type:String = "default"):Penis
299 {
300 return null;
301 }
302
303 public function addLust(amt:Number = 1):void
304 {
305 var adding2Lust:int = (amt * getLustMult());
306 trace("Adding to lust ", adding2Lust);
307 lust += Math.ceil(adding2Lust);
308 }
309
310 private function getLustMult():Number
311 {
312 var numballs:Number = balls.length;
313 var loadMultSum:Number = 0;
314 for (var i:int = 0; i < balls.length; i++)
315 {
316 loadMultSum += (balls[i] as Testicle).loadMult * 0.5;
317 }
318 return loadMultSum;
319 }
320
321 public function takeFromInventory(item:Item):void
322 {
323 for (var i:int = 0; i < inventory.length; i++)
324 {
325 if ((inventory[i] as Item).id == item.id)
326 {
327 (inventory[i] as Item).amount -= item.amount;
328 if ((inventory[i] as Item).amount <= 0)
329 inventory.splice(i, 1);
330 return;
331 }
332 }
333 }
334
335 public function addToInventory(item:Item):void
336 {
337 for (var i:int = 0; i < inventory.length; i++)
338 {
339 if ((inventory[i] as Item).id == item.id)
340 {
341 (inventory[i] as Item).amount += item.amount;
342 return;
343 }
344 }
345 if (inventory.length < 11)
346 {
347 inventory.push(item);
348 }
349 else
350 {
351 if (main != null)
352 main.showInventory(item);
353 }
354 }
355
356 public function combatDescr(subj:Creature):String
357 {
358 if (getInterested(subj))
359 {
360 this.lust = 100;
361 }
362 var o:String = "<p>" + Utils.A(getTypeName(), true) + " " + getTypeName() + " leaps from the bushes and attacks!</p><p>Your attacker is ";
363 o += getDescription();
364
365 return o;
366 }
367
368 public function onEncounter(ply:Creature):Boolean
369 {
370 return false;
371 }
372
373 public function onWin(ply:Creature):Boolean
374 {
375 return false;
376 }
377
378 /**
379 * Override this and return true to override the default "YOU WHIN TEH PRIZE!!!!" screen
380 * @param ply
381 * @return
382 */
383 public function onLose(ply:Creature):Boolean
384 {
385 return false;
386 }
387
388 protected function genName():void
389 {
390 var firstNames:Array = ["Andrew", "Alex", "Boris", "Charles", "Alexei", "Drew", "Scruffy", "Gonnadi", "Adolf", "Albert", "Bruno", "Frederick", "Ray"];
391
392 var lastNames:Array = ["Lenin", "Hitler", "Jenkins", "Balboa", "Nelson", "O'Reilly", "McDonald", "Charles", "Rubin", "Schwarzeneggar"];
393 ownName = MathUtils.getRandomArrayEntry(firstNames) + " " + MathUtils.getRandomArrayEntry(lastNames);
394 //trace(ownName);
395 }
396
397 public function recalcGender():void
398 {
399 if (balls.length > 0)
400 {
401 if (vaginas.length > 0)
402 {
403 gender = Gender.HERM;
404 }
405 else
406 {
407 gender = Gender.MALE;
408 }
409 }
410 else
411 {
412 if (vaginas.length > 0)
413 {
414 gender = Gender.FEMALE;
415 }
416 else
417 {
418 gender = Gender.ASEXUAL;
419 }
420 }
421 }
422
423 /**
424 * What am I?
425 * @return String Whatever it's called
426 */
427 public function getTypeName():String
428 {
429 throw new Error("SOME DUMBASS DIDN'T GIVE THIS CREATURE A NAME");
430 return "NOT FUCKING NAMED YET";
431 }
432
433 /**
434 * Do I have the option to run?
435 * @return Button visibility
436 */
437 public function canRun():Boolean
438 {
439 return true;
440 }
441
442 public function areAnyConcealed(parts:Vector.<IBodyPart>):Boolean
443 {
444 var yes:Boolean = false;
445 for each (var p:IBodyPart in parts)
446 {
447 if (p != null && p.isConcealedBy(this, clothing))
448 return true;
449 }
450 return false;
451 }
452
453 public function isHeadConcealed():Boolean
454 {
455 var wat:Function = function(c_:Object, index:int, vector:Vector.<Clothing>):Boolean
456 {
457 var c:Clothing = Clothing(c_);
458 if (c != null)
459 return (c.type.obscures.indexOf("head") > -1);
460 else
461 return false;
462 }
463 return clothing.some(wat);
464 }
465
466 public function isWearing(ct:ClothingType):Boolean
467 {
468 var wat:Function = function(c_:Object, index:int, vector:Vector.<Clothing>):Boolean
469 {
470 var c:Clothing = Clothing(c_);
471 if (c != null)
472 return (c.type == ct);
473 else
474 return false;
475 }
476 return clothing.some(wat);
477 }
478
479 public function areEyesConcealed():Boolean
480 {
481 return areAnyConcealed(Vector.<IBodyPart>(eyes));
482 }
483
484 public function getDescription():String
485 {
486 var descr:String = "";
487 // a gay human male of average height and build. He also possesses a long, flowing mane of golden hair,
488 // which contrasts nicely with your blue eyes and light skin.
489 //
490 // In the equipment department, you're not too odd. You have two human testicles swinging between your legs, paired with
491 // a single, 5.5" human schlong. Your breasts are flat, but well-sculpted human pecs, and you have a standard-issue male
492 // ass with a standard-issue virgin male asshole between its buns. You've got two human arms, two human legs.
493 //
494 // In other words, you're an average human, which probably won't last long down here.
495 //
496
497 // NOW WITH ENEMY TRAPS
498 var aGender:Gender = getApparentGender();
499 descr = Utils.A(sexualPreference.label) + " " + aGender.label + " " + getTypeName() + ", who " + build.getDescription();
500
501 if (!isHeadConcealed())
502 {
503 if (hair == Hair.BALD)
504 {
505 descr += ", %POS% glistening scalp";
506 if (!areEyesConcealed())
507 descr += " distracting from %POS%";
508 }
509 else
510 {
511 descr += ". %CSUB% has " + hair;
512 if (!areEyesConcealed())
513 descr += ", which constrasts nicely with %POS%";
514 }
515 }
516 else
517 {
518 descr += ", and has";
519 }
520 if (!areEyesConcealed())
521 {
522 if (eyes.length == 0)
523 {
524 if (isHeadConcealed())
525 descr += " a";
526 descr += " complete lack of eyes";
527 }
528 else
529 descr += getEyesDescr();
530 descr += " and "
531 }
532
533 descr += skin.getDescr(0, this);
534 descr += ".</p>";
535
536 descr += "<p>In the equipment department, ";
537 var wearingPants:Boolean = isWearing(ClothingType.PANTS);
538 var haveBalls:Boolean = (balls.length > 0 && !wearingPants);
539 var haveDicks:Boolean = (dicks.length > 0 && !wearingPants);
540 var haveVags:Boolean = (vaginas.length > 0 && !wearingPants);
541 if (haveBalls && haveDicks)
542 descr += "%SUB% has " + getTesticleDescr() + " swinging between %POS% legs, paired with " + getDickDescr() + ".";
543 if (!haveBalls && haveDicks)
544 descr += "no testicles rub between %POS% thighs when %SUB% walks, but %SUB% does have " + getDickDescr() + ".";
545 if (haveBalls && !haveDicks)
546 descr += "%SUB% doesn't have a dick, but %SUB% does have " + getTesticleDescr() + ". %SUB% seems to get more horny as time passes.";
547
548 if (haveVags)
549 descr += " %CPOS% body possesses " + getVagDescr() + ".";
550
551 if (!haveBalls && !haveDicks && !haveVags )
552 {
553 descr += " You can't see any dangly parts, nor anything else between %POS% legs.";
554 if (breasts.length > 0)
555 descr += " However, ";
556 }
557
558 if (breasts.length > 0)
559 {
560 descr += " %CSUB% has " + getBreastDescr();
561 if (assholes.length > 0 && !areAnyConcealed(Vector.<IBodyPart>(assholes)))
562 {
563 descr += ", and also has " + getAssDescr() + ".";
564 }
565 else
566 {
567 descr += ".";
568 }
569 }
570 else
571 {
572 descr += " %CSUB% doesn't have any breasts";
573 if (assholes.length > 0 && !areAnyConcealed(Vector.<IBodyPart>(assholes)))
574 {
575 descr += ", but does have " + getAssDescr() + ".";
576 ;
577 }
578 else
579 {
580 descr += ".";
581 }
582 }
583
584 if (arms.length > 0)
585 descr += " %CSUB% has " + getArmsDescr() + ", ";
586 else
587 descr += " %CSUB% doesn't have any arms, ";
588
589 if (legs.length > 0)
590 {
591 if (arms.length == 0)
592 descr += "but %SUB% DOES have ";
593 else
594 descr += "and ";
595 descr += getLegsDescr() + ".";
596 }
597 else
598 descr += "and no legs.";
599
600 if (wings.length > 0)
601 {
602 descr += " %CSUB% also has " + getWingsDescr() + ".";
603 }
604
605 descr += "</p>";
606
607 descr += "<p>%CSUB% is wearing " + ((clothing.length > 0) ? "a " + getClothingDescr() : "nothing") + ".</p>";
608 if (aGender.label != gender.label)
609 descr += "<p><small>DEBUG: %CSUB% is actually a " + gender.label + " with " + getDickDescr() + "/" + getTesticleDescr() + "/" + getVagDescr() + ". TEE HEE.</small></p>";
610
611 return aGender.doReplace(descr);
612 }
613
614 public function hasEnchantment(name:String):Boolean
615 {
616 return Utils.objHas(enchantments, name);
617 }
618
619 public function levelUp(firstOne:Boolean = false):void
620 {
621 _level++;
622 if (!firstOne)
623 InfoScreen.push("<h2>Levelled up!</h2><p>You are now at level " + level + "!</p>");
624 }
625
626 public function onCombatInit(ply:Player):void
627 {
628 HP = this.maxHP;
629 }
630
631 public function get maxMana():int
632 {
633 return 100 + ((level - 1) * 10);
634 }
635
636 public function get maxHP():int
637 {
638 return 100 + ((level - 1) * 10);
639 }
640
641 public function get maxXP():int
642 {
643 return Math.max(1, 50 * (_level * 0.5));
644 }
645
646 public function getExplored(loc:String):Boolean
647 {
648 for (var i:int = 0; i < explored.length; i++)
649 {
650 if (explored[i] == loc)
651 return true;
652 }
653 return false;
654 }
655
656 public function setExplored(loc:String):void
657 {
658 if (getExplored(loc))
659 return;
660 explored.push(loc);
661 }
662
663 public function getEffectivenessMultiplier(defender:Creature):Number
664 {
665 var a:Number = strength;
666 var e:Number = defender.strength;
667 return (a * (100 - e)) / 10000;
668 }
669
670 /**
671 * Calculation from http://www.gamedev.net/topic/183822-rpg-combat-formula-question/
672 * @param attacker
673 */
674 public function speedCheckAgainst(attacker:Creature):Boolean
675 {
676 // C = A * (100% - E)
677 // WHERE
678 // C = Chance to hit
679 // A = Attacker's accuracy (speed, in our case)
680 // E = Defender's evasion rate (speed, again)
681 var a:Number = attacker.speed;
682 var e:Number = speed;
683 return Math.random() <= (a * (100 - e)) / 10000;
684 }
685
686 /**
687 * Calculation from http://www.gamedev.net/topic/183822-rpg-combat-formula-question/
688 * @param attacker
689 */
690 public function strengthCheckAgainst(attacker:Creature):Boolean
691 {
692 var a:Number = attacker.strength;
693 var e:Number = strength;
694 // C = A * (100% - E)
695 // WHERE
696 // C = Chance to hit
697 // A = Attacker's accuracy (strength, in our case)
698 // E = Defender's evasion rate (strength, again)
699 return Math.random() <= (a * (100 - e)) / 10000;
700 }
701
702 /**
703 * Figure out how much shit we're going to wreck.
704 * @param attacker
705 * @param weapon or null
706 * @return
707 */
708 public function damageAgainst(attacker:Creature, weapon:IWeapon):Number
709 {
710 // from D&D?
711 // TODO: Probably need to factor in speed or something at some point. I ain't a math guy.
712 var a:Number = attacker.strength;
713 var e:Number = strength;
714 var weaponDamage:Number = 0;
715 if (weapon != null)
716 weaponDamage = weapon.calcDamage(this, attacker);
717 var dmg:Number = (MathUtils.rand(0, 1, false) + level + (strength / 50) + weaponDamage) - (MathUtils.rand(0, 1, false) + attacker.level + (attacker.strength / 50));
718 dmg *= 10;
719 return Math.ceil((dmg > 0) ? dmg : 1); // Keep above 1 (no negatives, no 0-damage attacks.)
720 }
721
722 public function get strength():int
723 {
724 return _strength;
725 }
726
727 public function set strength(str:int):void
728 {
729 _strength = str;
730 doStatsUpdate();
731 }
732
733 public function get speed():int
734 {
735 return _speed;
736 }
737
738 public function set speed(spd:int):void
739 {
740 _speed = spd;
741 doStatsUpdate();
742 }
743
744 public function get lust():int
745 {
746 return _lust;
747 }
748
749 public function set lust(lst:int):void
750 {
751 _lust = lst;
752 if (_lust > 100)
753 _lust = 100;
754 doStatsUpdate();
755 }
756
757 public function get gold():int
758 {
759 return _gold;
760 }
761
762 public function set gold(value:int):void
763 {
764 if (value < 0)
765 value = 0;
766 _gold = value;
767 doStatsUpdate();
768 }
769
770 public function get intellect():int
771 {
772 return _intellect;
773 }
774
775 public function set intellect(i:int):void
776 {
777 _intellect = i;
778 doStatsUpdate();
779 }
780
781 public function get mana():int
782 {
783 return _mana;
784 }
785
786 public function set mana(i:int):void
787 {
788 _mana = i;
789 doStatsUpdate();
790 }
791
792 public function get sensitivity():int
793 {
794 return _sensitivity;
795 }
796
797 public function set sensitivity(i:int):void
798 {
799 _sensitivity = i;
800 doStatsUpdate();
801 }
802
803 public function get assholes():Vector.<Asshole>
804 {
805 return this._assholes;
806 }
807
808 public function set assholes(balls:Vector.<Asshole>):void
809 {
810 this._assholes = balls;
811 customized = true;
812 }
813
814 public function hasItem(id:int):Boolean
815 {
816 for each (var item:Item in this.inventory)
817 {
818 if (item.id == id)
819 return true;
820 }
821 return false;
822 }
823
824 public function get breasts():Vector.<Breast>
825 {
826 return this._breasts;
827 }
828
829 public function set breasts(balls:Vector.<Breast>):void
830 {
831 this._breasts = balls;
832 customized = true;
833 }
834
835 public function get eyes():Vector.<Eye>
836 {
837 return this._eyes;
838 }
839
840 public function set eyes(balls:Vector.<Eye>):void
841 {
842 this._eyes = balls;
843 customized = true;
844 }
845
846 public function get vaginas():Vector.<Vagina>
847 {
848 return this._vaginas;
849 }
850
851 public function set vaginas(balls:Vector.<Vagina>):void
852 {
853 this._vaginas = balls;
854 customized = true;
855 }
856
857 public function get arms():Vector.<Arm>
858 {
859 return _arms;
860 }
861
862 public function set arms(arr:Vector.<Arm>):void
863 {
864 _arms = arr;
865 customized = true;
866 }
867
868 public function get legs():Vector.<Leg>
869 {
870 return _legs;
871 }
872
873 public function set legs(arr:Vector.<Leg>):void
874 {
875 _legs = arr;
876 customized = true;
877 }
878
879 public function get wings():Vector.<Wing>
880 {
881 return _wings;
882 }
883
884 public function set wings(arr:Vector.<Wing>):void
885 {
886 _wings = arr;
887 customized = true;
888 }
889
890 public function get balls():Vector.<Testicle>
891 {
892 return _balls;
893 }
894
895 public function set balls(balls:Vector.<Testicle>):void
896 {
897 _balls = balls;
898 customized = true;
899 }
900
901 public function get dicks():Vector.<Penis>
902 {
903 return _dicks;
904 }
905
906 public function set dicks(aaa:Vector.<Penis>):void
907 {
908 _dicks = aaa;
909 customized = true;
910 }
911
912 public function get abilities():Object
913 {
914 return _abilities;
915 }
916
917 public function set abilities(arr:Object):void
918 {
919 _abilities = arr;
920 }
921
922 public function get gender():Gender
923 {
924 return _gender;
925 }
926
927 public function set gender(value:Gender):void
928 {
929 _gender = value;
930 customized = true;
931 }
932
933 public function get HP():int
934 {
935 return _HP;
936 }
937
938 public function set HP(value:int):void
939 {
940 _HP = value;
941 doStatsUpdate();
942 }
943
944 public function get XP():int
945 {
946 return _XP;
947 }
948
949 public function set XP(value:int):void
950 {
951 //trace("XP", value);
952 _XP = value;
953 if (_XP >= maxXP)
954 {
955 _XP = 0;
956 levelUp();
957 }
958 doStatsUpdate();
959 }
960
961 public function setMain(main:AdventureController):void
962 {
963 this.main = main;
964 }
965
966 private function doStatsUpdate():void
967 {
968 if (main != null)
969 {
970 main.refreshStats();
971 }
972 else
973 {
974 // AI
975 if (_eyes.length == 0)
976 _speed = 0.1; // 1/10 chance of hitting when blind
977 }
978 }
979
980 public function get level():int
981 {
982 return _level;
983 }
984
985 private function getBodyPartDesc(collection:Vector.<IBodyPart>, singular:String):String
986 {
987
988 if (collection.length == 0)
989 {
990 return "no " + Utils.pluralize(2, singular);
991 }
992 var out:String = "";
993 var varying:Boolean = false;
994 var types:Object = new Object();
995 var lname:String = "";
996 var numtypes:Number = 0;
997 for each (var i:*in collection)
998 {
999 var t:IBodyPart = i as IBodyPart;
1000 if (t == null)
1001 continue;
1002 //trace(t);
1003 lname = t.name;
1004 if (!(lname in types))
1005 {
1006 types[lname] = 0;
1007 numtypes++;
1008 }
1009 types[lname]++;
1010 }
1011 if (numtypes == 1)
1012 {
1013 for each (t in collection)
1014 {
1015 if (t.name == lname)
1016 return t.getDescr(types[lname], this);
1017 }
1018 }
1019 else
1020 {
1021 var n:Number = 0;
1022 for (var ot:*in types)
1023 {
1024 var gotdescr:Boolean = false;
1025 for each (t in collection)
1026 {
1027 if (t.name == ot)
1028 {
1029 if (!gotdescr)
1030 {
1031 out += ", " + t.getDescr(types[ot] as Number, this);
1032 gotdescr = true;
1033 }
1034 n += types[ot];
1035 }
1036 }
1037 }
1038 return collection.length + " " + singular + "s of varying types (" + out.substr(2) + ")";
1039 }
1040 return "";
1041 }
1042
1043 public function notifyEnchantments(e:*):Boolean
1044 {
1045 var collection:Array = [];
1046 for (var eID:String in enchantments)
1047 {
1048 var ench:Enchantment = enchantments[eID];
1049 if (e is CombatStartEvent)
1050 {
1051 ench.onCombatInit(e.other);
1052 }
1053 if (e is CombatEndEvent)
1054 {
1055 ench.onCombatComplete(e.won, e.other);
1056 }
1057 if (e is CombatTurnEvent)
1058 {
1059 return ench.onMyCombatTurn(e.screen, e.other);
1060 }
1061 }
1062 return false;
1063 }
1064
1065 public function inventoryUpdate(item:Item, received:Boolean):Boolean
1066 {
1067 var actionToTake:int = -1;
1068 for (var eID:String in enchantments)
1069 {
1070 var act:int = enchantments[eID].onInventoryReceived(item);
1071 if (act != Enchantment.INTERCEPT_ACTION_NONE)
1072 {
1073 actionToTake = act;
1074 break;
1075 }
1076 }
1077 switch (actionToTake)
1078 {
1079 case Enchantment.INTERCEPT_ACTION_TOSS:
1080 // Do nothing, we're already tossing.
1081 break;
1082 case Enchantment.INTERCEPT_ACTION_USE:
1083 item.Use(this);
1084 break;
1085 default:
1086 break;
1087 }
1088 return actionToTake == Enchantment.INTERCEPT_ACTION_NONE;
1089 }
1090
1091 public function getTesticleDescr():String
1092 {
1093 return getBodyPartDesc(Vector.<IBodyPart>(balls), "ball");
1094 }
1095
1096 public function getBulgesInPants():String
1097 {
1098 var numBulge:int = 0;
1099 var peeks:Vector.<Penis> = new Vector.<Penis>();
1100 for each (var p:Penis in dicks)
1101 {
1102 if (p == null)
1103 continue;
1104 if (!p.isConcealedBy(this, clothing))
1105 {
1106 for each (var c:Clothing in clothing)
1107 {
1108 if (c == null)
1109 continue;
1110 var bsize:Number = p.getBulgeSize(this, c);
1111 trace(p.getDescr(1, this), "bsize=" + bsize.toString());
1112 if (bsize > 6)
1113 {
1114 if (bsize < 8)
1115 {
1116 numBulge++;
1117 }
1118 else
1119 {
1120 peeks.push(p)
1121 }
1122 }
1123 }
1124 }
1125 }
1126 if (numBulge == 0 && peeks.length == 0)
1127 return "";
1128 var fo:String = " (which has ";
1129 if (numBulge > 0)
1130 {
1131 fo += numBulge + " " + Utils.pluralize(numBulge, "bulge", "bulges");
1132 }
1133 if (numBulge > 0 && peeks.length > 0)
1134 {
1135 fo += " and ";
1136 }
1137 if (peeks.length > 0)
1138 {
1139 fo += getBodyPartDesc(Vector.<IBodyPart>(peeks), "dick") + " peeking over %POS% waistband";
1140 }
1141 return fo + ")";
1142 }
1143
1144 public function getDickDescr():String
1145 {
1146 return getBodyPartDesc(Vector.<IBodyPart>(dicks), "dick");
1147 }
1148
1149 public function getVagDescr():String
1150 {
1151 return getBodyPartDesc(Vector.<IBodyPart>(vaginas), "vag");
1152 }
1153
1154 public function getBreastDescr():String
1155 {
1156 return getBodyPartDesc(Vector.<IBodyPart>(breasts), "boob");
1157 }
1158
1159 public function getAssDescr():String
1160 {
1161 return getBodyPartDesc(Vector.<IBodyPart>(assholes), "asshole");
1162 }
1163
1164 public function getArmsDescr():String
1165 {
1166 return getBodyPartDesc(Vector.<IBodyPart>(arms), "arm");
1167 }
1168
1169 public function getEyesDescr():String
1170 {
1171 return getBodyPartDesc(Vector.<IBodyPart>(eyes), "eye");
1172 }
1173
1174 public function getLegsDescr():String
1175 {
1176 return getBodyPartDesc(Vector.<IBodyPart>(legs), "leg");
1177 }
1178
1179 public function getWingsDescr():String
1180 {
1181 return getBodyPartDesc(Vector.<IBodyPart>(wings), "wing");
1182 }
1183
1184 public function getClothingDescr():String
1185 {
1186 var desc:String = "";
1187
1188 for (var i:int = 0; i < clothing.length; i++)
1189 {
1190 var item:Clothing = clothing[i];
1191
1192 desc += item.getDescr(this);
1193
1194 switch (item.type)
1195 {
1196 case ClothingType.HEADGEAR:
1197 desc += " as a hat";
1198 break;
1199 case ClothingType.TOP:
1200 desc += " as a shirt";
1201 break;
1202 case ClothingType.FOOTWEAR:
1203 desc += " as shoes";
1204 break;
1205 case ClothingType.PANTS:
1206 desc += " as trousers" + getBulgesInPants();
1207 break;
1208 }
1209
1210 if (i < (clothing.length - 3))
1211 {
1212 desc += ", ";
1213 }
1214 else if (i == (clothing.length - 2))
1215 {
1216 desc += " and ";
1217 }
1218 }
1219
1220 return desc;
1221 }
1222
1223 /**
1224 * Wants your body
1225 *
1226 * I = Interested
1227 * H = Hostile
1228 * +---------------+---+---+
1229 * | Type | I | H |
1230 * +---------------+---+---+
1231 * | Rape | T | T |
1232 * | Fight | F | T |
1233 * | Horny | T | F |
1234 * | - | F | F |
1235 * +---------------+---+---+
1236 */
1237 public function getInterested(subj:Creature):Boolean
1238 {
1239 return sexualPreference.isOppositeGender(gender, subj.getApparentGender()); // trollface.jpg
1240 }
1241
1242 /**
1243 * By default, only allow rape if health == 0 or paralyzed.
1244 * @param rapist WHO BE RAPIN ME
1245 *
1246 */
1247 public function tryRape(rapist:Creature):Boolean
1248 {
1249 return (HP == 0 || Paralyze.isParalyzed(this));
1250
1251 }
1252
1253 public function getHostile(subj:Creature):Boolean
1254 {
1255 return false;
1256 }
1257
1258 public function performConversion(oldMe:Creature):void
1259 {
1260
1261 }
1262
1263 public function changeFrom(f:Creature):void
1264 {
1265 this.performConversion(f);
1266 }
1267
1268 public function loseTurns(numturns:int):void
1269 {
1270 turnsToLose += numturns;
1271 }
1272
1273 public function getRapable():Boolean
1274 {
1275 return canRun() && HP < (maxHP / 3);
1276 }
1277
1278 /**
1279 * Alter the rape menu to fit your needs.
1280 * @param ply
1281 * @param menu
1282 */
1283 public function onRape(ply:Creature, rape:Rape):void
1284 {
1285
1286 }
1287
1288 /**
1289 * Does this character have any weapons?
1290 * @return
1291 */
1292 public function hasAnyWeapon():Boolean {
1293 for (var i:int = 0; i < arms.length; i++) {
1294 if (arms[0].weapon != null)
1295 return true;
1296 }
1297 return false;
1298 }
1299
1300 /**
1301 * Find any equipped weapon.
1302 * @return
1303 */
1304 public function getFirstWeapon():IWeapon {
1305 for (var i:int = 0; i < arms.length; i++) {
1306 if (arms[0].weapon != null)
1307 return arms[0].weapon;
1308 }
1309 return null;
1310 }
1311 }
1312 }
1313
Adult Text Adventure Framework for Flex 4