1 package org
.sevenchan
.dongs
.creature
3 import flash
.display
.Sprite;
5 import mx
.effects
.effectClasses
.BlurInstance
;
6 import org
.sevenchan
.dongs
.*;
7 import org
.sevenchan
.dongs
.bodyparts
.*;
8 import org
.sevenchan
.dongs
.items
.*;
9 import org
.sevenchan
.dongs
.screens
.*;
11 * A two-inch-thick worm that move through loose soil or sand. Only attack individuals impregnated with eggs.
13 * Likes to restrain legs and bite.
14 * Burrows underground for a few turns before coming back up.
15 * Can spit a mild poison when heavily injured.
17 * When you win, you get an anchor stone from the first one. Next ones spit up random crap they have in their stomachs.
19 * When you lose, you now have a parasite living in your intestines. Berry HP uptake = hpGiven / numWorms
21 * Get rid of them with gold potions.
24 public class Sandworm
extends Creature
27 registerClassAlias
("ESandworm", Sandworm
);
28 // Setup genders and bodyparts
29 public function Sandworm
()
31 gender
= Gender
.ASEXUAL
;
32 sexualPreference
= SexualPreference
.ASEXUAL
;
33 //_abilities['bite'] = new Bite();
34 //_abilities['acidspit'] = new AcidSpit();
37 override public function onCombatInit
(ply
:Player
):void
39 inventory
= new Vector
.<Item
>();
40 if(!ply
.getExplored
("wonAgainstSandworm"))
41 inventory
.push
(new AnchorStone
(1));
44 inventory
.push
(ItemRegistry
.BERRY_WHITE
);
46 super.onCombatInit
(ply
);
49 override public function onLose
(ply
:Creature
):Boolean
51 ply
.setExplored
("wonAgainstSandworm");
55 override public function combatDescr
(subj
:Creature
):String
57 return "[Sandworm intro, WIP]";