1 files changed, 72 insertions, 0 deletions
diff --git a/npc/items/croconut.txt b/npc/items/croconut.txt
new file mode 100644
index 000000000..eb8b6d65e
--- /dev/null
+++ b/npc/items/croconut.txt
@@ -0,0 +1,72 @@
+// Evol scripts.
+// Authors:
+//    4144
+//    Reid
+// Description:
+//    Allows to cut a Croconut in multiple parts.
+//
+// Possible choices for L_Weapon:
+//    rif(countitem(35xx), l(getitemname(xx))), L_Weak,
+//    rif(countitem(35yy), l(getitemname(yy))), L_Good,
+
+000-2-1,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:
+    mes "";
+    mesn "Narrator";
+    mes col(l("Which of your weapons do you want to use in order to cut this @@?", getitemlink(Croconut)), 9);
+    next;
+
+    menu
+        rif(countitem(Knife) > 0, l(getitemname(Knife))), L_Weak,
+        rif(countitem(PiouSlayer) > 0, l(getitemname(PiouSlayer))), L_Weak,
+        rif(countitem(TrainingGladius) > 0, l(getitemname(TrainingGladius))), L_Good,
+        rif(countitem(WoodenSword) > 0, l(getitemname(WoodenSword))), L_Weak,
+        rif(countitem(ArtisBacksword) > 0, l(getitemname(ArtisBacksword))), L_Good,
+        l("Bare Hands"), -;
+
+L_TooWeak:
+    mes "";
+    mesn "Narrator";
+
+    .@q = rand(5);
+    if (.@q == 0) goto L_TooWeakLost;
+    if ( (.@q == 1) || (.@q == 2) ) goto L_TooWeakFail;
+    if ( (.@q == 3) || (.@q == 4) || (.@q == 5) ) goto L_Weak;
+
+L_TooWeakLost:
+    mes col(l("You hit too hard with your fist, you destroyed your @@.", getitemlink(Croconut)), 9);
+
+    close;
+
+L_TooWeakFail:
+    mes col(l("Your hands are too weak, 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;
+}