Add support for custom housing

pkg/items/alchSymbol/pkg.cfg

@@ -2,7 +2,7 @@
 #
 #
 
-Enabled		1
+Enabled		0
 Name		alchSymbol
 
 Version		1.0

pkg/items/anvil/config/itemdesc.cfg

@@ -3,55 +3,63 @@ Item 0x0FAF
 	Name			anvil
 	Desc			Anvil
 	MethodScript	anvil/method
+	Graphic         0x0FAF
 }
 
 Item 0x0FB0
 {
 	Name			anvil2
 	Desc			Anvil
 	MethodScript	anvil/method
+	Graphic         0x0FB0
 }
 
 Item 0x2DD5
 {
 	Name			ElvenAnvilSouth
 	Desc			Elven Anvil
  	MethodScript	anvil/method
+	Graphic         0x2DD5
 }
 
 Item 0x2DD6
 {
 	Name			ElvenAnvilEast
 	Desc			Elven Anvil
 	MethodScript	anvil/method
+	Graphic         0x2DD6
 }
 
 Item 0x4254
 {
 	Name			soulforgeanvil1
 	Desc			soul forge anvil
 	MethodScript	anvil/method
+	Graphic         0x4254
 }
 
 Item 0x4255
 {
 	Name			soulforgeanvil2
 	Desc			soul forge anvil
 	MethodScript	anvil/method
+	Graphic         0x4255
 }
 
 Item 0x4256
 {
 	Name			soulforgeanvil3
 	Desc			soul forge anvil
 	MethodScript	anvil/method
+	Graphic         0x4256
 }
 
 Item 0x4257
 {
 	Name			soulforgeanvil4
 	Desc			soul forge anvil
 	MethodScript	anvil/method
+	Graphic         0x4257
 }
 
 

pkg/items/doors/include/doors.inc

@@ -3,8 +3,11 @@ use uo;
 use util;
 use cfgfile;
 
+include "include/client";
 include ":keys:key";
 
+var doordesc := ReadConfigFile (":doors:itemdesc");
+
 // New requried functions.....
 // Checks to see if the item can be used...
 function CanUseDoor( byref mobile, byref door )
@@ -75,3 +78,80 @@ function IsOccupied( item )
 
 	return ListMobilesNearLocationEX( x, y, item.z, 0, LISTEX_FLAG_HIDDEN+LISTEX_FLAG_NORMAL, item.realm );
 endfunction
+
+///////////////////
+//  closes the given door, ignoring locked status
+///////////////////
+
+function CloseDoor (door)
+	if (door.graphic == door.objtype)
+		return;
+	endif
+
+	var xmod := CINT (doordesc[door.objtype].xmod);
+	var ymod := CINT (doordesc[door.objtype].ymod);
+
+	var newx := door.x - xmod;
+	var newy := door.y - ymod;
+	if (GetObjProperty (door, "x"))
+		newx := GetObjProperty (door, "x");
+		newy := GetObjProperty (door, "y");
+		EraseObjProperty (door, "x");
+		EraseObjProperty (door, "y");
+	endif
+
+	var newz := door.z;
+	var newr := door.realm;
+	if (door.graphic != door.objtype)
+		set_critical (1);
+		door.movable := 1;
+		door.graphic := door.objtype;
+		MoveObjectToLocation( door, newx, newy, newz, newr, flags :=MOVEOBJECT_FORCELOCATION );
+		door.movable := 0;
+		set_critical (0);
+		PlayDoorCloseSound (door);
+	endif
+endfunction
+
+///////////////////
+// plays the sound effect for opening the door
+///////////////////
+
+function PlayDoorOpenSound (door)
+	case (doordesc[door.objtype].doortype)
+		"wood":
+			PlaySoundEffect (door, SFX_OPEN_WOODEN_DOOR);
+    "stone":
+      PlaySoundEffect (door, SFX_OPEN_STONE_DOOR);
+		"metal":
+			PlaySoundEffect (door, SFX_OPEN_METAL_DOOR);
+    "sliding":
+      PlaySoundEffect (door, SFX_OPEN_SLIDING_DOOR);
+		default:
+			PlaySoundEffect (door, SFX_OPEN_METAL_DOOR);
+	endcase
+endfunction
+
+
+
+
+///////////////////
+// plays the sound effect for closing the door
+///////////////////
+
+function PlayDoorCloseSound (door)
+	case (doordesc[door.objtype].doortype)
+		"wood":
+			PlaySoundEffect (door, SFX_CLOSE_WOODEN_DOOR);
+    "stone":
+      PlaySoundEffect (door, SFX_CLOSE_STONE_DOOR);
+		"metal":
+			PlaySoundEffect (door, SFX_CLOSE_METAL_DOOR);
+    "sliding":
+      PlaySoundEffect (door, SFX_CLOSE_SLIDING_DOOR);
+		default:
+			PlaySoundEffect (door, SFX_CLOSE_METAL_DOOR);
+	endcase
+endfunction
+
+

pkg/servmgmt/www/script_profiles.src

@@ -43,7 +43,7 @@ program HTMLPage()
 
 	foreach profile in ( core.script_profiles )
 		WriteHTML("<TR>");
-		WriteHTML("<TD>"+profile.name+"</TD><TD>"+profile.instr+"</TD><TD>"+profile.invocations+"</TD><TD>"+profile.instr_per_invoc+"</TD><TD>"+profile.instr_percent+"%</TD>");
+		WriteHTML("<TD>"+profile.name+"</TD><TD>"+profile.instr+"</TD><TD>"+profile.invocations+"</TD><TD>"+profile.instr_per_invoc+"</TD><TD>"+cdbl(profile.instr_percent)+"%</TD>");
 		WriteHTML("</TR>");
 		SleepMS(2);
 	endforeach

pkg/systems/customHousing/config/icp.cfg

@@ -0,0 +1,20 @@
+# $Id: icp.cfg 375 2006-06-17 19:26:32Z austinheilman $
+#
+#
+ICP Register
+{
+	Name		Custom Housing
+	Version		1.0
+	Description	Custom housing scripts that allow for player placed housing to be customized.
+
+	Creator		POL Distro Team
+	C_Email		poldistro@polserver.com
+
+	Maintainer	POL Distro Team
+	M_Email		distro@polserver.com
+
+	#Script		cmdlevel	path
+
+	#TextCmd	cmdlevel	path
+
+}