subclass BShop of WorldObjectBase
{
	scratch         = $0
	pModule         = $ffff		; -1
	pLine           = $ffff		; -1
	pName           = $0
	pSelf           = $0
	pType           = $b		; 11, inRight
	pCurrency       = $0

	buildVerbList()
}

string_0026	= "BShop"