summaryrefslogtreecommitdiff
path: root/npc/items/croconut.txt
blob: aef6b1af919673d866c825c9adb1440dee92dd7d (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
63
64
65
66
67
68
69
70
71
72
73
74
75
// Evol scripts.
// Authors:
//    4144
//    Reid
//    Jesusalva
// Description:
//    Allows to cut a Croconut in multiple parts.

000-0,0,0,0	script	Croconut	NPC_HIDDEN,{
    close;

OnUse:
    mesn "Narrator";
    mes col(l("Do you want to cut this @@?", getitemlink(Croconut)), 9);
    next;

    menu
        l("Yes."), L_Weapon,
        l("No."), -;

    getitem Croconut, 1;
    close;

L_Weapon:
    .@r=rand(1,5);
    switch (.@r) {
        case 1:
        case 2:
        case 3:
            goto L_TooWeak; break;
        case 4:
            goto L_Weak; break;
        case 5:
            goto L_Good; break;
    }

L_TooWeak:
    mes "";
    mesn "Narrator";

    .@q = rand(5);
    if (readparam(bStr) > 30)
        .@q = .@q + 1;
    if (readparam(bStr) > 60)
        .@q = .@q + 1;
    if (readparam(bStr) > 90)
        .@q = .@q + 1;

    if (.@q == 0) goto L_TooWeakLost;
    if ( (.@q == 1) || (.@q == 2) ) goto L_TooWeakFail;
    if ( (.@q >= 3) && (.@q <= 6) ) goto L_Weak;
    if ( (.@q > 6) ) goto L_Good;

L_TooWeakLost:
    mes col(l("Ops! You destroyed your @@.", getitemlink(Croconut)), 9);
    close;

L_TooWeakFail:
    mes col(l("Well... you did not succeed in opening this @@.", getitemlink(Croconut)), 9);

    getitem Croconut, 1;
    close;

L_Weak:
    mes col(l("You opened the @@ in two parts, but you crushed one of them.", getitemlink(Croconut)), 9);

    getitem HalfCroconut, 1;
    close;

L_Good:
     mes col(l("You perfectly cut your @@ into two edible parts.", getitemlink(Croconut)), 9);

    getitem HalfCroconut, 2;
    close;
}