1 files changed, 53 insertions, 0 deletions
diff --git a/npc/commands/bodytype.txt b/npc/commands/bodytype.txt
new file mode 100644
index 00000000..290c6fd6
--- /dev/null
+++ b/npc/commands/bodytype.txt
@@ -0,0 +1,53 @@
+// @bodytype atcommand
+// changes or returns the body type
+
+-	script	@bodytype	32767,{
+    end;
+
+OnCall:
+    if (.@atcmd_parameters$[0] == "") {
+        dispbottom("Your current body type is " + bodytypeToString());
+        end;
+    }
+
+    .@desired = stringToBodytype(.@atcmd_parameters$[0]);
+
+    if (.@desired == BodyType) {
+        dispbottom("Your body type is already " + bodytypeToString());
+    } else {
+        BodyType = .@desired;
+        dispbottom("Body type changed to " + bodytypeToString());
+    }
+    end;
+
+OnInit:
+    bindatcmd("gender", "@bodytype::OnCall", 99, 99, false);
+    bindatcmd("bodytype", "@bodytype::OnCall", 99, 99, false);
+    bindatcmd("body", "@bodytype::OnCall", 99, 99, false);
+    bindatcmd("type", "@bodytype::OnCall", 99, 99, false);
+    bindatcmd("changesex", "@bodytype::OnCall", 99, 99, false);
+
+    add_group_command("gender", 40, true, false);
+    add_group_command("bodytype", 40, true, false);
+    add_group_command("body", 40, true, false);
+    add_group_command("type", 40, true, false);
+    add_group_command("changesex", 40, true, false);
+
+    add_group_command("gender", 50, true, false);
+    add_group_command("bodytype", 50, true, false);
+    add_group_command("body", 50, true, false);
+    add_group_command("type", 50, true, false);
+    add_group_command("changesex", 50, true, false);
+
+    add_group_command("gender", 60, true, false);
+    add_group_command("bodytype", 60, true, false);
+    add_group_command("body", 60, true, false);
+    add_group_command("type", 60, true, false);
+    add_group_command("changesex", 60, true, false);
+
+    add_group_command("gender", 80, true, false);
+    add_group_command("bodytype", 80, true, false);
+    add_group_command("body", 80, true, false);
+    add_group_command("type", 80, true, false);
+    add_group_command("changesex", 80, true, false);
+}