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

Tree @master (Download .tar.gz)

Poison.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
# 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 Talent;

### BUILT IN POISONS ###

$orange_poison  = Talent->new('name'       => 'orange poison',
                              'type'       => 'poison',
                              'on_perform' => <<'END',
  {
    my ($self, $target, $talent) = @_;
    $target->seen($talent, "<self> is poisoned with <other>!");
    $target->adjust('strength',-1,$talent);
    $::fuses->add(<<'END_FUSE', ::d(1,6,+1), [$target, $talent]);
    {
      my ($target, $talent) = @_;
      my $r = ::d(1,6,+2);
      $target->seen($target, "Poison courses through <self>'s veins!");
      $target->adjust('constitution',-1,$talent);
      $target->review('status');
      if (::d(1,4) == 1)
      {
        $r = 0;
        $target->seen($target, "The poison in <self>'s body wears off.");
      }
      $r;
    }
END_FUSE
    $target->review('status');
  }
END
);

$death_poison   = Talent->new('name'       => 'death poison',
                              'type'       => 'poison',
                              'on_perform' => <<'END',
  {
    my ($self, $target, $talent) = @_;
    $target->seen($talent, "<self> is poisoned with <other>!");
    $::fuses->add(<<'END_FUSE', ::d(1,6,+1), [$target, $talent]);
    {
      my ($target, $talent) = @_;
      my $r = 4;
      $target->seen($target, "Poison courses through <self>'s veins!");
      $target->adjust('constitution',-1,$talent);
      $target->review('status');
      $r;
    }
END_FUSE
    $target->review('status');
  }
END
);

### BUILT IN DISEASES ###

$common_cold  = Talent->new('name'       => 'common cold',
                            'type'       => 'disease',
                            'on_perform' => <<'END',
  {
    my ($self, $target, $talent) = @_;
    $target->seen($talent, "<self> comes down with <other>!");
    $::fuses->add(<<'END_FUSE', ::d(5,6), [$target, 10, $talent]);
    {
      my ($target, $count, $talent) = @_;
      my $r = ::d(1,30,+30);
      if ($count == 0)
      {
        $target->seen($target, "<self>'s cold clears up.");
        $r = 0;
      }
      elsif (::d(1,2)==1)
      {
        $target->seen($target, "<self> sniffles and groans.");
        $target->adjust('spirit',-::d(1,2),$talent);
      } else
      {
        $target->seen($target, "<self> coughs and sneezes.");
        $target->adjust('charisma',-::d(1,2),$talent);
      }
      $target->review('status');
      $::fuses->current->{args}[1]--;  # decrease count
      $r;
    }
END_FUSE
    $target->review('status');
  }
END
);

$rotting_disease   = Talent->new('name'       => 'rotting disease',
                                 'type'       => 'disease',
                                 'on_perform' => <<'END',
  {
    my ($self, $target, $talent) = @_;
    $target->seen($talent, "<self> comes down with <other>!");
    $::fuses->add(<<'END_FUSE', ::d(5,8,+4), [$target, $talent]);
    {
      my ($target, $talent) = @_;
      my $r = ::d(4,8,+5);
      $target->seen($target, "Bits of <self> rot away!");
      $target->{max}{constitution} -= 1;
      $target->review('status');
      $r;
    }
END_FUSE
    $target->review('status');
  }
END
);


sub poison
{
  my $self = shift;
  my $victim = shift;
  ::script $self->{on_perform}, $self, $victim, $self;
}

1;