summaryrefslogtreecommitdiff
path: root/npc/magic/transmigration.txt
blob: 4e45d8510853f20a4c1da4649c0e5c473edfb777 (plain) (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
// TMW2 script
// Author: Jesusalva <admin@tmw2.org>
//
// Magic Script: TMW2_TRANSMIGRATION
//
// Attempts to make stuff from other stuff
// This is actually referred as transmutation in human-readable forms, and
// transmigration in scripts.

-	script	sk#mkpot	32767,{
    end;
OnCall:
    // Other requeriments
    if (countitem(Plushroom) < 10 || !countitem(Milk)) {
        dispbottom l("You need @@ @@ and @@ to cast this skill.", 10, getitemlink(Plushroom), getitemlink(Milk));
        end;
    }

    // Check cooldown
    if (@mkpot_at > gettimetick(2)) {
        dispbottom l("Skill is in cooldown for @@.", FuzzyTime(@mkpot_at));
        end;
    }

    // Check requisites
    if (!MagicCheck(TMW2_TRANSMIGRATION, 185, -5))
        end;

    // Consume items
    delitem Plushroom, 10;
    delitem Milk, 1;

    // Create the stuff based on MAGIC_EXP
    // The closer to zero, best;
    // Each 3 mexp reduces chance to get a fail
    // Each skill level reduces chances to get a fail
    .@r=rand(141,181)-(MAGIC_EXP/3)-getskilllv(TMW2_TRANSMIGRATION);
    if (.@r < 21) {
            // Get up to 6 Haste Potions depending on your skill.
            getitem HastePotion, abizit()+1;
    } else if (.@r < 82) {
        getitem any(BottleOfTonoriWater, BottleOfWoodlandWater, BottleOfDivineWater, Milk, CelestiaTea, PileOfAsh), 1;
    } else if (.@r < 122) {
        getitem any(BottleOfSewerWater, Milk, CelestiaTea, PileOfAsh), 1;
    } else if (.@r < 162) {
        getitem any(BottleOfSewerWater, BottleOfSewerWater, PileOfAsh), 1;
    } else {
        dispbottom l("Your items vanishes into thin air. What?!");
    }

    // set cooldown
    @mkpot_at=gettimetick(2);
    @mkpot_at=@mkpot_at+6;

    // Get a few mana experience points (this is NOT used by Mana Stone)
    GetManaExp(TMW2_TRANSMIGRATION, rand2(4,11));
    end;

OnInit:
    bindatcmd "sk-trans", "sk#mkpot::OnCall", 0, 100, 0;
    end;
}