Added bowcrafting back into the Classic Distro. I don't know why/how it got removed or maybe

never added.

Author: Hope-Lives

pkg/systems/combat/config/itemdesc.cfg

@@ -795,7 +795,7 @@ Armor    0x1419
 }
 
 Armor    0x2407
-{ 
+{
 	Name			hornedhelm
 	Desc			Horned Helm
 	AR				25
@@ -2082,6 +2082,7 @@ Weapon    0x15004
     Name            fletchersknife
     desc            fletcher's knife
     Graphic	    0xEC5
+	Script			::bladed
     Speed           55
     Damage          2d4
     Attribute       Fencing
@@ -3150,7 +3151,7 @@ Weapon    0x1CAB5
 {
     Name            Bow5
     Script			selectammo
-    Graphic         0x26CC    
+    Graphic         0x26CC
     Speed           60
     Damage          8d6
     Attribute       Archery
@@ -3344,7 +3345,7 @@ Item    0x1999B
     desc            poisoned bolt%s
     graphic         0x1bfb
 	ProjectileAnim  0x1bfe
-    color           0x8042    
+    color           0x8042
 	CProp		OnHit		a1:S17::combat:poisonHit
 	VendorSellsFor	50
 	VendorBuysFor	10

scripts/items/bladed.src

@@ -2,6 +2,7 @@ use cfgfile;
 use uo;
 use os;
 use util;
+
 include "include/client";
 include ":attributes:attributes";
 include "include/string";
@@ -13,10 +14,11 @@ include "include/noto";
 include "include/crafting";
 include ":gumps:requestGump";
 
+var bowcraftconfigfile := ReadConfigFile("bowcraft");
 
 program use_blade(who, blade)
   var craftingbag := FindCraftingbag (who);
-  
+
   EraseObjProperty(who, "IsMeditating");
   EraseObjProperty(who, "HealTimer");
   if(!can_access(who, blade))
@@ -36,7 +38,9 @@ program use_blade(who, blade)
     endif
   endif
   var checkme := use_on.item.objtype;
-  if (use_on.mobile.graphic == CID_SHEERED_SHEEP)
+  if((checkme == 0x1BDD) || (checkme == 0x1bd7))
+    CarveLogs( who, blade, use_on.item );
+  elseif (use_on.mobile.graphic == CID_SHEERED_SHEEP)
           SendSysMessage(who, "You cannot get any more wool from that sheep", color := 33);
           return 0;
   elseif (use_on.mobile.graphic == CID_SHEEP)
@@ -277,4 +281,110 @@ function make_jack_o_latern(who, blade, pumpkin)
      SendSysMessage(who,"That ain't no pumpkin.");
    endif
  endfunction
- 
+
+ function CarveLogs(who, blade, logs)
+  if(logs.movable == 0)
+    SendSysMessage(who, "You cannot use those logs.");
+    return;
+  endif
+  if((!Accessible(who, logs)) or (!CheckLineOfSight(who, logs)) or (dist(who, logs) > 2))
+    SendSysMessage(who, "You cannot use that");
+    return;
+  endif
+  if(!logs.container)
+    if(Distance(who, logs) > 2)
+      SendSysMessage(who, "That is too far away");
+      return;
+    endif
+  endif
+  var creatable := CreatableObjects(who, blade, logs);
+  var selection := SelectMenuItem2(who, "BowcraftCarving");
+  if(!selection)
+    return;
+  endif
+  var what := selection.objtype;
+  if(!Accessible(who, logs))
+    SendSysMessage(who, "I can't access the logs to make that.");
+    return;
+  endif
+  var objectconfig := FindConfigElem(bowcraftconfigfile, what);
+  if(!objectconfig)
+    return;
+  endif
+  var material := CInt(GetConfigString(objectconfig, "Material"));
+  if(material > logs.amount)
+    SendSysMessage(who, "You don't have enough logs to make that.");
+    return;
+  endif
+  var difficulty := GetConfigInt(objectconfig, "Difficulty");
+  var pointvalue := GetConfigInt(objectconfig, "PointValue");
+  var bow := 0;
+  Detach();
+  PlaySoundEffect(who, 0x5a);
+  PerformAction(who, 0x021);
+  sleep(2);
+  PlaySoundEffect(who, 0x5a);
+  PerformAction(who, 0x021);
+  sleep(2);
+  PlaySoundEffect(who, 0x5a);
+  PerformAction(who, 0x021);
+  sleep(2);
+  PlaySoundEffect(who, 0x5a);
+  PerformAction(who, 0x021);
+  sleep(2);
+  if(SkillCheck(who, BOWCRAFT, difficulty, pointvalue))
+    if(what == UOBJ_SHAFTS)
+      var amt := logs.amount;
+      if(DestroyItem(logs))
+        CreateItemInBackpack(who, what, amt);
+        CheckToolWear (who, blade, BOWCRAFT);
+        SendSysMessage(who, "You create some shafts and place them in your pack." );
+      endif
+    elseif (what == UOBJ_BOW)
+      if(SubtractAmount(logs, material))
+        bow := CreateItemInBackpack(who, what);
+        CheckToolWear (who, blade, BOWCRAFT);
+        SendSysMessage(who, "You create a bow and place it in your pack.");
+        SetName(bow, "a bow");
+      endif
+    elseif (what == UOBJ_XBOW)
+      if(SubtractAmount(logs, material))
+        bow := CreateItemInBackpack(who, what);
+        CheckToolWear (who, blade, BOWCRAFT);
+        SendSysMessage(who, "You create a crossbow and place it in your pack.");
+        SetName(bow, "a crossbow");
+      endif
+    elseif (what == UOBJ_HEAVY_XBOW)
+      if(SubtractAmount(logs, material))
+        bow := CreateItemInBackpack(who, what);
+        CheckToolWear (who, blade, BOWCRAFT);
+        SendSysMessage(who, "You create a heavy crossbow and place it in your pack.");
+        SetName(bow, "a heavy crossbow");
+      endif
+    else
+      SendSysMessage(who, "I don't know how to make that.");
+      return;
+    endif
+    if((RandomInt(CInt(GetEffectiveSkill(who,SKILLID_BOWCRAFT)) + 1) > (difficulty + 20)) && (bow != 0))
+      setquality(who, bow);
+//      var skill := GetEffectiveSkill(who, SKILLID_BOWCRAFT);
+//      ExceptionalFameMod(who, skill, difficulty, pointvalue);
+    endif
+  else
+    SubtractAmount(logs, (RandomInt(5) + 1));
+    SendSysMessage(who, "You destroy some logs.");
+  endif
+endfunction
+
+function setquality(who, bow)
+  var tname := TruncateArticle(bow.name);
+  if(CInt(AP_GetSkill(who, BOWCRAFT)) >= 99)
+    bow.name := "an exceptional " + tname + " [crafted by " + who.name + "]";
+  else
+    bow.name := "an exceptional " + tname;
+  endif
+  bow.quality := bow.quality + 0.2;
+  bow.hp := bow.maxhp;
+  SendSysMessage(who, "You created an exceptional item.");
+endfunction
+