git @ Cat's Eye Technologies Corona-Realm-of-Magic / master src / corona / Attacks.pm
master

Tree @master (Download .tar.gz)

Attacks.pm @master — raw · history · blame 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
# Copyright (c)2000-2013, Chris Pressey, Cat's Eye Technologies.
# All rights reserved.
# Distributed under a BSD-style license; see file LICENSE for more info.

package Attack;

$flame    = Attack->new('attemptverb' => 'singes',
                        'successverb' => 'burns',
                        'force' => Force->new(Dice->new(1,3), $Adj::fire),
                        'followup' => 1,
);

$bee_sting = Attack->new('attemptverb' => 'lunges at',
                         'successverb' => 'stings',
                         'force' => Force->new(Dice->new(1,2), $Adj::piercing, $Adj::bone),
                         'accuracy' => -2,
                         'on_strike' => <<'END',
{
  my ($self, $attacker, $victim) = @_;
  $victim->adjust('strength',-(::d(1,2)-1),'bee sting');
  $victim->review('status');
  $victim->seen("<self> shudders in pain.");
  $self->{force} = Force->new(Dice->new(1,6,-5), $Adj::crushing, $Adj::flesh);
  $self->{successverb} = 'bumps';
  $self->{on_strike} = '';
  @_ = ($self, $attacker, $victim);
}
END
);

$talon    = Attack->new('attemptverb' => 'swipes at',
                        'successverb' => 'digs into',
                        'force' => Force->new(Dice->new(1,1), $Adj::piercing, $Adj::bone),
);

$beak     = Attack->new('attemptverb' => 'pecks at',
                        'successverb' => 'pecks into',
                        'force' => Force->new(Dice->new(1,2), $Adj::piercing, $Adj::bone),
                        'autofollow' => 2,
);

$insect_kick = Attack->new('attemptverb' => 'leaps at',
                        'successverb' => 'kicks',
                        'force' => Force->new(Dice->new(1,2,-1), $Adj::crushing, $Adj::flesh),
);

$cat_bite = Attack->new('attemptverb' => 'tries to bite',
                        'successverb' => 'bites',
                        'force' => Force->new(Dice->new(1,2), $Adj::piercing, $Adj::bone),
);

$cat_claw = Attack->new('attemptverb' => 'swipes at',
                        'successverb' => 'claws',
                        'force' => Force->new(Dice->new(1,1), $Adj::piercing, $Adj::bone),
);

$bear_claw = Attack->new('attemptverb' => 'swipes at',
                         'successverb' => 'mauls',
                         'force' => Force->new(Dice->new(1,2), $Adj::piercing, $Adj::bone),
);

$bear_hug  = Attack->new('attemptverb' => 'tries to crush',
                         'successverb' => 'hugs',
                         'force' => Force->new(Dice->new(2,3,+1), $Adj::flesh, $Adj::crushing),
                         'autofollow' => 2,
);

$gator_grip = Attack->new('attemptverb' => 'gnashes at',
                          'successverb' => 'clamps down on',
                          'force' => Force->new(Dice->new(3,2,+1), $Adj::bone, $Adj::crushing),
                          'accuracy' => +1,
);


$sylvan_snake_bite = Attack->new('successverb' => 'bites',
                         'attemptverb' => 'lashes out at',
                         'force' => Force->new(Dice->new(1,1), $Adj::bone, $Adj::piercing),
                         'on_strike' => <<'END',
{
  my ($self, $attacker, $victim) = @_;
  if (::d(1,3)==1)
  {
    my $poison = $Talent::orange_poison->clone;
    $poison->poison($victim);
  }
  @_ = ($self, $attacker, $victim);
}
END
);

$blue_spider_bite = Attack->new('successverb' => 'bites',
                         'attemptverb' => 'crawls on',
                         'force' => Force->new(Dice->new(1,1), $Adj::bone, $Adj::piercing),
                         'accuracy' => -2,
                         'on_strike' => <<'END',
{
  my ($self, $attacker, $victim) = @_;
  if (::d(1,20)==1)
  {
    my $poison = $Talent::death_poison->clone;
    $poison->poison($victim);
  }
  @_ = ($self, $attacker, $victim);
}
END
);

$punch = Attack->new('attemptverb' => 'swings at',
                     'successverb' => 'punches',
                     'force' => Force->new(Dice->new(1,1), $Adj::flesh, $Adj::crushing),
);

$branch_rake = Attack->new('attemptverb' => 'rakes',
                     'successverb' => 'scrapes',
                     'force' => Force->new(Dice->new(1,2), $Adj::wood, $Adj::crushing),
);

$icy_touch = Attack->new('attemptverb' => 'tries to touch',
                     'successverb' => 'touches',
                     'force' => Force->new(Dice->new(1,3,+1), $Adj::flesh, $Adj::cold),
);

$dog_bite = Attack->new('attemptverb' => 'gnashes at',
                        'successverb' => 'bites',
                        'force' => Force->new(Dice->new(1,3), $Adj::bone, $Adj::cutting));

$skull_ram = Attack->new('attemptverb' => 'flies at',
                         'successverb' => 'rams',
                         'force' => Force->new(Dice->new(1,1), $Adj::bone, $Adj::magic),
);

$bone_punch = Attack->new('attemptverb' => 'swings at',
                     'successverb' => 'punches',
                     'force' => Force->new(Dice->new(1,1), $Adj::bone, $Adj::crushing),
);

1;